unit2.pas

来自「Delphi_7.0数据库开发源代码。有内容十一章节」· PAS 代码 · 共 36 行

unit Unit2;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TDM = class(TDataModule)
    Table_Power: TTable;
    Table_Consumer: TTable;
    DS_Power: TDataSource;
    DS_Consumer: TDataSource;
    Table_Liu: TTable;
    Table_Ge: TTable;
    Table_Da: TTable;
    Table_Qin: TTable;
    DS_Liu: TDataSource;
    DS_Ge: TDataSource;
    DS_Da: TDataSource;
    DS_Qin: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.