realtimecheck.pas

本系统是一个基于delphi7环境开发的人事管理系统

unit RealTimeCheck;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TForm17 = class(TForm)
    Edit1: TEdit;
    Image1: TImage;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    procedure Label4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label9Click(Sender: TObject);
    procedure Label10Click(Sender: TObject);
    procedure Label11Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure Label15Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
  list:Tstringlist;
  list2:Tstringlist;
  list3:Tstringlist;
  list4:Tstringlist;
  list5:Tstringlist;
  list6:Tstringlist;
  list7:Tstringlist;

    { Public declarations }
  end;

var
  Form17: TForm17;

implementation
uses WelcomePicture, MainMenu;
{$R *.dfm}


procedure TForm17.Label4Click(Sender: TObject);
var
s:string;
begin
self.list:=Tstringlist.Create;
if not fileExists('.\考勤datalist1.dat') then
begin
   with Form1.adoquery1 do
   begin
   close;
   sql.Clear;
   sql.add('update checkin set 旷工天数=旷工天数+1 where 员工编号=:员工编号 ');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list.Add(s);
list.SaveToFile('.\考勤datalist1.dat');
FileSetAttr('.\考勤datalist1.dat',2);
showmessage('OK');
end
  else
begin
self.list.LoadFromFile('.\考勤datalist1.dat');
if list[list.Count-1]<>(edit1.Text+formatdatetime('yyyy-mm-dd',now))   then
begin
   with Form1.adoquery1 do
   begin
   close;
   sql.Clear;
   sql.add('update checkin set 旷工天数=旷工天数+1 where 员工编号=:员工编号 ');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
showmessage('OK');
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list.Add(s);
list.SaveToFile('.\考勤datalist1.dat');
end
else
begin
showmessage(formatdatetime('yyyy-mm-dd',now)+',已有操作,不可在同一天内有多次操作!');
end;
end;
 list.Free;
end;

procedure TForm17.FormCreate(Sender: TObject);
begin





     self.list7:=Tstringlist.Create;
end;

procedure TForm17.Label5Click(Sender: TObject);
var
s:string;
begin
self.list2:=Tstringlist.Create;
if not fileExists('.\考勤datalist2.dat') then
 begin
 with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update checkin set 迟到天数=迟到天数+1 where 员工编号=:员工编号');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list2.Add(s);
list2.SaveToFile('.\考勤datalist2.dat');
FileSetAttr('.\考勤datalist2.dat',2);
showmessage('OK');
end
  else
  begin
  self.list2.LoadFromFile('.\考勤datalist2.dat');
if list2[list2.Count-1]<>(edit1.Text+formatdatetime('yyyy-mm-dd',now)) then
begin
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update checkin set 迟到天数=迟到天数+1 where 员工编号=:员工编号');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;

s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list2.Add(s);
list2.SaveToFile('.\考勤datalist2.dat');
showmessage('OK');
end
else
begin
showmessage(formatdatetime('yyyy-mm-dd',now)+',已有操作,不可在同一天内有多次操作!');

end;
end;
 list2.Free;
end;
//////////////////////////////////////////////////////////////////
procedure TForm17.Label9Click(Sender: TObject);
var
s:string;
begin
   self.list3:=Tstringlist.Create;
if not fileExists('.\考勤datalist3.dat') then
 begin
 with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update checkin set 日常加班天数=日常加班天数+1 where 员工编号=:员工编号');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list3.Add(s);
list3.SaveToFile('.\考勤datalist3.dat');
FileSetAttr('.\考勤datalist3.dat',2);
showmessage('OK');
end
  else
  begin
  self.list3.LoadFromFile('.\考勤datalist3.dat');
if list3[list3.Count-1]<>(edit1.Text+formatdatetime('yyyy-mm-dd',now)) then
begin
 with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update checkin set 日常加班天数=日常加班天数+1 where 员工编号=:员工编号');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list3.Add(s);
list3.SaveToFile('.\考勤datalist3.dat');
showmessage('OK');
end
else
begin
showmessage(formatdatetime('yyyy-mm-dd',now)+',已有操作,不可在同一天内有多次操作!');

end;
end;
 list3.Free;
end;
 ////////////////////////////////////////////////////////////
procedure TForm17.Label10Click(Sender: TObject);
var
s:string;
begin
 self.list4:=Tstringlist.Create;
