menubak.pas

集成酒店桑拿食管管理的完整程序

       ListView2.Items[6].Caption:=X7.Caption;
       ListView2.Items.Add;
       ListView2.Items[7].ImageIndex:=14;
       ListView2.Items[7].Caption:=X8.Caption; }
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+Z0.Caption+'！请与系统管理员联系！';
     end;
   end;
   4:begin //房间管理
     ListView2.Items.Clear;
     if G0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=7;
       ListView2.Items[0].Caption:=G1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=59;
       ListView2.Items[1].Caption:=G2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=70;
       ListView2.Items[2].Caption:=G3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=64;
       ListView2.Items[3].Caption:=G4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=63;
       ListView2.Items[4].Caption:=G5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=50;
       ListView2.Items[5].Caption:=G6.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=31;
       ListView2.Items[6].Caption:=G7.Caption;
      { ListView2.Items.Add;
       ListView2.Items[7].ImageIndex:=12;
       ListView2.Items[7].Caption:=W8.Caption;
       ListView2.Items.Add;
       ListView2.Items[8].ImageIndex:=35;
       ListView2.Items[8].Caption:=W9.Caption;
       ListView2.Items.Add;
       ListView2.Items[9].ImageIndex:=37;
       ListView2.Items[9].Caption:=W10.Caption;
       ListView2.Items.Add;
       ListView2.Items[10].ImageIndex:=33;
       ListView2.Items[10].Caption:=W11.Caption; }
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+G0.Caption+'！请与系统管理员联系！';
     end;
   end;
   5:begin //系统设置
     ListView2.Items.Clear;
     if S0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=45;
       ListView2.Items[0].Caption:=S1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=68;
       ListView2.Items[1].Caption:=S2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=66;
       ListView2.Items[2].Caption:=S3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=49;
       ListView2.Items[3].Caption:=S4.Caption;
     {  ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=28;
       ListView2.Items[4].Caption:=W5.Caption;
     end;  }
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+S0.Caption+'！请与系统管理员联系！';
     end;
   end;
   end;
 end;

procedure Tmenuform.ListView2Click(Sender: TObject);
begin
  if (ListView1.Selected=nil) or (ListView2.Selected=nil) then exit;
   case ListView1.Selected.Index of
   0:begin //宾客预订 (D)
     case ListView2.Selected.Index of
     0:D1Click(nil);
     1:D2Click(nil);
     2:D3Click(nil);
     3:D4Click(nil);
     4:D5Click(nil);
     5:D6Click(nil);
    { 6:D7Click(nil);
     7:D8Click(nil);
     8:D9Click(nil);
     9:D10Click(nil);  }
     end;
   end;
   1:begin //总台登记 (E)
     case ListView2.Selected.Index of
     0:E1Click(nil);
     1:E2Click(nil);
     2:E3Click(nil);
     3:E4Click(nil);
     4:E5Click(nil);
     5:E6Click(nil);
     6:E7Click(nil);
     end;
   end;
   2:begin //客人消费(X)
     case ListView2.Selected.Index of
     0:X1Click(nil);
     1:X2Click(nil);
     2:X3Click(nil);
     3:X4Click(nil);
     4:X5Click(nil);
 //    5:T6Click(nil);
  //   6:T7Click(nil);
     end;
   end;
   3:begin //帐务处理(Z)
     case ListView2.Selected.Index of
     0:Z1Click(nil);
     1:Z2Click(nil);
     2:Z3Click(nil);
     3:Z4Click(nil);
     4:Z5Click(nil);
     5:Z6Click(nil);
  //   6:X7Click(nil);
 //    7:X8Click(nil);
     end;
   end;
   4:begin //客房管理(G)
     case ListView2.Selected.Index of
     0:G1Click(nil);
     1:G2Click(nil);
     2:G3Click(nil);
     3:G4Click(nil);
     4:G5Click(nil);
     5:G6Click(nil);
     6:G7Click(nil);
    // 7:W8Click(nil);
   //  8:W9Click(nil);
   //  9:W10Click(nil);
   //  10:W11Click(nil);
     end;
   end;
   5:begin //系统设置(S)
     case ListView2.Selected.Index of
     0:S1Click(nil);
     1:S2Click(nil);
     2:S3Click(nil);
     3:S4Click(nil);
     //4:W5Click(nil);
    // 5:W6Click(nil);
    // 6:W7Click(nil);
    // 7:W8Click(nil);
   //  8:W9Click(nil);
   //  9:W10Click(nil);
   //  10:W11Click(nil);
     end;
   end;
   END;
end;
///////////////////////////////////////////////////////////////
 //PhoneCxForm.free;
end;

procedure Tmenuform.S2Click(Sender: TObject);
begin
  Application.CreateForm(Tbcsetupform, bcsetupform);
  bcsetupform.showmodal;
  bcsetupform.free;
end;

procedure Tmenuform.S1Click(Sender: TObject);
begin
  Application.CreateForm(TTimesetupform, Timesetupform);
  Timesetupform.showmodal;
  Timesetupform.free;
end;

procedure Tmenuform.F6Click(Sender: TObject);
begin
{  Application.CreateForm(TJBForm, JBForm);
  JBForm.showmodal;

  if ischange=true then
     menuform.N47Click(nil);
  JBForm.free;  }
end;

