96
: TForm(Owner)
{
}
//--------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOTable1->Append();
Form2->SHowModal();
}
//--------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
ADOTable1->Edit();
Form2->SHowModal();
}
//-----------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();
}
//-----------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
TLocateOptions Opts;
Opts.Clear();
Opts << loPartialKey;
ADOTable1->Locate("F I O",Edit1->Text , Opts);
}
//-----------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Form3->QuickRep1->Preview();
}
//-----------------------------------------------------------
