的过程TForm1.Edit1KeyPress(发件人:TObject的VAR键:字符)
开始
如果没有(重点在['0'.. '9',#8,#13])
开始
重点:=#0
('绂诲紑镞堕棿搴斿ぇ浜庡叆浣忔椂闂达紒“只能输入一个数字”)
结束
结束的
然后改变FieldByName('用户名')AsInteger:= StrToInt(edit1.text)
你尝试
'Range, Serve_Tel) values (0, 0, '', '', 0, '', '', '', 0, '', 0, '', '', '', '')意识说在这附近有错误。。
看看是不是你的values 值和字段多了。少了。。或者类型不对
插入失败一般原因:1.字段和值不一致。
2.数据类型强制转换错误。
3.标点符号。
4.数据类型长度。
通过上述几个方面可以找出你的问题答案,当然原因不止这一些。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)