برنامج شخصي للتخزين

[Agmcz]

وعليكم السلام
أخي S.FATEH

تجنبت إستعمال SQL بسبب Record Number (RecNo)

PHP كود :

var
  CurRec, Id: Integer;
begin
  if not ADOQuery1.Active then
    Exit;
  CurRec := ADOQuery1.RecNo;
  if CurRec > 0 then
  begin
    Id := ADOQuery1.FieldByName('Id_job').AsInteger;
    ADOQuery1.Close;
    ADOQuery1.SQL.Text := 'delete from Jobs where Id_job = ' + IntToStr(Id);
    ADOQuery1.ExecSQL;
    ADOQuery1.SQL.Text := SQLLineStr;
    ADOQuery1.Open;
    if ADOQuery1.RecordCount = 0 then
      Exit
    else
    if CurRec > ADOQuery1.RecordCount then
      ADOQuery1.Last
    else
      ADOQuery1.RecNo := CurRec;
  end;
end; 


الإجراء التالي يكافيء ADOQuery1.Delete;