📄 unit1.~pas

📁 一个通用的餐饮管理软件
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit Unit1;

interface

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

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ImageList1: TImageList;
    ImageList2: TImageList;
    N12121: TMenuItem;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    StatusBar1: TStatusBar;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    Panel2: TPanel;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N4: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N41: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    Timer1: TTimer;
    N47: TMenuItem;
    N48: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N40: TMenuItem;
    N46: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N25: TMenuItem;
    Image1: TImage;
    N26: TMenuItem;
    N10: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    N13: TMenuItem;
    N14: TMenuItem;
    procedure Label3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N22Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure N13Click(Sender: TObject);
    procedure DisplayHint(Sender : Tobject);
  public
    CLose_1:integer;
    User1:String;
    Function EnabledKey(key:String):Boolean;    
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses MC_TLCYGLXT, MC_FJTHGL, MC_CXLBSZ, MC_JSLBSZ, MC_CJLBSZ, MC_FJBMSZ,
  MC_FJTHLXSZ, MC_CKXXSZ, M_YGLBSZ, MC_SPJCXXLR, MC_CJXXSZ, MC_CPXXSZ,
  MC_YGXXGL, MC_DYYLBrose, MC_KTGL, MC_SJXXSZ, MC_KRMD, MC_JZSJFX, MC_RJSGL,
  MC_GZGL, MC_YYYFXTJ, MC_YJSGL, MC_DCFXT, MC_SJFXT, MC_GSZJGLCK, MC_JHPZGL,
  MC_KCXXGL, MC_JHXXTJ, MC_CHPZGL, MC_CHXXTJ, MC_KCXXTJ, MC_NDYYFXTJ,
  MC_PowerSetup, MC_FYDJGL, MC_XTWHXD, MC_Backup_Disk, MC_User, MC_About,
  MC_Help, MC_DY_SJ_CP_CJ, MC_KCSLFX, MC_YYCXFX;

{$R *.DFM}

Function TMainForm.EnabledKey(key:String):Boolean;   //声明操作权限函数 EnabledKey
begin
 if Pos('A',key)>0 then   //具有"A"类权限
 begin
  MainForm.N1.Enabled:=True;
  MainForm.ToolButton2.Enabled:=True;//打开开台管理
  MainForm.N8.Enabled:=True;
  MainForm.ToolButton3.Enabled:=True;
  MainForm.N9.Enabled:=True;
 End
 Else
 if Pos('B',key)>0 then   //具有"B"类权限
 begin
  MainForm.N58.Enabled:=True;
  MainForm.N5.Enabled:=True;
  MainForm.N48.Enabled:=True;
  MainForm.N52.Enabled:=True;
  MainForm.N51.Enabled:=True;
  MainForm.N14.Enabled:=True;
  MainForm.N24.Enabled:=True;
  MainForm.N15.Enabled:=True;
  MainForm.N12121.Enabled:=True;
  MainForm.N4.Enabled:=True;
  MainForm.N23.Enabled:=True;
  MainForm.N6.Enabled:=True;
  MainForm.N22.Enabled:=True;
  MainForm.N40.Enabled:=True;
  MainForm.N15.Enabled:=True;
  MainForm.N16.Enabled:=True;
  MainForm.N29.Enabled:=True;
  MainForm.N30.Enabled:=True;
  MainForm.N35.Enabled:=True;
  MainForm.N36.Enabled:=True;
  MainForm.N37.Enabled:=True;
  MainForm.N32.Enabled:=True;
  MainForm.N39.Enabled:=True;
  MainForm.N57.Enabled:=True;
  MainForm.N55.Enabled:=True;
  MainForm.N17.Enabled:=True;
  MainForm.N18.Enabled:=True;
 End
 Else
 if Pos('C',key)>0 then    //具有"C"类权限
 begin
 if Pos('D',key)>0 then    //具有"D"类权限
 begin
  MainForm.N1.Enabled:=True;
  MainForm.ToolButton2.Enabled:=True;//打开开台管理
  MainForm.N8.Enabled:=True;
 end;
 if Pos('E',key)>0 then     //具有"E"类权限
 begin
  MainForm.N1.Enabled:=True;
  MainForm.ToolButton3.Enabled:=True;
  MainForm.N9.Enabled:=True;
 end;
 if Pos('F',key)>0 then    //具有"F"类权限
 begin
  MainForm.N1.Enabled:=True;
  MainForm.ToolButton1.Enabled:=True;
  MainForm.N11.Enabled:=True;
 end;
 if Pos('G',key)>0 then     //具有"G"类权限
 begin
  MainForm.N1.Enabled:=True;
  MainForm.ToolButton11.Enabled:=True;
  MainForm.N28.Enabled:=True;
 end;
 if Pos('J',key)>0 then    //具有"J"类权限
 begin
  MainForm.N1.Enabled:=True;
  MainForm.ToolButton1.Enabled:=True;
  MainForm.N8.Enabled:=True;
  MainForm.ToolButton11.Enabled:=True;
  MainForm.N9.Enabled:=True;
  MainForm.ToolButton2.Enabled:=True;
  MainForm.N11.Enabled:=True;
  MainForm.ToolButton3.Enabled:=True;
  MainForm.N28.Enabled:=True;
 end;
 if Pos('H',key)>0 then    //具有"H"类权限
 begin
  MainForm.N12121.Enabled:=True;
  MainForm.N5.Enabled:=True;
  MainForm.N48.Enabled:=True;
  MainForm.N52.Enabled:=True;
  MainForm.N51.Enabled:=True;
  MainForm.N33.Enabled:=True;
  MainForm.N24.Enabled:=True;
  MainForm.N23.Enabled:=True;
  MainForm.N7.Enabled:=True;
  MainForm.N4.Enabled:=True;
  MainForm.N6.Enabled:=True;
  MainForm.N22.Enabled:=True;
  
 end;
 end;
