mdunit1.pas

这是一个Delphi很好很全面知识的实例

unit MDUnit1;

interface

uses
  SysUtils, Classes, ADODB, DB;

type
  TMD = class(TDataModule)
    DataSRSource1: TDataSource;
    DataZCSource2: TDataSource;
    DataMMSource3: TDataSource;
    ADOConnection1: TADOConnection;
    ADOSRTable1: TADOTable;
    ADOZCTable2: TADOTable;
    ADOMMTable3: TADOTable;
    ADOSRQuery1: TADOQuery;
    ADOZCQuery2: TADOQuery;
    ADOMMQuery3: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MD: TMD;

implementation

uses DLUnit1, mainUnit1;

{$R *.dfm}

end.