回复 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
*-