مشكلة information sur la colonne clé insuffisante pour la mise à jour

[ziad]

PHP كود :

procedure TForm8.Button1Click(Sender: TObject);
begin
ADOTable1.Open;
ADOTable2.Open;
ADOTable2.Edit;
ADOTable1.First;
ADOTable2.First;

 if not ((adotable1.Locate('Num-permis',edit1.Text,[]))and (adotable2.Locate('Num-permis',edit1.Text,[]) )) then
 begin
 showmessage(' حاول مع رقم اخر,الرقم غير موجود');
 Edit1.Text := '';
 DBEdit1.Text := '';
 DBEdit2.Text := '';
 DBEdit3.Text := '';
 DBEdit4.Text := '';
 DBEdit5.Text := '';
 DBEdit6.Text := '';
 DBEdit7.Text := '';
 DBEdit8.Text := '';
 DBEdit9.Text := '';
 DBEdit10.Text := '';
 DBEdit11.Text := '';
 DBEdit12.Text := '';
 DBEdit13.Text := '';
 DBEdit14.Text := '';
 DBEdit15.Text := '';
 DBEdit16.Text := '';
 DBEdit17.Text := '';
 DBEdit18.Text := '';
 end
 else
 begin

 end;
end;

procedure TForm8.Button2Click(Sender: TObject);
begin
form2.ADOConnection1.Connected := false;
form2.ADOConnection1.Connected := true;
adotable1.Active:= true;
adotable2.Active:= true;
form8.Close;
form4.Show;
end;

procedure TForm8.Button3Click(Sender: TObject);
begin
ADOTable2.Post;
ADOTable1.Close;
ADOTable2.Close;
end;
end.