//其余三个按钮 procedure TForm1.ToolButton6Click(Sender: TObject); var i:integer; s:string; begin NewFormClass:=nil; NewForm:=TForm(application.FindComponent(lowercase('form客务中'))); if NewForm<>nil then NewFormClass:=TFormClass(NewForm.ClassType); if NewFormClass<>nil then begin NewForm := NewFormClass.Create(Self); NewForm.Hide; if isshowmodal=1 then NewForm.Showmodal else begin NewForm.BorderStyle:=bsNone; NewForm.Parent:=panel2; NewForm.Align:=alclient; NewForm.Show; end; end; //锁屏离开按钮 procedure TForm1.ToolButton7Click(Sender: TObject); var i,j:integer; s:string; begin if (panel2.ControlCount>1) then begin //释放原有窗体 for j := 0 to panel2.controlcount-2 do begin for i:=1 to panel2.ControlCount do begin s:=lowercase(panel2.Controls[i].ClassName); //showmessage(s); //showmessage(inttostr(i)); if (copy(s,1,5)='tform') then begin panel2.Controls[i].Free; break; end; end; end; end; form12.showmodal; end; //其中form12 procedure TForm12.Button1Click(Sender: TObject);
var s,c:string; begin s:=edit1.text; with adoquery1 do begin close; sql.clear; sql.text:='select code from hotelemployees where employeename='''+dl+''''; open; c:=fieldbyname('code').asstring; end; if s<>c then begin showmessage('密码错误 请重新输入！'); edit1.setfocus; end else close; end; procedure TForm12.FormShow(Sender: TObject); begin edit1.text:=''; edit1.setfocus; label1.caption:=dl+' 离开'; label2.caption:='请输入密码登陆'; end; 左边部分为树，自己可视化界面输的。树的代码： procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); var i,x:integer; s1,s2,s:string; begin s:=trim(node.Text); s1:='form'+copy(s,1,3); //showmessage(s1); if not (node.HasChildren) then begin if (panel2.ControlCount>1) then begin //释放原有窗体 for i:=1 to panel2.ControlCount do begin s:=lowercase(panel2.Controls[i-1].ClassName); if (copy(s,1,5)='tform') then begin panel2.Controls[i-1].Free; break; end; end; end; NewFormClass:=nil; NewForm:=TForm(application.FindComponent(lowercase(s1))); if NewForm<>nil then NewFormClass:=TFormClass(NewForm.ClassType); if NewFormClass<>nil then begin NewForm := NewFormClass.Create(Self); NewForm.Hide; if isshowmodal=1 then NewForm.Showmodal else begin NewForm.BorderStyle:=bsNone; NewForm.Parent:=panel2; NewForm.Align:=alclient; NewForm.Show; end; end;
end; end; （2）、前台中心 1）查看已入住的房间 procedure TForm前台中.Button3Click(Sender: TObject); var s,s1:string; i:integer; begin f:=1; with dbgrid1 do begin columns.Clear; for I := 0 to 4 do columns.Add; columns[0].Title.caption:='房间号'; columns[1].Title.caption:='房间类型'; columns[2].Title.caption:='客户名称'; columns[3].Title.caption:='性别'; columns[4].Title.caption:='入住日期'; columns[0].Width:=20*10; columns[1].Width:=20*10; columns[2].Width:=20*10; columns[3].Width:=20*5; columns[4].Width:=20*10; for I := 0 to 4 do columns[i].Title.Alignment:=tacenter; columns[0].FieldName:='roomid'; columns[1].FieldName:='categoryname'; columns[2].FieldName:='customername'; columns[3].FieldName:='sex'; columns[4].FieldName:='orderdate'; end; s:='if object_id(''y'')is not null drop table y'; s:=s+' select a.roomid,categoryname,customername,sex,orderdate into y from rooms as a'; s:=s+' join roomcategories as b on a.categoryid=b.categoryid'; s:=s+' join hotelorderitems as c on a.roomid=c.roomid'; s:=s+' join hotelorders as d on c.orderid=d.orderid'; s:=s+' join hotelcustomers as e on d.customerid=e.customerid where isusing=1 '; xx:=s; adocommand1.commandtext:=s; adocommand1.execute; with adotable1 do
begin close; tablename:='y'; open; end; end; //其中双击DBGRID可以查看客户详细信息，也可以修改 procedure TForm前台中.DBGrid1DblClick(Sender: TObject); var s:string; begin if f=1 then begin roomid11:=trim(dbgrid1.SelectedField.Text); form5.showmodal; //datasource1.dataset:=adotable1; adocommand1.commandtext:=xx; adocommand1.execute; with adotable1 do begin close; tablename:='y'; open; end; end; end; //修改按钮 procedure TForm5.Button3Click(Sender: TObject); begin edit2.Enabled:=true; edit3.Enabled:=true; //edit4.Enabled:=true; edit5.Enabled:=true; combobox1.Enabled:=true; combobox2.Enabled:=true; combobox3.Enabled:=true; combobox4.Enabled:=true;
combobox5.enabled:=true; end; //保存按钮 procedure TForm5.Button2Click(Sender: TObject); begin with adoquery3 do begin close; sql.text:='select * from hotelcustomers'; open; edit; fieldbyname('customername').asstring:=trim(edit2.text); fieldbyname('birthdate').asstring:=trim(edit5.text); fieldbyname('address').asstring:=trim(edit3.text); fieldbyname('sex').asstring:=trim(combobox1.text); fieldbyname('province').asstring:=trim(combobox2.text); fieldbyname('country').asstring:=trim(combobox3.text); fieldbyname('city').asstring:=trim(combobox4.text); if trim(combobox5.text)='否' then fieldbyname('isvip').asstring:='0' else fieldbyname('isvip').asstring:='1'; post; end; showmessage('保存成功！'); end; 2）退房 //退房按钮的click事件 procedure TForm前台中.Button1Click(Sender: TObject); begin roomid1:=dbgrid1.selectedfield.text; form8.showmodal;