求助DELPHI问题 - Delphi / 数据库相关

//adoquery1.SQL.add('insert into 学生书费历史库(班级名,书费,领书书费,结余书费,经办人,操作员,最后修改时间,说明,班级人数) values (:classname,:s0,0,:s1,:s2,:s3,date(),:s4,:s5)');
  adoquery1.SQL.add('update 学生书费历史库 set 班级名=:classname,书费=:s0,结余书费=:s1,经办人=:s2,操作员=:s3,最后修改时间=:date(),说明=:s4,班级人数=:s5');
  adoquery1.Parameters.Clear;
  adoquery1.Parameters.AddParameter;
  adoquery1.Parameters[0].Name:='classname';
  adoquery1.Parameters[0].DataType:=ftstring;
  adoquery1.Parameters[0].Direction:=pdinput;
  adoquery1.Parameters[0].Value:=combobox1.text;
  adoquery1.Parameters.AddParameter;
  adoquery1.Parameters[1].Name:='s0';
  adoquery1.Parameters[1].DataType:=ftcurrency;
  adoquery1.Parameters[1].Direction:=pdinput;
  adoquery1.Parameters[1].Value:=StrToFloat(edit2.text);
  adoquery1.Parameters.AddParameter;
  adoquery1.Parameters[2].Name:='s1';
  adoquery1.Parameters[2].DataType:=ftcurrency;
  adoquery1.Parameters[2].Direction:=pdinput;
  adoquery1.Parameters[2].Value:=-strtofloat(edit2.Text);
  adoquery1.Parameters.AddParameter;
  adoquery1.Parameters[3].Name:='s2';
  adoquery1.Parameters[3].DataType:=ftstring;
  adoquery1.Parameters[3].Direction:=pdinput;
  adoque