data.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit data;

interface

uses
  SysUtils, Classes, ADODB, DB, main, inifiles;

type
  TDataModuleADO = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure SetConn();

  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  DataModuleADO: TDataModuleADO;
  myinifile:TInifile;


implementation

{$R *.dfm}

procedure TDataModuleADO.SetConn();
var
    s,s1,s2,s3,s4:string;
    filename:string;
    sDB:string;
begin
    DataModuleADO.ADOConnection1.Close;

    filename:=ExtractFilePath(paramstr(0))+'dblink.ini';
    myinifile:=Tinifile.create(filename);
    s:=myinifile.readstring('style','v','') ;

    myPath:= ExtractFilePath(ParamStr(0));
    myPath:= myPath+'xyPRO013.mdb';
    if FileExists(mypath)=false Then exit;
    s:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=';
    s:=s+myPath+ ';Mode=Share Deny None;Extended Properties="";';
    s:=s+'Persist Security Info=False;Jet OLEDB:System database="";';
    s:=s+'Jet OLEDB:Registry Path="";';
    s:=s+'Jet OLEDB:Database Password="JXCI";';
    s:=s+'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;';
    s:=s+'Jet OLEDB:Global Partial Bulk Ops=2;';
    s:=s+'Jet OLEDB:Global Bulk Transactions=1;';
    s:=s+'Jet OLEDB:New Database Password="";';
    s:=s+'Jet OLEDB:Create System Database=False;';
    s:=s+'Jet OLEDB:Encrypt Database=False;';
    s:=s+'Jet OLEDB:Compact Without Replica Repair=False;';
    s:=s+'Jet OLEDB:SFP=False';
    ADOConnection1.ConnectionString :=s;
    ADOConnection1.connected := true;

    {sDB:=myinifile.readstring('ac','v','');

    if s='access' then
    begin
        myPath:= ExtractFilePath(ParamStr(0));

        //if sDB='' then myPath:= myPath+'GSPYYa.mdb'
        //else myPath:= myPath+'GSPYY'+sDB+'.mdb';

        myPath:= myPath+'Car4s.mdb';

        if FileExists(mypath)=false Then exit;

        s:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=';
        s:=s+myPath+ ';Mode=Share Deny None;Extended Properties="";';
        s:=s+'Persist Security Info=False;Jet OLEDB:System database="";';
        s:=s+'Jet OLEDB:Registry Path="";';
        s:=s+'Jet OLEDB:Database Password="car4sadministrator";';
        s:=s+'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;';
        s:=s+'Jet OLEDB:Global Partial Bulk Ops=2;';
        s:=s+'Jet OLEDB:Global Bulk Transactions=1;';
        s:=s+'Jet OLEDB:New Database Password="";';
        s:=s+'Jet OLEDB:Create System Database=False;';
        s:=s+'Jet OLEDB:Encrypt Database=False;';
        s:=s+'Jet OLEDB:Compact Without Replica Repair=False;';
        s:=s+'Jet OLEDB:SFP=False';
        ADOConnection1.ConnectionString :=s;
    end
    else  }
    {begin
        s1 := myinifile.readstring('sn','v','') ;//'bbb';//服务器名
        s2 := myinifile.readstring('us','v','') ;//'sa'; //SQL用户名
        s3 := myinifile.readstring('lp','v','') ;//'bbb'; //密码
        s4 := myinifile.readstring('db','v','') ;//'bbb'; //数据库实例名

        if sDB='' then s4:='GSPYYa'
        else s4:='GSPYY'+sDB;

        s4:='xyPRO013';

        adoconnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password='+s3+
            ';Persist Security Info=True;User ID='+s2+
            ';Initial Catalog='+s4+';Data Source='+s1;
    end;    }

    ADOConnection1.connected := true;
    adoquery1.Connection :=adoconnection1;
    adoquery2.Connection :=adoconnection1;
    adoquery3.Connection :=adoconnection1;
    adoquery4.Connection :=adoconnection1;
    adoquery5.Connection :=adoconnection1;
    adoquery6.Connection :=adoconnection1;
end;

procedure TDataModuleADO.DataModuleCreate(Sender: TObject);
var
    filename:string;
    s:string;
begin
    SetConn();
end;

end.