end;
procedure TMainForm.DisplayHint(Sender:Tobject);
begin
 StatusBar1.Panels[0].Text:=Application.Hint;   //状态栏显示应用程序的帮助信息
 DYYLBrose.StatusBar1.Panels[0].Text:=Application.Hint;
end;

procedure TMainForm.Label3Click(Sender: TObject);  //提供网络在线服务
begin
 ShellExecute(handle,nil,'http://www.MingRiSoft.com',nil,nil,sw_shownormal);
end;

procedure TMainForm.FormShow(Sender: TObject);
var Year,Month,Day: Word;
begin
 Close_1:=1;
 User.ShowModal;  //调用系统登陆窗口
 If Close_1 = 0 Then
 Close
 Else
 begin
  Panel2.Refresh;
  Application.MainForm.WindowState:=wsMaximized;
  Application.MainForm.WindowState:=wsNormal;
  DecodeDate(StrToDate(DateTOStr(Date)),Year,Month,day);    //分解日期
  StatusBar1.Panels[2].Text:='系统日期:'+IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(day)+'日';
 end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
 Application.OnHint:=DisPlayHint;  //与应用项目的提示信息挂钩
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 ANimateWindow(handle,300,AW_HOR_NEGATIVE+AW_Hide+AW_SLIDE); //将窗体从右至左移出屏幕
end;

procedure TMainForm.N22Click(Sender: TObject);      //调入房间台号管理
begin
 If Not Assigned(FJTHGL) Then
 begin
  TLCYGLXT.FJTHXXB.Open;  //打开房间台号信息表
  TLCYGLXT.FJTHLXB.Open;  //打开房间台号类型表
  TLCYGLXT.FJTHBMB.Open;  //打开房间台号部门表
  FJTHGL:=TFJTHGL.Create(Self);
  FJTHGL.ShowModal;    //调入房间台号管理
 end;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);   //显示系统时间
var Year,Month,Day: Word; G,b:integer;
begin
 DecodeDate(StrToDate(DateTOStr(Date)),Year,Month,day);  //分解日期
 StatusBar1.Panels[2].Text:='系统日期:'+IntToStr(Year)+ '年'+IntToStr(Month)+'月'+IntToStr(day)+'日';
 DYYLBrose.StatusBar1.Panels[2].Text:='打印日期:'+IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(day)+'日';
 Help.Label3.Font.Color:=RGB(255,Random(G),Random(b));
end;

procedure TMainForm.N36Click(Sender: TObject);       //调入菜系信息设置
begin
 If Not Assigned(CXLBSZ) Then
 begin
  TLCYGLXT.CXLBXXB.Open;
  CXLBSZ:=TCXLBSZ.Create(Self);
  CXLBSZ.ShowModal;
 end;
end;

procedure TMainForm.N35Click(Sender: TObject);       //调入酒水类别设置
begin
 If Not Assigned(JSLBSZ) Then
 begin
  TLCYGLXT.JSLBXXB.Open;
  JSLBSZ:=TJSLBSZ.Create(Self);
  JSLBSZ.ShowModal;
 end;
end;

procedure TMainForm.N37Click(Sender: TObject);      //调入餐具信息设置
begin
If Not Assigned(CJLBSZ) Then
begin
TLCYGLXT.CJLBXXB.Open;
CJLBSZ:=TCJLBSZ.Create(Self);
CJLBSZ.ShowModal;
end;
end;

procedure TMainForm.N29Click(Sender: TObject);       //调入餐饮部门设置
begin
 If Not Assigned(CYBMSZ) Then
 begin
  TLCYGLXT.FJTHBMB.Open;
  CYBMSZ:=TCYBMSZ.Create(Self);
  CYBMSZ.ShowModal;
 end;
end;

procedure TMainForm.N30Click(Sender: TObject);       //调入房间台号设置
begin
 If Not Assigned(FJTHLXSZ) Then
12 下一页
💿 文件大小 5289 K
👤 上传用户 zhangchao0219
📂 所属分类酒店行业
🏷️ 相关标签

#管理软件
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -