unitsupmanage.~pas

来自「自己做过的工程」· ~PAS 代码 · 共 675 行 · 第 1/2 页

    color2:=clFuchsia;//预定
    color3:=clLime;//使用
    color4:=clRed;//停用

    //初始化时间
    formsupmanage.lab_systime.Caption:=formatdatetime('hh:mm:ss',Now);
    formsupmanage.lab_sysdate.Caption:=formatdatetime('yyyy"年"m"月"d"日"',Now);
    //一楼包间
    //101包间
    sroomcolor_get(ls_statuscolor,101);
    sroom101.Color:=ls_statuscolor;
    //102包间
    sroomcolor_get(ls_statuscolor,102);
    sroom102.Color:=ls_statuscolor;
    //103包间
    sroomcolor_get(ls_statuscolor,103);
    sroom103.Color:=ls_statuscolor;
    //104包间
    sroomcolor_get(ls_statuscolor,104);
    sroom104.Color:=ls_statuscolor;
    //105包间
    sroomcolor_get(ls_statuscolor,105);
    sroom105.Color:=ls_statuscolor;
    //106包间
    sroomcolor_get(ls_statuscolor,106);
    sroom106.Color:=ls_statuscolor;
    //107包间
    sroomcolor_get(ls_statuscolor,107);
    sroom107.Color:=ls_statuscolor;
    //108包间
    sroomcolor_get(ls_statuscolor,108);
    sroom108.Color:=ls_statuscolor;
    //109包间
    sroomcolor_get(ls_statuscolor,109);
    sroom109.Color:=ls_statuscolor;
    //110包间
    sroomcolor_get(ls_statuscolor,110);
    sroom110.Color:=ls_statuscolor;

    //二楼包间
    //201包间
    sroomcolor_get(ls_statuscolor,201);
    sroom201.Color:=ls_statuscolor;
    //202包间
    sroomcolor_get(ls_statuscolor,202);
    sroom202.Color:=ls_statuscolor;
    //203包间
    sroomcolor_get(ls_statuscolor,203);
    sroom203.Color:=ls_statuscolor;
    //204包间
    sroomcolor_get(ls_statuscolor,204);
    sroom204.Color:=ls_statuscolor;
    //205包间
    sroomcolor_get(ls_statuscolor,205);
    sroom205.Color:=ls_statuscolor;

    //三楼包间
    //301包间
    sroomcolor_get(ls_statuscolor,301);
    sroom301.Color:=ls_statuscolor;
    //302包间
    sroomcolor_get(ls_statuscolor,302);
    sroom302.Color:=ls_statuscolor;
    //303包间
    sroomcolor_get(ls_statuscolor,303);
    sroom303.Color:=ls_statuscolor;
    //304包间
    sroomcolor_get(ls_statuscolor,304);
    sroom304.Color:=ls_statuscolor;
    //305包间
    sroomcolor_get(ls_statuscolor,305);
    sroom305.Color:=ls_statuscolor;
    //306包间
    sroomcolor_get(ls_statuscolor,306);
    sroom306.Color:=ls_statuscolor;
    //307包间
    sroomcolor_get(ls_statuscolor,307);
    sroom307.Color:=ls_statuscolor;
    //308包间
    sroomcolor_get(ls_statuscolor,308);
    sroom308.Color:=ls_statuscolor;
    //309包间
    sroomcolor_get(ls_statuscolor,309);
    sroom309.Color:=ls_statuscolor;
    //310包间
    sroomcolor_get(ls_statuscolor,310);
    sroom310.Color:=ls_statuscolor;
end;

procedure Tformsupmanage.sroom101Click(Sender: TObject);
begin
    sroomstatus_show(101);
end;

procedure Tformsupmanage.sroom102Click(Sender: TObject);
begin
    sroomstatus_show(102);
end;

procedure Tformsupmanage.sroom103Click(Sender: TObject);
begin
    sroomstatus_show(103);
end;

procedure Tformsupmanage.sroom104Click(Sender: TObject);
begin
    sroomstatus_show(104);
end;

procedure Tformsupmanage.sroom105Click(Sender: TObject);
begin
    sroomstatus_show(105);
end;

procedure Tformsupmanage.sroom106Click(Sender: TObject);
begin
    sroomstatus_show(106);
end;

procedure Tformsupmanage.sroom107Click(Sender: TObject);
begin
    sroomstatus_show(107);
end;

procedure Tformsupmanage.sroom108Click(Sender: TObject);
begin
    sroomstatus_show(108);
end;

procedure Tformsupmanage.sroom109Click(Sender: TObject);
begin
    sroomstatus_show(109);
end;

procedure Tformsupmanage.sroom110Click(Sender: TObject);
begin
    sroomstatus_show(110);
end;

procedure Tformsupmanage.sroom201Click(Sender: TObject);
begin
    sroomstatus_show(201);
