| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 518 人关注过本帖
标题:请教一个关于导入的问题
只看楼主 加入收藏
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
结帖率:77.78%
收藏
已结贴  问题点数:5 回复次数:5 
请教一个关于导入的问题
我有一个导入程序,1、判断人员表中是否有已导入人员。2、判断临时表中是否有录入重复人员。3、如果正确则可导入。我的问题是:如何把1和2合并到一个判断中。1或2有错则停止程序运行,并提示。如果1或2都没有错误则进行第3.

**1、判断人员表中是否有已导入人员***************************
SELECT * from ry_temp where !EMPTY(bz) OR ry_temp.sfzh in(select sfzh FROM ry)  INTO CURSOR aaaa
SELECT aaaa
a=RECCOUNT()
dwmc=aaaa.dwmc
IF a!=0
   COPY TO &dwmc. FIELDS dwbh,dwmc,ryxm,sfzh,bz SDF
    MESSAGEBOX("身份证号有错误或数据重复,数据已导出!位置在:"+(Mymllj),0+48,"居民医保警告")
   
    RETURN
ENDIF  
**2、判断临时表中是否有录入重复人员****
SELECT * from ry_temp where  ry_temp.sfzh in(select sfzh FROM ry_temp group by ry_temp.sfzh HAVING COUNT(ry_temp.sfzh)>1) INTO CURSOR ccc
SELECT ccc
b=RECCOUNT()
dwmc=ccc.dwmc
IF b!=0
   COPY TO &dwmc. FIELDS dwbh,dwmc,ryxm,sfzh SDF
    MESSAGEBOX("单位内部身份证号重复,数据已导出!位置在:"+(Mymllj),0+48,"居民医保警告")
   
  RETURN
ENDIF
**3、以上如都果正确则可导入***********   
MESSAGEBOX("数据可以导入!",1+48,"居民医保管理系统")
  
搜索更多相关主题的帖子: 人员 身份证号 aaaaa where 
2012-12-14 15:16
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
收藏
得分:0 
没人帮忙?在线等高人指点
2012-12-14 16:00
bccn201203
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:3
帖 子:680
专家分:1140
注 册:2012-3-14
收藏
得分:0 
分太少了
2012-12-14 17:59
月沐庭轩
Rank: 9Rank: 9Rank: 9
来 自:京城
等 级:贵宾
威 望:17
帖 子:393
专家分:1106
注 册:2011-7-24
收藏
得分:5 
设置一个变量,iserror,然后判断两者是否正确。
**1、判断人员表中是否有已导入人员***************************
iserror=.f.&&初始值
SELECT * from ry_temp where !EMPTY(bz) OR ry_temp.sfzh in(select sfzh FROM ry)  INTO CURSOR aaaa
SELECT aaaa
a=RECCOUNT()
dwmc=aaaa.dwmc
IF a!=0
   COPY TO &dwmc. FIELDS dwbh,dwmc,ryxm,sfzh,bz SDF
    MESSAGEBOX("身份证号有错误或数据重复,数据已导出!位置在:"+(Mymllj),0+48,"居民医保警告")
   
    RETURN
else
iserror=.t.&&&&无错误,则改变

ENDIF  
**2、判断临时表中是否有录入重复人员****
SELECT * from ry_temp where  ry_temp.sfzh in(select sfzh FROM ry_temp group by ry_temp.sfzh HAVING COUNT(ry_temp.sfzh)>1) INTO CURSOR ccc
SELECT ccc
b=RECCOUNT()
dwmc=ccc.dwmc
IF b!=0
   COPY TO &dwmc. FIELDS dwbh,dwmc,ryxm,sfzh SDF
    MESSAGEBOX("单位内部身份证号重复,数据已导出!位置在:"+(Mymllj),0+48,"居民医保警告")
   
  RETURN
else
iserror=.t.&&&&无错误,则改变

ENDIF
**3、以上如都果正确则可导入***********
if iserror=.t.&&&&无错误,则导入
MESSAGEBOX("数据可以导入!",1+48,"居民医保管理系统")
  

endif

[ 本帖最后由 月沐庭轩 于 2012-12-14 19:01 编辑 ]

坚持学习vfp,QQ:306805680
2012-12-14 18:59
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
4楼的办法是最基本、最简单的办法。设置一个变量,然后逐项检查,检查通不过时除了给出提示外,还改变这个变量的值,只要值被改变了,就说明至少有一项检查没有通过。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2012-12-14 21:21
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
收藏
得分:0 
感谢月沐庭轩和hu9jj老师,事实我并不是很懂VFP,单位需要没办法。再次感谢老师帮忙
2012-12-15 10:36
快速回复:请教一个关于导入的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018028 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved