Scribd
Upload
7 views

Photo C++

Uploaded by

firancemafutaweb
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
7 views

Photo C++

Uploaded by

firancemafutaweb
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 3

void __fastcall TForm1::Button1Click(TObject *Sender)

{
if (OpenDialog1->Execute())
{
DBImage1->Picture->LoadFromFile(OpenDialog1->FileName);
}
}

//---------------------------------------------------------------------------
void __fastcall TForm1::DBImage1Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{
DBImage1->Picture->LoadFromFile(OpenDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOTable1->First();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
ADOTable1->Next();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
ADOTable1->Prior();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ADOTable1->Last();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
ADOTable1->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
ADOTable1->Insert();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)


{
ADOQuery1->SQL->Text="select * from agent where nom = '"+Edit1->Text+"' ";
ADOQuery1->Active=True;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
ADOQuery1->SQL->Text="select * from agent";
ADOQuery1->Active=True;
}
//---------------------------------------------------------------------------

You might also like