udm.pas

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

unit udm;

interface

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

type
  TDM = class(TDataModule)
    ATCustoly: TAutoTable;
    Database1: TDatabase;
    DSCustoly: TDataSource;
    ARepository: TAutoRepository;
    AReposVIPCombo: TAutoDBDefComboBox;
    AReposStateCombo: TAutoDBDefComboBox;
    AReposCountryCombo: TAutoDBDefComboBox;
    AReposGridCustoly1: TAutoDBGridTemplate;
    AReposGridCustoly2: TAutoDBGridTemplate;
    AReposGridCustoly3: TAutoDBGridTemplate;
    AutoPropertiesStore1: TAutoPropertiesStore;
    AQVendors: TAutoQuery;
    DSVendors: TDataSource;
    ATBioLife: TAutoTable;
    DSBioLife: TDataSource;
    ATCountry: TAutoTable;
    DSCountry: TDataSource;
    ATReservat: TAutoTable;
    DSReservat: TDataSource;
    AReposSIPayment: TAutoDBDefSpinImage;
    ILPayment: TImageList;
    AReposLookupCustNo: TAutoDBDefLookupComboBox;
    AReposRefEventNo: TAutoDBDefReference;
    DSEvents: TDataSource;
    ATEvents: TAutoTable;
    AReposPanel1: TAutoDBPanelTemplate;
    AReposPanel2: TAutoDBPanelTemplate;
    AReposPanel3: TAutoDBPanelTemplate;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.DFM}

end.