extover.pas

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

unit ExtOver;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,DataMod, BaseEditForm, wwdbedit, wwdbdatetimepicker, StdCtrls,
  Mask, DBCtrls, ADODB, DB, ImgList, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls,
  ComCtrls, Buttons;

type
  TfExtOver = class(TfBaseEditForm)
    ADOQuery1: TADOQuery;
    ADOQuery1cWorkerNo: TStringField;
    ADOQuery1dDate: TDateTimeField;
    ADOQuery1cStartTime: TStringField;
    ADOQuery1cEndTime: TStringField;
    ADOQuery1iOverTime: TIntegerField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    ADOTable1: TADOTable;
    ADOQuery1WorkerName: TStringField;
    ADOQuery1DepartMentName: TStringField;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBEdit1: TwwDBEdit;
    wwDBEdit2: TwwDBEdit;
    Panel3: TPanel;
    Label9: TLabel;
    Label10: TLabel;
    SpeedButton1: TSpeedButton;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    CheckBox2: TCheckBox;
    DateTimePicker2: TDateTimePicker;
    procedure FormCreate(Sender: TObject);
    procedure DBEdit3Exit(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fExtOver: TfExtOver;

implementation

{$R *.dfm}

procedure TfExtOver.FormCreate(Sender: TObject);
begin
  inherited;
  Self.FirstFocusControl :=dbedit1;
end;

procedure TfExtOver.DBEdit3Exit(Sender: TObject);
begin
  inherited;
  if not fdatamod.ValidTime(TdbEdit(Sender).Text,false) then begin
     TDbEdit(Sender).SetFocus ;
     Abort;
  end;
  if (dbedit3.Text<>'  :  ') and (dbedit4.Text<>'  :  ') then
      AdoQuery1.FieldByName('iOverTime').AsInteger :=fdatamod.TimeSubTract(dbedit3.Text,dbedit4.Text)
  else
     AdoQuery1.FieldByName('iOverTime').AsInteger:=0;
end;

procedure TfExtOver.DBEdit1Exit(Sender: TObject);
begin
  inherited;
  AdoQuery1.FieldByName('cWorkerNo').AsString :=trim(AdoQuery1.FieldByName('cWorkerNo').AsString);
  if dbedit1.Text='' then Abort;
  with TAdoQuery.Create(self) do
  begin
       connection:=fdatamod.AdoCon ;
       Sql.Add('Select * from Workers Where cWorkerNo='''+dbedit1.Text+'''');
       Open;
       if IsEmpty then begin
           Application.MessageBox('⊿Τ祇瞷赣