worker_inoutedit.pas

来自「用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABAS」· PAS 代码 · 共 134 行

unit Worker_InOutEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildForm, StdCtrls, ComCtrls, Grids, Wwdbigrd, Wwdbgrid,
  ExtCtrls, Buttons,DataMod,DateUtils, DB, ADODB;

type
  TfWorker_InOutEdit = class(TfBaseChildForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    wwDBGrid1: TwwDBGrid;
    CheckBox1: TCheckBox;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    CheckBox2: TCheckBox;
    Label3: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    ComboBox1: TComboBox;
    ADOQuery1: TADOQuery;
    DataSource: TDataSource;
    ADOTable1: TADOTable;
    ADOQuery1ComputerID: TAutoIncField;
    ADOQuery1cWorkerNo: TStringField;
    ADOQuery1tTime: TDateTimeField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    ADOQuery1WorkerName: TStringField;
    ADOQuery1DepartMent: TStringField;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fWorker_InOutEdit: TfWorker_InOutEdit;

implementation

uses Worker_InOutEditM;

{$R *.dfm}

procedure TfWorker_InOutEdit.FormCreate(Sender: TObject);
begin
  inherited;
  DateTimePicker1.Date:=IncDay(Date(),-1);
  DateTimepicker2.date:=Date();
  fDataMod.ListDepartMent(combobox1.items);
  if combobox1.Items.Count >0 then
     combobox1.ItemIndex :=0;
  WindowState:=wsMaximized;
  bitbtn1.Click ;
end;

procedure TfWorker_InOutEdit.CheckBox1Click(Sender: TObject);
begin
  inherited;
  DateTimepicker1.Enabled:=checkbox1.Checked;
  DateTimepicker2.Enabled :=checkbox1.Checked ;
  label2.Enabled:=checkbox1.Checked;
end;

procedure TfWorker_InOutEdit.CheckBox2Click(Sender: TObject);
begin
  inherited;
  combobox1.Enabled :=checkbox2.Checked ;
end;

procedure TfWorker_InOutEdit.BitBtn1Click(Sender: TObject);
begin
   try
      Self.Cursor:= crHourGlass;
      with AdoQuery1 do
      begin
             Close;
             Sql.Clear ;
             sql.Add('Select * from Worker_INOut where 1=1');
             if checkbox1.Checked then begin
                 Sql.Add('And convert(varchar(10),tTime,111) between '''+FormatDateTime('yyyy/mm/dd',dateTimepicker1.date)+'''');
                 Sql.Add('And '''+FormatDateTime('yyyy/mm/dd',dateTimepicker2.date)+'''');
             end;
             if checkbox2.Checked and (combobox1.ItemIndex>=0) then
                 Sql.Add('And cWorkerNo In (Select cWorkerNo From Workers Where cDepartMentNo='''+TItem(combobox1.Items.Objects[combobox1.ItemIndex]).ItemID+''')');
             if trim(edit1.Text)<>'' then
                 Sql.Add('and cWorkerNo Like '''+Trim(edit1.Text)+'%''');
             Sql.Add('Order by cWorkerNo,tTime');
             Open;
      end;
   finally
      Self.Cursor :=crDefault;
   end;
end;

procedure TfWorker_InOutEdit.BitBtn2Click(Sender: TObject);
begin
  inherited;
  AdoQuery1.Append;
  fWorker_InOutEditM:=TfWorker_InOutEditM.Create(Self);
  fWorker_InOutEditM.ShowModal;
end;

procedure TfWorker_InOutEdit.BitBtn3Click(Sender: TObject);
begin
  inherited;
  if adoQuery1.RecordCount>0 then Begin
     AdoQuery1.Edit;
     fWorker_InOutEditM:=TfWorker_InOutEditM.Create(Self);
     fWorker_InOutEditM.ShowModal;
  end;
end;

procedure TfWorker_InOutEdit.BitBtn4Click(Sender: TObject);
begin
  inherited;
  if AdoQuery1.RecordCount>0 then begin
     if Application.MessageBox('眤痷