كيف كتابة كود في زر الاضافة خاص ب ADOTABLE والغرض منه.
مثال :لدنا جدول خاص بترقيم الدفاتر عند اضافة دفتر جديد مكون من 10 صفحات لا نريد كتابة ترقيم جميع الصفحات على حدى نريد -ان نكتب كود- نحن ان نكتب ترقيم الصفحة الاولى والبرنامج يكمل الباقي
سؤالك غي واضح فيما يخص الصفحات ؟
هل تريد كود لترقيم التسجيلات دفعة واحدة ؟
علما أنك لم تذكر إن كان للتسجيلا ترقيم مسبق أم لا ؟
لا سؤالي عندما تكتب في DBEDIT(التابعة لترقيم الصفحة) مثلا نكتب 101 ونغط على زر الاضافة تضاف لنا 10 اسطر ترقيمها ترقيم تسلسلي 101 السطر الموالي 102 الى غاية 111 ليسهل البحث عنها فيما بعد ...... السؤال مفهوم
السؤال هنا هو نصف الاجابة 
كان يجب ان تقول مثلا : كيف اضيف ارقام تسلسلية بقاعدة البيانات من رقم كذا الى رقم كذا مثلا
على العموم سأخبرك كيف تفعل ذلك ولكن ربما استطيع ان اساعدك بأكثر من ذلك
ما هي خطتك بالضبط
او فكرة برنامجك
ما الذي يفعله
حاول اختيار مرادفات عربية مثل أضغط بدل تغط كما كتبت فوق
خطتي هي
لدينا مؤسسة تعطي للموظفين دفتر خاص بالتزود بالوقود نفترض ان المدير وجد ورقة (الورقة مرقمة) من ذلك الدفتر يكتب في مكان البحث رقم الصفحة ليجد صاحبها
الاشكال هو في الاضافة (الابن) وجدول الموظفين هو (الاب)
نفترض ان الدفتر مكون من 100 صفحة
اريد ان اجد كود الاضافة الذي يسمح لي بكتابة الرقم الصفحة الاولى للدفتر وبقية الصفحات تكتب تلقائيا,,,,,,
حسنا سنستمر خطوة بخطوة
بافتراض طبعا انك تعلم كيف تضيف
انت هنا تحتاج الى Loop بسيط جدا
يبداء بالرقم الذي تريده وينتهي بالرقم الذي تريد
لا اريد ان اعطيك مثال جاهز لتتعلم الفكرة ولا تحتاج احد فيما بعد
انظر للمثال الثالي
كود :
for int=100 to 150 do
begin
هنا تضع الكود الذي يضيف في قاعدة البيانات
وسوف تضع قيمة المتغير
int
لانها سوف تتغير من
100
حتى
150
لاننا حددناها بهذا الشكل
end;
إليك الكود التالي :
كود :
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;
(14-04-2017, 01:39 PM)Delphi4Us كتب : [ -> ]السؤال هنا هو نصف الاجابة
كان يجب ان تقول مثلا : كيف اضيف ارقام تسلسلية بقاعدة البيانات من رقم كذا الى رقم كذا مثلا
على العموم سأخبرك كيف تفعل ذلك ولكن ربما استطيع ان اساعدك بأكثر من ذلك
ما هي خطتك بالضبط
او فكرة برنامجك
ما الذي يفعله
حاول اختيار مرادفات عربية مثل أضغط بدل تغط كما كتبت فوق
MASELHATCH KHOYA
HELLP ME
maselhatch help me
واش اللي ما صلحتش ؟
هل تريد أن تظيف الرقم التصاعدي عند إضافة الصفحة أتوماتيكيا ؟
خطتي هي
لدينا مؤسسة تعطي للموظفين دفتر خاص بالتزود بالوقود نفترض ان المدير وجد ورقة (الورقة مرقمة) من ذلك الدفتر يكتب في مكان البحث رقم الصفحة ليجد صاحبها
الاشكال هو في الاضافة (الابن) وجدول الموظفين هو (الاب)
نفترض ان الدفتر مكون من 100 صفحة
اريد ان اجد كود الاضافة الذي يسمح لي بكتابة الرقم الصفحة الاولى للدفتر وبقية الصفحات تكتب تلقائيا,,,,,,