數(shù)據(jù)庫課程方案(自己做)(編輯修改稿)
2025-06-06 07:09 本頁面
【文章內(nèi)容簡介】 pragma package(smart_initpragma resource *.dfmTForm1 *Form1。//__fastcall TForm1::TForm1(TComponent* Owner : TForm(Owner{}//void __fastcall TForm1::Button1Click(TObject *Sender{ ADOQuery1SQLClear(。 ADOQuery1SQLAdd(select * from Manager 。 ADOQuery1SQLAdd(where Mname=39。+Edit1Text+39。 and PW=39。+Edit2Text+39。 if(ADOQuery1ExecSQL( { ShowMessage(登陸成功。 Form2Show(。 } else { ShowMessage(用戶名或密碼錯誤!。 }}//void __fastcall TForm1::Button2Click(TObject *Sender{Close(。 }//Form2//include pragma hdrstopinclude include include include include include include include include include include include include include include include //pragma package(smart_initpragma resource *.dfmTForm2 *Form2。//__fastcall TForm2::TForm2(TComponent* Owner : TForm(Owner{}//void __fastcall TForm2::N5Click(TObject *Sender{Form3Show(。Form2Close(。}//void __fastcall TForm2::N6Click(TObject *Sender{Form4Show(。Form2Close(。}//void __fastcall TForm2::N18Click(TObject *Sender{Form1Show(。Form2Close(。}//void __fastcall TForm2::N8Click(TObject *Sender{Form6Show(。Form2Close(。}//void __fastcall TForm2::N7Click(TObject *Sender{Form5Show(。Form2Close(。}//void __fastcall TForm2::N12Click(TObject *Sender{Form10Show(。Form2Close(。}//void __fastcall TForm2::N9Click(TObject *Sender{Form7Show(。Form2Close(。}//void __fastcall TForm2::N10Click(TObject *Sender{Form8Show(。Form2Close(。}//
公司管理相關(guān)推薦
鄂ICP備17016276號-1