数据库课程设计—餐饮管理系统完整版源码

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include <DB.hpp> #include "Unit2.h" #include "Unit5.h" #include "Unit2_2.h" #include "Tableinfo.cpp" #include "Dishesinfo.cpp" #include "ordernum.cpp" #include "transorder.cpp" #include "transbook.cpp" #include "table.cpp" #include "Checknum.cpp" #include "sum.cpp" #include "Getdiscount.cpp" #include "BookName.cpp" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TworkForm *workForm; //--------------------------------------------------------------------------- __fastcall TworkForm::TworkForm(TComponent* Owner) : TForm(Owner) { //显示开台模块 pc1->Visible=true; //给予时间 TDateTime date; date = Now(); ed5->Text=date.FormatString("yyyy-MM-dd hh:nn"); } //--------------------------------------------------------------------------- void __fastcall TworkForm::bt3Click(TObject *Sender) { UpdateRstate(ed2->Text,"空",""); Tableinfo(sgt); TpayForm *pay; pay=new TpayForm(this); pay->ed1->Text=ed1->Text; pay->ed2->Text=Cno; pay->Rtno=ed2->Text; pay->ed3->Text=ed5->Text; pay->ed4->Text=sum(ed1->Text); pay->ed6->Text=pay->ed4->Text; ed1->Text=""; ed2->Text=""; cb2->Text="空"; dbo->Visible=false; pay->discount=getdiscount(Cno); pay->Show(); } //--------------------------------------------------------------------------- void __fastcall TworkForm::FormCreate(TObject *Sender) { Tableinfo(sgt); Dishinfo(ts1->Caption,dbg1); Dishinfo(ts2->Caption,dbg2); Dishinfo(ts3->Caption,dbg3); Dishinfo(ts4->Caption,dbg4); Dishinfo(ts5->Caption,dbg5); Dishinfo(ts6->Caption,dbg6); } //--------------------------------------------------------------------------- void TworkForm::dishshow(){ int index=pc2->ActivePageIndex; AnsiString tname=pc2->ActivePage->Caption; switch(index){ case 0: Dishinfo(tname,dbg1);break; case 1: Dishinfo(tname,dbg2);break; case 2: Dishinfo(tname,dbg3);break; case 3: Dishinfo(tname,dbg4);break; case 4: Dishinfo(tname,dbg5);break; case 5: Dishinfo(tname,dbg6);break; } } void TworkForm::modifyord(){ Ono=ed1->Text; Dname=dbo->DataSource->DataSet->FieldByName("名称")->AsString; Damount=dbo->DataSource->DataSet->FieldByName("数量")->AsString; AnsiString sql="select Damount from ordering where Ono='"; sql=sql+Ono+"' and Dname='"+Dname+"'"; TADOQuery *qry=new TADOQuery(NULL); qry->Connection=ConnMgr::CreateInstance()->GetConn(); qry->SQL->Clear(); qry->SQL->Add(sql); qry->Open(); AnsiString temp=qry->FieldByName("Damount")->AsString; delete qry; transupdate(dbo,Ono,Dname,Damount,temp); dishshow(); } void __fastcall TworkForm::pc2Change(TObject *Sender) { dishshow(); } //--------------------------------------------------------------------------- void __fastcall TworkForm::bt2Click(TObject *Sender) { if(cb2->Text.TrimRight()=="预定") { cb2->Text="用餐中"; updatebook(ed2->Text,"成功"); } Ono=createnum(); Ono=checknum(sgt,Ono); ed1->Text=Ono; UpdateRstate(ed2->Text,cb2->Text,ed1->Text); Tableinfo(sgt); dbo->Visible=false; } //--------------------------------------------------------------------------- void __fastcall TworkForm::sgtClick(TObject *Sender) { ed1->Text=sgt->Cells[4][sgt->Selection.Top]; ed2->Text=sgt->Cells[1][sgt->Selection.Top]; cb2->Text=sgt->Cells[3][sgt->Selection.Top]; ed3->Text=""; if(cb2->Text.TrimRight()=="用餐中") { Ono=sgt->Cells[4][sgt->Selection.Top]; transload(dbo,Ono); dbo->Visible=true; } else if(cb2->Text.TrimRight()=="预定"){ ed3->Text=getBname(ed2->Text); } else dbo->Visible=false; } //--------------------------------------------------------------------------- void __fastcall TworkForm::bt4Click(TObject *Sender) { modifyord(); } //--------------------------------------------------------------------------- void __fastcall TworkForm::dbg1DblClick(TObject *Sender) { if(cb2->Text.Trim()=="用餐中"){ if(dbg1->DataSource->DataSet->FieldByName("库存")->AsString.Trim()=="0") { ShowMessage("菜已卖完！"); } else{ dbo->Visible=false; Ono=ed1->Text; Dname=dbg1->DataSource->DataSet->FieldByName("名称")->AsString; Rtno=ed2->Text; Wno=ed4->Text; transinsert(dbo,Ono,Wno,Rtno,Dname); dbo->Visible=true; dishshow();} } else ShowMessage("请先开台！"); } //--------------------------------------------------------------------------- void __fastcall TworkForm::bt1Click(TObject *Sender) { SearchTables(cb1->Text,sgt); } //--------------------------------------------------------------------------- void __fastcall TworkForm::dbg2DblClick(TObject *Sender) { if(cb2->Text.Trim()=="用餐中"){ if(dbg2->DataSource->DataSet->FieldByName("库存")->AsString.Trim()=="0") { ShowMessage("菜已卖完！"); } else{ dbo->Visible=false; Ono=ed1->Text; Dname=dbg2->DataSource->DataSet->FieldByName("名称")->AsString; Rtno=ed2->Text; Wno=ed4->Text; transinsert(dbo,Ono,Wno,Rtno,Dname); dbo->Visible=true; dishshow();} } else ShowMessage("请先开台！"); } //--------------------------------------------------------------------------- void __fastcall TworkForm::dbg3DblClick(TObject *Sender) { if(cb2->Text.Trim()=="用餐中"){ if(dbg3->DataSource->DataSet->FieldByName("库存")->AsString.Trim()=="0") { ShowMessage("菜已卖完！"); } else{ dbo->Visible=false; Ono=ed1->Text; Dname=dbg3->DataSource->DataSet->FieldByName("名称")->AsString; Rtno=ed2->Text; Wno=ed4->Text; transinsert(dbo,Ono,Wno,Rtno,Dname); dbo->Visible=true; dishshow();} } else ShowMessage("请先开台！"); } //--------------------------------------------------------------------------- void __fastcall TworkForm::dbg4DblClick(TObject *Sender) { if(cb2->Text.Trim()=="用餐中"){ if(dbg4->DataSource->DataSet->FieldByName("库存")->AsString.Trim()=="0") { ShowMessage("菜已卖完！"); }