datam.pas

来自「《delphi数据库设计与实例开发》随书光盘」· PAS 代码 · 共 34 行

unit datam;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADO_provider: TADOTable;
    ADO_customer: TADOTable;
    ADO_product: TADOTable;
    ADO_depot: TADOTable;
    ADO_stock: TADOTable;
    ADO_sell: TADOTable;
    ADO_storage: TADOTable;
    ADOQ_cx: TADOQuery;
    ADO_user: TADOTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

end.