cardbyhandleeach.pas

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

unit CardByHandleEach;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildForm, StdCtrls, Buttons, ExtCtrls, ComCtrls,DataMod,
  DB, wwdbdatetimepicker, Mask, DBCtrls, ADODB,DateUtils;

type
  TfCardByHandleEach = class(TfBaseChildForm)
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    Label4: TLabel;
    ADOQuery1dDate: TDateTimeField;
    ADOQuery1cWorkerNo: TStringField;
    ADOQuery1cWorkerName: TStringField;
    ADOQuery1cClassNo: TStringField;
    ADOQuery1tIn1: TDateTimeField;
    ADOQuery1tOut1: TDateTimeField;
    ADOQuery1tIn2: TDateTimeField;
    ADOQuery1tOut2: TDateTimeField;
    ADOQuery1tIn3: TDateTimeField;
    ADOQuery1tOut3: TDateTimeField;
    ADOQuery1iLaterTime: TIntegerField;
    ADOQuery1iLaterTimes: TIntegerField;
    ADOQuery1iLeaveEarlyTime: TIntegerField;
    ADOQuery1iLeaveEarlyTimes: TIntegerField;
    ADOQuery1iOverTime: TIntegerField;
    ADOQuery1cNote: TStringField;
    ADOQuery1cMemo: TMemoField;
    ADOQuery1lChecked: TBooleanField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    GroupBox3: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    wwDBDateTimePicker6: TwwDBDateTimePicker;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    Label11: TLabel;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel3: TBevel;
    procedure DateTimePicker1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ADOQuery1BeforePost(DataSet: TDataSet);
    procedure BitBtn2Click(Sender: TObject);
    procedure DataSource1StateChange(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fCardByHandleEach: TfCardByHandleEach;

implementation

{$R *.dfm}

procedure TfCardByHandleEach.DateTimePicker1Change(Sender: TObject);
var
  IsFond:Boolean;
begin
  inherited;
  AdoQuery1.Close;
  AdoQuery1.Parameters.ParamByName('strDate').Value :=formatdateTime('yyyy/mm/dd',dateTimepicker1.date);
  AdoQuery1.Parameters.ParamByName('WorkerNo').Value :=edit1.Text;
  AdoQuery1.Open;
  IsFond:=Not AdoQuery1.IsEmpty;
  if (Sender=edit1) and (tEdit(Sender).Text<>'') and AdoQuery1.IsEmpty then begin
     application.MessageBox(pchar('⊿Τт