udm.pas

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

unit udm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DB, DBTables, AutoDB;

type
  TDM = class(TDataModule)
    Database1: TDatabase;
    DSEvents: TDataSource;
    ATEvents: TAutoTable;
    ATACLPROJ: TAutoTable;
    DSACLPROJ: TDataSource;
    ATACLPROJName: TStringField;
    ATACLPROJDateB: TDateField;
    ATACLPROJDateE: TDateField;
    ATCustoly: TAutoTable;
    DSCustoly: TDataSource;
    ATResevat: TAutoTable;
    DSReservat: TDataSource;
    ILPayment: TImageList;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.DFM}

end.