main.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, jpeg, ExtCtrls, ComCtrls, StdCtrls, ImgList, ToolWin,
  Mask, DBCtrls, RC_ReadRightClass, ShellAPI, Inifiles;

type
  TFrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N4: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N2: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    PopupMenu1: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    ImageList2: TImageList;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    SaveDialog1: TSaveDialog;
    N30: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N44Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ServerName: string;
    DbName: string;
    DbCName: string;
    DBUser: string;
    DBPass: string;
    UserName: string;
    UserPass: string;
  end;

var
  FrmMain: TFrmMain;

implementation

uses GQ_UQueryMain, DI_Main, About, PublicUnit, DB_Main, DR_Main, RC_Main,
  UserLogin, CJ_Main, PZ_Sjpz, AG_Main, AG_HistroyList, SysConfig,
  Card_SellCard, Card_IniCard, Card_LyCard, Card_BackCard, desk,
  Card_BackBadCard, Card_ScanXx, AG_SelDate, Card_FirBack;

{$R *.dfm}

procedure TFrmMain.FormShow(Sender: TObject);
begin
  ServerName := PublicUnit.ServerName;
  DbName := PublicUnit.DbName;
  DbCName := PublicUnit.DbCName;
  DBUser := PublicUnit.DBUser;
  DBPass := PublicUnit.DBPass;
  UserName := PublicUnit.UserName;
  UserPass := PublicUnit.UserPass;
  Function_DB_ReadRight := TFunction_DB_ReadRight.ACreate(Application,
    ServerName);
  PublicUnit.WriteToHistroy('系统登陆', Now, Time, '用户《' + UserName +
    '》于服务器' + ServerName + '登陆本系统', UserName);
  //TreeView1.FullExpand;
end;

procedure TFrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //PublicUnit.SetDisplayMode(DisplayWidth,DisplayHeight)
  Function_DB_ReadRight.Free;
  PublicUnit.WriteToHistroy('系统登陆', Now, Time, '用户《' + UserName +
    '》于服务器' + ServerName + '注销本系统', UserName);
  FrmDesk.Close;
  FrmDesk.Free;
end;

procedure TFrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('您确定要关闭这个系统吗？', mtConfirmation, [mbYes, mbNo], 0) <>
    mrYes then
    CanClose := False;
end;

procedure TFrmMain.MenuItem1Click(Sender: TObject);
begin
  PZ_Sjpz.SetWork(TMenuItem(Sender).Caption, TMenuItem(Sender).Tag);
end;

{----------------------Main Menu------------------------------------------------}

procedure TFrmMain.N5Click(Sender: TObject);
var
  AboutBox: TAboutBox;
begin
  Application.CreateForm(TAboutBox, AboutBox);
  AboutBox.ShowModal;
  AboutBox.Free;
end;

procedure TFrmMain.N7Click(Sender: TObject);
begin
  Function_DB_ReadRight.UserOrUserGroupName := UserName;
  Function_DB_ReadRight.UserOrUserGroupIdentify := '用户';
  Function_DB_ReadRight.FunctionResourceName := xtwh[TMenuItem(Sender).Tag];
  if Function_DB_ReadRight.GetFunctionResourceRight <> 1 then
  begin
    MessageDlg('对不起，您没有权限执行当前工作！', mtInformation, [mbOk], 0);
    Exit;
  end;
  WriteToHistroy('数据备份', Now, Time, '用户《' + UserName + '》于服务器' +
    ServerName + '执行了<数据备份>', UserName);
  DB_Main.SetWork;
end;

procedure TFrmMain.N8Click(Sender: TObject);
begin
  Function_DB_ReadRight.UserOrUserGroupName := UserName;
  Function_DB_ReadRight.UserOrUserGroupIdentify := '用户';
  Function_DB_ReadRight.FunctionResourceName := '数据恢复';
  if Function_DB_ReadRight.GetFunctionResourceRight <> 1 then
  begin
    MessageDlg('对不起，您没有权限执行当前工作！', mtInformation, [mbOk], 0);
    Exit;
  end;
  WriteToHistroy('数据恢复', Now, Time, '用户《' + UserName + '》于服务器' +
    ServerName + '执行了<数据恢复>', UserName);
  DR_Main.SetWork;
end;

procedure TFrmMain.N9Click(Sender: TObject);
begin
  Function_DB_ReadRight.UserOrUserGroupName := UserName;
  Function_DB_ReadRight.UserOrUserGroupIdentify := '用户';
  Function_DB_ReadRight.FunctionResourceName := '用户管理';
  if Function_DB_ReadRight.GetFunctionResourceRight <> 1 then
  begin
    MessageDlg('对不起，您没有权限执行当前工作！', mtInformation, [mbOk], 0);
    Exit;
  end;
  WriteToHistroy('用户管理', Now, Time, '用户《' + UserName + '》于服务器' +
    ServerName + '执行了<用户管理>', UserName);
  RC_Main.SetWork;
end;

procedure TFrmMain.N10Click(Sender: TObject);
begin
  Function_DB_ReadRight.UserOrUserGroupName := UserName;
  Function_DB_ReadRight.UserOrUserGroupIdentify := '用户';
  Function_DB_ReadRight.FunctionResourceName := '日志管理';
  if Function_DB_ReadRight.GetFunctionResourceRight <> 1 then
  begin
    MessageDlg('对不起，您没有权限执行当前工作！', mtInformation, [mbOk], 0);
    Exit;
  end;
  WriteToHistroy('日志管理', Now, Time, '用户《' + UserName + '》于服务器' +
    ServerName + '执行了<日志管理>', UserName);
  DI_Main.SetWork('日志管理');
end;

procedure TFrmMain.N30Click(Sender: TObject);
begin
  Function_DB_ReadRight.UserOrUserGroupName := UserName;
  Function_DB_ReadRight.UserOrUserGroupIdentify := '用户';
  Function_DB_ReadRight.FunctionResourceName := '系统配置';
  if Function_DB_ReadRight.GetFunctionResourceRight <> 1 then
  begin
    MessageDlg('对不起，您没有权限执行当前工作！', mtInformation, [mbOk], 0);
    Exit;
  end;
  WriteToHistroy('系统配置', Now, Time, '用户《' + UserName + '》于服务器' +
    ServerName + '执行了<系统配置>', UserName);
  SysConfig.SetWork;
end;