Delphi5 企业版使用BDE访问 Oracle方法

Delphi5 企业版使用BDE访问 Oracle方法(1)

• 系统环境：
  1、操作系统：Windows 2000 Server
  2、数据库：Oracle 8i R2 (8.1.6) for NT 企业版
  3、开发工具：Delphi 5 企业版
  

• 连接方法：

  一、安装 Oracle 8i R2 (8.1.6) for NT 企业版使用典型安装，安装目录为D:\Oracle；二、安装 Delphi 5 企业版把Delphi 5光盘放入光驱，使用典型安装，安装目录为C:\Program Files\Borland\Delphi5；三、生成Oracle实验记录连入SQL*Plus，以system/manager用户登录SQL> conn system/manager创建新的用户：如user1/pass1，赋予connect,resource权限。SQL> grant connect,resource to user1 identified by pass1;SQL> conn user1/pass1SQL> create table test(a number,b char(19));SQL> insert into test values(1,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));SQL> insert into test values(2,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));SQL> insert into test values(3,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));SQL> insert into test values(4,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));SQL> insert into test values(5,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss'));SQL> commit;SQL> select * from test;A B---------- -------------------1 2000-11-28 20:27:332 2000-11-28 20:27:363 2000-11-28 20:27:384 2000-11-28 20:27:405 2000-11-28 20:27:52D:\Oracle\Ora81\network\ADMIN\tnsnames.ora中有如下内容：test =(DESCRIPTION = (ADDRESS_LIST =(ADDRESS = (PROTOCOL = TCP)(HOST = hlshang)(PORT = 1521)) ) (CONNECT_DATA =(SERVICE_NAME = oradb) ))总结：Oracle service_names：oradbOracle用户名：user1户名密码：pass1测试表名：testtnsnames：test四、配置BDE开始－＞程序－＞Borland Delphi 5－＞BDE Administrator1、配置Drivers，修改以下几个地方，如下图：DLL32：SQLORA8.DLLVENDOR INIT：OCI.DLLLANGDRIVER： Oracle SQL WE850SQLPASSTHRU MODE： SHARED NOAUTOCOMMIT修改完，按鼠标右键，apply（CTRL+A），提交修改.net/setup/img/Delphiora_001/1.jpg">2、配置Database Aliases（数据库访问别名），新建一个别名，起名为oracle，如下图：.net/setup/img/Delphiora_001/2.jpg">.net/setup/img/Delphiora_001/3.jpg">3、修改以下几个地方，如下图：SERVER NAME：test.net/setup/img/Delphiora_001/4.jpg">修改完，按鼠标右键，apply（CTRL+A），提交修改，退出BDE Administrator重新打开BDE Administrator，用鼠标左键双击别名oracle，进行连接测试.net/setup/img/Delphiora_001/5.jpg">输入用户名、密码，按“OK”连接，不能把user1/pass1直接写在User Name上，要分开写如果出现下图，则说明连接成功.net/setup/img/Delphiora_001/6.jpg">五、启动 Delphi 5 企业版，写连接 Oracle 的 Delphi 程序开始－＞程序－＞Borland Delphi 5－＞Delphi 5File－＞New...－＞Application，如下图：.net/setup/img/Delphiora_001/7.jpg">Delphi 开发窗口上方的工具箱面板：.net/setup/img/Delphiora_001/8.jpg">打开Data Access控件组，用鼠标双击控件Table，再双击DataSource控件（上图中画红框的两个），把它们放到窗体Form1上，默认名称为Table1和DataSource1：.net/setup/img/Delphiora_001/9.jpg">打开Data Controls控件组，用鼠标双击DBGrid控件（上图中画红框的），把它放到窗体Form1上，默认名称为DBGrid1，如下图：.net/setup/img/Delphiora_001/10.jpg">修改控件Table1、DataSource1、DBGrid1的属性，如下图：Table1的Active属性：TrueTable1的DatabaseName属性：oracle（即是选BDE名）Table1的TableName属性：TEST（这里需要连接oracle）DataSource1的DataSet属性：Table1DBGrid的DataSource属性：DataSource1.net/setup/img/Delphiora_001/11.jpg">  .net/setup/img/Delphiora_001/12.jpg">  .net/setup/img/Delphiora_001/13.jpg">按F9，运行此程序，弹出登录画面，如下图：.net/setup/img/Delphiora_001/14.jpg">输入用户名、密码，按“OK”，运行结果如下图：.net/setup/img/Delphiora_001/15.jpg">