Sender: TObject);
procedure N2Click(Sender: TObject);
procedure AboutClick(Sender: TObject);
procedure ExitClick(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function Encrypt(Text:string):string;
end;
var
frmMain: TfrmMain;
implementation
uses UpublcBrower, UemployeeMgr, UpersonalChange, UarrangeOrders, Usalary,
UdailyCost, Userver, Ucustom, UtodayWork, Usysmanadd, Upasschg,
Udatecontrol, Ulogdaily, UlogIn, MyData, Userverchg, Userverchart,
utotal, Uabout, UsendMsg;
{$R *.dfm}
procedure AddLogIn;
begin
with dm.AQHistory do
begin
close;
sql.Clear;
sql.Add('INSERT INTO LogHistory(UserID,LogInTime,LogOutTime)');
sql.Add('values (');
sql.Add(''''+UserName+''',');
sql.Add(''''+FormatDateTime('yyyy-mm-dd hh:mm:ss',LogInTime)+''',');
sql.Add(''''+FormatDateTime('yyyy-mm-dd hh:mm:ss',Now)+'''');
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;
&nb
