udmo.pas

前言 随着旅游业的发展

unit UDmo;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDmo = class(TDataModule)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    ADOTable1: TADOTable;
    ADOTable1xfID: TIntegerField;
    ADOTable1zhanghaoID: TStringField;
    ADOTable1shangpinNAME: TStringField;
    ADOTable1mingcheng: TStringField;
    ADOTable1danwei: TStringField;
    ADOTable1danjia: TIntegerField;
    ADOTable1xiaofei: TBCDField;
    ADOTable1time: TDateTimeField;
    DataSource3: TDataSource;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Dmo: TDmo;

implementation

{$R *.dfm}

end.