عندا انشاء رقم متسلسل وعند حذفه

هل من احد لديه فكرة بارك الله فيكم

هذا الكود الذي اضيف به

Var
N:Integer;
begin
N:=DBGrid1.DataSource.DataSet.RecordCount;
DBGrid1.DataSource.DataSet.Append;
DBGrid1.DataSource.DataSet.FieldByName('NF_F').AsInteger:=N+1;
DBGrid1.DataSource.DataSet.Post;
FacturatonForm.Show;

end;

كيف يتم استرجاع الرقم المحذوف من التسلسل وأضيفه مرة أخرى إذا كان محذوف من التسلسل أم إذا كان التسلسل صحيح

ولا رقم حذف سيتم إضافة رقم جديد بناء على التسلسل

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه

[color= #000000; font-weight: bold;]FUNCTION TForm1[color= #339933;].Get_Next[color= #009900;]([color= #009900;])[color= #339933;]:Integer[color= #339933;];

[color= #000000; font-weight: bold;]VAR

    i[color= #339933;]:integer[color= #339933;];

BEGIN

    Table1[color= #339933;].First[color= #339933;];

    [color= #b1b100;]FOR I[color= #339933;]:=[color= #cc66cc;]1 TO Table1[color= #339933;].RecordCount [color= #b1b100;]DO

    begin

       [color= #b1b100;]IF i[color= #339933;]<>  Table1id[color= #339933;].AsInteger THEN  [color= #b1b100;]Break[color= #339933;];

       Table1[color= #339933;].[color= #990000;]Next[color= #339933;];

    [color= #990000;]end[color= #339933;];

    Result[color= #339933;]:=i[color= #339933;];

[color= #990000;]END[color= #339933;];

procedure TForm1[color= #339933;].Button1Click[color= #009900;](Sender[color= #339933;]: TObject[color= #009900;])[color= #339933;];

begin

    ShowMessage[color= #009900;](IntToStr[color= #009900;](Get_Next[color= #009900;]([color= #009900;])[color= #009900;])[color= #009900;])[color= #339933;];

[color= #990000;]end[color= #339933;];

test.rar

السلام عليكم

الف مليون شكر اخي الكريم زكيري عبد العالي والله كثير سعدت بمساعدتك وإن شاء الله يجعلها في ميزان حسناتك

العملية 100% ساعدتي على وجود هذا الحل الله يحلك كل باب تراه مغلق يارب ......

وتعديل طفيف ليصبح الكود كما اريده

procedure TForm1.Button1Click(Sender: TObject);
var
Nr:Integer;
begin
NR:=(Get_Next());
Table1.Insert;
Table1ID.Value:=Nr;
TABLE1.post;
end;

الف شكر لك اخي زكيري عبد العالي ولكم اعضاء هذا المنتدى العربي العلمي المفيد جدا

:unsure:

اقتباس

الله يحلك كل باب تراه مغلق يارب

دعاء ان جد بحاجه اليه لانه ضا عام ونصف ومازلت بعيد عن زوجتي .

الله يجازيك عسي ان يقبل منك الله .

اقتباس

دعاء ان جد بحاجه اليه لانه ضا عام ونصف ومازلت بعيد عن زوجتي .

تستاهل هذي دعوتي خرجت فيك ياسي عبد العالي .

امــــــــــــــــــــــــــــــــــــــــــــــــــــــــــزح

ربي يسهل ليك يالواحد ال ......