ftm_main.pas

delphi编程控件

unit ftm_main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, DB, DBTables, adbgrid, adbmaker, AutoDB,
  ExtCtrls, Mask, DBCtrls, aurllabl, afilter;

type
  TFFilterMaker = class(TForm)
    Panel1: TPanel;
    AutoTable1: TAutoTable;
    AutoDBGrid1: TAutoDBGrid;
    AutoTable1Id: TIntegerField;
    AutoTable1Name: TStringField;
    DataSource1: TDataSource;
    AutoTable1Done: TIntegerField;
    TrackBar1: TTrackBar;
    BitBtn1: TBitBtn;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label6: TLabel;
    Image1: TImage;
    Label8: TLabel;
    Label10: TLabel;
    AutoURLLabel1: TAutoURLLabel;
    AutoURLLabel2: TAutoURLLabel;
    AutoURLLabel3: TAutoURLLabel;
    AutoURLLabel4: TAutoURLLabel;
    Label1: TLabel;
    Memo1: TMemo;
    FilterLink1: TFilterLink;
    FilterMaker1: TFilterMaker;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private    { Private declarations }
  public
    { Public declarations }
  end;

var
  FFilterMaker: TFFilterMaker;

implementation

{$R *.DFM}
//This method creates the table and 100 records
procedure TFFilterMaker.FormCreate(Sender: TObject);
Var
  i : Integer;
begin
  with AutoTable1 do begin
    CreateTable;
    Open;
    DisableControls;
    Randomize;
    for i := 1 to 100 do begin
      Append;
      FindField('id').AsInteger := i;
      FindField('name').AsString := 'Project No ' + IntToStr(i);
      FindField('done').AsInteger := random(101);
      Post;
    end;
    EnableControls;    
    First;
  end;
end;

procedure TFFilterMaker.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  AutoTable1.Close;
end;

end.