⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.~pas

📁 这是我的毕业设计,希望看了能给我一个满意的答复
💻 ~PAS
字号:
🔍 
unit Unit1;

interface

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

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;
    N3: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    Panel2: TPanel;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N4: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    Timer1: TTimer;
    N40: TMenuItem;
    N55: TMenuItem;
    N57: TMenuItem;
    Image1: TImage;
    Label1: TLabel;
    Panel1: TPanel;
    ListView1: TListView;
    ImageList3: TImageList;
    N14: TMenuItem;
    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 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 ToolButton5Click(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);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
   
    
  public
    CLose_1:integer;
    listviewindex: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, MC_DCGL_DC;

{$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.N12121.Enabled:=True;
  MainForm.N4.Enabled:=True;
  MainForm.N23.Enabled:=True;
  MainForm.N6.Enabled:=True;
  MainForm.N22.Enabled:=True;
  MainForm.N40.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.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;

 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.ToolButton3.Enabled:=True;
  MainForm.N28.Enabled:=True;
 end;
 if Pos('H',key)>0 then    //具有"H"类权限
 begin
  MainForm.N12121.Enabled:=True;
  MainForm.N23.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.FormShow(Sender: TObject);
var Year,Month,Day: Word;
    listview:tlistitem;
    i:integer;
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)+'日';
  listviewindex:=0;
  listview1.Top:=SpeedButton1.Top+ SpeedButton1.Height;
  listview1.Items.Clear;
  for i:=0 to mainmenu1.Items[0].count-1 do
  begin
  listview:=listview1.Items.Add;
  listview.ImageIndex:=1;
  listview.Caption:=mainmenu1.Items[0].Items[i].Caption;
  end;
 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)+'日';
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
 begin
  TLCYGLXT.FJTHLXB.Open;
  FJTHLXSZ:=TFJTHLXSZ.Create(Self);
  FJTHLXSZ.ShowModal;
 end;
end;


procedure TMainForm.N32Click(Sender: TObject);       //调入员工类别设置
begin
 If Not Assigned(YGLBSZ) Then
 begin
  TLCYGLXT.YGLBXXB.Open;
  YGLBSZ:=TYGLBSZ.Create(Self);
  YGLBSZ.ShowModal;
 end;
end;

procedure TMainForm.N40Click(Sender: TObject);        //调入基础商品登记
begin
 If Not Assigned(SPJCXXLR) Then
 begin
  TLCYGLXT.SPJCXXB.Open;
  SPJCXXLR:=TSPJCXXLR.Create(Self);
  SPJCXXLR.ShowModal;
 end;
end;

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

procedure TMainForm.N6Click(Sender: TObject);      //调入菜谱信息设置
begin
 If Not Assigned(CPXXSZ) Then
 begin
  TLCYGLXT.CPFYXXB.Open;//打开菜谱费用信息表
  TLCYGLXT.CXLBXXB.Open;//打开菜系类别信息表
  CPXXSZ:=TCPXXSZ.Create(Self);
  CPXXSZ.ShowModal;
 end;
end;

procedure TMainForm.N24Click(Sender: TObject);        //调入员工管理
begin
 If Not Assigned(YGXXGL) Then
 begin
  TLCYGLXT.YGGZXXB.Open;//打开员工工资信息表
  TLCYGLXT.YGXXB.Open;//打开员工信息表
  TLCYGLXT.YGLBXXB.Open;//打开员工类别信息表
  TLCYGLXT.FJTHBMB.Open;//打开房间台号部门表
  YGXXGL:=TYGXXGL.Create(Self);
  YGXXGL.ShowModal;
 end;
end;

procedure TMainForm.ToolButton2Click(Sender: TObject);    //调入开台管理
begin
If Not Assigned(KTGL) Then
begin
TLCYGLXT.KT_FJTHXXB.Open;//打开房间台号信息表
TLCYGLXT.KT_FJTHLXB.Open;//打开房间台号类型表
TLCYGLXT.KT_FJTHBMB.Open;//打开房间台号部门表
TLCYGLXT.JZBH.Open;//打开结帐编号表
KTGL:=TKTGL.Create(Self);
KTGL.ShowModal;
end;
end;

