ÇóÖú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