基于PB6和ORACLE8开发“劳动信息管理系统”

1、基于PB6和0RACLE8开发劳动信息管理系统基于PB6和0RACLE8开发“劳动信息管理系统”基于PB6和0RACLE8开发“劳动信息管理系统”刘茂忠（mzliu99#hotma订.）摘要：本文介绍了用P0WERBUILDER6. 0 （以下简称PB6）和0RACLE8开发“劳动信息管 理系统”（以下简称“系统”）的方法和解决的技术性问题，并介 绍一些开发经验。主题词：PB60RACLE8劳动信息方法技术1前言“劳动信息管理系统” 一般情况下都做成数字表格、文字描述、图形显示等形式。“数字表格”即具体 的人员、工资数据的结构化描述；“文字描述”即用一段文字叙 述或补充说明情况等；这里的“图”

2、包括两类，即照片图（例如 BMP位图等）和动态生成的指标描述图（如折线图等）。笔者在选 择开发工具和数据库方面，经过详细调研后，觉得用PB6和 0RACLE8最为合适，现将开发和应用中的一些体会总结成文，供读 者参考。2系统的运行环境本系统在CLIENT/SERVER结构上运行，SERVER平台为UNIX,装有 0RACLE8 数据库。CLIENT 端通过 HUB、ROUTER 与 SERVER 连接， CLIENT端的开发、运行平台是WIN95/98/2000,前端开发工具为 PB6,总体网络协议为TCP/IPo3系统功能介绍第1页共1页该系统包括劳动管理信息的维护和查询两部分，内容充实，立

3、足 于应用。表、文、图具全，对比图形由数据自动生成。同类型的 数据查询采用了窗口继承的开发方法和动态数据窗口，查询界面 统一、清晰。文字部分存入ORACLE库的LONG字段中，用MLE （多 行编辑器）作为输入、输出的中间编辑、查询界面。一些原始资 料，如照片、背景图等做成了 BMP图片，以BLOB数据方式存入 ORACLE库中，或存至NFS （网络文件系统）的“虚”盘上，查询 时调入图形框（如P_l）内。4技术难点及解决的方法4. 1字符集的选择如果字符集选择错误，会出现汉字显示成乱字符的现象，需要从注册表中选择正确的字符集，具体方 法是:在WIN95/98/2000下运行注册表编辑程序re

4、gedit.exe,选 择 1IKEY_LOCAL_MAC11INE,再选择 SOFTWARE,再选择 ORACLE,然后 选择NLS.LANG（语言的国际支持），键入和服务器端相同的.字符 集。例如服务器端的字符集为AMERICAN_AMERICAN. US7ASCII,在此 也输入此项就行了。4. 2PB6和0RACLE8的连接PB6和0RACLE8的连接是一项很重要的内容，很多导致调用数据库失败的原因就出于此，根据不同的用户需求和硬件 环境，可灵活选择客户端的接口软件，下面举例子来说明连接方 法：4. 2.1/通过8连接数据库，支持32位的数据访问,安装0RACLE8的8软件/目前PB6

5、支持到ORACLE7. 3,但是也支持0RACLE8,所以设置如下SQLCA. DBMS二o73”/要访问的 ORACLE第1页共1页用户名SQLCA. LogID二lz”SQLCA. LogPeiss二lzpwd”SQLCA. UserID二lz/通过SQL*V2和ORACLE库连接SQLCA. ServerName=80Connectusingsqlca；4. 2. 2/通过SQL*V2连接，可支持16位的数据访问，客户端可 选择 ORACLECDE 的 SQL*V2SQLCA. DBMS二”o71”/要访问的ORACLE用户名SQLCA. LogIlzSQLCA. UserID二lz”S

6、QLCA. LogPass=Mlzpwd/通过SQL*V2和ORACLE库连接SQLCA. ServerName=H snv2Connectusingsqlcd；以上的Script语句描述了和SERVER的连接过程，也可以将上述Script语句存入文件（如pb. ini）中，通 过调用文件和数据库做连接。若PB6和0RACLE8连接不通，可查一下C： AUT0EXEC. BAT里边的路径是否包 含c： orawin95bin （或相应的路径）,如果没有此路径说明，PB6和0RACLE8不能连通。4. 3文字类数据（文本）的入库和查询文本入库和查询可采用PB6的MLE （多行编辑器）作界面，编辑

7、完成后存入0RACLE8的LONG字段中，查询时从LONG字段中取出，放入MLE中查询，下边是一个例子: /文本的预处理（以去除文本文件中的回车换行符为例说明） /将文件读入BLOB型变量text中 fn=fileopen(txtname,streammode!)第1页共1页lthenfileread (fn,text)/将读入的数据流组合成字符串s二1en(art i c1e)forv=Itosfileclose (fn)article=string(text)ift>；Othenelseendif/将处理后的文件t二pos (article,char(13)+char(10),v) article=replac