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

  来源：赛迪网技术社区    作者：yuanyang

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开发面向网络的和多媒体的“管理信息系统”。