//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