+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : رقم تسلسلي تلقائي بصيغة خاصة في sql server (/showthread.php?tid=12276)
رقم تسلسلي تلقائي بصيغة خاصة في sql server - chers0vsky - 11-04-2023
السلام عليكم و رحم الله تعالى و بركاته
رمضان مبارك على الجميع
عندي جدول في قاعدة البيانات و اريد انشاء حقل لرقم تسلسلي يكون على الشكل التالي 2023D0001
يعني السنة ثم حرف مميز يتبعه رقم تسلسلي
كيف يمكنني انجاز ذلك و بارك الله فيكم مسبقا
RE: رقم تسلسلي تلقائي بصيغة خاصة في sql server - Ndagor - 11-04-2023
انشئ حقل عادى و في DataSet الذي تستعمله اضف كود لحساب هذه القية في الحدث BeforePost او BeforeInsert قبل ان يتم ارسال الى قاعدة البيانات
RE: رقم تسلسلي تلقائي بصيغة خاصة في sql server - S.FATEH - 11-04-2023
السلام عليكم
كود :
uses DateUtils;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Code(1));
end;
function TForm1.Code(AID: Integer): string;
begin
Result := IntToStr(YearOf(Date)) + 'D' + Format('%.4d', [AID]);
end;