temprecord.pas

上传个考勤系统,希望别人也能用.该代码只能算初级的东东,软件代码复用性不高,重复代码比较多.唯一感觉有点取鉴的可能就是端口和dll的连接,还有线程的使用,本想改一改,但是手头没有考勤机了,对应考勤机是

unit temprecord;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Grids, DBGrids, DB, Hints;

type
  TfrmTempRecord = class(TForm)
    GroupBox1: TGroupBox;
    txtStartTime: TEdit;
    txtEndTime: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    cbSjian: TCheckBox;
    GroupBox2: TGroupBox;
    txtCardID: TEdit;
    Label5: TLabel;
    cbCardID: TCheckBox;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    txtSKJG: TEdit;
    cbSKJG: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    lbTitle: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button4: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTempRecord: TfrmTempRecord;


implementation

uses timeclock;

{$R *.dfm}


procedure TfrmTempRecord.FormCreate(Sender: TObject);
begin
   frmMain.ADOQuery1.Close;
   frmMain.ADOQuery1.SQL.Text := 'select cast(CardID as varchar(10)) as 卡号, sjian as 刷卡时间,skjg as 机器号 from temp_kqjlu order by sjian desc,tp_jlID';
   frmMain.ADOQuery1.Open;
end;

procedure TfrmTempRecord.Button1Click(Sender: TObject);
var sql:string;
begin
   //frmMain.ADOQuery1.Close;
   //frmMain.ADOQuery1.SQL.Text := 'exec dbo.p_selecttemp_kqjlu '''+txtStartTime.Text+''','''+txtEndTime.Text+''','''+txtCardID.Text+''','+txtSKJG.Text+','+booltostr(cbSjian.Checked)+','+booltostr(cbCardID.Checked)+','+booltostr(cbSKJG.Checked)+',0';
   //frmMain.ADOQuery1.Open;
   if not Assigned(dlgHints) then
     dlgHints := TdlgHints.Create(dlgHints);
   try
   dlgHints.msg.Caption := '正在查询数据，请等候……';
   dlgHints.Show;
   dlgHints.Update;
   if length(txtSKJG.Text) = 0 then
   sql := 'exec dbo.p_selecttemp_kqjlu '''+txtStartTime.Text+''','''+txtEndTime.Text+''','''+txtCardID.Text+''',null,'+booltostr(cbSjian.Checked)+','+booltostr(cbCardID.Checked)+','+booltostr(cbSKJG.Checked)+',0'
   else
   sql := 'exec dbo.p_selecttemp_kqjlu '''+txtStartTime.Text+''','''+txtEndTime.Text+''','''+txtCardID.Text+''','+txtSKJG.Text+','+booltostr(cbSjian.Checked)+','+booltostr(cbCardID.Checked)+','+booltostr(cbSKJG.Checked)+',0';
   frmMain.ADOQuery1.Close;
   frmMain.ADOQuery1.SQL.Text :=  sql;
   frmMain.ADOQuery1.Open;
   //showmessage(sql);
   finally
   dlgHints.Close;
   end;
   end;

procedure TfrmTempRecord.Button2Click(Sender: TObject);
var sql:string;
begin
   //frmMain.ADOQuery1.Close;
   //frmMain.ADOQuery1.SQL.Text := 'exec dbo.p_selecttemp_kqjlu '''+txtStartTime.Text+''','''+txtEndTime.Text+''','''+txtCardID.Text+''','+txtSKJG.Text+','+booltostr(cbSjian.Checked)+','+booltostr(cbCardID.Checked)+','+booltostr(cbSKJG.Checked)+',0';
   //frmMain.ADOQuery1.Open;
   if not Assigned(dlgHints) then
    dlgHints := TdlgHints.Create(dlgHints);
   try
   dlgHints.msg.Caption := '正在导入数据，请等待……';
   dlgHints.Show;
   dlgHints.Update;
   if length(txtSKJG.Text) = 0 then
   sql := 'exec dbo.p_selecttemp_kqjlu '''+txtStartTime.Text+''','''+txtEndTime.Text+''','''+txtCardID.Text+''',null,'+booltostr(cbSjian.Checked)+','+booltostr(cbCardID.Checked)+','+booltostr(cbSKJG.Checked)+',-1'
   else
   sql := 'exec dbo.p_selecttemp_kqjlu '''+txtStartTime.Text+''','''+txtEndTime.Text+''','''+txtCardID.Text+''','+txtSKJG.Text+','+booltostr(cbSjian.Checked)+','+booltostr(cbCardID.Checked)+','+booltostr(cbSKJG.Checked)+',-1';
   frmMain.ADOQuery1.Close;
   frmMain.ADOQuery1.SQL.Text :=  sql;
   frmMain.ADOQuery1.Open;
   finally
    dlgHints.Close;
   end;
end;

procedure TfrmTempRecord.FormShow(Sender: TObject);
begin
   frmMain.ADOQuery1.Close;
   frmMain.ADOQuery1.SQL.Text := 'select cast(CardID as varchar(10)) as 卡号, sjian as 刷卡时间,skjg as 机器号 from temp_kqjlu order by sjian desc,tp_jlID';
   frmMain.ADOQuery1.Open;
end;

procedure TfrmTempRecord.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frmMain.ADOQuery1.Close;
  txtStartTime.Text := '';
  txtEndTime.Text := '';
  cbSjian.Checked := false;
  txtCardID.Text := '';
  cbCardID.Checked := false;
  txtSKJG.Text := '';
  cbSKJG.Checked := false;





end;

procedure TfrmTempRecord.Button3Click(Sender: TObject);
begin

   if not Assigned(dlgHints) then
      dlgHints := TdlgHints.Create(dlgHints);
   try
   dlgHints.msg.Caption := '正在删除数据，请等待……';
   dlgHints.Show;
   dlgHints.Update;
   frmMain.ADOQuery1.Close;
   frmMain.ADOQuery1.SQL.Text := 'exec dbo.p_delete_kqjlu';
   frmMain.ADOQuery1.open;
   finally
   dlgHints.Close;
  end;

end;

procedure TfrmTempRecord.Button4Click(Sender: TObject);
begin
   frmTempRecord.Close;
end;

end.