开发基于Oracle数据库的管理信息系统

核心提示： 在WIN95下,网络软件产品(Tcp/IPVendor)选择MicrosoftwindowsNTTcp/IP3.1,按提示说明装入就可以了，另外还要做以下工作：将SERVER上的tnsnames.ora文件复制到CLIENT端c:orawinetworkadmin目录下：ora7=(DES

在WIN95下,网络软件产品(Tcp/IPVendor)选择MicrosoftwindowsNTTcp/IP3.1,按提示说明装入就可以了，另外还要做以下工作：

将SERVER上的tnsnames.ora文件复制到CLIENT端c:orawin etworkadmin目录下：　　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,"/")
　　ifa8>=1then
　　password=left(sle_1.text,a8-1)
　　newpassword=mid(sle_1.text,a8+1,len(sle_1.text)-a8)
　　endif
　　selectdwbminto:dmfromdwwheremm=:password;
　　sle_1.text=""
　　ifsqlca.sqlcode<>0then
　　messagebox("警告：","口令错！")
　　pw=pw+1
　　ifpw>=3then
　　close(w_bg_main)
　　endif
　　else
　　mm=dm
　　ifa8>=1then
　　a7=messagebox("提示信息","确定要修改口令吗（y/n)？
　　",information!,YesNo!,2)
　　ifa7=1then
　　selectdwbminto:a9fromdwwheremm=:newpassword;
　　ifsqlca.sqlcode<>100ornewpassword=""then
　　messagebox("提示信息","新口令错！")
　　gotoend1
　　else
　　updatedwsetmm=:newpassword
　　wheremm=:password;
　　messagebox("请记住新口令",string(newpassword))
　　commit;
　　endif
　　endif
　　endif

4．3用EXCEL输出精美表格

用VC或PB5将ORACLE库中的数据生成文本或EXCEL文件，再通过EXCEL的数据链接，将对应数据调入事先定义好的EXCEL标准输出表中，按用户的要求输出。

PB5生成EXCEL格式文件的SCRIPT语句举例如下：dw_1.SaveAs("c:glxx.xls",excel!,true)

4．4正确使用日期型数据

在库操作过程中，若日期变量的值定义错了，将提示SQL语句出错信息，错误现象非常隐蔽，不好察觉，这是编程过程中的常见错误，在此特别强调一下。举一个例子：

若日期数据为常量，要按下列格式赋值（用一update语句说明）：　　updatetabsetrq='1-Feb-96';
　　commit;

5结束语

该系统的开发和应用，使我们更加体会到了ORACLE数据库的优越性，本系统的开发成功与此是分不开的，我们将做进一步探索，用先进的开发工具和升级的ORACLE8开发面向网络的和多媒体的“管理信息系统”。