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