errorsmaintenance.pas

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

unit ErrorsMaintenance;

interface

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

type
  TfErrorsMaintenance = class(TfBaseChildForm)
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label3: TLabel;
    Edit1: TEdit;
    Bevel2: TBevel;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    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;
    ADOQuery1bErrorMaintenanceEd: TBooleanField;
    ADOQuery1cErrorMaintenanceUser: TStringField;
    ADOQuery1DepartMent: TStringField;
    ADOTable2: TADOTable;
    ADOQuery1ClassName: TStringField;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1iFreeTime: TIntegerField;
    ADOQuery1iLeaveTime: TIntegerField;
    Panel1: TPanel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    Label19: TLabel;
    DBEdit8: TDBEdit;
    Label20: TLabel;
    DBEdit9: TDBEdit;
    Label21: TLabel;
    Label22: TLabel;
    ADOQuery1bInLater1: TBooleanField;
    ADOQuery1iInLaterTime1: TIntegerField;
    ADOQuery1bOutEarly1: TBooleanField;
    ADOQuery1iOutEarlyTime1: TIntegerField;
    ADOQuery1iTime1: TFloatField;
    ADOQuery1bInLater2: TBooleanField;
    ADOQuery1iInLaterTime2: TIntegerField;
    ADOQuery1bOutEarly2: TBooleanField;
    ADOQuery1iOutEarlyTime2: TIntegerField;
    ADOQuery1iTime2: TFloatField;
    ADOQuery1bInLater3: TBooleanField;
    ADOQuery1iInLaterTime3: TIntegerField;
    ADOQuery1iUnOutTime: TIntegerField;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    Label5: TLabel;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    wwCheckBox1: TwwCheckBox;
    wwDBSpinEdit1: TwwDBSpinEdit;
    Label23: TLabel;
    wwCheckBox2: TwwCheckBox;
    wwDBSpinEdit2: TwwDBSpinEdit;
    Label24: TLabel;
    GroupBox2: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    wwDBDateTimePicker3: TwwDBDateTimePicker;
    wwDBDateTimePicker4: TwwDBDateTimePicker;
    wwCheckBox3: TwwCheckBox;
    wwDBSpinEdit3: TwwDBSpinEdit;
    wwCheckBox4: TwwCheckBox;
    wwDBSpinEdit4: TwwDBSpinEdit;
    GroupBox3: TGroupBox;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    wwDBDateTimePicker6: TwwDBDateTimePicker;
    wwCheckBox5: TwwCheckBox;
    wwDBSpinEdit5: TwwDBSpinEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label28: TLabel;
    Label29: TLabel;
    DBEdit10: TDBEdit;
    ADOQuery1CStatus1: TStringField;
    ADOQuery1cStatus2: TStringField;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Label30: TLabel;
    DBEdit11: TDBEdit;
    ADOQuery1tErrorMaintenanceTime: TDateTimeField;
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure ADOQuery1BeforePost(DataSet: TDataSet);
    procedure BitBtn2Click(Sender: TObject);
    procedure DataSource1StateChange(Sender: TObject);
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
    procedure wwCheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DateTimePicker1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fErrorsMaintenance: TfErrorsMaintenance;

implementation

{$R *.dfm}

procedure TfErrorsMaintenance.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  if Not (AdoQuery1.State in [dsEdit]) then
     AdoQuery1.Edit;
  Case TSpeedButton(Sender).Tag of
       11:AdoQuery1.FieldByName('tIn1').Value :=null;
       12:AdoQuery1.FieldByName('tOut1').Value :=null;
       21:AdoQuery1.FieldByName('tIn2').Value :=null;
       22:AdoQuery1.FieldByName('tOut2').Value :=null;
       31:AdoQuery1.FieldByName('tIn3').Value :=null;
       32:AdoQuery1.FieldByName('tOut3').Value :=null;
  end;
end;

procedure TfErrorsMaintenance.BitBtn1Click(Sender: TObject);
var
   temClassInfo:TDayClassInfo;
begin
  inherited;
  {
  temClassInfo:=fdatamod.GetWorkersDayClassInfo(AdoQuery1.fieldbyName('dDate').AsDateTime,AdoQuery1.FieldbyName('cWorkerNo').asString);
  if AdoQuery1.State in [dsEdit] then begin
     if wwRadioGroup1.ItemIndex in [1,2,3] then begin
        AdoQuery1.FieldByName('tIn1').Value:=null;
        AdoQuery1.FieldByName('tOut1').Value :=null;
        AdoQuery1.FieldByName('bInLater1').AsBoolean :=false;
        AdoQuery1.FieldByName('iInLaterTime1').AsInteger :=0;
        AdoQuery1.FieldByName('iTime1').AsInteger :=temClassInfo.StdTime ;
     end else  begin
        AdoQuery1.FieldByName('iTime1').AsInteger :=0;

     end;

     if wwRadioGroup2.ItemIndex in [1,2,3] then begin
        AdoQuery1.FieldByName('tIn2').Value:=null;
        AdoQuery1.FieldByName('tOut2').Value :=null;
        AdoQuery1.FieldByName('bInLater2').AsBoolean :=false;
        AdoQuery1.FieldByName('iInLaterTime2').AsInteger :=0;
        AdoQuery1.FieldByName('iTime1').AsInteger :=temClassInfo.StdTime ;
     end else begin
        AdoQuery1.FieldByName('iTime2').AsInteger :=0;
     end;
   }
  if AdoQuery1.FieldByName('lChecked').AsBoolean then begin
      application.MessageBox('癸ぃ癬