udm.pas

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

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;
    ATBioLife: TAutoTable;
    DSBioLife: TDataSource;
    ATCountry: TAutoTable;
    DSCountry: TDataSource;
    ATReservat: TAutoTable;
    DSReservat: TDataSource;
    ILPayment: TImageList;
    DSEvents: TDataSource;
    ATEvents: TAutoTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.DFM}

end.