البحث في قواعد البيانات وإضافة ترقيم تلقائي

اقتباس

وأريد أن أضيف ترقيم تلقائي في الحقل ID

قم بوضع الحقل ID من النوع Calculated Field و من ثم في الحدث OnclacFields لل ClientDataSet

قم بكتابة الكود التالي

procedure TForm4.ClientDataSet1CalcFields(DataSet: TDataSet);
begin
  if ClientDataSet1.RecNo > 0 then
	ClientDataSet1ID.Value:= ClientDataSet1.RecNo;
end;

اقتباس

فما هي الخاصية التي نستخدمها أو الكود الذي نستطيع البحث به ؟؟؟

يبدو انه هناك الكثير من الاخطاء في الكود الذي وجدته قم بالتعديل الى مايلي

  ClientDataSet1.Locate('F_Name;L_Name',VarArrayOf([Edit1.Text,Edit2.Text],[]));

waeldalol كتب:

قم بوضع الحقل ID من النوع Calculated Field و من ثم في الحدث OnclacFields لل ClientDataSet

قم بكتابة الكود التالي

procedure TForm4.ClientDataSet1CalcFields(DataSet: TDataSet);
begin
  if ClientDataSet1.RecNo > 0 then
	ClientDataSet1ID.Value:= ClientDataSet1.RecNo;
end;

ما زبط معي الكود هذا فعدلت عليه

if ClientDataSet1.RecNo >0 then
  ClientDataSet1.FieldByName('ID').Value:= ClientDataSet1.RecNo;

أما الكود الثاني فما زبط معاي مرره :s

يطلع فيه خطأ فالإشاره هذي

,[]))

وهي الموجود بآخر الكود

عموماً مشكوور عالمساعدة ويعطيك ربي ألف عافيه :)

اقتباس

ما زبط معي الكود هذا فعدلت عليه

و ذلك بسبب انك لم تضف الحقل في Field editor و الذي يظهر عند النقر مرتين على ClientDataSet

اقتباس

أما الكود الثاني فما زبط معاي مرره

يطلع فيه خطأ فالإشاره هذي

الكود شغال 100 % و لكن لا اعرف بماذا اخطأت لا يوجد اي مشاكل اخي الكريم

هل من المعقول ان تكون قد اخطأت بكتابة الاقواس لل if

if not ClientDataSet1.Locate('F_Name;L_Name',VarArrayOf([Edit1.Text,Edit2.Text],[])) then
showmessage('Filed Not Found');

القوسين الذين في الاخير [] يمكن عدم وضع قيمة بداخلهما لان وضع قيمة بداخلهما اختياري

مشكوووور ويعطيك العافيه

والله يوفقك

يمكنك جعل الحقل ID ترقيم تلقائي وذلك أثناء انشاء قاعدة البيانات وبدون الحاجة إلى كود

وذلك بأن تجعل الحقل ID من النوع التلقائي (Autoincrement) وتختصر بـ +

ملاحظة : قاعدة البيانات من نوع بارادوكس.

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

يا اخي الرجل يستخدم ClientDataSet انتبه الى ذلك

سوف نوضح ذلك عما قريب إن شاء الله في دورة قاعدة البيانات