fdata.~pas

来自「一个很好的例子」· ~PAS 代码 · 共 37 行

unit fdata;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule3 = class(TDataModule)
    ADOConnection1: TADOConnection;
    treeqy: TADOQuery;
    treese: TDataSource;
    carse: TDataSource;
    carqy: TADOQuery;
    parqy: TADOQuery;
    parse: TDataSource;
    hotqy: TADOQuery;
    hotse: TDataSource;
    pkaoqy: TADOQuery;
    xkaoqy: TADOQuery;
    pkaose: TDataSource;
    xkaose: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule3: TDataModule3;

implementation

{$R *.dfm}

end.