unit DailyCard;

interface

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

type
  TfDailyCard = class(TfBaseChildForm)
    Panel1: TPanel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    ADOQuery1: TADOQuery;
    wwDBGrid1: TwwDBGrid;
    DataSource: TDataSource;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    Edit1: TEdit;
    ADOQuery1dDate: TDateTimeField;
    ADOQuery1cWorkerNo: TStringField;
    ADOQuery1cWorkerName: TStringField;
    ADOQuery1cClassNo: TStringField;
    ADOQuery1cNote: TStringField;
    ADOQuery1cMemo: TMemoField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    ADOQuery1iLaterTime: TIntegerField;
    ADOQuery1iLaterTimes: TIntegerField;
    ADOQuery1iOverTime: TIntegerField;
    ADOTable1: TADOTable;
    ADOQuery1DepartMentName: TStringField;
    ADOTable2: TADOTable;
    ADOQuery1ClassName: TStringField;
    Label4: TLabel;
    DateTimePicker2: TDateTimePicker;
    ADOQuery1iLeaveEarlyTime: TIntegerField;
    ADOQuery1iLeaveEarlyTimes: TIntegerField;
    ADOQuery1tIn1: TDateTimeField;
    ADOQuery1tOut1: TDateTimeField;
    ADOQuery1tIn2: TDateTimeField;
    ADOQuery1tOut2: TDateTimeField;
    ADOQuery1tIn3: TDateTimeField;
    ADOQuery1tOut3: TDateTimeField;
    ADOQuery1CStatus1: TStringField;
    ADOQuery1cStatus2: TStringField;
    ADOQuery1iFreeTime: TIntegerField;
    ADOQuery1iLeaveTime: TIntegerField;
    ADOQuery1iUnOutTime: TIntegerField;
    ADOQuery1lChecked: TBooleanField;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure wwDBGrid1CalcCellColors(Sender: TObject; Field: TField;
      State: TGridDrawState; Highlight: Boolean; AFont: TFont;
      ABrush: TBrush);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fDailyCard: TfDailyCard;

implementation

{$R *.dfm}

procedure TfDailyCard.FormCreate(Sender: TObject);
var
   Item:DataMod.TItem;
   AdoQue:TAdoQuery;
begin
  inherited;
  self.WindowState :=wsMaximized;
  AdoQue:=TAdoQuery.Create(self);
  AdoQue.Connection :=fDatamod.AdoCon ;
  AdoQue.SQL.Add('Select cDepartMentNo,cDepartMentName From Department Order by cDepartMentNo');
  AdoQue.Open;
  combobox1.Items.Clear ;
  While Not AdoQue.Eof do
  begin
      Item:=Datamod.TItem.Create;
      Item.ItemID:=AdoQue.fieldbyName('cDepartmentNo').asString;
      Item.ItemCaption :=AdoQue.fieldbyName('cDepartmentName').asString;
      combobox1.Items.AddObject(item.ItemCaption,Item);
      AdoQue.Next ;
  end;
  adoQue.Free;
  if combobox1.Items.Count >0 then
     combobox1.ItemIndex :=0;
  DateTimepicker1.Date :=IncDay(Date(),-1);
  DateTimepicker2.Date:=date();
  bitbtn1.Click ;
end;

procedure TfDailyCard.CheckBox1Click(Sender: TObject);
begin
  inherited;
  combobox1.Enabled :=checkbox1.Checked ;
end;

procedure TfDailyCard.BitBtn1Click(Sender: TObject);
begin
    With AdoQuery1 do
    begin
         Close;
         Sql.Clear ;
         Sql.Add('Select * From DailyCard');
         Sql.add('Where Convert(Varchar(10),dDate,111)>='''+formatdateTime('yyyy/mm/dd',DateTimePicker1.Date )+'''');
         sql.Add('And Convert(Varchar(10),dDate,111)<='''+formatdateTime('yyyy/mm/dd',DateTimePicker2.Date )+'''') ;
         if Checkbox1.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 dDate,cWorkerNo');
         Open;
    end;
end;

procedure TfDailyCard.wwDBGrid1CalcCellColors(Sender: TObject;
  Field: TField; State: TGridDrawState; Highlight: Boolean; AFont: TFont;
  ABrush: TBrush);
begin
  inherited;
  if Pos(Field.FieldName,'CUSER*TUPDATETIME*CACTION')>0 then
     ABRUSH.Color:=clMoneyGreen
  else begin
      if AdoQuery1.FieldByName('lChecked').AsBoolean then
         ABrush.Color :=$0098DEA6;
  end;

end;

end.