02-05-2008, 04:44 PM
و عليكم السلام
الله يحفظك يعني نشيط ..
قبل الجواب احب أن انبه اننا سنعمل فقط على DBGrid كما طلبت
بعد وضعك للـ DBGrid و TTable -مثلا Table1 - قم بالأتي:
1- اضغط مرتين بواسطة الفأرة على المكون TTable
2- أضف حقل جديد (طبعا لا تنسى إضافة الحقول المراد أظهارها)
3- نسميه (مثلا) Rec ، سيكتب الدلفي في composant الاتي Table1Rec أي اسم المكون+التسمية المقترحة.
4- حدد Type بـ integer
5- حدد نوع الحقل بـ Calc
6- اذهب إلى Events التابع للـ Table1
7- اضغط مرتين على OnCalcFields
8- أكتب Table1Rec.Value := Table1.RecNo
9- اذهب إلى DBGrid واضغط مرتين
10- أضف عناصر التي تحتاجها ولا تنسى أن تضيف عنصر الترقيم الذاتي
11- حدد للعنصر 0 : FieldName = Rec
12- نفذ البرنامج ولاحظ الفرق
أمل أنه مفهوم
الله يحفظك يعني نشيط ..
قبل الجواب احب أن انبه اننا سنعمل فقط على DBGrid كما طلبت
بعد وضعك للـ DBGrid و TTable -مثلا Table1 - قم بالأتي:
1- اضغط مرتين بواسطة الفأرة على المكون TTable
2- أضف حقل جديد (طبعا لا تنسى إضافة الحقول المراد أظهارها)
3- نسميه (مثلا) Rec ، سيكتب الدلفي في composant الاتي Table1Rec أي اسم المكون+التسمية المقترحة.
4- حدد Type بـ integer
5- حدد نوع الحقل بـ Calc
6- اذهب إلى Events التابع للـ Table1
7- اضغط مرتين على OnCalcFields
8- أكتب Table1Rec.Value := Table1.RecNo
9- اذهب إلى DBGrid واضغط مرتين
10- أضف عناصر التي تحتاجها ولا تنسى أن تضيف عنصر الترقيم الذاتي
11- حدد للعنصر 0 : FieldName = Rec
12- نفذ البرنامج ولاحظ الفرق
أمل أنه مفهوم