Ok, evo napravio sam parce koda koje treba da pokaze kako se dinamicki kreiraju sve komponente i sta se s cime spaja. Sve je u dodatku (za BCB2009 koji koristis).
Primer je za pristup i pretragu lokalne MDB baze, koja treba da bude tamo gde je i EXE, ali princip je potpuno isti i za uspostavljanje drugih konekcija.
SCREENSHOT:
--- H ---
Code:
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
__fastcall ~TForm1();
TPanel *pPanel;
TEdit *pEdit;
void __fastcall Moj_pEditChange(TObject *Sender);
void __fastcall Moj_pFormActivate(TObject *Sender);
TADOConnection *pADOConnection;
TADOQuery *pADOQuery;
TDataSource *pDataSource;
TDBGrid *pDBGrid;
TDBNavigator *pDBNavigator;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
--- CPP ---
Code:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
// Forma
Height = 600;
Width = 800;
Position = poDesktopCenter;
OnActivate = Moj_pFormActivate;
// Panel
pPanel = new TPanel( this );
pPanel->Parent = this;
pPanel->Width = 40;
pPanel->Align = alTop;
// Edit na panelu
pEdit = new TEdit( this );
pEdit->Parent = pPanel;
pEdit->Left = 8;
pEdit->Top = 10;
pEdit->OnChange = Moj_pEditChange;
// Navigator na panelu
pDBNavigator = new TDBNavigator( this );
pDBNavigator->Parent = pPanel;
pDBNavigator->Left = pEdit->Left + pEdit->Width + 8;
pDBNavigator->Top = 8;
// Grid na formi
pDBGrid = new TDBGrid( this );
pDBGrid->Parent = this;
pDBGrid->Align = alClient;
// Konekcija na bazu
pADOConnection = new TADOConnection( this );
pADOConnection->ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +
ExtractFilePath( Application->ExeName )+
"baza.mdb;Persist Security Info=False";
pADOConnection->LoginPrompt = false;
pADOConnection->Connected = true;
// Upit
pADOQuery = new TADOQuery( this );
pADOQuery->Connection = pADOConnection;
// Veza izmenju podataka i vizuelnih kontrola
pDataSource = new TDataSource( this );
pDataSource->DataSet = pADOQuery;
pDBGrid->DataSource = pDataSource;
pDBNavigator->DataSource = pDataSource;
}
__fastcall TForm1::~TForm1()
{
// Ovo direktno oslobadjanje nije neophddno, jer se u VCL...
// ... objekti kojima je postavljen Owner ili Parent unistavaju automatski
// Ako se ipak oslobadja rucno, treba voditi racuna o redosledu
if ( pEdit )
delete pEdit;
if ( pDBNavigator )
delete pDBNavigator;
if ( pPanel )
delete pPanel;
if ( pDBGrid )
delete pDBGrid;
if ( pADOQuery )
delete pADOQuery;
if ( pDataSource )
delete pDataSource;
if ( pADOConnection )
delete pADOConnection;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Moj_pFormActivate(TObject *Sender)
{
Moj_pEditChange( this );
}
void __fastcall TForm1::Moj_pEditChange(TObject *Sender)
{
pADOQuery->Close();
pADOQuery->SQL->Clear();
UnicodeString Upit = "SELECT * FROM rasa WHERE naziv_lok LIKE '%" + pEdit->Text + "%'";
pADOQuery->SQL->Add( Upit );
pADOQuery->Open();
pDBGrid->Columns->Items[0]->Width = 30*8;
pDBGrid->Columns->Items[1]->Width = 30*8;
}
Trebam malu pomoć oko povezivanja na bazu
