unitdatabase.~pa

来自「智能监控delphi源码, 操作说明 1. 在两台微机上分别运行文件夹中的可」· ~PA 代码 · 共 26 行

unit UnitDataBase;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDMMain = class(TDataModule)
    conMain: TADOConnection;
    tblEvent: TADOTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMMain: TDMMain;

implementation

{$R *.dfm}

end.