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;

BDE动态连接Oracle数据库相关推荐

bde oracle 商友的流程_bde oracle 商友的流程_BDE动态连接Oracle数据库
BDE动态连接Oracle数据库说明:系统是三层架构:数据库是Oracle9, Server采用BDE连接数据库,使用scktsrvr.exe,Client采用SocketConnection连接到 ...
bde oracle 商友的流程_BDE动态连接Oracle数据库
BDE动态连接Oracle数据库说明:系统是三层架构:数据库是Oracle9, Server采用BDE连接数据库,使用scktsrvr.exe,Client采用SocketConnection连接到 ...
我的docker随笔33：在容器中连接oracle数据库
本文涉及一种在容器中连接 oracle 数据库的方法和步骤,最后给出测试结果.至于使用程序的方式连接,则是后续要实施的工作. 一.引言之前在 Windows 实现了连接 oracle 数据库,本次尝 ...
java连接phpstudy_java,_java连接Oracle数据库问题，java - phpStudy
java连接Oracle数据库问题五月 23, 2016 11:09:27 上午 org.apache.catalina.core.StandardWrapperValve invoke 严重: S ...
arcgis读取oracle数据库,arcgis连接Oracle数据库
arcgis连接Oracle数据库配置声明:本人的电脑是win10 64位,安装的Oracle是oracleR11gr2 64 arcgis版本位10.2 安装是在同一台电脑上. 一.首先是安装O ...
dos命令行连接oracle数据库
C:\Adminstrator> sqlplus "/as sysdba" 查看是否连接到数据库 SQL> select status from v$instance; ...
用ASP.Net(C#)连接Oracle数据库的方法
今天看了一下asp.net连接oracle数据库的方法,得到了如下代码.这段代码打开了MyTable表,并把操作员的名字列出.字段类型是OracleString.读取的时候用的是字段编号,我不知道怎么 ...
Jmeter连接Oracle数据库
一.Jmeter要连接oracle数据库,就必须复制JDBC驱动jar包文件ojdbc14.jar到Jmeter的lib目录下二.进入Jmeter的bin目录运行Jmeter.bat,启动Jmete ...
JDBC连接Oracle数据库测试
JDBC连接Oracle数据库测试 package date20180727.dao; import java.sql.Connection; import java.sql.DriverManage ...

BDE动态连接Oracle数据库

BDE动态连接Oracle数据库相关推荐

最新文章

热门文章