cardlist.pas

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

unit CardList;

interface

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

type
  TfCardList = class(TfBaseChildForm)
    TreeView: TTreeView;
    Panel1: TPanel;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    CheckBox1: TCheckBox;
    Splitter1: TSplitter;
    wwDBGrid1: TwwDBGrid;
    ADOQuery1: TADOQuery;
    DataSource: TDataSource;
    ADOQuery1cWorkerNo: TStringField;
    ADOQuery1cWorkerName: TStringField;
    ADOQuery1cCardNo: TStringField;
    ADOQuery1tTime: TDateTimeField;
    ADOQuery1ComputerID: TIntegerField;
    ADOQuery1lReaded: TBooleanField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    ADOQuery1State: TStringField;
    ADOQuery1cDepartmentNo: TStringField;
    ADOQuery1cDepartmentName: TStringField;
    ImageList: TImageList;
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure wwDBGrid1CalcCellColors(Sender: TObject; Field: TField;
      State: TGridDrawState; Highlight: Boolean; AFont: TFont;
      ABrush: TBrush);
    procedure TreeViewClick(Sender: TObject);
    procedure TreeViewGetImageIndex(Sender: TObject; Node: TTreeNode);
    procedure TreeViewGetSelectedIndex(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fCardList: TfCardList;

implementation

{$R *.dfm}

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

procedure TfCardList.FormCreate(Sender: TObject);
begin
  inherited;
    DateTimepicker1.Date:=strTodate(formatdateTime('yyyy/mm/01',date));
  DateTimepicker2.Date:=Date;
  fdatamod.PersonnelTreeIni(Treeview,true);
  self.WindowState :=wsMaximized;
end;

procedure TfCardList.BitBtn1Click(Sender: TObject);
begin
  inherited;
  With AdoQuery1 do
  Begin
       Sql.Clear ;
       Sql.Add(' Select * from(');
       Sql.add('Select * From V_Temp_Card Where 1=1');
       if Checkbox1.Checked then
          Sql.Add('And Convert(Varchar(10),tTime,111) Between '''+formatDateTime('yyyy/mm/dd',dateTimepicker1.date)+''' And '''+formatDateTime('yyyy/mm/dd',dateTimepicker2.date)+'''' ) ;
       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('Union All');
       Sql.Add('Select * From V_Cards Where 1=1');
       if Checkbox1.Checked then
          Sql.Add('And Convert(Varchar(10),tTime,111) Between '''+formatDateTime('yyyy/mm/dd',dateTimepicker1.date)+''' And '''+formatDateTime('yyyy/mm/dd',dateTimepicker2.date)+'''' ) ;
       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(' ) A order by tTime');
       Open;
  end;
end;

procedure TfCardList.wwDBGrid1CalcCellColors(Sender: TObject;
  Field: TField; State: TGridDrawState; Highlight: Boolean; AFont: TFont;
  ABrush: TBrush);
begin
  inherited;
  if AdoQuery1.FieldByName('State').asString='ゼ矪瞶' then
     ABrush.Color :=clfuchsia;
end;

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

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

end.