delphi中动态参数的灵活应用(100分)

[]我是一个初涉技术的小虾米，今天遇到一个问题，关于动态参数设置问题，
我需要做的是把多个edit框中的内容赋值给数据库中的不同字段，其中有文本字段
、money和data字段，程序运行无误，可进行操作时，会跳出某个字段 type unknown
的提示框。
我把部分程序进行粘贴，请大家帮我看看
str:='insert into "xmjbqk.db" (xmxz,xmdw,khmc,ysje,hsje,ksrq,jsrq,xmzt,gcms) values xmxz,:xmdw,:khmc,:ysje,:hsje,:ksrq,:jsrq,:xmzt,:gcms)';
query1.sql.add(str);
Query1.parambyname('xmxz').AsString := xmxz.Text;（类型alpha)
Query1.ParamByName('hsje').AsString := hsje.Text;(类型money)
Query1.ParamByName('ksrq').AsString := ksrq.Text;(类型data)

类型data －－ 最好用 AsDate

params.as..后面有好多选项的，你全把它as为string然后往数据库中插，当然出错了。
as后的要符合数据库总你的字段的类型的

Query1.parambyname('xmxz').AsString := xmxz.Text;（类型alpha)
Query1.ParamByName('hsje').Asfloat := hsje.Text;(类型money)
Query1.ParamByName('ksrq').Asdatetime := ksrq.Text;(类型data)

你需要先判断字段类型，然后用相应的类型AS

谢谢你们，我通过了
可否再问一下为什么，我的数据写进表格中了，可老有错误说不能创建cuser handle