Incrémentation حقل بترقيم تلقائي

[AbdouProg]

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

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

انا مبتدىء في الدالفي كيف يمكن تصحيح الكود المرفق حتى يكون اولا  الترقيم تسلسلي و يتغير الى الرقم 0001 مجرد تغير السنة
وبارك الله فيكم و جزاكم الله الف خير

كود :

http://up.harajgulf.com/do.php?id=501384

[محمد عبد العزيز]

كود :

var n_annee,result : string; a_Num,Err : integer; a_Key : variant; begin ADOTable1.Last; n_annee := formatdatetime('YYYY', now); a_Key := ADOTable1.fields[0].value; ADOTable1.Append; if (a_Key = NULL) or (copy(a_Key, length(a_Key)-3, 4)<>n_annee)then a_Num := 0 else begin val(copy(a_Key, 1, 6), a_Num, Err); if Err<>0 then a_Num := 0; end; result := format('%6.6d/', [a_Num+1]) + n_annee ; ADOTable1.FieldValues['Numero']:=result; ListBox1.Items.Add(result); end; procedure TForm1.FormCreate(Sender: TObject); begin ADOTable1.Open end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ADOTable1.Close end;

[AbdouProg]

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

الصلاة و السلام على اشرف المرسلين سيد الخلق اجمعين حبيبنا و معلمنا سيدنا رسول الله (ص)

الخلق الكريم يقتضي مكافأة من يؤدي إليك المعروف ، وقد أمر النبي صلى الله عليه وسلم بهذا ، فقال : ( مَن صَنَعَ إِليكُم مَعرُوفًا فَكَافِئُوه ، فَإِن لَم تَجِدُوا مَا تُكَافِئُوا بِهِ فَادعُوا لَهُ حَتَّى تَرَوا أَنَّكُم قَد كَافَأتُمُوهُ )

جزاك الله خيرا ، فوالله ما نزل بك أمر قط إلا جعل الله لك منه مخرجا ان شاء الله
بارك الله فيك و جزاك الله ألف خيرا

[محمد عبد العزيز]

العفو أخي
زكاة العلم نشره
حتى تكون على علم الكود فوق لا يعطي ما تريد ان لم يكن اخر سجل هو أحدث سجل
يعني يجب ان يكون الترتيب تصاعدي