main.pas

来自「自己做过的工程」· PAS 代码 · 共 317 行

unit Main;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ImgList, ToolWin,
  ComCtrls, jpeg;

type
  TformMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    ImageList1: TImageList;
    Panel1: TPanel;
    Image1: TImage;
    ControlBar1: TControlBar;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolBar1: TToolBar;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    N27: TMenuItem;
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
  end;

var
  formMain: TformMain;

implementation
      uses unitsupmanage,unitroom,unitfinancemanage,unitsysuser,unitdictionary,unitsetprice,unitsyslog,
           unitlogging,unitmodifypassword,unitexitsys,unitsoftinformation,unitsroombookquery,unitsroomquery,unitsroomHquery,
           unitroombookquery,unitroomquery,unitroomHquery,unitFsupcheckCquery,unitFsupcheckSquery,
           unitsuproomstatusquery,unitroomstatusrequery,unitmanagerroomquery,unitcustomermanagerquery;
{$r *.dfm}


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

//退出系统（快捷）
procedure TformMain.ToolButton5Click(Sender: TObject);
begin
    formexitsys.ShowModal;
end;

//餐厅管理 （快捷）
procedure TformMain.ToolButton2Click(Sender: TObject);
begin
    formsupmanage.BorderIcons:=[biSystemMenu,biMinimize,biHelp];
    formsupmanage.ShowModal;
end;

//餐厅管理
procedure TformMain.N10Click(Sender: TObject);
begin
    formsupmanage.BorderIcons:=[biSystemMenu,biMinimize,biHelp];
    formsupmanage.ShowModal;

end;

//日志管理
procedure TformMain.N22Click(Sender: TObject);
begin
    formsyslog.ShowModal;
end;

//字典表维护
procedure TformMain.N4Click(Sender: TObject);
begin
    formdictionary.ShowModal;
end;

//用户管理
procedure TformMain.N3Click(Sender: TObject);
begin
    formsysuser.ShowModal;
end;

//系统设置
procedure TformMain.N5Click(Sender: TObject);
begin
    formsetprice.ShowModal;
end;

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

//退出系统
procedure TformMain.N7Click(Sender: TObject);
begin
    formexitsys.ShowModal;
end;

//计算器
procedure TformMain.ToolButton3Click(Sender: TObject);
begin
    //WinExec(PCHAR(ExtractFilePath(Application.ExeName)+'Tools\Calc.exe'),0);
    WinExec('d:\计算器\Calc.exe',0);
end;

//版本信息
procedure TformMain.N26Click(Sender: TObject);
begin
    formsoftinformation.ShowModal;
end;

//客房管理
procedure TformMain.N9Click(Sender: TObject);
begin
    formroom.BorderIcons:=[biSystemMenu,biMinimize,biHelp];
    formroom.ShowModal;
end;

//客房管理（快捷）
procedure TformMain.ToolButton1Click(Sender: TObject);
begin
    formroom.BorderIcons:=[biSystemMenu,biMinimize,biHelp];
    formroom.ShowModal;
end;

//财务管理
procedure TformMain.N37Click(Sender: TObject);
begin
    formfinancemanage.BorderIcons:=[biSystemMenu,biMinimize,biHelp];
    formfinancemanage.ShowModal;
end;

//财务管理（快捷）
procedure TformMain.ToolButton4Click(Sender: TObject);
begin
    formfinancemanage.BorderIcons:=[biSystemMenu,biMinimize,biHelp];
    formfinancemanage.ShowModal;
end;

//客房预定查询
procedure TformMain.N11Click(Sender: TObject);
begin
    formroombookquery.ShowModal;
end;

//客房接待查询
procedure TformMain.N12Click(Sender: TObject);
begin
    formroomquery.ShowModal;
end;

//客房历史记录查询
procedure TformMain.N13Click(Sender: TObject);
begin
    formroomHquery.ShowModal;
end;

//包间预定查询
procedure TformMain.N14Click(Sender: TObject);
begin
    formsroombookquery.ShowModal;
end;

//包间接待查询
procedure TformMain.N15Click(Sender: TObject);
begin
    formsroomquery.ShowModal;
end;

//包间历史记录查询
procedure TformMain.N16Click(Sender: TObject);
begin
    formsroomHquery.ShowModal;
end;

//餐厅现金结账查询
procedure TformMain.N32Click(Sender: TObject);
begin
    formFsupcheckCquery.ShowModal;
end;

//餐厅挂帐查询
procedure TformMain.N33Click(Sender: TObject);
begin
    formFsupcheckSquery.ShowModal;
end;

//包间状态查询
procedure TformMain.N36Click(Sender: TObject);
begin
    formsuproomstatusquery.ShowModal;
end;

//房客帐务查询
procedure TformMain.N29Click(Sender: TObject);
begin
    formmanagerroomquery.ShowModal;
end;

//非房客帐务查询
procedure TformMain.N30Click(Sender: TObject);
begin
    formcustomermanagerquery.ShowModal;
end;

//客房状况查询
procedure TformMain.N35Click(Sender: TObject);
begin
    formroomstatusrequery.ShowModal;
end;

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

//修改密码
procedure TformMain.N27Click(Sender: TObject);
begin
    formmodifypassword.ShowModal;
end;

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

end.