數(shù)據(jù)庫(kù)課程方案(自己做)-資料下載頁(yè)
2025-05-10 07:09本頁(yè)面
【正文】 kage(smart_initpragma resource *.dfmTForm4 *Form4。//__fastcall TForm4::TForm4(TComponent* Owner : TForm(Owner{}//void __fastcall TForm4::Button1Click(TObject *Sender{ADOQuery1Active=false。ADOQuery1SQLClear(。ADOQuery1SQLAdd(Select * From Client。ADOQuery1SQLAdd(Where Cno like 39。+Edit1Text+%39。ADOQuery1Active=true。}//void __fastcall TForm4::Button2Click(TObject *Sender{ADOQuery1Active=false。ADOQuery1SQLClear(。ADOQuery1SQLAdd(Select * From Client。ADOQuery1SQLAdd(Where Cname like 39。+Edit2Text+%39。ADOQuery1Active=true。}//void __fastcall TForm4::Button3Click(TObject *Sender{ Form2Show(。 Form4Close(。}//From5//include pragma hdrstopinclude include //pragma package(smart_initpragma resource *.dfmTForm5 *Form5。//__fastcall TForm5::TForm5(TComponent* Owner : TForm(Owner{}//void __fastcall TForm5::Button1Click(TObject *Sender{ Form5ADOTable1Active=true。 Form5ADOTable1Append(。 Form5ADOTable1FieldByName(PnoAsString=Edit1Text。 Form5ADOTable1FieldByName(PnameAsString=Edit2Text。 Form5ADOTable1FieldByName(PaddrAsString=Edit3Text。 Form5ADOTable1FieldByName(PostcodeAsString=Edit3Text。 Form5ADOTable1FieldByName(PtelAsString=Edit5Text。 Form5ADOTable1FieldByName(PrepAsString=Edit6Text。 Form5ADOTable1Post(。 ShowMessage(錄入成功!。}//void __fastcall TForm5::Button2Click(TObject *Sender{ Edit1Text=39。 39。 Edit2Text=39。 39。 Edit3Text=39。 39。 Edit4Text=39。 39。 Edit5Text=39。 39。 Edit6Text=39。 39。}//void __fastcall TForm5::Button3Click(TObject *Sender{ Form2Show(。 Form5Close(。}//Form6//include pragma hdrstopinclude include //
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1