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

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

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

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

السلام عليكم

كود :
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;

chers0vsky

Ndagor

S.FATEH