السلام عليكم
ارجو المساعده
بدي زر بحث عن طريق الرقم
بحيث ارجع جميع المعلومات على الفورم ثم اعدل

السلام عليكم

اخي العزيز ما عليك سوا ان تكتب هذا الكود في كبسة Find

set_block_property('block_name',default_where,'Eid := '||:block_name.Eid);
go_block('block_name');
execute_query;

طبعا اسم الترجبر WHEN-BUTTON-PRESSED

مشكور على الاهتمام

نفترض اننا نبحث عن رقم الولاية stateno فى جدول الولايات state
كل ما عليك هو انشاء بللك وليكن اسمة control1بعد زلك قم باضافة textbox وسميها باسم stateno
بعد ذللك اذهب الى الحقل stateno فى بلك الجدول وفى الخائص اذهب الى copy value from وقم بكتابة control1.stateno
اذهب الى textboxالذى اضفتة واضغط كليك يميمين ثم pl sql editor ثم اختار key_next_item ثم اضف الكود

declare
x number;
cursor cur1 is select count(*) from state
where stateno=:control.stateno;
begin
open cur1;
loop
fetch cur1 into x;
if x>0 then
go_block('state');
execute_query;
else
message('data not found');
end if;
exit when cur1%notfound;
end loop;
end;

ادخل الرقم الذى تريد البحث عنة ثم اضغط انتر

تم تعديل 6 يونيو 201214 سنة بواسطة Ahmad.Hasan