|
通过 Delphi实现 Java调用 Oracle数据库数据
---- 在开发WWW网络浏览软件中，时常要用到JAVA画一些生产管理图形，而且大量的图形数据存于网络数据库ORACLE中，现在常用的方法是使用JDBC来实现对数据库的操作，但是，如果手头没有它驱动程序，则就无法对数据库进行操作。其实，我们可以使用DELPHI开发JAVA的ORACLE数据接口软件，就具体实现方法简述如下。
---- 一、系统设置：
---- 1. 用SQL NET 设置ORACLE数据库所在服务器的IP地址别名，这里假设名字是oracle1;
---- 2. 建立ORACLE ODBC数据源;
---- 进入控制面板的ODBC数据源，然后点击Systen DSN，再点击Add按钮选择Microsoft ODBC Driver Oracle，在Data Source Name框中输入数据源名(test)，在User Name框中输入ORACLE数据用户名(假设为user1)最后在Connect Sing框中输入在SQL NET中建立的ORACLE数据库别名oracle1；
---- 建立好以上两步后，则DELPHI的BDE Adminisator中自动生成一个test数据接口，如下图：
---- 二、用DELPHI开发读取ORACLE数据库数据的CGI 程序
---- 进入DELPHI编程环境，去掉FORM页及其它控件，然后输入以下程序。
program testcgi;
{$apptype console}
uses
SysUtils, DBs;
var
Table1: TTable;//用于读ORACLE数据库数据
Database1: TDatabase;//用于定义ORACLE别名及用户名和口令
i,ss,code:integer;
my,cc:sing;
begin
writeln(′CONTENT-TYPE: TEXT/HTML′);//CGI程序要求的数据头信息
writeln;//保留一行空格
my:=params(1);//读入JAVA传来的信息
Table1:=TTable.Create(nil);//创建Table控件
Database1:=TDatabase.Create(nil);//创建Database控件
y
Database1.aliasname:=′test′;//ORACLE别名
Database1.databasename:=′test′;
Database1.Params.Clear;
Database1.Params.add(′USER NAME=user1′);//用户名
Database1.Params.add(′PASSWORD=userpassword′);//口令
Database1.loginprompt:=false;
Database1.connected:=ue;
Database1.open; //打开数据库通道
Table1.databasename:=′test′;
Table1.name:=′cbkt′;//ORACLE表名
1.Active := True;
Table1.open;//打开ORACLE表
Table1.first;
//计算满足条件井数
i:=0;
while (not 1.eof) do
begin
if (Table1.FieldByName(′ny′).assing=my) then
begin
write(Table1.FieldByName(′jh′).assing ′,′);
val(Table1.Fields[2].assing,ss,code);
if ss>0 then
write(ss*100)
else
write(′0.0′);
write(′,′);
val(Table1.Fields[3].assing,ss,code);
[1] [2] [3] 下一页
|
