Expanat qo’shish oynasi:
TFormqoshish *Formqoshish;
//---------------------------------------------------------------------------
__fastcall TFormqoshish::TFormqoshish(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormqoshish::BitBtn1Click(TObject *Sender)
{
dm->ADOexpanat->Cancel();
Formqoshish->Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormqoshish::BitBtn2Click(TObject *Sender)
{
dm->ADOexpanat->Post();
Formqoshish->Close();
}
//---------------------------------------------------------------------------
Do'stlaringiz bilan baham: |