Join命令在数据库分类统计中的应用(原创).doc

Join 命令在数据库分类统计中的应用在第二次全国基本单位普查及刚结束的河北省第三产业清查数据处理工作中,笔者遇到了如下的问题,并成功地用total 及join 命令加以解决。今年将进行三合一的第一次全国经济普查，哪位同行若遇到此类问题,可参考本文。以河北省第三产业清查丙表为例,有如下丙表数据库Q3.DBF，结构简述如下：字段名字段类型宽度小数位 作者标注MC C 40 单位名称DZ C 40 单位地址GS N 3 0 重名个数记录如下：张三,南大街,0李四,中大街,0张三,北环路,0王五,西大街,0李四,南环路,0赵六,杨岭镇,0张三,南大街,0周七,周各庄镇,0郑二,郑各庄镇,0（注：以上Q3.DBF中的记录由河北省三产清查SARP2000-3.0版的数据文本 D:SCBFQ3UNT.TXT追加而得到，单位名称在此用人名简化。）专业人员担心在填表或录表过程中，有重填或重录现象，提出如下要求：将数据库中重名的记录找出并打印，以便核实。我县Q3.DBF的数据记录为16220条，按照以往做法，需要编制一个两重循环程序，逐条查找、定位并最终形成一个重命库。费时、不易调试且容易出错。为了及时满足专业人员要求及以后快速解决此类问题，笔者编制了如下不含循环CM.PRG 程序（重名程序），清单如下：use q3zap append from d:scbfq3unt.txt deli sort on mc to q3mc use q3mc replace all gs with 1total all to cm on subs(mc,1,10) use cmcopy to 2cm for gs=2close allsele 1use 2cmsele 2 use q3join with a to cmcm for mc=a-mcsele 3 use cmcmsort on mc to ccuse cclist mc,dz to print 前句得到数据库2CM.DBF，找到名称相同的第一条记录，并统计出重名记录个数，关键语句为第行的total命令（在此语句中单位名称的前个汉字相同，即认为重名）。2CM.DBF记录清单如下：李四，中大街，2 张三，南大街，3 后句得到数据库CC.DBF，用2CM.DBF与Q3.DBF关联出名称相同的所有记录（CMCM.DBF），而后排序得到CC.DBF并打印。关键语句为第行的Join命令。CC.DBF记录清单如下：李四，中大街，0李四，南环路，0张三，南大街，0张三，北环路，0 张三，南大街，0经过以上操作，共找出重名记录余条。经核实其中重填和重录记录余条，极大地提高了数据质量。 那为什么Join命令在数据库教材及资料提及很少而没有被广泛使用呢？笔者认为这是因当时计算机硬件水平的局限性决定的。以Q3.DBF记录为16220条，2CM.DBF记录为150条为例，单步执行上述CM.PRG程序，其中第15条的Join命令关联耗时如下：计算机硬件配置操作系统数据库软件耗时联想开天4610 P4 2.4G/256MWINDOWS XPVisual foxpro 6.09秒联想启天4000 p4 1.5G/128MWINDOWS 98Visual foxpro 6.017秒兼容机Celeron 400/128MWINDOWS 98Visual foxpro 6.01分02秒COMPAQ 486/66/8MDOS 6.22FOXBASE 2.134分可以看出，硬件配置对Join命令的耗时起着关键性作用。请读者留意笔者特意重新调试的那台486