c_datam.pas

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

unit c_datam;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADO_user: TADOTable;
    ADO_roomtype: TADOTable;
    ADO_room: TADOTable;
    ADO_foodtype: TADOTable;
    ADO_dish: TADOTable;
    ADO_meals: TADOTable;
    ADO_table: TADOTable;
    ADO_inroom: TADOTable;
    ADOQ_kfcx: TADOQuery;
    ADO_customer: TADOTable;
    ADO_order: TADOTable;
    ADOQ_dish: TADOQuery;
    ADOQ_meals: TADOQuery;
    ADO_benefit: TADOTable;
    ADO_roombenefit: TADOTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

end.