رقم تسلسلي تلقائي بصيغة خاصة في sql server

[chers0vsky]

السلام عليكم و رحم الله تعالى و بركاته
رمضان مبارك على الجميع
عندي جدول في قاعدة البيانات و اريد انشاء حقل لرقم تسلسلي يكون على الشكل التالي  2023D0001

يعني السنة ثم حرف مميز يتبعه رقم تسلسلي
كيف يمكنني انجاز ذلك و بارك الله فيكم مسبقا

[Ndagor]

انشئ حقل عادى و في DataSet الذي تستعمله اضف كود لحساب هذه القية في الحدث BeforePost او BeforeInsert قبل ان يتم ارسال الى قاعدة البيانات

[S.FATEH]

السلام عليكم

كود :

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;