dm.pas

短小而实用的房地产销售管理软件

Unit DM;

Interface

Uses
   Windows, SysUtils, Forms, Classes, DB, ADODB;

Type
    // TMySkinManage=class(TSkinManage);
   TDataModule2 = Class(TDataModule)
      ADOConnection1: TADOConnection;
      Procedure DataModuleCreate(Sender: TObject);
        //    procedure DataModuleCreate(Sender: TObject);
   Private
        { Private declarations }
   Public
        { Public declarations }
    //    procedure  VCLSKinCaption(FormHandle: HWND; sCaption: string);
   End;

Var
   DataModule2      : TDataModule2;
   CURRDIR          : String;
   sTnames          : TStringlist;
Implementation

{$R *.dfm}
{ TDataModule2 }

Procedure TDataModule2.DataModuleCreate(Sender: TObject);
Var
   MDBFILE          : String;
Begin

   CURRDIR := ExtractFilePath(Application.ExeName);
   ADOConnection1.Close;
   MDBFILE := ExtractFilePath(Application.ExeName) + 'x.MDB';
   ADOConnection1.ConnectionString :=
      'Provider=Microsoft.Jet.OLEDB.4.0;' +
      'User ID=Admin;' +
      'Data Source=' + MDBFILE + ';' +
      'Mode=ReadWrite;Extended Properties="";' +
      'Persist Security Info=False;Jet OLEDB:System database="";' +
      'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";' +
      'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;' +
      'Jet OLEDB:Database Password="abico02";' +
      'Jet OLEDB:Global Partial Bulk Ops=2;' +
      'Jet OLEDB:Global Bulk Transactions=1;' +
      'Jet OLEDB:New Database Password="";' +
      'Jet OLEDB:Create System Database=False;' +
      'Jet OLEDB:Encrypt Database=False;' +
      'Jet OLEDB:Don''t Copy Locale on Compact=False;' +
      'Jet OLEDB:Compact Without Replica Repair=False;' +
      'Jet OLEDB:SFP=False';
   ADOConnection1.LoginPrompt := false;
   ADOConnection1.open;

End;

End.