workersclasslist.pas

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

unit WorkersClassList;

interface

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

type
  TfWorkersClassList = class(TfBaseChildForm)
    Panel1: TPanel;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    TreeView: TTreeView;
    wwDBGrid1: TwwDBGrid;
    Splitter1: TSplitter;
    ImageList: TImageList;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery1dDate: TDateTimeField;
    ADOQuery1cWorkerNo: TStringField;
    ADOQuery1cWorkerName: TStringField;
    ADOQuery1cClassNo: TStringField;
    ADOQuery1cClassName: TStringField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    ADOQuery1cDepartmentName: TStringField;
    ADOQuery1cDepartmentNo: TStringField;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure TreeViewGetImageIndex(Sender: TObject; Node: TTreeNode);
    procedure TreeViewGetSelectedIndex(Sender: TObject; Node: TTreeNode);
    procedure BitBtn1Click(Sender: TObject);
    procedure TreeViewClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fWorkersClassList: TfWorkersClassList;

implementation

{$R *.dfm}

procedure TfWorkersClassList.FormCreate(Sender: TObject);
begin
  inherited;
  DateTimepicker1.Date:=Date;
  DateTimepicker2.Date:=IncMonth(Date);
  fdatamod.PersonnelTreeIni(Treeview,true);
  self.WindowState :=wsMaximized;
end;

procedure TfWorkersClassList.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 TfWorkersClassList.TreeViewGetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
begin
  inherited;
  Node.SelectedIndex:=Node.ImageIndex ;
end;

procedure TfWorkersClassList.BitBtn1Click(Sender: TObject);
begin
   With AdoQuery1 do
   Begin
        Close;
        Sql.Clear ;
        Sql.Add('Select * From V_DailyCard Where 1=1');
        if checkbox1.checked then begin
           Sql.add('And 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)+'''');
        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,dDate');
        Open;
   end;

end;

procedure TfWorkersClassList.TreeViewClick(Sender: TObject);
begin
  inherited;
  bitbtn1.Click ;
end;

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

end.