在用SQL制表时,在labelededit.text中输入值,然后将其保存在SQL中,SQL 提示“数据不匹配”,我用strtofloat,在调试时,delphi提示”数据不匹配“。
[Error] Unit1.pas(544): Incompatible types: 'String' and 'Extended'
源码如下:
dm.ADOQuery1.Close ;
DM.AdoQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Add('insert into paiddetail Values('''+payid+''',1,'+trim(labelededit4.Text)+','+strtofloat(trim(labelededit36.Text))+','+strtofloat(trim(labelededit23.Text))+','+strtofloat(trim(labelededit24.Text))+')');
dm.ADOQuery1.ExecSQL;
[Error] Unit1.pas(544): Incompatible types: 'String' and 'Extended'
源码如下:
dm.ADOQuery1.Close ;
DM.AdoQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Add('insert into paiddetail Values('''+payid+''',1,'+trim(labelededit4.Text)+','+strtofloat(trim(labelededit36.Text))+','+strtofloat(trim(labelededit23.Text))+','+strtofloat(trim(labelededit24.Text))+')');
dm.ADOQuery1.ExecSQL;
这样不就好调试了嘛。
adoinsert.CommandText:='insert into StudentInfo values(:ID,:AccountsID,:NAME,:SEX,:native,:Department,:Class,:speciality,:TuiNowTuitio,:TuiLacktotal,:DormID,:DoNowTuitio,:DoLacktotal,:INdate,:Lacktotal,:YesNograd)';
adoinsert.Parameters.ParamValues['ID']:=trim(suiedit1.Text);
adoinsert.Parameters.ParamValues['AccountsID']:=trim(suiedit2.Text);
adoinsert.Parameters.ParamValues['NAME']:=trim(suiedit3.Text);
adoinsert.Parameters.ParamValues['SEX']:=trim(suiComboBox1.Text);
adoinsert.Parameters.ParamValues['native']:=trim(suiedit4.Text);
adoinsert.Parameters.ParamValues['Department']:=trim(suiedit5.Text);
adoinsert.Parameters.ParamValues['Class']:=trim(suiedit6.Text);