datmod.pas

来自「delphi的学习资料」· PAS 代码 · 共 37 行

unit DatMod;

interface

uses
  SysUtils, Classes, ADODB, DB;

type
  TfrDm = class(TDataModule)
    Connect: TADOConnection;
    dset1: TADODataSet;
    dset2: TADODataSet;
    cmd1: TADOCommand;
    tb1: TADOTable;
    tb2: TADOTable;
    qry1: TADOQuery;
    qry2: TADOQuery;
    dsD1: TDataSource;
    dsD2: TDataSource;
    dsT1: TDataSource;
    dsT2: TDataSource;
    dsQ1: TDataSource;
    dsQ2: TDataSource;
    sproc1: TADOStoredProc;
  private    { Private declarations }
  public     { Public declarations }
  end;

var
  frDm: TfrDm;

implementation

{$R *.dfm}

end.