精华区文章阅读

发信人: starstar (今天打老虎), 信区: Database
标  题: 开发基于ORACLE7 数据库的管理信息系统
发信站: 哈工大紫丁香 (2001年07月23日02:02:55 星期一), 站内信件

1 前言
---- 开发高水平的“ 管理信息系统”，选择性能优越的数据库
是最重要的一环，我们经过多方面的调研和分析，选择了ORA
CLE7 数据库，成功地开发了本系统。实践证明，本系统设计科
学、合理、运行稳定，本文将具体阐述一下系统中应用ORACLE7
数据库的方法和技术。
---- 2 系统的开发、运行环境
---- 本系统在CLIENT/SERVER 结构上运行，SERVER 为CDC 4360 小型机，和
快速FDDI 环网相接，内装有UNIX 操作系统和ORACLE7 数据库，系统
总体网络协议为TCP/IP 。
---- CLIENT 端为486 以上微机，16M 以上内存，硬盘足够大，通过HU
B、路由器、MODEM 和SERVER 连接。开发、运行平台是WIN95，安装了
网络软件ONNET、ORACLE CDE 产品 SQL*NET V2。开发工具是POWERBULDER5.0
（以下简称PB5）、VB4 等。
---- 3 ORACLE7 在系统中的各种应用
---- 3.1 一般性的数据管理
---- 一般性的数据管理用数据窗口管理最方便，可以在数据
窗口中进行表的增、删、改、查询等操作，下边是一些具体例
子（PB5）：
---- 3 ．1 ．1 连通ORACLE 库，并将数据装入数据窗口：
      dw_1.SetTransObject(sqlca)
      dw_1.Retrieve()
---- 3 ．1 ．2 增加一条记录
      dw_1.InsertRow(dw_1.GetRow( ) + 1)
---- 3 ．1 ．3 删除一条记录（当前记录）
      dw_1.DeleteRow(0)
---- 3 ．1 ．4 将数据提交入库（存盘）
      dw_1.Update( )
  commit;
---- 3 ．1 ．5 打印数据窗口（表）中的数据
      dw_1.print()
---- 3 ．2 文字类数据管理
---- 3 ．2 ．1 文本入库和查询
---- 文本入库和查询可采用PB5 的MLE（多行编辑器）作界面，编
辑完成后存入ORACLE7 的LONG 字段中，查询时从LONG 字段中取出，
放入MLE 中查询，下边是一个例子：
//文本的预处理（以去除文本文件中的回车换行符为例说明）
//将文件读入BLOB型变量
text中fn=fileopen(txtname,streammode!)
if fn< > -1 then
fileread(fn,text)
fileclose(fn)
// 并转换为文本
article=string(text)
s=len(article)
for v=1 to s
t=pos(article,char(13)+char(10),v)
if t >0 then
article=replace(article,t,2,"")
else
end if
next
mle_1.text=article
//将处理后的文件c:\bb.txt存盘，
文件中的回车换行符已全部去掉
text1=blob(article)
filname="c:\bb.txt"
fn=fileopen(filname,streammode!,
write!,lockwrite!,replace!)
if fn< >-1 then
filewrite(fn,text1)
fileclose(fn)
end if
//文本入库
nr1=blob(mle_1.text)
updateblob gljwj set nr=:nr1 where bh=:pass_parm
and zwrq=:fsj and wjbs=:fl5 using sqlca;
commit;
// 放入MLE 中查询
selectblob nr into :nr1 from gljwj where bh=:pass_parm
and wjbs=:fl5 and zwrq=:fsj using sqlca;
mle_1.text=blob(nr1)
---- 3 ．2 ．2 从库中重新生成文本文件filename.txt 并存盘
select nr into :filen from fwgs where bh=:bh1
and lwrq=:zwrq1 using sqlca;
fname="c:\filename.txt"
fh=fileopen(fname,streammode!,write!,lockwrite!,replace!)
if fh< >-1 then
filewrite(fh,filen)
fileclose(fh)
end if
---- 3 ．3 处理图象文件（大的二进制文件）
---- 图象文件（一般为BMP 位图文件）是二进制文件，将其以数
据流方式存入ORACLE7 的LONG 字段中，查询时从LONG 字段中取出，
放入图象框（如p_1）中查询，下边是一个例子：
// 将图象文件读入BLOB 型变量pict 中
fn=fileopen(picname,streammode!)
if fn< > -1 then
fileread(fn,pict)
fileclose(fn)
// 将图象放入图象框p_1 内查看
setpicture(p_1,pict)
end if
// 将图象存入表pic 的LONG 字段bmpt 中
updateblob pic set bmpt=:pict ;
commit;
---- 较大的图象文件一次不能入库，可采取分割图形的方式，
分块存入，因为LONG 字段所存放的数据大小一般是没限制的（
可存放2G 的内容）。
---- 4 开发应用经验
---- 4 ．1 建议CLIENT 端通过SQL*NET V2 进行ORACLE 数据通信（不用SQL
*NET TCP V1 产品）
---- 因为在ORACLE7 推出以后，SQL*NET V1 就没有做一些改进工作，
继续支持到ORACLE7.2, ORACLE7.3 以后的产品将不支持SQL*NET TCP V1
，所以，ORACLE7 用户应立即改用SQL*NET V2，不然会影响到库的运
行稳定性。
---- ORACLE CDE2 和Developer 2000 提供了CLIENT 端ORACLE 产品的安装程
序ORAINST.EXE，运行该文件来安装SQL*NET V2，选择的产品有:
     a   ORACLE TCP/IP ADPTER 2.1.4.1.3
     b   sql*net 2.1.4.1.4
