uadbdat2.pas

来自「delphi编程控件」· PAS 代码 · 共 71 行

unit uadbdat2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ADateCtl, adbdate, Mask, DBCtrls, ExtCtrls, Buttons;

type
  TFADateControls2 = class(TForm)
    DBNavigator1: TDBNavigator;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    AutoDBDateEdit1: TAutoDBDateEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    AutoDBDateControl1: TAutoDBDateControl;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FADateControls2: TFADateControls2;

implementation

uses udm;

{$R *.DFM}

procedure TFADateControls2.FormCreate(Sender: TObject);
Var
  i : Integer;
begin
  Randomize;
  DM.ATACLPROJ.CreateTable;
  DM.ATACLPROJ.Open;
  for i := 0 to 99 do
    with DM.ATACLPROJ do begin
      Append;
      FindField('name').AsString := 'project # '  + IntToStr(i);
      FindField('dateb').AsDateTime := Date - Random(1000);
      FindField('datee').AsDateTime := FindField('dateb').AsDateTime + Random(50) + 10;
      Post;
    end;
  DM.ATACLPROJ.First;
end;

procedure TFADateControls2.FormDestroy(Sender: TObject);
begin
  DM.ATACLPROJ.Close;
  DM.ATACLPROJ.DeleteTable;
end;

procedure TFADateControls2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  FADateControls2 := Nil;
end;

end.