u_checkdk.pas

人事考勤系统

unit U_checkDK;

interface

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

type
  TF_checkDK = class(TForm)
    Query1: TQuery;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Button1: TButton;
    Label3: TLabel;
    DataSource1: TDataSource;
    ProgressBar1: TProgressBar;
    MaskEdit1: TMaskEdit;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_checkDK: TF_checkDK;

implementation

uses U_Prichangesal;

{$R *.DFM}

procedure TF_checkDK.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  with Query1 do
    begin
      close;
      sql.Clear;
      sql.Add('drop table #temptable');
      ExecSql;
    end;
  Action:=caFree;
end;

procedure TF_checkDK.FormDestroy(Sender: TObject);
begin
  F_checkDK:=nil;
end;

procedure TF_checkDK.FormShow(Sender: TObject);
begin
  Maskedit1.Text:=datetostr(now);
  with Query1 do
    begin
      close;
      sql.Clear;
      sql.Add('select yjbm_name,ejbm_name,name,work_num,emp_id into #temptable');
      sql.Add(' from V_yj_ej_emp');
      sql.Add('truncate table #temptable');
      ExecSQL;
    end;
end;

procedure TF_checkDK.Button1Click(Sender: TObject);
var
  Q_temp1,Q_temp2,Q_temp3,Q_temp4:TQuery;
  i:integer;
begin
   Button1.Enabled:=false;
   Q_temp1:=TQuery.Create(self);
   Q_temp2:=TQuery.Create(self);
   Q_temp3:=TQuery.Create(self);
   Q_temp4:=TQuery.Create(self);
   Q_temp1.DatabaseName:='Person_DB';
   Q_temp2.DatabaseName:='Person_DB';
   Q_temp3.DatabaseName:='Person_DB';
   Q_temp4.DatabaseName:='Person_DB';
  with Q_temp2 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from empdata where card_num<>'+''''+''+'''');
      open;
    end;
    ProgressBar1.Max:=Q_temp2.RecordCount;
    i:=0;
    Q_temp2.First;
  while not Q_temp2.Eof do
    begin
      i:=i+1;
      ProgressBar1.Position:=i;
//=======碝т才