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.