数据库插入错误

Question

begin
            with LoginFrm.ADOQuery1 do
            begin
              close;
              sql.Clear;
              sql.Add('insert into Patient(Name,Sex,Age,Address,Category,[Money],PatCat,Doctor,[date])values(');
              sql.Add(''''+Edit1.Text+''''+','+''''+DBComboBox2.Text+''''+','+''''+Edit6.Text+'''');
              sql.Add(','+''''+Edit3.Text+''''+','+DBComboBox4.Text+''''+','+''''+Edit4.Text+'''');
              sql.Add(','+''''+DBComboBox5.Text+''''+','+''''+Edit2.Text+'''');
              sql.Add(','+''''+Edit7.Text+''''+')');
              execsql;
            end;
end;插入时就是在money这里有错误，请高人指点

Answer 1

问同样问题的人真多。。建议你用参数，然后赋值，这样的程序容易读，也容易修改。建议用parmas参数。程序容易读些例子：
with query do
begin
  close;
  sql.clear;
  sql.add('select * from 表名 where 日期字段名<:#rq);
  paramByname('#rq').value := formatdatetime('yyyy-mm-dd',date);
  open;
end;