大型数据库信息排错一法

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

　　类似如医疗保险信息管理系统的应用系统，有非常大的数据量，采用的是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 结构表:

Field Field Name  Type Width  
1  XH  Integer 4  序号  
2  XM  Character  10  姓名  
3  XB  Character 4  性别  
4  SBBH Character 40  社保编号  
5  RYFL Character 10 人员分类  
6  BJ  Character 2  标记  
7  DB  Character  20  对比
** Total **  91

　　2.数据库D:\DBF\LYC1_1.DBF结构表

Field Field Name  Type  Width  
1  XH  Integer 4  序号
2  XM  Character  10  姓名  
3  XB Character  4  性别  
4  SBBH  Character  40  社保编号
5  ZGZ  Integer 4  在职工资
6  TGZ  Integer 4  退休工资  
7  BJ  Character  2  标记  
8  DB Character 20  对比  
** Total ** 89  

　　三、加数据到两个数据库

　　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 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 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) 医保数据库中与校对文稿中姓名、社保编号都不对应的，对比栏为空

我自己顶!!

辛苦啦