سؤال حول اضافة اسطر في DBGRIDE

[imadus]

كيف كتابة كود في زر الاضافة خاص ب ADOTABLE والغرض منه.
مثال :لدنا جدول خاص بترقيم الدفاتر عند اضافة دفتر جديد مكون من 10 صفحات لا نريد كتابة ترقيم جميع الصفحات على حدى نريد -ان نكتب كود- نحن ان نكتب ترقيم الصفحة الاولى والبرنامج يكمل الباقي

[Mustapha29]

سؤالك غي واضح فيما يخص الصفحات ؟
هل تريد كود لترقيم التسجيلات دفعة واحدة ؟
علما أنك لم تذكر إن كان للتسجيلا ترقيم مسبق أم لا ؟

[imadus]

لا سؤالي عندما تكتب في DBEDIT(التابعة لترقيم الصفحة) مثلا نكتب 101 ونغط على زر الاضافة تضاف لنا 10 اسطر ترقيمها ترقيم تسلسلي 101 السطر الموالي 102 الى غاية 111 ليسهل البحث عنها فيما بعد ...... السؤال مفهوم

[Delphi4Us]

السؤال هنا هو نصف الاجابة 
كان يجب ان تقول مثلا : كيف اضيف ارقام تسلسلية بقاعدة البيانات من رقم كذا الى رقم كذا مثلا
على العموم سأخبرك كيف تفعل ذلك ولكن ربما استطيع ان اساعدك بأكثر من ذلك
ما هي خطتك بالضبط
او فكرة برنامجك
ما الذي يفعله
حاول اختيار مرادفات عربية مثل أضغط بدل تغط كما كتبت فوق

[imadus]

خطتي هي
لدينا مؤسسة تعطي للموظفين دفتر خاص بالتزود بالوقود نفترض ان المدير وجد ورقة (الورقة مرقمة) من ذلك الدفتر يكتب في مكان البحث رقم الصفحة ليجد صاحبها
الاشكال هو في الاضافة (الابن) وجدول الموظفين هو (الاب)
نفترض ان الدفتر مكون من 100 صفحة
اريد ان اجد كود الاضافة الذي يسمح لي بكتابة الرقم الصفحة الاولى للدفتر وبقية الصفحات تكتب تلقائيا,,,,,,

[Delphi4Us]

حسنا سنستمر خطوة بخطوة
بافتراض طبعا انك تعلم كيف تضيف 
انت هنا تحتاج الى Loop بسيط جدا
يبداء بالرقم الذي تريده وينتهي بالرقم الذي تريد
لا اريد ان اعطيك مثال جاهز لتتعلم الفكرة ولا تحتاج احد فيما بعد

انظر للمثال الثالي

كود :

for int=100 to 150 do begin هنا تضع الكود الذي يضيف في قاعدة البيانات وسوف تضع قيمة المتغير int لانها سوف تتغير من 100 حتى 150 لاننا حددناها بهذا الشكل end;

[Mustapha29]

إليك الكود التالي :

كود :

procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=0; with adoTable1 do begin   First;   While Not EOF do   begin   edit;   Inc(i);    adotable1id.Value:=i;    Next;   end; end; end;

[imadus]

السؤال هنا هو نصف الاجابة 
كان يجب ان تقول مثلا : كيف اضيف ارقام تسلسلية بقاعدة البيانات من رقم كذا الى رقم كذا مثلا
على العموم سأخبرك كيف تفعل ذلك ولكن ربما استطيع ان اساعدك بأكثر من ذلك
ما هي خطتك بالضبط
او فكرة برنامجك
ما الذي يفعله
حاول اختيار مرادفات عربية مثل أضغط بدل تغط كما كتبت فوق

---

MASELHATCH KHOYA
HELLP ME

---

maselhatch help me

[Mustapha29]

واش اللي ما صلحتش ؟

---

هل تريد أن تظيف الرقم التصاعدي عند إضافة الصفحة أتوماتيكيا ؟

[imadus]

خطتي هي
لدينا مؤسسة تعطي للموظفين دفتر خاص بالتزود بالوقود نفترض ان المدير وجد ورقة (الورقة مرقمة) من ذلك الدفتر يكتب في مكان البحث رقم الصفحة ليجد صاحبها
الاشكال هو في الاضافة (الابن) وجدول الموظفين هو (الاب)
نفترض ان الدفتر مكون من 100 صفحة
اريد ان اجد كود الاضافة الذي يسمح لي بكتابة الرقم الصفحة الاولى للدفتر وبقية الصفحات تكتب تلقائيا,,,,,,