UC知道delphi请教.
来源：百度知道 编辑：UC知道 时间：2024/05/08 02:31:00
delphi请教.
我想让edit9.text等于edit7.text乘edit6.text,
并且想把他们三个分别存在我的收费表的三个字段里面,
edit6=售价edie7=税率edit9=交税额,
我已经通过ADO6连接上我的表了,
请问各位大哥大姐代码应该怎么写?
谢谢了.
我想让edit9.text等于edit7.text乘edit6.text,
并且想把他们三个分别存在我的收费表的三个字段里面,
edit6=售价edie7=税率edit9=交税额,
我已经通过ADO6连接上我的表了,
请问各位大哥大姐代码应该怎么写?
谢谢了.
很简单啊```
插入数据到数据库中,不仅仅要用ADO连接,还要用 ADOQUERY 控件.
try
edit9.Text := inttostr(strtoint(edit7.Text) * strtoint(edit6.Text));
except //处理edit7 和 6 输入不为数字的情况
showmessage('请输入数字!');
edit2.Text := '';
edit3.Text := '';
end;
with adoquery1 do
begin
close;
sql.Clear;
sql.Text := 'insert into tablename(售价,税率,缴税额) values :edit6,:edit7,:edit9';
parambyname('edit6').AsString := edit6.Text;
parambyname('edit7').AsString := edit7.Text;
parambyname('edit9').AsString := edit9.Text;
execsql;
end;
有关判断输入是否为数字的情况,还可以在edit的 onkeypress 事件中编写限制条件.