+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سؤال حول اضافة اسطر في DBGRIDE (/showthread.php?tid=8616)
الصفحات:
1
2
سؤال حول اضافة اسطر في DBGRIDE - imadus - 14-04-2017
كيف كتابة كود في زر الاضافة خاص ب ADOTABLE والغرض منه.
مثال :لدنا جدول خاص بترقيم الدفاتر عند اضافة دفتر جديد مكون من 10 صفحات لا نريد كتابة ترقيم جميع الصفحات على حدى نريد -ان نكتب كود- نحن ان نكتب ترقيم الصفحة الاولى والبرنامج يكمل الباقي
RE: سؤال حول اضافة اسطر في DBGRIDE - Mustapha29 - 14-04-2017
سؤالك غي واضح فيما يخص الصفحات ؟
هل تريد كود لترقيم التسجيلات دفعة واحدة ؟
علما أنك لم تذكر إن كان للتسجيلا ترقيم مسبق أم لا ؟
RE: سؤال حول اضافة اسطر في DBGRIDE - imadus - 14-04-2017
لا سؤالي عندما تكتب في DBEDIT(التابعة لترقيم الصفحة) مثلا نكتب 101 ونغط على زر الاضافة تضاف لنا 10 اسطر ترقيمها ترقيم تسلسلي 101 السطر الموالي 102 الى غاية 111 ليسهل البحث عنها فيما بعد ...... السؤال مفهوم
RE: سؤال حول اضافة اسطر في DBGRIDE - Delphi4Us - 14-04-2017
السؤال هنا هو نصف الاجابة
كان يجب ان تقول مثلا : كيف اضيف ارقام تسلسلية بقاعدة البيانات من رقم كذا الى رقم كذا مثلا
على العموم سأخبرك كيف تفعل ذلك ولكن ربما استطيع ان اساعدك بأكثر من ذلك
ما هي خطتك بالضبط
او فكرة برنامجك
ما الذي يفعله
حاول اختيار مرادفات عربية مثل أضغط بدل تغط كما كتبت فوق
RE: سؤال حول اضافة اسطر في DBGRIDE - imadus - 14-04-2017
خطتي هي
لدينا مؤسسة تعطي للموظفين دفتر خاص بالتزود بالوقود نفترض ان المدير وجد ورقة (الورقة مرقمة) من ذلك الدفتر يكتب في مكان البحث رقم الصفحة ليجد صاحبها
الاشكال هو في الاضافة (الابن) وجدول الموظفين هو (الاب)
نفترض ان الدفتر مكون من 100 صفحة
اريد ان اجد كود الاضافة الذي يسمح لي بكتابة الرقم الصفحة الاولى للدفتر وبقية الصفحات تكتب تلقائيا,,,,,,
RE: سؤال حول اضافة اسطر في DBGRIDE - Delphi4Us - 14-04-2017
حسنا سنستمر خطوة بخطوة
بافتراض طبعا انك تعلم كيف تضيف
انت هنا تحتاج الى Loop بسيط جدا
يبداء بالرقم الذي تريده وينتهي بالرقم الذي تريد
لا اريد ان اعطيك مثال جاهز لتتعلم الفكرة ولا تحتاج احد فيما بعد
انظر للمثال الثالي
كود :
for int=100 to 150 do
begin
هنا تضع الكود الذي يضيف في قاعدة البيانات
وسوف تضع قيمة المتغير
int
لانها سوف تتغير من
100
حتى
150
لاننا حددناها بهذا الشكل
end;RE: سؤال حول اضافة اسطر في DBGRIDE - Mustapha29 - 14-04-2017
إليك الكود التالي :
كود :
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;RE: سؤال حول اضافة اسطر في DBGRIDE - imadus - 17-04-2017
(14-04-2017, 01:39 PM)Delphi4Us كتب : السؤال هنا هو نصف الاجابة
كان يجب ان تقول مثلا : كيف اضيف ارقام تسلسلية بقاعدة البيانات من رقم كذا الى رقم كذا مثلا
على العموم سأخبرك كيف تفعل ذلك ولكن ربما استطيع ان اساعدك بأكثر من ذلك
ما هي خطتك بالضبط
او فكرة برنامجك
ما الذي يفعله
حاول اختيار مرادفات عربية مثل أضغط بدل تغط كما كتبت فوق
MASELHATCH KHOYA
HELLP ME
maselhatch help me
RE: سؤال حول اضافة اسطر في DBGRIDE - Mustapha29 - 17-04-2017
واش اللي ما صلحتش ؟
هل تريد أن تظيف الرقم التصاعدي عند إضافة الصفحة أتوماتيكيا ؟
RE: سؤال حول اضافة اسطر في DBGRIDE - imadus - 17-04-2017
خطتي هي
لدينا مؤسسة تعطي للموظفين دفتر خاص بالتزود بالوقود نفترض ان المدير وجد ورقة (الورقة مرقمة) من ذلك الدفتر يكتب في مكان البحث رقم الصفحة ليجد صاحبها
الاشكال هو في الاضافة (الابن) وجدول الموظفين هو (الاب)
نفترض ان الدفتر مكون من 100 صفحة
اريد ان اجد كود الاضافة الذي يسمح لي بكتابة الرقم الصفحة الاولى للدفتر وبقية الصفحات تكتب تلقائيا,,,,,,