UC知道delphi语法问题请教.
来源：百度知道 编辑：UC知道 时间：2024/05/08 03:47:27
begin
with self.ADOQuery6 do
begin
close;
sql.clear;
sql.text:='insert into 收费表 (数量,收款日期,交费日期,实计征税额,status,付款方式,收款人,类型,交费人,项目类别,项目名称,收款额,税率,受理ID) values(''1'','+''''+datetimetostr(date)+''''+','+''''+datetimetostr(date)+''''+','+''''+Edit8.text+''''+',''1'','+''''+ComboBox2.Text+''''+','+''''+g_userinfo.UserName+''''+',''税'','+''''+Edit2.Text+''''+','+''''+ComboBox1.Text+''''+',''契税'','+''''+self.ComboBox5.Text+''''+','+''''+self.Edit9.Text+''''+','+''''+self.acceptID.Text+''''+')';
with self.ADOQuery6 do
begin
close;
sql.clear;
sql.text:='insert into 收费表 (数量,收款日期,交费日期,实计征税额,status,付款方式,收款人,类型,交费人,项目类别,项目名称,收款额,税率,受理ID) values(''1'','+''''+datetimetostr(date)+''''+','+''''+datetimetostr(date)+''''+','+''''+Edit8.text+''''+',''1'','+''''+ComboBox2.Text+''''+','+''''+g_userinfo.UserName+''''+',''税'','+''''+Edit2.Text+''''+','+''''+ComboBox1.Text+''''+',''契税'','+''''+self.ComboBox5.Text+''''+','+''''+self.Edit9.Text+''''+','+''''+self.acceptID.Text+''''+')';
没看你的代码有没有错.
但提示的意思可能是你当前是在函数里面.却没有返回结果!
还有.你的字符串用得挺熟练的.就是代码写得太难看了.
建议用参数的方式来赋值.
sql.text := 'select a from t where b=:b ';
Parameters.ParamByName(b').Value := trim(txtB.Text);
这种方法读程序方便一些.