cardanalyst.~pas

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

unit CardAnalyst;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildForm, StdCtrls, Buttons, ExtCtrls, ComCtrls,Datamod,AdoDb,DateUtils,Func,
  DB;

type
  TfCardAnalyst = class(TfBaseChildForm)
    Panel1: TPanel;
    ProgressBar1: TProgressBar;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    Panel2: TPanel;
    DateTimePicker1: TDateTimePicker;
    Label3: TLabel;
    Label4: TLabel;
    DateTimePicker2: TDateTimePicker;
    CheckBox1: TCheckBox;
    cobDepartMent: TComboBox;
    CheckBox2: TCheckBox;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    SpeedButton1: TSpeedButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    lstWorkers: TListBox;
    SpeedButton2: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fCardAnalyst: TfCardAnalyst;

implementation

uses WorkerSelect, NoArangeClass;

{$R *.dfm}
Function GetItemIDS(const Listbox:TListbox):String;
var
   strResult:String;
   i:Integer;
Begin
     if (Listbox=nil) or (Listbox.Items.Count=0) then
         Result:=''
     else begin
         strResult:='';
         for I:=0 to Listbox.Items.Count-1 do
         Begin
              if strResult<>'' then
                 strResult:=strResult+',';
              strResult:=strResult+''''+TItem(Listbox.Items.Objects[i]).ItemID+'''';
         end;
         Result:=strResult;
     end;
end;
procedure TfCardAnalyst.FormCreate(Sender: TObject);
var
   Item:TItem;
   AdoQue:TAdoQuery;
begin
  inherited;
  DateTimepicker1.Date :=IncDay(fdatamod.GetCurrentTime,-1);
  DateTimepicker2.date:=DateTimepicker1.date;
  AdoQue:=TAdoQuery.Create(Self);
  AdoQue.Connection :=fdatamod.AdoCon ;
  With AdoQue do
  Begin
        Sql.add('Select cDepartMentNo,cDepartMentName From DepartMent Order by cDepartmentno');
        Open;
        cobDepartment.Items.Clear ;
        While Not Eof Do
        Begin
             Item:=TItem.Create ;
             Item.ItemID:=FieldbyName('cDepartMentNo').asString;
             Item.ItemCaption :=FieldbyName('cDepartMentName').AsString;
             cobDepartment.Items.AddObject(Item.ItemCaption,Item );
             Next;
        end;
        if cobDepartment.Items.Count >0 then
           cobDepartMent.ItemIndex :=0;
        Free;
  end;
end;

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

procedure TfCardAnalyst.CheckBox2Click(Sender: TObject);
begin
  inherited;
  RadioButton1.Enabled :=checkbox2.Checked ;
  RadioButton2.Enabled :=checkbox2.Checked ;
  RadioButton1Click(nil);
end;

procedure TfCardAnalyst.RadioButton1Click(Sender: TObject);
begin
    if checkbox2.Checked then begin
       if RadioButton1.Checked then begin
           edit1.Enabled :=true;
           edit2.Enabled :=True;
           Label5.Enabled :=true;
           lstWorkers.Enabled :=false;
           speedbutton1.Enabled :=False;
           speedbutton2.Enabled :=False;
       end else begin
           edit1.Enabled :=False;
           edit2.Enabled :=False;
           Label5.Enabled :=False;
           lstWorkers.Enabled  :=True;
           speedbutton1.Enabled :=True;
           speedbutton2.Enabled :=True;
         end;
    end else begin
           edit1.Enabled :=False;
           edit2.Enabled :=False;
           Label5.Enabled :=False;
           lstWorkers.Enabled :=False;
           speedbutton1.Enabled :=False;
           speedbutton2.Enabled :=False;
    end;

end;

procedure TfCardAnalyst.SpeedButton1Click(Sender: TObject);
var
   Item:TItem;
begin
  inherited;
  fWorkerSelect:=tfWorkerSelect.Create(self);
  fWorkerSelect.lstWorkers.Items.Assign(lstWorkers.items);
  fWorkerSelect.ShowModal;
  if fWorkerSelect.ModalResult=mrOK then begin
     lstWorkers.Items.Assign(fWorkerSelect.lstWorkers.Items);
  end;
  fWorkerSelect.Free;
end;

procedure TfCardAnalyst.BitBtn1Click(Sender: TObject);
var
   AdoQueWorkers:TAdoQuery;
   temQue:TAdoQuery;
   dDate:TDate;
   I:Integer;
   temList:TStringList;
   strWorkerNo,strCardNo:String;
begin
   temList:=TStringList.Create ;
   //浪琩琌