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

📄 desk.pas

📁 亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能
💻 PAS
字号:
🔍 
unit Desk;

interface

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

type
  TFrmDesk = class(TForm)
    ImageList1: TImageList;
    Panel2: TPanel;
    PopupMenu1: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    Panel3: TPanel;
    TreeView1: TTreeView;
    TreeView3: TTreeView;
    Panel4: TPanel;
    Image2: TImage;
    Image7: TImage;
    Panel5: TPanel;
    Memo1: TMemo;
    Image1: TImage;
    Image3: TImage;
    Panel6: TPanel;
    Timer1: TTimer;
    Image4: TImage;
    TreeView4: TTreeView;
    Image5: TImage;
    TreeView2: TTreeView;
    Shape2: TShape;
    Label1: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Image6: TImage;
    Image9: TImage;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolBar1: TToolBar;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolBar3: TToolBar;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ImageList2: TImageList;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    procedure FormShow(Sender: TObject);
    procedure TreeView1DblClick(Sender: TObject);
    procedure TreeView2DblClick(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure TreeView3DblClick(Sender: TObject);
    procedure TreeView4DblClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    PicIndex: integer;
    procedure ShowHint(Sender: TObject);
  end;

var
  FrmDesk: TFrmDesk;

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, main,
  Card_ScanXx, Card_BackBadCard, Card_FirBack;

{$R *.dfm}

procedure TFrmDesk.FormShow(Sender: TObject);
begin
  PicIndex := 0;
  Panel2.Hint := Memo1.Lines.Text;
  Application.OnHint := ShowHint;
  TreeView2.FullExpand;
  TreeView3.FullExpand;
  TreeView4.FullExpand;
  StatusBar1.Panels[0].Text := '当前连接到服务器' + PublicUnit.ServerName;
  StatusBar1.Panels[1].Text := '当前用户为 ' + PublicUnit.UserName;
end;

{-------------------------------------------------------------------------------}

procedure TFrmDesk.ToolButton5Click(Sender: TObject);
begin
  PublicUnit.UserName := '访问者';
  PublicUnit.UserPass := '';
  FrmMain.UserName := PublicUnit.UserName;
  FrmMain.UserPass := PublicUnit.UserPass;
  StatusBar1.Panels[0].Text := '当前连接到服务器' + FrmMain.ServerName;
  StatusBar1.Panels[1].Text := '当前用户为 ' + FrmMain.UserName;
  WriteToHistroy('系统登陆', Now, Time, '用户《' + FrmMain.UserName + '》于服务器' +
    FrmMain.ServerName + '注销本系统', FrmMain.UserName);
end;

procedure TFrmDesk.ToolButton6Click(Sender: TObject);
begin
  UserLogin.SetWork;
  FrmMain.UserName := PublicUnit.UserName;
  FrmMain.UserPass := PublicUnit.UserPass;
  FrmMain.ServerName:=PublicUnit.ServerName;
  StatusBar1.Panels[0].Text := '当前连接到服务器' + FrmMain.ServerName;
  StatusBar1.Panels[1].Text := '当前用户为 ' + FrmMain.UserName;
  PublicUnit.WriteToHistroy('系统登陆', Now, Time, '用户《' + FrmMain.UserName +
    '》于服务器' + FrmMain.ServerName + '登陆本系统', FrmMain.UserName);
end;

procedure TFrmDesk.ToolButton12Click(Sender: TObject);
begin
  Function_DB_ReadRight.UserOrUserGroupName := FrmMain.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, '用户《' + FrmMain.UserName + '》于服务器' +
    FrmMain.ServerName + '执行了<数据采集>', FrmMain.UserName);
  CJ_Main.SetWork;
end;

procedure TFrmDesk.ToolButton9Click(Sender: TObject);
begin
  Function_DB_ReadRight.UserOrUserGroupName := FrmMain.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, '用户《' + FrmMain.UserName + '》于服务器' +
    FrmMain.ServerName + '执行了<盒饭销售>', FrmMain.UserName);
  DI_Main.SetWork('盒饭销售记录');
end;

procedure TFrmDesk.ToolButton14Click(Sender: TObject);
begin
  WriteToHistroy(TToolButton(Sender).Caption, Now, Time, '用户《' + FrmMain.UserName +
    '》于服务器' + FrmMain.ServerName + '执行了<' + TToolButton(Sender).Caption + '>',
    FrmMain.UserName);
  TreeView3.Selected := TreeView3.Items[TComponent(Sender).Tag];
  TreeView3.OnDblClick(Sender);
end;

procedure TFrmDesk.ToolButton11Click(Sender: TObject);
begin
  Close;
end;

{----------------------------------Components Work-------------------------------}

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

procedure TFrmDesk.TreeView4DblClick(Sender: TObject);
var
  tn: TTreeNode;