if not fileExists('.\考勤datalist4.dat') then
 begin
 with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update checkin set 法定节假日加班=法定节假日加班+1 where 员工编号=:员工编号');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list4.Add(s);
list4.SaveToFile('.\考勤datalist4.dat');
FileSetAttr('.\考勤datalist4.dat',2);
showmessage('OK');
end
  else
  begin
  self.list4.LoadFromFile('.\考勤datalist4.dat');
if list4[list4.Count-1]<>(edit1.Text+formatdatetime('yyyy-mm-dd',now)) then
begin
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update checkin set 法定节假日加班=法定节假日加班+1 where 员工编号=:员工编号');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list4.Add(s);
list4.SaveToFile('.\考勤datalist4.dat');
showmessage('OK');
end
else
begin
showmessage(formatdatetime('yyyy-mm-dd',now)+',已有操作,不可在同一天内有多次操作!');

end;
end;
  list4.Free;
end;
///////////////////////////////////////////////////////////////////
procedure TForm17.Label11Click(Sender: TObject);
var
s:string;
begin
   self.list5:=Tstringlist.Create;
if not fileExists('.\考勤datalist5.dat') then
 begin
 with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update checkin set 周末加班=周末加班+1 where 员工编号=:员工编号');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list5.Add(s);
list5.SaveToFile('.\考勤datalist5.dat');
FileSetAttr('.\考勤datalist5.dat',2);
showmessage('OK');
end
  else
  begin
  self.list5.LoadFromFile('.\考勤datalist5.dat');
if list5[list5.Count-1]<>(edit1.Text+formatdatetime('yyyy-mm-dd',now)) then
begin
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update checkin set 周末加班=周末加班+1 where 员工编号=:员工编号');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list5.Add(s);
list5.SaveToFile('.\考勤datalist5.dat');
showmessage('OK');
end
else
begin
showmessage(formatdatetime('yyyy-mm-dd',now)+',已有操作,不可在同一天内有多次操作!');

end;
end;
  list5.Free;
end;
/////////////////////////////////////////////////////////////////
procedure TForm17.Label8Click(Sender: TObject);
var
s:string;
begin
  self.list6:=Tstringlist.Create;
if not fileExists('.\考勤datalist6.dat') then
 begin
 with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update checkin set 事假天数=事假天数+1 where 员工编号=:员工编号');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list6.Add(s);
list6.SaveToFile('.\考勤datalist6.dat');
FileSetAttr('.\考勤datalist6.dat',2);
showmessage('OK');
end
  else
  begin
  self.list6.LoadFromFile('.\考勤datalist6.dat');
if list6[list6.Count-1]<>(edit1.Text+formatdatetime('yyyy-mm-dd',now)) then
begin
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update checkin set 事假天数=事假天数+1 where 员工编号=:员工编号');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list6.Add(s);
list6.SaveToFile('.\考勤datalist6.dat');
showmessage('OK');
end
else
showmessage(formatdatetime('yyyy-mm-dd',now)+',已有操作,不可在同一天内有多次操作!');
end;
 list6.Free;
end;
////////////////////////////////////////////////////////////////////////////
procedure TForm17.Label6Click(Sender: TObject);
var
s:string;
begin
 self.list7:=Tstringlist.Create;
if not fileExists('.\考勤datalist7.dat') then
 begin
 with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update checkin set 早退天数=早退天数+1 where 员工编号=:员工编号');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list7.Add(s);
list7.SaveToFile('.\考勤datalist7.dat');
FileSetAttr('.\考勤datalist7.dat',2);
showmessage('OK');
end
  else
  begin
  self.list7.LoadFromFile('.\考勤datalist7.dat');
if list7[list7.Count-1]<>(edit1.Text+formatdatetime('yyyy-mm-dd',now)) then
begin
with Form1.adoquery1 do
begin
   close;
   sql.Clear;
   sql.add('update checkin set 早退天数=早退天数+1 where 员工编号=:员工编号');
   parameters[0].Value:=edit1.Text;
   execsql;
   end;
s:=edit1.Text+formatdatetime('yyyy-mm-dd',now);
list7.Add(s);
list7.SaveToFile('.\考勤datalist7.dat');
showmessage('OK');
end
else
showmessage(formatdatetime('yyyy-mm-dd',now)+',已有操作,不可在同一天内有多次操作!');

end;
 list7.Free;
end;

procedure TForm17.Label15Click(Sender: TObject);
begin
form17.Close;
end;

procedure TForm17.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form3.Enabled:=true;
end;

end.