datamodule.pas

来自「程序员电子日记本：用记录日常事务等一些其它生活事」· PAS 代码 · 共 29 行

unit DataModule;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM1 = class(TDataModule)
    ADOCON: TADOConnection;
    ADOQuery1: TADOQuery;
    DS1: TDataSource;
    ADOQuery2: TADOQuery;
    DS2: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM1: TDM1;

implementation

{$R *.dfm}

end.