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
