كيفية نقل وظائف الازرار التي في شريط الادوات

[cutcot]

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

[bduhaish]

اخي العزيز هذه الاوامر لعمل ماتريد
حفظ commit_form
إضافة سجل create_record
حذف سجل delete_record
إدخال إستعلام enter_query
تنفيذ إستعلام execute_query
عرض قائمة list_values
السجل التالي next_record
السجل السابق previous_record
الحقل التالي next_item
خروج exit_form
الحقل السابق previous_itemويوجد الكثير مثل up , down ولكن هذا الذي اذكر حالياً ....


اليك فكرة جميلة جدا
انشأ canvase ويكون من نوع horizontal toolbar
الإرتفاع يكون 23
انشأ block واضع فيه items من push button واتشا when button pressed trigger واضع فية الأوامر بالاعلي
فى مستوي الفورم right click on the model
خصائص
physical
form horisontal toolbar canvase
إختر canvase الذي هو عبارة عن toolbar
علي مستوي window
خصائص
functional
horisontal toolbar canvase
وحدد نوع canvase الذي هو عبارة عن toolbar

وسوف يكون مثل الصورة التالية



إجعل هذ الفورم main form وعند انشأ كل نموذج جديد اورث من main form
block
canvase

تحتاج الي بعض الصور من إمتداد ico
ولاتنس في regedit تحدد المسار

ملاحظة:
اذا كان لديك اكثر من بلوك يجب ان تحدد البلوك الذي انت فية اولاً لكي يتنفذ معك الأمر
انصحك ان تستخدم المثال التالي

DECLARE
curblk VARCHAR2(30);
BEGIN
curblk := :System.Cursor_Block;
IF curblk = 'اسم البلوك'
THEN Go_Block('اسم البلوك');
ELSIF curblk = ''اسم البلوك''
THEN Go_Block(''اسم البلوك'');
ELSIF curblk = ''اسم البلوك''
THEN Go_Block('اسم البلوك');
END IF;
END;


وشكراً..........................................................

[cutcot]

اخي bduhaish جزاك واخوتي في الله الف خير.
الف الف الف شكر.