udm.pas

delphi编程控件

unit udm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, AutoDB, aprstore, adbgrid, adefctrl, adbtempl, DB, adbpanel;

type
  TDM = class(TDataModule)
    ATCustoly: TAutoTable;
    Database1: TDatabase;
    DSCustoly: TDataSource;
    ARepository: TAutoRepository;
    AReposVIPCombo: TAutoDBDefComboBox;
    AReposStateCombo: TAutoDBDefComboBox;
    AReposCountryCombo: TAutoDBDefComboBox;
    AReposSIPayment: TAutoDBDefSpinImage;
    AReposLookupCustNo: TAutoDBDefLookupComboBox;
    AReposRefEventNo: TAutoDBDefReference;
    AQVendors: TAutoQuery;
    DSVendors: TDataSource;
    ATCountry: TAutoTable;
    DSCountry: TDataSource;
    ATReservat: TAutoTable;
    DSReservat: TDataSource;
    ILPayment: TImageList;
    DSEvents: TDataSource;
    ATEvents: TAutoTable;
    AQVendorsVendorNo: TFloatField;
    AQVendorsVendorName: TStringField;
    AQVendorsAddress1: TStringField;
    AQVendorsAddress2: TStringField;
    AQVendorsCity: TStringField;
    AQVendorsState: TStringField;
    AQVendorsZip: TStringField;
    AQVendorsCountry: TStringField;
    AQVendorsPhone: TStringField;
    AQVendorsFAX: TStringField;
    AQVendorsPreferred: TBooleanField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.DFM}

end.