delphi气象服务业务系统＋sql[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](九)

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
  OpenForm(TfrmLogdaily,frmLogdaily,self);
end;

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

procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   if MessageBox(self.Handle,'您确定真的要退出系统吗?','提示',MB_OKCANCEL+MB_DefButton2+MB_ICONINFORMATION)=idOK then
    Canclose:=True
   else
    Canclose:=False;
end;

procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[0].Text:='使用者：'+DeptName+'|'+UserName+'     '+'登录时间：'+DateTimeToStr(LogInTime);
  StatusBar1.Panels[1].Text:='系统时间：'+TimeToStr(Now);
  StatusBar1.Panels[2].Text:='使用时间：'+TimeGetStamp(TimeToStr(LogInTime));
  StatusBar1.Panels[3].Text:='版权所有：南都信息网';
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AddLogin;
  Action := caFree;
end;

procedure TfrmMain.N1Click(Se

首页 上一页 6 7 8 9 10 下一页 尾页 9/10/10