end;

procedure Tformsupmanage.sroom202Click(Sender: TObject);
begin
    sroomstatus_show(202);
end;

procedure Tformsupmanage.sroom203Click(Sender: TObject);
begin
    sroomstatus_show(203);
end;

procedure Tformsupmanage.sroom204Click(Sender: TObject);
begin
    sroomstatus_show(204);
end;

procedure Tformsupmanage.sroom205Click(Sender: TObject);
begin
    sroomstatus_show(205);
end;

procedure Tformsupmanage.sroom301Click(Sender: TObject);
begin
    sroomstatus_show(301);
end;

procedure Tformsupmanage.sroom302Click(Sender: TObject);
begin
    sroomstatus_show(302);
end;

procedure Tformsupmanage.sroom303Click(Sender: TObject);
begin
    sroomstatus_show(303);
end;

procedure Tformsupmanage.sroom304Click(Sender: TObject);
begin
    sroomstatus_show(304);
end;

procedure Tformsupmanage.sroom305Click(Sender: TObject);
begin
    sroomstatus_show(305);
end;

procedure Tformsupmanage.sroom306Click(Sender: TObject);
begin
    sroomstatus_show(306);
end;

procedure Tformsupmanage.sroom307Click(Sender: TObject);
begin
    sroomstatus_show(307);
end;

procedure Tformsupmanage.sroom308Click(Sender: TObject);
begin
    sroomstatus_show(308);
end;

procedure Tformsupmanage.sroom309Click(Sender: TObject);
begin
    sroomstatus_show(309);
end;

procedure Tformsupmanage.sroom310Click(Sender: TObject);
begin
    sroomstatus_show(310);
end;
//打开包间停用窗体
procedure Tformsupmanage.ToolButton9Click(Sender: TObject);
begin
     formsroomstop.ShowModal;
end;

//打开包间启用窗体
procedure Tformsupmanage.ToolButton8Click(Sender: TObject);
begin
     formsroomopen.ShowModal;
end;

//打开预定窗体
procedure Tformsupmanage.ToolButton1Click(Sender: TObject);
begin
    formsroombook.ShowModal;
end;

//打开接待点菜窗体
procedure Tformsupmanage.ToolButton2Click(Sender: TObject);
begin
    formsupdetails.ShowModal;
end;

procedure Tformsupmanage.N9Click(Sender: TObject);
begin
    formsroomopen.ShowModal;
end;

procedure Tformsupmanage.N12Click(Sender: TObject);
begin
     formsroomstop.ShowModal;
end;

procedure Tformsupmanage.N7Click(Sender: TObject);
begin
    formsroombook.ShowModal;
end;

procedure Tformsupmanage.N8Click(Sender: TObject);
begin
    formsupdetails.ShowModal;
end;

procedure Tformsupmanage.ToolButton6Click(Sender: TObject);
begin
    WinExec('d:\计算器\Calc.exe',0);
end;

procedure Tformsupmanage.N5Click(Sender: TObject);
begin
    formexitsys.ShowModal;
end;

procedure Tformsupmanage.N4Click(Sender: TObject);
begin
    //创建退出日志
    formlogging.leavinglog;
    //显现登录窗口，并初始化
    formlogging.Visible:=true;
    formlogging.ed_username.Text:='';
    formlogging.ed_password.Text:='';
    formlogging.ed_username.SetFocus;
    //关闭窗口
    formMain.Close;
    close;
end;

procedure Tformsupmanage.N2Click(Sender: TObject);
begin
    formmodifypassword.ShowModal;
end;

procedure Tformsupmanage.N14Click(Sender: TObject);
begin
    formsroombookquery.ShowModal;
end;

procedure Tformsupmanage.N15Click(Sender: TObject);
begin
    formsroomquery.ShowModal;
end;

procedure Tformsupmanage.N16Click(Sender: TObject);
begin
    formsroomHquery.ShowModal;
end;

//结账
procedure Tformsupmanage.N10Click(Sender: TObject);
begin
    formsupcheck.ShowModal;
end;

//结账
procedure Tformsupmanage.ToolButton3Click(Sender: TObject);
begin
    formsupcheck.ShowModal;
end;

procedure Tformsupmanage.N18Click(Sender: TObject);
begin
    formsupcheckCquery.ShowModal;
end;

procedure Tformsupmanage.N19Click(Sender: TObject);
begin
    formsupcheckSquery.ShowModal;
end;

procedure Tformsupmanage.FormShow(Sender: TObject);
begin
    lab_username.Caption:=username;
end;


procedure Tformsupmanage.ToolButton5Click(Sender: TObject);
begin
    Application.HelpFile:='D:\系统帮助\HELP.HLP';
    Application.HelpCommand(Help_contents,0);
end;

end.