大型数据库信息排错一法

【 tulaoshi.com - 编程语言 】

　　摘要 个人信息库是医疗保险信息管理系统中最为重要的基础数据库之一，数据初次录入计算机后，会有许多差错，一般地要花费数月的时间和大量的人力物力来整理。本文介绍了一种采用"软件"排错的方法，该方法效果特别明显。

　　类似如医疗保险信息管理系统的应用系统，有非常大的数据量，采用的是Oracle之类的大型数据库。个人信息库是医疗保险信息管理系统中最为重要的基础数据库之一，它记录了每个参保人员与参加医疗保险有关的信息，如"姓名"、"性别"、"社保编号"、"人员分类"等几十个字段，一般都有数以万计、十万计的参保人员。将这样大量的数据初次录入计算机后，会有许多差错，而软件商提供的医疗保险信息管理系统皆没有提供数据库信息的排错功能，为此现有的各医疗保险信息管理系统软件的用户们都花费了数月的时间和大量的人力物力来整理个人信息数据库。

　　为了解决个人信息数据库的排错的问题，加快排错的进度和准确性，四川省南充市医保中心采用"软件"排错的方法，其效果特别明显。

　　其步骤如下：

　　一、 从Oracle数据库中得到某单位"9999"的个人信息存入文本格式文件out.txt

　　启动sql*plus

　　设置环境变量：

set heading offset pagesize 0set feedback offset trimspool onset echo off

　　设置输出：

spool d:out.txt

　　输出单位"9999"的所有人员的姓名、性别、社保编号、人员分类等字段（以"，"分隔）到d:out.txt：

select xm||','||xb||','||sbbh||','||ryfl||',' from shbx_nc.grxxk where dwid=9999;

　　关闭输出，将缓冲写入d:out.txt：

spool off

　　重复

spool d:out8888.txtselect xm||','||xb||','||sbbh||','||ryfl||',' from shbx_nc.grxxk where dwid=8888;spool off

　　可从Oracle数据库中获取某单位"8888"的个人信息。

　　二、打开FoxPro，建立两个数据库

　　1.数据库D:DBFLYC1.DBF 结构表:

　　2.数据库D:DBFLYC1_1.DBF结构表

　　三、加数据到两个数据库

　　1.将out.txt 导入到lyc1.dbf

　sele 1　USE d:dbflyc1.dbf IN 0 EXCLUSIVE　dele all　pack　append from d:dbfout.txt fields xm,xb,sbbh,ryfl delimited with ","　brow 

　　2.将out1.txt 导入到lyc1.dbf (out1.txt来自与医保个人帐户电子文档，分单位，包含个人的姓名、性别、社保编号、在职工资、退休工资等信息)

sele 2USE d:dbflyc1_1.dbf IN 0 EXCLUSIVEdele allpackappend from d:dbfout1.txt fields xh,xm,sbbh,zgz,tgz delimited with ","brow

　　四、比较两个数据库的个人信息，设标记

do 11.prgSET DEFAULT TO d:dbfSET PATH TO d:dbfselect 1use lyc1select 2use lyc1_1do while not eof()select 1go 1locate for xm = lyc1_1 - xmdo while not eof()if sbbh = lyc1_1 - sbbh 如果姓名相同，社保编号也相同，设标记为yreplace xh with lyc1_1 - xhreplace bj with "y"replace lyc1_1 - bj with "y"if ryfl="在职" and lyc1_1 - tgz  0 如果有退休工资，不能是在职replace ryfl with "在职？"endifif ryfl="退休" and lyc1_1 - zgz  0replace ryfl with "退休？"endifif ryfl=" " and lyc1_1 - tgz  0replace ryfl with "？退休"endifif ryfl=" " and lyc1_1 - zgz  0replace ryfl with "？在职"endifexitelseif bj"y" 如果标记没设为yreplace xh with lyc1_1 - xhreplace bj with "n" 姓名相同，社保编号不同，设标记为nendifcontinueendifenddoselect 2skip 1enddosele 1usesele 2use

　　五、为标记为"n"和" "的记录寻找"对比"信息

do 22.prgSET DEFAULT TO d:dbfSET PATH TO d:dbfselect 1use lyc1select 2use lyc1_1select 1go 1do while not eof()if bj="n"select 2go 1locate for xm = lyc1 - xmif not eof()replace db with lyc1 - sbbh 姓名相同，对比社保编号replace lyc1 - db with sbbhendifendifselect 1if bj=" "select 2go 1locate for sbbh = lyc1 - sbbhif not eof()replace db with lyc1 - xm 社保编号相同，对比姓名replace lyc1 - db with xmendifendifselect 1skip 1enddosele 1usesele 2use

　　六、打印排错信息

do p3p3.prgclearset print onset device to printset default to d:dbfset path to d:dbfselect 1use lyc1i=2@1,10 say " 医保数据库 错误记录："@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+' 人员分类 '+'对比提示'locate for bj="n"do while not eof()i=i+1if i76@1,10 say " 医保数据库 错误记录："@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+' 人员分类 '+'对比提示'i=3endif@i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+ryfl+" "+dbcontinueenddogo 1i=2@1,10 say "****************医保数据库 无对应记录：******************"@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示'locate for bj=" "do while not eof()i=i+1if i76@1,10 say "****************医保数据库 无对应记录：****************"@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示'i=3endif@i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+ryfl+" "+dbcontinueenddogo 1i=i+1@i,10 say "****************医保数据库 分类有问题：****************"i=i+1@i,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示'locate for at('？',ryfl)0do while not eof()i=i+1if i76@1,10 say "****************医保数据库 分类有问题：****************"@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示'i=3endif@i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+ryfl+" "+dbcontinueenddocount all to tcount all for bj="y" to scount all for ryfl="在职" to zscount all for ryfl="退休" to tx@i+1,10 say "****医保数据库 正确记录数："+str(s,4,0)+"/"+str(t,4,0)+"/在职"+str(zs,4,0)+"/退休"+str(tx,4,0)select 2use lyc1_1i=2@1,10 say "===============校对文稿 无对应记录：==============="@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'对比提示'locate for bj=" "do while not eof()i=i+1if i76@1,10 say "===============校对文稿 无对应记录：==============="@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'对比提示'i=3endif@i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+" "+dbcontinueenddocount all to tcount all for bj="y" to scount all for zgz  0 to zscount all for tgz  0 to tx@i+1,10 say "========校对文稿 校对正确记录数："+str(s,4,0)+"/"+str(t,4,0)+"/在职"+str(zs,4,0)+"/退休"+str(tx,4,0)ejectsele 1usesele 2useset print offset device to screen

　　输出结果

　　1. 医保数据库 错误记录：

　　医保数据库中与校对文稿中姓名相同而社保编号不同的列入此列，同时输出两个社保编号提供对比

　　2. 医保数据库 无对应记录：

　　(1) 医保数据库中与校对文稿中社保编号相同而姓名不同的列入此列，同时输出两个姓名提供对比

　　(2) 医保数据库中与校对文稿中姓名、社保编号都对应的列入此列，对比栏为空

　　3. 医保数据库 分类有问题：

　　在职和退休分类错的

　　4. 校对文稿 无对应记录：

　　(1) 医保数据库中与校对文稿中姓名相同而社保编号不同的，同时输出两个社保编号提供对比

　　(2) 医保数据库中与校对文稿中社保编号相同而姓名不同的，同时输出两个姓名提供对比

　　(3) 医保数据库中与校对文稿中姓名、社保编号都不对应的，对比栏为空