dailycardcheck.pas

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

unit DailyCardCheck;

interface

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

type
  TfDailyCardCheck = class(TfBaseChildForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fDailyCardCheck: TfDailyCardCheck;

implementation

uses Progress;

{$R *.dfm}

procedure TfDailyCardCheck.FormCreate(Sender: TObject);
begin
  inherited;
   dateTimepicker1.Date :=IncDay(date(),-1);
end;

procedure TfDailyCardCheck.BitBtn1Click(Sender: TObject);
var
   strDate:String;
begin
  self.Visible :=False;
  strDate:=formatDateTime('yyyy/mm/dd',dateTimepicker1.Date);
  fProgress:=tfProgress.Create(self);
  fprogress.IniProgress('タ