這個問題怎么解決，很急！！！！！！！！這是車庫管理系統，這一步的功能是把一張表的一條資料移到備份表，然后把這張表的這條記錄洗掉。
代碼：
procedure TForm7.Button1Click(Sender: TObject);
var m,n,z,t:variant;
begin
begin
ADOquery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add ('select ID,是否使用,車型,進入時間 from chewei where 車牌=:k');
ADOQuery1.parameters.parambyname('k').value:=form7.Label5.Caption;
ADOQuery1.open;
m:=form7.ADOQuery1.FieldByName('ID').AsString;
n:=form7.ADOQuery1.FieldByName('是否使用').AsString;
z:=form7.ADOQuery1.FieldByName('車型').AsString;
t:=form7.ADOQuery1.FieldByName('進入時間').value;
end;
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('insert into cars values(ID=:a,車牌=:b,是否使用=:c,車型=:d,進入時間=:e,離開時間=:f,費用=:g)');
adoquery2.Parameters.ParamByName('a').Value:=m;
adoquery2.Parameters.ParamByName('b').Value:=form7.Label5.Caption;
adoquery2.Parameters.ParamByName('c').Value:=n;
adoquery2.Parameters.ParamByName('d').Value:=z;
adoquery2.Parameters.ParamByName('e').Value:=t;
adoquery2.Parameters.ParamByName('f').Value:=form7.Label7.Caption;
adoquery2.Parameters.ParamByName('g').Value:=form7.Label8.Caption;
adoquery2.ExecSQL;
end;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update chewei set 車牌=:ba,是否使用=:ca,車型=:da,進入時間=:ea,離開時間=:fa,費用=:ga where ID=:aa ');
adoquery1.Parameters.ParamByName('aa').Value:= m;
adoquery1.Parameters.ParamByName('ba').Value:='';
adoquery1.Parameters.ParamByName('ca').Value:='否';
adoquery1.Parameters.ParamByName('da').Value:='';
adoquery1.Parameters.ParamByName('ea').Value:='';
adoquery1.Parameters.ParamByName('fa').Value:='';
adoquery1.Parameters.ParamByName('ga').Value:='';
adoquery1.ExecSQL;
end;
form7.Close;
form14.Edit5.Text:='';
form14.Edit7.Text:='';
form14.Edit8.Text:='';
end;
uj5u.com熱心網友回復：
ADOquery1的ADOCONNECTION的連接字串設定不對吧。另DELPHI陳述句塊無需BEGIN ... END
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/132869.html
標籤：數據庫相關