unit Card_InOut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseEditForm, ImgList, DB, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls,
  ComCtrls, StdCtrls, Buttons, ppDB, ppDBPipe, ppBands, ppCtrls, ppPrnabl,
  ppClass, ppCache, ppComm, ppRelatv, ppProd, ppReport, ADODB, Wwdatsrc,
  Mask, DBCtrls, Spin, wwdblook, ppVar, ppViewr, wwdbdatetimepicker;

type
  TfCard_InOut = class(TfBaseEditForm)
    ADOQ_Card_InOut: TADOQuery;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLine1: TppLine;
    ppDetailBand1: TppDetailBand;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppFooterBand1: TppFooterBand;
    TabSheet1: TTabSheet;
    Panel4: TPanel;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    ComboBox1: TComboBox;
    BitBtn2: TBitBtn;
    wwDBGrid2: TwwDBGrid;
    ppDBPipeline1: TppDBPipeline;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    TreeView: TTreeView;
    ImageList: TImageList;
    Panel3: TPanel;
    Label8: TLabel;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    BitBtn3: TBitBtn;
    CheckBox3: TCheckBox;
    Splitter1: TSplitter;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppLine10: TppLine;
    ppLine11: TppLine;
    ppLine12: TppLine;
    ppLabel9: TppLabel;
    ppLine13: TppLine;
    ppLine2: TppLine;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppLine20: TppLine;
    ppLabel21: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLine21: TppLine;
    ppLine22: TppLine;
    ppSystemVariable2: TppSystemVariable;
    DBLookupListBox1: TDBLookupListBox;
    DBEdit1: TDBEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    CheckBox4: TCheckBox;
    SpinEdit1: TSpinEdit;
    Label7: TLabel;
    CheckBox5: TCheckBox;
    DateTimePicker5: TDateTimePicker;
    Label4: TLabel;
    DateTimePicker6: TDateTimePicker;
    CheckBox6: TCheckBox;
    ppLine9: TppLine;
    ppLine19: TppLine;
    ppLabel6: TppLabel;
    ppLine23: TppLine;
    ppDBText5: TppDBText;
    ppLine24: TppLine;
    ppLine25: TppLine;
    ppLabel10: TppLabel;
    ppSummaryBand1: TppSummaryBand;
    ppDBCalc1: TppDBCalc;
    ppLine26: TppLine;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure TreeViewGetImageIndex(Sender: TObject; Node: TTreeNode);
    procedure TreeViewGetSelectedIndex(Sender: TObject; Node: TTreeNode);
    procedure BitBtn3Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure TreeViewClick(Sender: TObject);
    procedure PageControlChange(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure DBLookupListBox1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure ADOQ_Card_InOutAfterInsert(DataSet: TDataSet);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fCard_InOut: TfCard_InOut;

implementation

uses DataMod;

{$R *.dfm}

procedure TfCard_InOut.FormCreate(Sender: TObject);
begin
  inherited;

  if not ADOQ_Card_InOut.Active then ADOQ_Card_InOut.Active:=True;

  DateTimepicker1.Date:=Date-1;
  DateTimepicker2.Date:=Date;  // IncMonth(Date);
  DateTimepicker3.Date:=Date-1;
  DateTimepicker4.Date:=Date;
  DateTimepicker5.Date:=Date-1;
  DateTimepicker6.Date:=Date;
  fdatamod.PersonnelTreeIni(Treeview,true);
  self.WindowState :=wsMaximized;
  fdatamod.ListDepartMent(combobox1.Items);
  bitbtn1.Click ;
  bitbtn3.Click ;
end;

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

procedure TfCard_InOut.BitBtn1Click(Sender: TObject);
begin
     with AdoQuery1 do
     begin
           Close;
           Sql.Clear ;
           Sql.Add('Select * From V_Worker_InOutDetail where 1=1');
           if checkbox1.Checked then
           Begin
                Sql.Add('And Convert(Varchar(10),tOut,111) between '''+FormatDateTime('yyyy/mm/dd',dateTimepicker1.date)+'''');
                Sql.add('And '''+FormatDateTime('yyyy/mm/dd',dateTimepicker2.date)+'''');
           end;
           if checkbox5.Checked then
           Begin
                Sql.Add('And Convert(Varchar(10),tIn,111) between '''+FormatDateTime('yyyy/mm/dd',dateTimepicker5.date)+'''');
                Sql.add('And '''+FormatDateTime('yyyy/mm/dd',dateTimepicker6.date)+'''');
           end;
           if checkbox4.Checked then
               Sql.Add('And iMinutes>='+IntToStr(spinedit1.Value ));
           if checkbox6.Checked then
               Sql.Add('and tIn is null');
           if checkbox2.Checked then
               sql.Add('and cDepartMentNo='''+tItem(combobox1.Items.Objects[combobox1.itemindex]).ItemID+'''');
           Sql.Add('Order by cWorkerNo,tOut');
           Open;
     end;
end;

procedure TfCard_InOut.BitBtn2Click(Sender: TObject);
begin
  inherited;
  Self.ppReport1.Print;
end;

procedure TfCard_InOut.TreeViewGetImageIndex(Sender: TObject;
  Node: TTreeNode);
begin
  inherited;
  if Node.HasChildren  then begin
     if Node.Expanded then
        Node.ImageIndex :=3
     else
        Node.ImageIndex :=0;
  end else
      Node.ImageIndex :=1
end;

procedure TfCard_InOut.TreeViewGetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
begin
  inherited;
  Node.SelectedIndex:=Node.ImageIndex ;
end;

procedure TfCard_InOut.BitBtn3Click(Sender: TObject);
begin
  inherited;
   With ADOQ_Card_InOut do
   Begin
        Close;
        Sql.Clear ;
        sql.Add(' Select * from V_Worker_InOut  Where 1=1 ');
        if checkbox3.checked then begin
           Sql.add('And Convert(Varchar(10),tTime,111)>='''+formatdateTime('yyyy/mm/dd',DateTimepicker3.date)+'''');
           Sql.add('And  Convert(Varchar(10),tTime,111)<='''+formatdateTime('yyyy/mm/dd',DateTimepicker4.date)+'''');
        end;
        if (Treeview.Selected <>nil) and (Treeview.Selected.Level>0) then begin
            if Treeview.Selected.Level =1 then
                Sql.Add('And cDepartMentNo='''+TItem(Treeview.Selected.Data).ItemID+'''')
            else
                Sql.Add('And cWorkerNo='''+TItem(Treeview.Selected.Data).ItemID+'''');
        end;
        Sql.Add(' order by  cWorkerNo,tTime');
        Open;
   end;
end;

procedure TfCard_InOut.CheckBox3Click(Sender: TObject);
begin
  inherited;
  DateTimepicker3.Enabled :=checkbox1.Checked ;
  DateTimepicker4.Enabled :=checkbox1.Checked ;
  Label8.Enabled :=checkbox1.Checked ;
  bitbtn3.Click ;
end;

procedure TfCard_InOut.TreeViewClick(Sender: TObject);
begin
  inherited;
  bitbtn3.Click ;
end;

procedure TfCard_InOut.PageControlChange(Sender: TObject);
begin
  // inherited;
    if PageControl.ActivePageIndex=2 then
     WindowState :=wsNormal
  else
     WindowState :=wsMaximized;
end;

procedure TfCard_InOut.ppReport1PreviewFormCreate(Sender: TObject);
begin
  inherited;
  ppReport1.PreviewForm.WindowState := wsMaximized;
  TppViewer(ppReport1.PreviewForm.Viewer).ZoomSetting := zsPageWidth;
end;

procedure TfCard_InOut.DBLookupListBox1Click(Sender: TObject);
begin
  inherited;
  if  not (Self.DataSource.State in [dsInsert,dsEdit]) then Exit;
  Self.ADOQ_Card_InOut.FieldByName('cCardNo').Value:=Self.DBLookupListBox1.SelectedItem;
  DBEdit4.SetFocus;
end;

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

procedure TfCard_InOut.ADOQ_Card_InOutAfterInsert(DataSet: TDataSet);
begin
  inherited;
  DBEdit4.SetFocus;
  ADOQ_Card_InOut.FieldByName('iMachineID').Value:=2;
  ADOQ_Card_InOut.FieldByName('tTime').Value:=Now;
end;

procedure TfCard_InOut.CheckBox4Click(Sender: TObject);
begin
  inherited;
  spinedit1.Enabled :=checkbox4.Checked ;
  label4.Enabled:=checkbox4.Checked ;
end;

procedure TfCard_InOut.CheckBox5Click(Sender: TObject);
begin
  DateTimepicker5.Enabled :=checkbox5.Checked ;
  DateTimepicker6.Enabled :=checkbox5.Checked ;
  Label4.Enabled :=checkbox5.Checked ;
end;

end.