在delphi中如何将edit.text中的数据保存到数据库为整型，程序总是提示用了错误的类型值

发布网友 发布时间：2022-04-23 22:48

我来回答

共5个回答

热心网友 时间：2023-10-12 16:54

添加控件只能输入一个数字，在编辑这些首先要避免决策失误。
的过程TForm1.Edit1KeyPress（发件人：TObject的VAR键：字符）;
开始
如果没有（重点在['0'.. '9'，＃8，＃13]）
开始
重点：=＃0;
（'绂诲紑镞堕棿搴斿ぇ浜庡叆浣忔椂闂达紒“只能输入一个数字”）;
结束;
结束;
结束的;
然后改变FieldByName（'用户名'）AsInteger：= StrToInt（edit1.text）;
你尝试

热心网友 时间：2023-10-12 16:54

fieldbyname ('权限').Value:=StrToInt(trim(edit4.text));

需要用到字符串转换成整型函数。

热心网友 时间：2023-10-12 16:55

在edit这几个中都添加只能输入数字的一个管控，避免出错先。
procere TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8, #13]) then
begin
Key := #0;
ShowMessage('只能输入数字');
end;
end;
end;
然后改成FieldByName('用户名').AsInteger := StrToInt(edit1.text);
你试试

热心网友 时间：2023-10-12 16:55

试试这样。
FieldByName ('用户名').Value:=strtoint(trim(edit1.Text));

不过您确定数据库字段为整型？名字也是？

热心网友 时间：2023-10-12 16:56

有可能是因为你的员工编号字段使用了int类型，当编号为空或者有非0-9数字时就会出现这类问题，也或者是你的权限那里也是使用了int类型，你可以写入的时候检测下就可以解决了