用程序检查确保数据正确 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 用程序检查确保数据正确

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1019 人关注过本帖

标题：用程序检查确保数据正确

只看楼主加入收藏

tjdeming

等　级：论坛游民
帖　子：429
专家分：54
注　册：2013-3-4
结帖率：90.14%

楼主

已结贴√ 问题点数：20 回复次数：19

用程序检查确保数据正确

Bookgood.rar (2.64 KB)

有一张标准表，用来检查现有数据表的正确性，谢谢各位高手。请用VFP6.0

[ 本帖最后由 tjdeming 于 2013-5-18 18:17 编辑 ]

搜索更多相关主题的帖子: 数据表　

2013-05-18 18:16

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9853
专家分：27255
注　册：2012-2-5

第 2 楼

得分:0

在数据录入时就要检查数据录入的准确性，不要等到问题发生了，才想到检查数据是否准确，无形中增加了自己的工作量。
没有原始数据，如何检查数据是否准确。

坚守VFP最后的阵地

2013-05-18 19:03

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 3 楼

得分:0

数据录入时控件就行

2013-05-18 19:20

tjdeming

等　级：论坛游民
帖　子：429
专家分：54
注　册：2013-3-4

第 4 楼

得分:0

这个BKGD.DBF是一个自由表,是我随人员变化动态调整，动态调整难免有错，现上

Bkgd.rar (618 Bytes)

传有错的表，请用程序一条条审核出来。谢谢。

[ 本帖最后由 tjdeming 于 2013-5-18 19:30 编辑 ]

2013-05-18 19:27

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9853
专家分：27255
注　册：2012-2-5

第 5 楼

得分:0

程序代码：

CLOSE TABLES
USE BKGD ALIAS BKGD
USE 标准表 ALIAS BZB
SELECT BZB
SCAN
   UPDATE BKGD SET 编号=BZB.编号,类别=BZB.类别 WHERE ALLTRIM(BKGD.职名)==ALLTRIM(BZB.职名)
ENDSCAN
SELECT BKGD
BROWSE

坚守VFP最后的阵地

2013-05-18 19:37

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9853
专家分：27255
注　册：2012-2-5

第 6 楼

得分:0

* 数据检查

程序代码：

CLOSE TABLES
USE BKGD ALIAS BKGD
USE 标准表 ALIAS BZB
SELECT BZB
SCAN
   *方法一
   SELECT BKGD
   SCAN
      DELETED FOR ALLTRIM(BKGD.职名)==ALLTRIM(BZB.职名) AND (编号!=BZB.编号 OR ALLTRIM(类别)!=ALLTRIM(BZB.类别))
   ENDSCAN
   *方法二
   *DELETED FROM BKGD ALLTRIM(BKGD.职名)==ALLTRIM(BZB.职名) AND (编号!=BZB.编号 OR ALLTRIM(类别)!=ALLTRIM(BZB.类别))
ENDSCAN
SELECT BKGD
BROWSE

坚守VFP最后的阵地

2013-05-18 19:47

tjdeming

等　级：论坛游民
帖　子：429
专家分：54
注　册：2013-3-4

第 7 楼

得分:0

回复 5楼 sdta

序号14、15条记录未审核出来。
能用定位的方法，一条条在目测状态下改，因为毕竟错的是少数。动态调整动态审核就不会错了。
记录不能删除。

[ 本帖最后由 tjdeming 于 2013-5-18 20:01 编辑 ]

2013-05-18 19:49

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9853
专家分：27255
注　册：2012-2-5

第 8 楼

得分:0

以下是引用tjdeming在2013-5-18 19:49:37的发言：

序号14、15条记录未审核出来。

这就是你当初数据录入时，不规范的数据录入造成的。
把职名中的字母，全部转换为大写，把前面的代码稍做修改就行了

坚守VFP最后的阵地

2013-05-18 19:54

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9853
专家分：27255
注　册：2012-2-5

第 9 楼

得分:0

程序代码：

CLOSE TABLES
USE BKGD ALIAS BKGD
USE 标准表 ALIAS BZB
SELECT BZB
SCAN
   SELECT BKGD
   BROWSE FOR ALLTRIM(BKGD.职名)==ALLTRIM(BZB.职名) AND (编号!=BZB.编号 OR ALLTRIM(类别)!=ALLTRIM(BZB.类别))
ENDSCAN
SELECT BKGD
BROWSE

坚守VFP最后的阵地

2013-05-18 19:56

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9853
专家分：27255
注　册：2012-2-5

第 10 楼

得分:20

程序代码：

* 数据修改
CLOSE TABLES
USE BKGD ALIAS BKGD
REPLACE ALL 职名 WITH UPPER(职名) && 注意字母转换
USE 标准表 ALIAS BZB
SELECT BZB
SCAN
   UPDATE BKGD SET 编号=BZB.编号,类别=BZB.类别 WHERE ALLTRIM(BKGD.职名)==ALLTRIM(BZB.职名)
ENDSCAN
SELECT BKGD
BROWSE

坚守VFP最后的阵地

2013-05-18 19:58

快速回复：用程序检查确保数据正确