---- 在WIN95 下, 网络软件产品(Tcp/IP Vendor) 选择Microsoft windows NT
Tcp/IP 3.1 , 按提示说明装入就可以了，另外还要做以下工作：

---- 将SERVER 上的tnsnames.ora 文件复制到CLIENT 端c:\orawin\network\adm
in 目录下：
ora7=(DESCRIPTION=
        (ADDRESS=
               (PROTOCOL=TCP)
             (HOST=111.1.1.1)
                  (PORT=1521)
       )
     (CONNECT_DATA=(SID=ora7))
)
---- 可在SQLPLUS 下键入连接命令scott/tiger@ora7 测试连接情况。
---- 首先要作好这三件工作：
---- 4 ．2 采取数据加密技术
---- 对用户来说，查询信息是有权限的，若想查询某项保密数
据，需正确地键入密码，才能查到。面对同一台微机，谁能正
确地键入密码，谁就能做查询，该系统通过自定义一些复杂
的函数运算产生密码，从表（TABLE）中找不到密码数据，通过
这种精密的设计处理，达到了数据保密要求。下边是密码修
改和识别的一段程序（PB5）：
password=sle_1.text
a8=pos(sle_1.text,"/")
if a8 >=1 then
password=left(sle_1.text,a8 - 1)
newpassword=mid(sle_1.text,a8+1,len(sle_1.text) - a8)
end if
select dwbm into :dm from dw where mm=:password;
sle_1.text=""
if sqlca.sqlcode< >0 then
messagebox(" 警告："," 口令错！")
pw=pw+1
if pw >=3 then
close(w_bg_main)
end if
else
mm=dm
if a8 >=1 then
a7=messagebox("提示信息","确定要修改口令吗（y/n)？
",information!,YesNo!,2)
if a7=1 then
select dwbm into :a9 from dw where mm=:newpassword;
if sqlca.sqlcode< >100 or newpassword=""  then
messagebox(" 提示信息"," 新口令错！")
goto end1
else
update dw set mm=:newpassword
where mm=:password;
messagebox("请记住新口令",string(newpassword))
commit;
end if
end if
end if
---- 4 ．3 用EXCEL 输出精美表格
---- 用VC 或PB5 将ORACLE 库中的数据生成文本或EXCEL 文件，再通过
EXCEL 的数据链接，将对应数据调入事先定义好的EXCEL 标准输
出表中，按用户的要求输出。
---- PB5 生成EXCEL 格式文件的SCRIPT 语句举例如下：
dw_1.SaveAs("c:\glxx.xls",excel!,true)
---- 4 ．4 正确使用日期型数据
---- 在库操作过程中，若日期变量的值定义错了，将提示SQL 语
句出错信息，错误现象非常隐蔽，不好察觉，这是编程过程
中的常见错误，在此特别强调一下。举一个例子：
---- 若日期数据为常量，要按下列格式赋值（用一update 语句说
明）：
    update tab  set rq='1-Feb-96';
    commit;
---- 5 结束语
---- 该系统的开发和应用，使我们更加体会到了ORACLE 数据库
的优越性，本系统的开发成功与此是分不开的，我们将做进
一步探索，用先进的开发工具和升级的ORACLE8 开发面向网络的
和多媒体的“ 管理信息系统”。

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: ftcl.hit.edu.cn]

Database 版 (精华区)