rulescheno.pas

pasa人力资源考勤管理系统

unit rulescheno;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, ADODB, ComCtrls, StdCtrls, Mask, ExtCtrls;

type
  Tformrulescheno = class(TForm)
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADODataSet1ruleno: TStringField;
    ADODataset2: TADODataSet;
    ADODataset2ruleno: TStringField;
    ADODataset2rdate: TDateTimeField;
    ADODataset2classno: TStringField;
    ADODataset2gotime1: TStringField;
    ADODataset2outtime1: TStringField;
    ADODataset2add1: TBooleanField;
    ADODataset2continue1: TBooleanField;
    ADODataset2decrease1: TBCDField;
    ADODataset2daytime1: TBCDField;
    ADODataset2ot1: TBooleanField;
    ADODataset2gotime2: TStringField;
    ADODataset2outtime2: TStringField;
    ADODataset2add2: TBooleanField;
    ADODataset2continue2: TBooleanField;
    ADODataset2decrease2: TBCDField;
    ADODataset2daytime2: TBCDField;
    ADODataset2ot2: TBooleanField;
    ADODataset2gotime3: TStringField;
    ADODataset2outtime3: TStringField;
    ADODataset2add3: TBooleanField;
    ADODataset2continue3: TBooleanField;
    ADODataset2decrease3: TBCDField;
    ADODataset2daytime3: TBCDField;
    ADODataset2ot3: TBooleanField;
    ADODataset2gotime4: TStringField;
    ADODataset2outtime4: TStringField;
    ADODataset2add4: TBooleanField;
    ADODataset2continue4: TBooleanField;
    ADODataset2decrease4: TBCDField;
    ADODataset2daytime4: TBCDField;
    ADODataset2ot4: TBooleanField;
    ADODataset2gotime5: TStringField;
    ADODataset2outtime5: TStringField;
    ADODataset2add5: TBooleanField;
    ADODataset2continue5: TBooleanField;
    ADODataset2decrease5: TBCDField;
    ADODataset2daytime5: TBCDField;
    ADODataset2ot5: TBooleanField;
    ADODataset2flag1: TStringField;
    ADODataset2flag2: TStringField;
    ADODataset2operator: TStringField;
    ADODataset2cdate: TDateTimeField;
    Panel1: TPanel;
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Label2: TLabel;
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Button2: TButton;
    Splitter1: TSplitter;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DateTimePicker1CloseUp(Sender: TObject);
    procedure DateTimePicker2CloseUp(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formrulescheno: Tformrulescheno;

implementation

uses datamol;

{$R *.DFM}

procedure Tformrulescheno.FormCreate(Sender: TObject);
begin
    adodataset1.active:=true;
    adodataset2.active:=true;
    datetimepicker1.date:=Date;
    datetimepicker2.date:=date;
end;

procedure Tformrulescheno.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  adodataset1.active:=false;
  adodataset2.active:=false;
  action:=cafree;
  formrulescheno:=nil;
end;

procedure Tformrulescheno.DateTimePicker1CloseUp(Sender: TObject);
begin
   maskedit1.text:=datetostr(datetimepicker1.date);
end;

procedure Tformrulescheno.DateTimePicker2CloseUp(Sender: TObject);
begin
   maskedit2.text:=datetostr(datetimepicker2.date);
end;

procedure Tformrulescheno.Button1Click(Sender: TObject);
begin
 if (length(trim(maskedit1.text))=10) and (length(trim(maskedit2.text))=10) then
 begin
   adodataset2.close;
   adodataset2.CommandText:='Select * from turn01010 where rdate between '''+maskedit1.text+''' and '''+maskedit2.text+''' ';
   adodataset2.open;
 end else showmessage('开始日期或结束日期不正确！');
end;

procedure Tformrulescheno.Button2Click(Sender: TObject);
begin
   adodataset2.close;
   adodataset2.CommandText:='Select * from turn01010 ';
   adodataset2.open;
end;

end.