dbform.pas

delphi编程控件

unit dbform;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls, Buttons,
  aqtyper, aurllabl;

type
  TDBForm_ = class(TForm)
    Table1CustNo: TFloatField;
    Table1Company: TStringField;
    Table1Addr1: TStringField;
    Table1Addr2: TStringField;
    Table1City: TStringField;
    Table1State: TStringField;
    Table1Zip: TStringField;
    Table1Country: TStringField;
    Table1Phone: TStringField;
    Table1FAX: TStringField;
    Table1TaxRate: TFloatField;
    Table1Contact: TStringField;
    Table1LastInvoiceDate: TDateTimeField;
    ScrollBox: TScrollBox;
    Label1: TLabel;
    EditCustNo: TDBEdit;
    Label2: TLabel;
    EditCompany: TDBEdit;
    Label3: TLabel;
    EditAddr: TDBEdit;
    Label4: TLabel;
    EditAddr2: TDBEdit;
    Label5: TLabel;
    EditCity: TDBEdit;
    Label6: TLabel;
    EditState: TDBEdit;
    Label7: TLabel;
    EditZip: TDBEdit;
    Label8: TLabel;
    EditCountry: TDBEdit;
    Label9: TLabel;
    EditPhone: TDBEdit;
    Label10: TLabel;
    EditFAX: TDBEdit;
    Label11: TLabel;
    EditTaxRate: TDBEdit;
    Label12: TLabel;
    EditContact: TDBEdit;
    Label13: TLabel;
    EditLastInvoiceDate: TDBEdit;
    DBNavigator: TDBNavigator;
    Panel1: TPanel;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Table1: TTable;
    BitBtn1: TBitBtn;
    Panel4: TPanel;
    Memo2: TMemo;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    AutoDBQuickTyper1: TAutoDBQuickTyper;
    GroupBox1: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Image1: TImage;
    Label16: TLabel;
    Label17: TLabel;
    AutoURLLabel1: TAutoURLLabel;
    AutoURLLabel2: TAutoURLLabel;
    AutoURLLabel3: TAutoURLLabel;
    AutoURLLabel4: TAutoURLLabel;
    procedure Table1AfterInsert(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  DBForm_: TDBForm_;

implementation

{$R *.DFM}

procedure TDBForm_.Table1AfterInsert(DataSet: TDataSet);
begin
  EditCustNo.SetFocus;
end;

procedure TDBForm_.FormShow(Sender: TObject);
begin
  EditCustNo.SetFocus;
end;

procedure TDBForm_.CheckBox1Click(Sender: TObject);
begin
  if(CheckBox1.Checked) then
    AutoDBQuickTyper1.Options := AutoDBQuickTyper1.Options + [qtoReturn]
  else AutoDBQuickTyper1.Options := AutoDBQuickTyper1.Options - [qtoReturn];
end;

procedure TDBForm_.CheckBox2Click(Sender: TObject);
begin
  if(CheckBox2.Checked) then
    AutoDBQuickTyper1.Options := AutoDBQuickTyper1.Options + [qtoDBMove]
  else  AutoDBQuickTyper1.Options := AutoDBQuickTyper1.Options - [qtoDBMove];
end;

end.