begin
  tn := TreeView4.Selected;
  if tn.Level <> 1 then
    Exit;
  Function_DB_ReadRight.UserOrUserGroupName := FrmMain.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, '用户《' + FrmMain.UserName + '》于服务器' +
    FrmMain.ServerName + '执行了<前台售卡>功能', FrmMain.UserName);
  case tn.Index of
    0: Card_IniCard.SetWork;
    1: Card_LyCard.SetWork;
    2: Card_SellCard.SetWork;
    3: begin
         if MessageDlg('以旧换新业务共分为退卡与售卡两步，您确定要进行该项操作吗?',
           mtConfirmation, [mbYes, mbNo], 0) <> mrYes then Exit;
         if MessageDlg('请您插入旧卡准备退还，继续按Yes键，否则按No键。',
           mtConfirmation, [mbYes, mbNo], 0) <> mrYes then Exit;
         Card_FirBack.SetWork;
       end;
    4: Card_BackCard.SetWork;
    5: Card_BackBadCard.SetWork;
    6: Card_ScanXx.SetWork;
  end;
end;

procedure TFrmDesk.TreeView2DblClick(Sender: TObject);
var
  tn: TTreeNode;
  tp: TPoint;
begin
  tn := TreeView2.Selected;
  if tn.Level <> 1 then
    Exit;
  Function_DB_ReadRight.UserOrUserGroupName := FrmMain.UserName;
  Function_DB_ReadRight.UserOrUserGroupIdentify := '用户';
  Function_DB_ReadRight.FunctionResourceName := qtsc[tn.Index];
  if Function_DB_ReadRight.GetFunctionResourceRight <> 1 then
  begin
    MessageDlg('对不起，您没有权限执行当前工作！', mtInformation, [mbOk], 0);
    Exit;
  end;
  WriteToHistroy('前台售餐', Now, Time, '用户《' + FrmMain.UserName + '》于服务器' +
    FrmMain.ServerName + '执行了<' + tn.Text + '>', FrmMain.UserName);
  GetCursorPos(tp);
  case tn.Index of
    0: PopupMenu1.Popup(tp.X, tp.Y);
    1: CJ_Main.SetWork;
    2: DI_Main.SetWork('盒饭销售记录');
  end;
end;

procedure TFrmDesk.TreeView3DblClick(Sender: TObject);
var
  ReportType: string;
  ReportHistroyCName, ReportHistroyEName: string;
begin
  Function_DB_ReadRight.UserOrUserGroupName := FrmMain.UserName;
  Function_DB_ReadRight.UserOrUserGroupIdentify := '用户';
  Function_DB_ReadRight.FunctionResourceName := tjfx[TreeView3.Selected.Index];
  if Function_DB_ReadRight.GetFunctionResourceRight <> 1 then
  begin
    MessageDlg('对不起，您没有权限执行当前工作！', mtInformation, [mbOk], 0);
    Exit;
  end;
  WriteToHistroy('统计分析', Now, Time, '用户《' + FrmMain.UserName + '》于服务器' +
    FrmMain.ServerName + '执行了<' + TreeView3.Selected.Text + '>', FrmMain.UserName);
  ReportType := TreeView3.Selected.Text;
  if TreeView3.Selected.Text = '历史结果' then
  begin
    if not AG_HistroyList.SetWork(ReportHistroyCName, ReportHistroyEName) then
      Exit;
    if not FileExists(ReportHistroyEName) then
    begin
      ShowMessage('所需的统计分析源文件丢失，不能进行该项工作！');
      Exit;
    end;
    ReportType := '历史结果/' + ReportHistroyCName + '/' + ReportHistroyEName;
  end;
  AG_Main.SetWork(ReportType);
end;

{-------------------------------------------------------------------------------}

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

{-------------------------------------------------------------------------------}

procedure TFrmDesk.Timer1Timer(Sender: TObject);
var
  s: string;
begin
  if PicIndex = 5 then
    PicIndex := 0;
  Inc(PicIndex);
  s := LowerCase(ExtractFilePath(Application.ExeName));
  s := Copy(s, 1, Pos('bin\', s) - 1) + 'data\';
  Image7.Picture.LoadFromFile(s + 'Pic' + IntToStr(PicIndex) + '.jpg');
  if Pos('亚惠', Label4.Caption) <> 0 then
    Label4.Caption := DateTimeToStr(Now)
  else
    Label4.Caption := '亚惠餐厅欢迎您的光临';
end;

{-------------------------------------------------------------------------------}

procedure TFrmDesk.ShowHint(Sender: TObject);
begin
  if not (FrmMain.ActiveMDIChild is TFrmDesk) then
    Exit;
  Memo1.SetFocus;
  Memo1.Lines.Clear;
  if Pos('#', Application.Hint) <> 0 then
    Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName) + '\' +
      Copy(Application.Hint, 2, 1) + '.txt')
  else
    Memo1.Lines.Text := Application.Hint;
  if Application.Hint = '' then
    Memo1.Lines.Text := Panel2.Hint;
end;

end.

⌨️ 快捷键说明

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