mainform.pas

本程序是一个餐饮业的管理软件

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, Menus;

type
  TFrmMain = class(TForm)
    MainMenu1: TMainMenu;
    ActionList1: TActionList;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N10Click(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 N17Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure N21Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses LoginForm, DataM, MealCountForm, ObjectForm, ViewFeeForm,
  MenuPrintForm, BuyMaterialForm, SpendMaterialForm, ViewMaterialForm,
  EmployeeLoginForm, EditEmployeeForm, EditDutyEmployeeForm,
  SysUserAddForm, SysUserEditForm, MealForm, MenuForm;

{$R *.dfm}

procedure TFrmMain.N5Click(Sender: TObject);
begin
  Application.CreateForm(TFrmMeal, FrmMeal);
end;

procedure TFrmMain.N6Click(Sender: TObject);
begin
  Application.CreateForm(TFrmMealCount, FrmMealCount);
end;

procedure TFrmMain.N9Click(Sender: TObject);
begin
  Application.CreateForm(TFrmObject, FrmObject);
end;

procedure TFrmMain.N7Click(Sender: TObject);
begin
  Application.CreateForm(TFrmViewFee, FrmViewFee);
end;

procedure TFrmMain.N10Click(Sender: TObject);
begin
  Application.CreateForm(TFrmMenu, FrmMenu);
end;

procedure TFrmMain.N11Click(Sender: TObject);
begin
  Application.CreateForm(TFrmMenuPrint, FrmMenuPrint);
end;

procedure TFrmMain.N12Click(Sender: TObject);
begin
  Application.CreateForm(TFrmBuyMaterial, FrmBuyMaterial);
end;

procedure TFrmMain.N13Click(Sender: TObject);
begin
  Application.CreateForm(TFrmSpendMaterial, FrmSpendMaterial);
end;

procedure TFrmMain.N14Click(Sender: TObject);
begin
  Application.CreateForm(TFrmViewMaterial, FrmViewMaterial);
end;

procedure TFrmMain.N15Click(Sender: TObject);
begin
  Application.CreateForm(TFrmEmployeeLogin, FrmEmployeeLogin);
end;

procedure TFrmMain.N16Click(Sender: TObject);
begin
  Application.CreateForm(TFrmEmployeeEdit, FrmEmployeeEdit);
end;

procedure TFrmMain.N17Click(Sender: TObject);
begin
  Application.CreateForm(TFrmEditDuty, FrmEditDuty);
end;

procedure TFrmMain.N19Click(Sender: TObject);
begin
  Application.CreateForm(TFrmSysUserAdd, FrmSysUserAdd);
end;

procedure TFrmMain.N20Click(Sender: TObject);
begin
  Application.CreateForm(TFrmSysUserEdit, FrmSysUserEdit);
end;

procedure TFrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

procedure TFrmMain.FormShow(Sender: TObject);
begin
  FrmLogin.ShowModal;
  if Data.ADOConnectMeal.Connected then
  begin
    if Data.ADOQLogin['AUT']=10 then
    begin
      Data.ADOQLogin.Edit;
      Data.ADOQLogin['LLON']:=Now;
      Data.ADOQLogin.Post;
      FrmMain.N1.Enabled:=True;
      FrmMain.N2.Enabled:=True;
      FrmMain.N3.Enabled:=True;
      FrmMain.N4.Enabled:=True;
      FrmMain.N18.Enabled:=True;
      FrmLogin.Free;
      FrmMain.Show;
    end
    else if (Data.ADOQLogin['AUT']=9) or (Data.ADOQLogin['AUT']=10) then
    begin
      Data.ADOQLogin.Edit;
      Data.ADOQLogin['LLON']:=Now;
      Data.ADOQLogin.Post;
      FrmMain.N1.Enabled:=True;
      FrmMain.N2.Enabled:=False;
      FrmMain.N3.Enabled:=False;
      FrmMain.N4.Enabled:=False;
      FrmMain.N18.Enabled:=False;
      FrmLogin.Free;
      FrmMain.Show;
    end
    else if (Data.ADOQLogin['AUT']=8) or (Data.ADOQLogin['AUT']=10) then
    begin
      Data.ADOQLogin.Edit;
      Data.ADOQLogin['LLON']:=Now;
      Data.ADOQLogin.Post;
      FrmMain.N1.Enabled:=False;
      FrmMain.N2.Enabled:=True;
      FrmMain.N3.Enabled:=False;
      FrmMain.N4.Enabled:=False;
      FrmMain.N18.Enabled:=False;
      FrmLogin.Free;
      FrmMain.Show;
    end
    else if (Data.ADOQLogin['AUT']=7) or (Data.ADOQLogin['AUT']=10) then
    begin
      Data.ADOQLogin.Edit;
      Data.ADOQLogin['LLON']:=Now;
      Data.ADOQLogin.Post;
      FrmMain.N1.Enabled:=False;
      FrmMain.N2.Enabled:=False;
      FrmMain.N3.Enabled:=True;
      FrmMain.N4.Enabled:=False;
      FrmMain.N18.Enabled:=False;
      FrmLogin.Free;
      FrmMain.Show;
    end
    else if (Data.ADOQLogin['AUT']=7) or (Data.ADOQLogin['AUT']=10) then
    begin
      Data.ADOQLogin.Edit;
      Data.ADOQLogin['LLON']:=Now;
      Data.ADOQLogin.Post;
      FrmMain.N1.Enabled:=False;
      FrmMain.N2.Enabled:=False;
      FrmMain.N3.Enabled:=False;
      FrmMain.N4.Enabled:=True;
      FrmMain.N18.Enabled:=False;
      FrmLogin.Free;
      FrmMain.Show;
    end
    else MessageDlg('You not have AUT',mtError,[mbOK],0);
  end
  else Application.Terminate;

end;

procedure TFrmMain.N21Click(Sender: TObject);
begin
  Close;
end;

end.