BDE动态连接Oracle数据库

BDE动态连接Oracle数据库

说明：系统是三层架构；数据库是Oracle9, Server采用BDE连接数据库，使用scktsrvr.exe，Client采用SocketConnection连接到Server。本系统Server采用读取配置文件来动态连接所需要的数据库，如果系统更换数据库、修改数据库的配置、或者增、删、改数据库只需要修改相应的配置文件，避免了去修改系统。而且此配置文件允许写入多个数据库信息。我把这个配置文件放到一个文件夹中可以允许多个系统读取，而且能够自动更新本地的配置文件。

1．  Server 端Unit1 的主要程序代码：

procedure TForm1.FormCreate(Sender: TObject);

begin     //下面代码自动更新配置文件

 if not FileExists(ExtractFilePath(Application.ExeName)+'DBConfig.ini') then

      begin

            CopyFile('//remoteserver/application/DBConfig/DBConfig.ini',PChar(ExtractFilePath(Application.ExeName)+'DBConfig.ini'),False);

      end

 else

      begin

            if FileAge(ExtractFilePath(Application.ExeName)+'DBConfig.ini') <>

               FileAge(''//remoteserver/application/DBConfig/DBConfig.ini') then

            CopyFile(''//remoteserver/application /DBConfig.ini',PChar(ExtractFilePath(Application.ExeName)+'DBConfig.ini'),False);

      end;

//读取配置文件的内容。

Iniprms:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'DBConfig.ini');

USERNAME:=Iniprms.Readstring('DATABASE1','USERNAME','');

PASSWORD:=Iniprms.Readstring('DATABASE1','PASSWORD','');

DATABASENAME:=Iniprms.Readstring('DATABASE1','DATABASENAME','');

ALIASNAME:=Iniprms.Readstring('DATABASE1','ALIASNAME','');

end;

 

2.Server 端DataModule 中主要代码：

procedure TSH_TR_Monitor.RemoteDataModuleCreate(Sender: TObject);

begin

//设置数据库连接信息

Database1.Connected:= False;

Database1.Params.Values['USERNAME']:=Unit1.USERNAME;

Database1.Params.Values['PASSWORD']:=Unit1.PASSWORD;

Database1.LoginPrompt:=False;

Database1.DatabaseName:=Unit1.DATABASENAME;

Database1.AliasName:=Unit1.ALIASNAME;

Database1.Connected :=true;

Query1.DatabaseName :=Database1.DatabaseName;

Query2.DatabaseName :=Database1.DatabaseName;

end;