frm_mainu.~pas

快餐店管理系统 很好的参考材料 谢谢您的合作

unit frm_mainU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin,ClassesU, ExtCtrls;

type
  Tfrm_main = class(TForm)
    mmenu: TMainMenu;
    Nsystem: TMenuItem;
    Nexit: TMenuItem;
    Nfood: TMenuItem;
    Nday: TMenuItem;
    Nset: TMenuItem;
    Ntable: TMenuItem;
    Nstock: TMenuItem;
    Npayout: TMenuItem;
    Ndishes: TMenuItem;
    Ndrink: TMenuItem;
    N1: TMenuItem;
    Noperator: TMenuItem;
    Nchange: TMenuItem;
    TBar: TToolBar;
    ToolButton1: TToolButton;
    tbtnTable: TToolButton;
    ToolButton3: TToolButton;
    tbtnStock: TToolButton;
    ToolButton7: TToolButton;
    tbtnPayout: TToolButton;
    ToolButton9: TToolButton;
    Panel1: TPanel;
    procedure NchangeClick(Sender: TObject);
    procedure NexitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure NoperatorClick(Sender: TObject);
    procedure NdishesClick(Sender: TObject);
    procedure NdrinkClick(Sender: TObject);
    procedure NstockClick(Sender: TObject);
    procedure NpayoutClick(Sender: TObject);
    procedure NtableClick(Sender: TObject);
  private
    { Private declarations }
  public
    CurrentUser:TOperator;
  end;

var
  frm_main: Tfrm_main;

implementation
uses frm_changePwdU,Config,frm_loginU,frm_operatorU,
     frm_dishesU,frm_drinkU,frm_stockU,frm_payoutU,
     frm_tableU;
{$R *.dfm}

procedure TFrm_main.SetMmenu(OperatorLevel:string);
begin
  if OperatorLevel='操作员' then
    begin
      self.NOperator.Enabled:=false; //操作员管理功能对操作员权限不开放
    end;
end;

procedure Tfrm_main.NchangeClick(Sender: TObject);
var
  frm_changePwd:Tfrm_changePwd;
begin
  frm_changePwd:=Tfrm_changePwd.Create(self);
  frm_changePwd.currentUser:=self.CurrentUser;
  frm_changePwd.ShowModal;
end;

procedure Tfrm_main.NexitClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Config.ADOCon.Close;
end;

procedure Tfrm_main.FormCreate(Sender: TObject);
var
  frm_login:Tfrm_login;
begin
  frm_login:=Tfrm_login.Create(self);
  frm_login.ShowModal;
end;

procedure Tfrm_main.NoperatorClick(Sender: TObject);
var
  frm_operator:Tfrm_operator;
begin
  frm_operator:=Tfrm_operator.Create(self);
  frm_operator.ShowModal;
end;

procedure Tfrm_main.NdishesClick(Sender: TObject);
var
  frm_dishes:Tfrm_dishes;
begin
frm_dishes:=Tfrm_dishes.Create(self);
frm_dishes.ShowModal;
end;

procedure Tfrm_main.NdrinkClick(Sender: TObject);
var
  frm_drink:Tfrm_drink;
begin
  frm_drink:=Tfrm_drink.Create(self);
  frm_drink.ShowModal;
end;

procedure Tfrm_main.NstockClick(Sender: TObject);
var
  frm_stock:Tfrm_stock;
begin
  frm_stock:=Tfrm_stock.Create(self);
   frm_stock.ShowModal;
end;

procedure Tfrm_main.NpayoutClick(Sender: TObject);
var
  frm_payout:Tfrm_payout;
begin
frm_payout:=Tfrm_payout.Create(self);
frm_payout.ShowModal;
end;

procedure Tfrm_main.NtableClick(Sender: TObject);
var
  frm_table:Tfrm_table;
begin
frm_table:=Tfrm_table.Create(self);
frm_table.ShowModal;
end;

end.