maindm.pas

来自「一款房产中介软件」· PAS 代码 · 共 27 行

unit MainDM;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDMMain = class(TDataModule)
    ADOConnection1: TADOConnection;
  private
    { Private declarations }
  public
    CURRDIR          : String;    //当前程序执行路径
  end;

var
  DMMain: TDMMain;
  
  sTnames          : TStringlist;
  
implementation

{$R *.dfm}

end.