main.pas

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

procedure TFrmMain.N15Click(Sender: TObject);
var
  ReportType: string;
  ReportHistroyCName, ReportHistroyEName: string;
begin
  Function_DB_ReadRight.UserOrUserGroupName := UserName;
  Function_DB_ReadRight.UserOrUserGroupIdentify := '用户';
  Function_DB_ReadRight.FunctionResourceName := tjfx[TMenuItem(Sender).Tag];
  if Function_DB_ReadRight.GetFunctionResourceRight <> 1 then
  begin
    MessageDlg('对不起，您没有权限执行当前工作！', mtInformation, [mbOk], 0);
    Exit;
  end;
  WriteToHistroy('统计分析', Now, Time, '用户《' + UserName + '》于服务器' +
    ServerName + '执行了<' + TMenuItem(Sender).Caption + '>', UserName);
  ReportType := TMenuItem(Sender).Caption;
  if TMenuItem(Sender).Caption = '历史结果' 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 TFrmMain.N16Click(Sender: TObject);
begin
  Function_DB_ReadRight.UserOrUserGroupName := UserName;
  Function_DB_ReadRight.UserOrUserGroupIdentify := '用户';
  Function_DB_ReadRight.FunctionResourceName := ywgl[TMenuItem(Sender).Tag];
  if Function_DB_ReadRight.GetFunctionResourceRight <> 1 then
  begin
    MessageDlg('对不起，您没有权限执行当前工作！', mtInformation, [mbOk], 0);
    Exit;
  end;
  WriteToHistroy('业务管理', Now, Time, '用户《' + UserName + '》于服务器' +
    ServerName + '执行了<' + TMenuItem(Sender).Caption + '>', UserName);
  DI_Main.SetWork(TMenuItem(Sender).Caption);
end;

procedure TFrmMain.N14Click(Sender: TObject);
begin
  GQ_UQueryMain.SetWork;
end;

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

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

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

procedure TFrmMain.N26Click(Sender: TObject);
var
  tp: TPoint;
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);
  GetCursorPos(tp);
  PopupMenu1.Popup(tp.X, tp.Y);
end;

procedure TFrmMain.N27Click(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);
  CJ_Main.SetWork;
end;

procedure TFrmMain.N28Click(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.N2Click(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);
  case TMenuItem(Sender).Tag 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 TFrmMain.N44Click(Sender: TObject);
var
  BeginDateTime: TDate;
  EndDateTime: TDate;
  ti: TInifile;
  dir, FileName: string;
begin
  BeginDateTime := Now;
  EndDateTime := Now;
  if not AG_SelDate.SetWork(BeginDateTime, EndDateTime) then
    Exit;
  EndDateTime := EndDateTime + 1;
  ti := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'System.ini');
  dir := ti.ReadString('System', 'XSXXDirectory', 'c:\');
  FileName := ti.ReadString('System', 'XSXXFileName', 'a');
  ti.Free;
  if dir <> '' then
    SaveDialog1.InitialDir := dir;
  if FileName <> '' then
    SaveDialog1.FileName := FileName;
  if not SaveDialog1.Execute then
    Exit;
  if not PublicUnit.CreateXSXX(BeginDateTime, EndDateTime, SaveDialog1.FileName)
    then
    ShowMessage('对外输出失败，请重试！')
  else
  begin
    ShowMessage('对外输出成功！');
    ShellExecute(Handle, 'open', PChar(SaveDialog1.FileName), '', '', SW_Show);
  end;
end;

procedure TFrmMain.N45Click(Sender: TObject);
var
  BeginDateTime: TDate;
  EndDateTime: TDate;
  dir, FileName: string;
  ti: TIniFile;
begin
  BeginDateTime := Now;
  EndDateTime := Now;
  if not AG_SelDate.SetWork(BeginDateTime, EndDateTime) then
    Exit;
  EndDateTime := EndDateTime + 1;
  ti := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'System.ini');
  dir := ti.ReadString('System', 'SKXXDirectory', 'c:\');
  FileName := ti.ReadString('System', 'SKXXFileName', 'b');
  ti.Free;
  if dir <> '' then
    SaveDialog1.InitialDir := dir;
  if FileName <> '' then
    SaveDialog1.FileName := FileName;
  if not SaveDialog1.Execute then
    Exit;
  if not PublicUnit.CreateSKXX(BeginDateTime, EndDateTime, SaveDialog1.FileName)
    then
    ShowMessage('对外输出失败，请重试！')
  else
  begin
    ShowMessage('对外输出成功！');
    ShellExecute(Handle, 'open', PChar(SaveDialog1.FileName), '', '', SW_Show);
  end;
end;

procedure TFrmMain.N35Click(Sender: TObject);
begin
  Tile;
end;

procedure TFrmMain.N36Click(Sender: TObject);
begin
  Cascade;
end;

procedure TFrmMain.N37Click(Sender: TObject);
begin
  ArrangeIcons;
end;

end.