| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1935 人关注过本帖
标题:控制相同记录在5分钟之内不允许增加
取消只看楼主 加入收藏
wangguowu
Rank: 2
等 级:论坛游民
帖 子:73
专家分:18
注 册:2012-2-15
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:3 
控制相同记录在5分钟之内不允许增加
11.rar (4.26 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册


请高手解决一下!
搜索更多相关主题的帖子: 记录 
2016-05-15 13:14
wangguowu
Rank: 2
等 级:论坛游民
帖 子:73
专家分:18
注 册:2012-2-15
收藏
得分:0 
因为是VFP+SQL 架构,不方便传数据和表单,就是在实际工作中遇到这样的问题,曾在网上求助过没有得到解决,也没有什么商业用途,纯个人爱好,在工作中帮单位编个小程序,仅此而已!
2016-05-15 16:45
wangguowu
Rank: 2
等 级:论坛游民
帖 子:73
专家分:18
注 册:2012-2-15
收藏
得分:0 
回复 4楼 sdta
  sj                     xm     sfzh
2016-5-11 16:40 14 11  张三 610211198801220237
2016-5-11 16:41 33 11  张二 610211199101215971
2016-5-11 16:45 14 14  张三 610211198801220237 怎样控制这条记录在5分钟之内不能重复增加
引用网上一位朋友给的代码测试不成功!不知如何写!

*-
lcxm       = RTRIM(ltrim(THISFORM.text1.Value))
lcsfzh    =THISFORM.text2.Value
lcsj           =THISFORM.text3.Value
sele data1
SELECT MAX(sj) FROM data1 WHERE sfzh=lcsfzh INTO ARRAY lostsj
if type(lostsj)=.T.   &&筛选出相同身份证号码的记录
    if lcsj-sj>300  &&控制相同记录在5分钟之内不允许增加,此处出错
         MESSAGEBOX("与上次的记录时间超过5分钟,添加新记录",48,"信息提示")
        INSERT INTO data1 (name,sfzh,sj) VALUES (lcxm,lcsfzh,lcsj)
    ENDIF
ELSE
        MESSAGEBOX("无上次的记录,直接添加新记录",48,"信息提示")
       INSERT INTO data1 (name,sfzh,sj) VALUES (lcxm,lcsfzh,lcsj)
ENDIF

*-

2016-05-15 18:57
wangguowu
Rank: 2
等 级:论坛游民
帖 子:73
专家分:18
注 册:2012-2-15
收藏
得分:0 
回复 6楼 sdta

谢谢 sdta
顺利通过!
2016-05-15 19:40
快速回复:控制相同记录在5分钟之内不允许增加
数据加载中...
 
   



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

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