procedure TMainForm.N23Click(Sender: TObject);       //调入酒水信息设置
begin
 If Not Assigned(SJXXSZ) Then
 begin
  SJXXSZ:=TSJXXSZ.Create(Self);
  TLCYGLXT.SJFYXXB.Open;//打开酒水信息表
  TLCYGLXT.JSLBXXB.Open;//打开酒水类别表
  SJXXSZ.Query1.Open;//打开库存水酒信息
  SJXXSZ.ShowModal;
 end;
end;

procedure TMainForm.ToolButton3Click(Sender: TObject);      //调入客人买单管理
begin
 If Not Assigned(KRMD) Then
 begin
  TLCYGLXT.FJTHXXB.Open;   //打开房间台号信息表
  TLCYGLXT.FJTHXXB.Filter:='状态'+'='+'''营业''';
  TLCYGLXT.FJTHXXB.Filtered:=True;
  KRMD:=TKRMD.Create(Self);
  KRMD.ShowModal;
 end;
end;

procedure TMainForm.N28Click(Sender: TObject);      //调入结账分析
begin
 If Not Assigned(JZSJFX) Then
 begin
  JZSJFX:=TJZSJFX.Create(Self);
  JZSJFX.ShowModal;
 end;
end;

procedure TMainForm.ToolButton1Click(Sender: TObject);     //调入日结算管理
begin
 RJSGL:=TRJSGL.Create(Self);
 RJSGL.ShowModal;
end;

procedure TMainForm.ToolButton5Click(Sender: TObject);   //调入权限设置
begin
 If Not Assigned(PowerSetup) Then
 begin
  PowerSetup:=TPowerSetup.Create(Self);
  TLCYGLXT.Power.Open;
  PowerSetup.ShowModal;
 end;
end;


procedure TMainForm.N55Click(Sender: TObject);     //调入系统维护向导
begin
If Not Assigned(XTWHXD) Then
 begin
 XTWHXD:=TXTWHXD.Create(Self);
 XTWHXD.ShowModal;
 end;
end;

procedure TMainForm.ToolButton4Click(Sender: TObject);   //调入数据备份
begin
If Not Assigned(Backup_Disk) Then
 begin
 Backup_Disk:=TBackup_Disk.Create(Self);
 Backup_Disk.ShowModal;
 end;
end;

procedure TMainForm.ToolButton8Click(Sender: TObject);   //调入关于
begin
 About.ShowModal;
end;

procedure TMainForm.ToolButton7Click(Sender: TObject);  //调入帮助
begin
 Help.Show;
end;

procedure TMainForm.N57Click(Sender: TObject);       //调入打印信息管理
begin
If Not Assigned(DY_SJ_CP_CJ) Then
begin
 DY_SJ_CP_CJ:=TDY_SJ_CP_CJ.Create(Self);
 DY_SJ_CP_CJ.ShowModal;
end;
end;

procedure TMainForm.FormCanResize(Sender: TObject; var NewWidth,NewHeight: Integer; var Resize: Boolean);
begin
 IMAGE1.Width:=MainForm.Width;
 IMAGE1.HEIGHT:=MainForm.HEIGHT-130;
end;

procedure TMainForm.ToolButton10Click(Sender: TObject);       //退出
begin
 Close;
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
If Not Assigned(YYCXFX) Then
begin
 YYCXFX:=TYYCXFX.Create(Self);
 YYCXFX.ShowModal;
end;
end;
procedure TMainForm.SpeedButton1Click(Sender: TObject);
var
  listview:tlistitem;
  i:integer;
begin
  listviewindex:=0;
  listview1.Top:=SpeedButton1.Top+ SpeedButton1.Height;
  listview1.Items.Clear;
  for i:=0 to mainmenu1.Items[0].count-1 do
  begin
  listview:=listview1.Items.Add;
  listview.ImageIndex:=1;
  listview.Caption:=mainmenu1.Items[0].Items[i].Caption;
  end;
end;

procedure TMainForm.ListView1Click(Sender: TObject);
var
  i:integer;
begin
   i:=ListView1.ItemIndex;
   mainmenu1.Items[listviewindex].Items[i].Click;
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
if not Assigned(DCGL_DC) then;
   begin
    DCGL_DC:=TDCGL_DC.Create(Self);
    DCGL_DC.ShowModal;
   end;
end;



end.

⌨️ 快捷键说明

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