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

delphi气象服务业务系统＋sql[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](八) ;   procedure BusinessInfoClick(Sender: TObject);
    procedure ClientBrowseClick(Sender: TObject);
    procedure OrdersArrangeClick(Sender: TObject);

   sql.Add(')');
   ExecSQL;
 end;
end;
//得到使用时间
function TimeGetStamp(T2:string):String;
var
  h1,m1,s1,n1,h2,m2,s2,n2:word;
  hh,mm,ss:Longint;
  strtime :Longint;
begin
   Decodetime(now,h1,m1,s1,n1);
   Decodetime(StrtoTime(T2),h2,m2,s2,n2);
   hh := h1*3600+m1*60+s1;
   mm := h2*3600+m2*60+s2;
  if hh > mm then
   strtime :=hh-mm
  else
   strtime :=hh-mm+24*3600;

   hh := Strtime div 3600;
   mm := Strtime mod 3600 div 60 ;
   ss := Strtime mod 60;
   Result := inttoStr(hh) +'小时'+ inttoStr( mm) +'分'+inttoStr(ss)+'秒';
end;
function TfrmMain.Encrypt(Text:string):string;//用户加密与解密
var
 Temp:string;
 CharStr:char;
 i,ASC:Integer;
begin
  Result:='';
  Temp:=Text;
  for i:=1 to Length(Temp)do
   begin
    CharStr:=Temp[i];
    ASC:=ord(CharStr) xor i;
    Result:=Result+chr(ASC);
   end;
end;
//自定义的函数--打开Child窗体。
procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
var
  i: integer;
  Child:TForm;
begin
  for i := 0 to Screen.FormCount -1 do
      if Screen.Forms[i].ClassType=FormClass then
      begin
        Child:=Screen.Forms[i];
        if Child.WindowState=wsMinimized then  
           ShowWindow(Child.handle,SW_SHOWNORMAL)
        else
           ShowWindow(Child.handle,SW_SHOWNA);
        if (not Child.Visible) then Child.Visible:=True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(fm):=Child;
        exit;
      end;
  Child:=TForm(FormClass.NewInstance);
  TForm(fm):=Child;
  Child.Create(AOwner);
end;

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(Tf

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

delphi气象服务业务系统＋sql[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](八)由免费论文网（www.jaoyuw.com）会员上传。