oracle大型数据库的信息排错一法

　　摘要 个人信息库是医疗保险信息管理系统中最为重要的基础数据库之一，数据初次录入计算机后，会有许多差错，一般地要花费数月的时间和大量的人力物力来整理。本文介绍了一种采用"软件"排错的方法，该方法效果特别明显。
　　
　　类似如医疗保险信息管理系统的应用系统，有非常大的数据量，采用的是Oracle之类的大型数据库。个人信息库是医疗保险信息管理系统中最为重要的基础数据库之一，它记录了每个参保人员与参加医疗保险有关的信息，如"姓名"、"性别"、"社保编号"、"人员分类"……等几十个字段，一般都有数以万计、十万计的参保人员。将这样大量的数据初次录入计算机后，会有许多差错，而软件商提供的医疗保险信息管理系统皆没有提供数据库信息的排错功能，为此现有的各医疗保险信息管理系统软件的用户们都花费了数月的时间和大量的人力物力来整理个人信息数据库。
　　
　　为了解决个人信息数据库的排错的问题，加快排错的进度和准确性，四川省南充市医保中心采用"软件"排错的方法，其效果特别明显。
　　
　　其步骤如下：
　　一、 从Oracle数据库中得到某单位"9999"的个人信息存入文本格式文件out.txt
　　启动sql*plus
　　
　　设置环境变量：
　　set heading off
　　set pagesize 0
　　set feedback off
　　set trimspool on
　　set 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.txt
　　select xm||','||xb||','||sbbh||','||ryfl||',' from shbx_nc.grxxk where dwid=8888;
　　spool off
　　
　　可从Oracle数据库中获取某单位"8888"的个人信息。
　　
　　二、打开FoxPro，建立两个数据库
　　1.数据库D:\DBF\LYC1.DBF 结构表:
　　
　　　
　　"
　　
　　三、加数据到两个数据库
　　1.将out.txt" 导入到lyc1.dbf
　　
　　sele 1
　　USE d:\dbf\lyc1.dbf IN 0 EXCLUSIVE
　　dele all
　　pack
　　append from d:\dbf\out.txt fields xm,xb,sbbh,ryfl delimited with ","
　　brow
　　
　　2.将out1.txt 导入到lyc1.dbf (out1.txt来自与医保个人帐户电子文档，分单位，包含个人的姓名、性别、社保编号、在职工资、退休工资等信息)
　　sele 2
　　USE d:\dbf\lyc1_1.dbf IN 0 EXCLUSIVE
　　dele all
　　pack
　　append from d:\dbf\out1.txt fields xh,xm,sbbh,zgz,tgz delimited with ","
　　brow
　　
　　四、比较两个数据库的个人信息，设标记
　　do 1
　　1.prg
　　SET DEFAULT TO d:\dbf
　　SET PATH TO d:\dbf
　　select 1
　　use lyc1
　　select 2
　　use lyc1_1
　　do while not eof()
　　select 1
　　go 1
　　locate for xm = lyc1_1 -> xm
　　do while not eof()
　　if sbbh = lyc1_1 -> sbbh 如果姓名相同，社保编号也相同，设标记为y
　　replace xh with lyc1_1 -> xh
　　replace bj with "y"
　　replace lyc1_1 -> bj with "y"
　　if ryfl="在职" and lyc1_1 -> tgz > 0 如果有退休工资，不能是在职
　　replace ryfl with "在职？"
　　endif
　　if ryfl="退休" and lyc1_1 -> zgz > 0
　　replace ryfl with "退休？"
　　endif
　　if ryfl=" " and lyc1_1 -> tgz > 0
　　replace ryfl with "？退休"
　　endif
　　if ryfl=" " and lyc1_1 -> zgz > 0
　　replace ryfl with "？在职"
　　endif
　　exit
　　else
　　if bj<>"y" 如果标记没设为y
　　replace xh with lyc1_1 -> xh
　　replace bj with "n" 姓名相同，社保编号不同，设标记为n
　　endif
　　continue
　　endif
　　enddo
　　select 2
　　skip 1
　　enddo
　　sele 1
　　use
　　sele 2
　　use
　　do 2
　　2.prg
　　SET DEFAULT TO d:\dbf
　　SET PATH TO d:\dbf
　　select 1
　　use lyc1
　　select 2
　　use lyc1_1
　　select 1
　　go 1
　　do while not eof()
　　if bj="n"
　　select 2
　　go 1
　　locate for xm = lyc1 -> xm
　　if not eof()
　　replace db with lyc1 -> sbbh 姓名相同，对比社保编号
　　replace lyc1 -> db with sbbh
　　endif
　　endif
　　select 1
　　if bj=" "
　　select 2
　　go 1
　　locate for sbbh = lyc1 -> sbbh
　　if not eof()
　　replace db with lyc1 -> xm 社保编号相同，对比姓名
　　replace lyc1 -> db with xm
　　endif
　　endif
　　select 1
　　skip 1
　　enddo
　　sele 1
　　use
　　sele 2
　　use
　　
　　六、打印排错信息
　　do p3
　　p3.prg
　　clear
　　set print on
　　set device to print
　　set default to d:\dbf
　　set path to d:\dbf
　　select 1
　　use lyc1
　　i=2
　　@1,10 say " 医保数据库 错误记录："
　　@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+' 人员分类 '+'对比提示'
　　locate for bj="n"
　　do while not eof()
　　i=i+1
　　if i>76
　　@1,10 say " 医保数据库 错误记录："
　　@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+' 人员分类 '+'对比提示'
　　i=3
　　endif
　　@i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+ryfl+" "+db
　　continue
　　enddo
　　go 1
　　i=2
　　@1,10 say "****************医保数据库 无对应记录：******************"
　　@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示'
　　locate for bj=" "
　　do while not eof()
　　i=i+1
　　if i>76
　　@1,10 say "****************医保数据库 无对应记录：****************"
　　@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示'
　　i=3
　　endif
　　@i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+ryfl+" "+db
　　continue
　　enddo
　　go 1
　　i=i+1
　　@i,10 say "****************医保数据库 分类有问题：****************"
　　i=i+1
　　@i,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示'
　　locate for at('？',ryfl)>0
　　do while not eof()
　　i=i+1
　　if i>76
　　@1,10 say "****************医保数据库 分类有问题：****************"
　　@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'人员分类 '+'对比提示'
　　i=3
　　endif
　　@i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+ryfl+" "+db
　　continue
　　enddo
　　count all to t
　　count all for bj="y" to s
　　count all for ryfl="在职" to zs
　　count 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 2
　　use lyc1_1
　　i=2
　　@1,10 say "======校对文稿 无对应记录：======="
　　@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'对比提示'
　　locate for bj=" "
　　do while not eof()
　　i=i+1
　　if i>76
　　@1,10 say "======校对文稿 无对应记录：========"
　　@2,10 say '序号 '+'姓名 '+'性别'+' 社保编号 '+'对比提示'
　　i=3
　　endif
　　@i,10 say str(xh,4,0)+" "+xm+xb+" "+substr(sbbh,1,30)+" "+db
　　continue
　　enddo
　　count all to t
　　count all for bj="y" to s
　　count all for zgz > 0 to zs
　　count 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)
　　
　　eject
　　sele 1
　　use
　　sele 2
　　use
　　set print off
　　set device to screen
　　
　　输出结果
　　1. 医保数据库 错误记录：
　　
　　医保数据库中与校对文稿中姓名相同而社保编号不同的列入此列，同时输出两个社保编号提供对比
　　
　　2. 医保数据库 无对应记录：
　　
　　(1) 医保数据库中与校对文稿中社保编号相同而姓名不同的列入此列，同时输出两个姓名提供对比
　　
　　(2) 医保数据库中与校对文稿中姓名、社保编号都对应的列入此列，对比栏为空
　　
　　3. 医保数据库 分类有问题：
　　
　　在职和退休分类错的
　　
　　4. 校对文稿 无对应记录：
　　
　　(1) 医保数据库中与校对文稿中姓名相同而社保编号不同的，同时输出两个社保编号提供对比
　　
　　(2) 医保数据库中与校对文稿中社保编号相同而姓名不同的，同时输出两个姓名提供对比
　　
　　(3) 医保数据库中与校对文稿中姓名、社保编号都不对应的，对比栏为空
　　

原文转自：http://www.ltesting.net