procedure Tmenuform.H4Click(Sender: TObject);
begin
  Application.CreateForm(TNoPhoneCxFORM, NoPhoneCxFORM);
  NoPhoneCxFORM.showmodal;
  NoPhoneCxFORM.free;
end;

procedure Tmenuform.F2Click(Sender: TObject);
begin
     fm.Database1.Close;
     fm.Database1.Params[0]:='DATABASE NAME=vipHotelDb';
//     fm.Database1.Params[
     fm.Database1.tag:=2;
     fm.Database1.Open;
     panel4.Visible:=true;
     jkl.SetFocus;
     gha.Caption:=curper.code;
     name.Caption:=curper.name
end;

procedure Tmenuform.jklKeyPress(Sender: TObject; var Key: Char);
begin
  if key=char(27) then
  begin
       panel4.Visible:=false;
       exit;
  end
  else if key=char(13) then
     begin
          if curper.pass<>trim(jkl.text) then
          begin
             messagedlg('口令不正确!',mterror,[mbok],0);
             jkl.SetFocus;
             jkl.SelectAll;
          end
          else
          begin
              xkl1.SetFocus;
              xkl1.SelectAll;
              exit;
          end;
     end;

end;

procedure Tmenuform.xkl1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=char(27) then
  begin
       panel4.Visible:=false;
       exit;
  end
  else   if key=char(13) then
     begin
        xkl2.setfocus;
        xkl2.SelectAll;
     end;

end;

procedure Tmenuform.xkl2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=char(27) then
  begin
       panel4.Visible:=false;
       exit;
  end
  else  if key=char(13) then
    if trim(xkl1.text)<>trim(xkl2.text) then
      begin
       showmessage('两次输入不一样,请重新输入!');
       activecontrol:=xkl2;
       xkl2.SelectAll;
      end
     else
      begin
       fm.Query1.active:=false;
       fm.Query1.sql.clear ;
       fm.Query1.SQL.add('update officedb.dbo.stuff set pass=:pkl where code=:pgh');
       fm.Query1.ParamByName ('pgh').asstring:=trim(gha.caption);
       fm.Query1.ParamByName ('pkl').asstring:=trim(xkl1.text);
       fm.Query1.execsql;
       showmessage('口令修改完毕！');
       curper.pass:=trim(xkl1.text);
       jkl.Clear;
       xkl1.Clear;
       xkl2.Clear;
       Panel4.Visible:=false;

      end ;


end;

procedure Tmenuform.F7Click(Sender: TObject);
begin
  Application.CreateForm(Tnewrywhform, newrywhform);
  newrywhform.showmodal;
  newrywhform.free;
end;

procedure Tmenuform.C7Click(Sender: TObject);
begin
  Application.CreateForm(Troomcx_form, roomcx_form);
  roomcx_form.showmodal;
  roomcx_form.free;
end;

procedure Tmenuform.C8Click(Sender: TObject);
begin
  Application.CreateForm(Txfcxbak_form, xfcxbak_form);
  xfcxbak_form.showmodal;
  xfcxbak_form.free;
end;

procedure Tmenuform.C11Click(Sender: TObject);
begin
  Application.CreateForm(Tdtcx_form, dtcx_form);
  dtcx_form.showmodal;
  dtcx_form.free;
end;

procedure Tmenuform.G4Click(Sender: TObject);
begin
  Application.CreateForm(Tbedtobedform, bedtobedform);
  bedtobedform.showmodal;
  bedtobedform.Free;
end;

procedure Tmenuform.F4Click(Sender: TObject);
begin
  if (curper.lou='2') or (curper.lou='1') then
  begin
    Application.CreateForm(TnewJBForm, newJBForm);
    newJBForm.showmodal;
    newJBForm.free;
  end;
end;

procedure Tmenuform.F3Click(Sender: TObject);
begin
  Application.CreateForm(TxfkForm, xfkForm);
  xfkForm.showmodal;
  xfkForm.free;

end;

procedure Tmenuform.F5Click(Sender: TObject);
begin
  if (curper.lou='2') or (curper.lou='1') then
  begin
     Application.CreateForm(TJkForm, JkForm);
     JKForm.showmodal;
     JKForm.free;
  end;

end;

procedure Tmenuform.B4Click(Sender: TObject);
begin
  Application.CreateForm(TjsbdbForm, jsbdbForm);
  jsbdbForm.showmodal;
  jsbdbForm.free;

end;

procedure Tmenuform.Z5Click(Sender: TObject);
begin
  Application.CreateForm(Tgz_jzform, gz_jzform);
  gz_jzform.showmodal;
  gz_jzform.free;

end;

procedure Tmenuform.B11Click(Sender: TObject);
begin
  Application.CreateForm(TnewsrrbForm, newsrrbForm);
//  newsrrbform.CheckBox1.Checked:=true;
  newsrrbForm.showmodal;
  newsrrbForm.free;

end;

procedure Tmenuform.B13Click(Sender: TObject);
begin
  Application.CreateForm(TRoomSrrbForm, RoomSrrbForm);
  RoomSrrbForm.showmodal;
  RoomSrrbForm.free;


end;

procedure Tmenuform.B12Click(Sender: TObject);
begin
  Application.CreateForm(TsrrbForm, srrbForm);
  srrbform.CheckBox1.Checked:=false;
  srrbForm.showmodal;
  srrbForm.free;


end;

end.