u_kqdata.pas

一个很不错的人事考勤系统,功能齐全,附带源码.

unit U_kqdata;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, Mask, ExtCtrls;

type
  TF_kqdata = class(TForm)
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1machine_num: TStringField;
    Query1card_num: TStringField;
    Query1date_YMD: TStringField;
    Query1date_T: TStringField;
    Query1check_char: TStringField;
    Query1end_char: TStringField;
    Query1empid: TIntegerField;
    Panel1: TPanel;
    MaskEdit1: TMaskEdit;
    SpeedButton1: TSpeedButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    workday,cardnum:string;
  end;

var
  F_kqdata: TF_kqdata;

implementation

{$R *.DFM}

procedure TF_kqdata.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TF_kqdata.FormDestroy(Sender: TObject);
begin
  F_kqdata:=nil;
end;

procedure TF_kqdata.FormCreate(Sender: TObject);
begin
  width:=410;
  height:=340;
end;

procedure TF_kqdata.BitBtn1Click(Sender: TObject);
begin
  if Query1.fieldbyname('card_num').asstring<>'' then
    begin
      cardnum:=Query1.fieldbyname('card_num').asstring;
      workday:=TRIM(F_kqdata.Query1.fieldbyname('date_YMD').asstring);
    end;
    workday:=datetostr(strtodate(workday)-1);
    with Query1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from bk_kq_data where card_num='+''''+cardnum+'''');
      sql.Add(' and date_YMD='+''''+workday+'''');
      sql.Add(' order by date_T,check_char');
      open;
    end;

end;

procedure TF_kqdata.BitBtn2Click(Sender: TObject);
begin
  if Query1.fieldbyname('card_num').asstring<>'' then
    begin
      cardnum:=Query1.fieldbyname('card_num').asstring;
      workday:=TRIM(F_kqdata.Query1.fieldbyname('date_YMD').asstring);
    end;
  workday:=datetostr(strtodate(workday)+1);
  with Query1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from bk_kq_data where card_num='+''''+cardnum+'''');
      sql.Add(' and date_YMD='+''''+workday+'''');
      sql.Add(' order by date_T,check_char');
      open;
    end;

end;

procedure TF_kqdata.SpeedButton1Click(Sender: TObject);
begin
  if Length(trim(Maskedit1.text))=10 then
  with Query1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from bk_kq_data where card_num='+''''+cardnum+'''');
      sql.Add(' and date_YMD='+''''+Maskedit1.Text+'''');
      sql.Add(' order by date_T,check_char');
      open;
    end
  else
    showmessage('ら戳块