Question

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

我的权限字段在数据库里是整型的，代码如下
FieldByName ('用户名').Value:=trim(edit1.Text);
fieldbyname ('真实名').Value:=trim(edit3.Text);
fieldbyname ('员工编号').Value:=trim(edit4.Text);
fieldbyname ('密码').Value:=trim(edit5.Text);
fieldbyname ('权限').Value:=trim(edit6.Text);

Answer 1

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

Answer 2

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

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

Answer 3

在edit这几个中都添加只能输入数字的一个管控，避免出错先。
procedure 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);
你试试

Answer 4

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

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

Answer 5

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