X
xhliang
Unregistered / Unconfirmed
GUEST, unregistred user!
在几个edit1、edit2中输入一组数字及在edit3中输入一段备注文字,再插入表中,表结构如下:
gwjdm(代码) m_jing(面值) bz(备注) g_mijng(购买金额) g_date(购买日期)
10001 50 卫生局 50 2006-10-06
10002 50 50 2006-10-06
10003 50 50 2006-10-06
如上在edit1中输入10001。在edit2中10003,面值为50 购买金额为50 备注为卫生局后执行,但备注栏出错。只有头一栏能插入,其它为空白。不知何故,恳请各位老大指教!多谢!
语句如下:
begin
for i:=strtoint(edit1.text) to strtoint(edit2.text) do
begin
with adoquery5 do
begin
close;
sql.clear;
sql.add('insert into gwj00 (gwjdm,m_jine,bz,g_mjine,g_date) values a,'+trim(edit5.Text)+','''+edit3.Text+''','+trim(edit5.Text)+',GetDate())');
Parameters.ParamByName('a').VALUE :=i;
execsql;
close;
其中edit5为面值输入、edit3为备注输入。
gwjdm(代码) m_jing(面值) bz(备注) g_mijng(购买金额) g_date(购买日期)
10001 50 卫生局 50 2006-10-06
10002 50 50 2006-10-06
10003 50 50 2006-10-06
如上在edit1中输入10001。在edit2中10003,面值为50 购买金额为50 备注为卫生局后执行,但备注栏出错。只有头一栏能插入,其它为空白。不知何故,恳请各位老大指教!多谢!
语句如下:
begin
for i:=strtoint(edit1.text) to strtoint(edit2.text) do
begin
with adoquery5 do
begin
close;
sql.clear;
sql.add('insert into gwj00 (gwjdm,m_jine,bz,g_mjine,g_date) values a,'+trim(edit5.Text)+','''+edit3.Text+''','+trim(edit5.Text)+',GetDate())');
Parameters.ParamByName('a').VALUE :=i;
execsql;
close;
其中edit5为面值输入、edit3为备注输入。