+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : Incrémentation حقل بترقيم تلقائي (/showthread.php?tid=7426)
Incrémentation حقل بترقيم تلقائي - AbdouProg - 23-01-2016
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
انا مبتدىء في الدالفي كيف يمكن تصحيح الكود المرفق حتى يكون اولا الترقيم تسلسلي و يتغير الى الرقم 0001 مجرد تغير السنة وبارك الله فيكم و جزاكم الله الف خير
كود :
http://up.harajgulf.com/do.php?id=501384RE: Incrémentation حقل بترقيم تلقائي - محمد عبد العزيز - 24-01-2016
كود :
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;RE: Incrémentation حقل بترقيم تلقائي - AbdouProg - 24-01-2016
بسم الله الرحمن الرحيم
الصلاة و السلام على اشرف المرسلين سيد الخلق اجمعين حبيبنا و معلمنا سيدنا رسول الله (ص)
الخلق الكريم يقتضي مكافأة من يؤدي إليك المعروف ، وقد أمر النبي صلى الله عليه وسلم بهذا ، فقال : ( مَن صَنَعَ إِليكُم مَعرُوفًا فَكَافِئُوه ، فَإِن لَم تَجِدُوا مَا تُكَافِئُوا بِهِ فَادعُوا لَهُ حَتَّى تَرَوا أَنَّكُم قَد كَافَأتُمُوهُ )
جزاك الله خيرا ، فوالله ما نزل بك أمر قط إلا جعل الله لك منه مخرجا ان شاء الله
بارك الله فيك و جزاك الله ألف خيرا
بارك الله فيك و جزاك الله ألف خيرا
RE: Incrémentation حقل بترقيم تلقائي - محمد عبد العزيز - 24-01-2016
العفو أخي
زكاة العلم نشره
حتى تكون على علم الكود فوق لا يعطي ما تريد ان لم يكن اخر سجل هو أحدث سجل
يعني يجب ان يكون الترتيب تصاعدي