delphi4arab منتديات دلفي للعرب

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

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

انا مبتدىء في الدالفي كيف يمكن تصحيح الكود المرفق حتى يكون اولا الترقيم تسلسلي و يتغير الى الرقم 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

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

AbdouProg

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