Code:

TNekaKomponenta *Pokazivac = new TNekaKomponenta( this /* ili neki drugi argumenti */ );
// ...
Pokazivac->NekaOsobina1=...
Pokazivac->NekaOsobina2=...
Pokazivac->ConnectionString =...
// ... 
Pokazivac->Dogadjaj1 = MojDogadjaj1; // <--- funkcija koja ima iste argumente i povratnu vrednost kao i dogadjaj komponente
//  ...
Pokazivac->Open();
//  ...
delete *Pokazivac;

Code:


String st;
st="Server=localhost;Database=proba;User name=root;Password=123;";

TSQLConnection  *ts=new TSQLConnection(this);
TSQLQuery *tq=new TSQLQuery(this);
TSQLDataSet *td;

ts->DriverName="MySql";
ts->dodijeliti string za konekciju ;
tq->SQLConnection=ts;
tq-> SQL->ToString()= "select * from prva";
td->SQLConnection=ts;

ts->Open();

ts->Close();

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

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;
}