delphi＋sql办公自动化系统（＋开题报告源程序＋论文正文＋外文翻译＋答辩ppt）(十四)

procedure TfrmMain.sbtnEmpBrowseClick(Sender: TObject);
begin
  OpenForm(TfrmEmployeeMgr,frmEmployeeMgr,self);
  frmEmployeeMgr.WindowState:=wsMaximized;
end;

procedure TfrmMain.empRaiseClick(Sender: TObject);
begin
   OpenForm(TfrmPersonalChange,frmPersonalChange,self);
end;

procedure TfrmMain.SalaryBrowseClick(Sender: TObject);
begin
  OpenForm(TfrmSalary,frmSalary,self);
  frmSalary.WindowState:=wsMaximized;
end;

procedure TfrmMain.DailyCostClick(Sender: TObject);
begin
  OpenForm(TfrmDailyCost,frmDailyCost,self);
end;

procedure TfrmMain.empInfoClick(Sender: TObject);
begin
  OpenForm(TfrmEmployeeMgr,frmEmployeeMgr,self);
   frmEmployeeMgr.WindowState:=wsMaximized;
end;

procedure TfrmMain.ServiceBrowseClick(Sender: TObject);
begin
  OpenForm(TfrmServer,frmServer,self);
  frmServer.WindowState:=wsMaximized;
end;

procedure TfrmMain.BusinessInfoClick(Sender: TObject);
begin
   OpenForm(TfrmCustomer,frmCustomer,self);
  frmCustomer.WindowState:=wsMaximized;
end;

procedure TfrmMain.ClientBrowseClick(Sender: TObject);
begin
 OpenForm(TfrmPublicBrower,frmPublicBrower,self);
  frmPublicBrower.WindowState:=wsMaximized;
end;

procedure TfrmMain.OrdersArrangeClick(Sender: TObject);
begin
  OpenForm(TfrmArrangeOrders,frmArrangeOrders,self);
end;

procedure TfrmMain.BusinessTipClick(Sender: TObject);
begin
  OpenForm(TfrmTodayWork,frmTodayWork,self);
end;

procedure TfrmMain.sbtnBusiBrowseClick(Sender: TObject);
begin
  OpenForm(TfrmPublicBrower,frmPublicBrower,self);
  frmPublicBrower.WindowState:=wsMaximized;
end;

procedure TfrmMain.sbtnClientBrowseClick(Sender: TObject);
begin
   OpenForm(TfrmCustomer,frmCustomer,self);
   frmCustomer.WindowState:=wsMaximized;
end;

procedure TfrmMain.sbtnServiceBrowseClick(Sender: TObject);
begin
  OpenForm(TfrmServer,frmServer,self);
  frmServer.WindowState:=wsMaximized;
end;

procedure TfrmMain.sbtnSalaryBrowseClick(Sender: TObject);
begin
  OpenForm(TfrmSalary,frmSalary,self);
  frmSalary.WindowState:=wsMaximized;
end;

procedure TfrmMain.sbtnExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmMain.userAddClick(Sender: TObject);
begin
  OpenForm(TfrmSysmanadd,frmSysmanadd,self);
end;

procedure TfrmMain.passwdModifyClick(Sender: TObject);
begin
  OpenForm(TfrmPasschg,frmPasschg,self);
end;

procedure TfrmMain.dataBaseClick(Sender: TObject);
begin
  OpenForm(TfrmDatacontrol,frmDatacontrol,self);
end;

procedure TfrmMain.loginHistoryClick(Sender: TObject);
begin
  Op

首页 上一页 11 12 13 14 15 下一页 尾页 14/15/15