السلام عليكم..
عندي مشروع عن مستشفى.. و في حاجه مو زابطه معي اللي هي:
list مكتوب فيها today,tomorrow,yesterday والمفروض انها لما المستخدم يختار وحده نقول مثلا اليوم تعرض له مواعيد اليوم !!!
وهدا هو الكود حقه ومش ماشي ابدا

Declare
cursor check_c is
select app_date from appointment where app_date=sysdate;
begin
open check_c;
loop
fetch check_c into :appointment.app_date;
execute_query;
Exit when check_c%Notfound;
end loop;
close check_c;
end;
ارجوكم ساعدوني.. الله يفرجها عليكم

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

Declare
TEMP DATE;
cursor check_c is
select app_date from appointment where app_date=TO_CHAR(sysdate,'DD-MM-YYYY');
begin
open check_c;
loop
fetch check_c into TEMP;
ENTER_QUERY;
:appointment.app_date:=TEMP;
execute_query;
Exit when check_c%Notfound;
end loop;
close check_c;
end;

 

Thanx ...i`ll try it !!!

مرحبا..
أنا جربت الكود بس نفس الشي مو زابط !!!
شاشتي تعرض لي المواعيد كلها طبعا حقت اليوم فعملت Trigger.. وكمان يقدرالمستخدم يحدد تاريخ يعرض له المواعيد حقته.. المشكله في الlist لو يبغى يعرض مواعيد أمس المفروض يختار من ال list Yesterday وتعرض له ونفس الشي Today & Tomorrow ...

والله أنا مره حايسه و أبغى أحد يساعدني
والله اللي يساعدني حدعيلو العمر كله

عندي مشكله ثانيه..

كان عندي TRIGGERماشي كويس, بعدين لما جيت استخدمه مره تانيه ما رضى

أيش المشكله ؟؟Can SomeOne Help Me

هل ممكن تكون المشكله انه في الBUTTON اللي حاطه فيه الكود .. ما أشتغل لأني زدت عليه كمان أشياء...ولا المشكله تكون في الفورم نفسها ؟؟!!!!

اللي حاب يساعدني.. الله يجزيه خير و يوفقه دنيا واخره

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

تعديل الكود يتم بالشكل التالي على اساس انه المستخدم يختار من الليسته اليوم -امس-غدا
يجب ان تضعيه في تريجر
WHEN-LIST-CHANGED

Begin
enter_query;
if :your_list='today' then
:appointment.app_date:=to_char(sysdate,'dd-mm-yyyy');
elsif  :your_list='tommrow' then
:appointment.app_date:=to_char(sysdate,'dd-mm-yyyy')+1;
elsif  :your_list='yesterday' then
:appointment.app_date:=to_char(sysdate,'dd-mm-yyyy')-1;
end if;
execute_query;
End;

هذا الكود يقوم بالتشييك على قيمة list item

بالنسبة للتريجر ممكن ان تعملي له recompile
او تشيكي ماذا اضفتي ليوقف عمل التريجر

شكرا وجزاك الله ألف خير يا أخ ADMIN05..

صحيح انه الكود حقك ما أشتغل معي .. بس شكرا على محاولتك المساعده

لقيت الكود اللي زبط معي

الحمد لله يا اختي انك وصلتي للحل
ولكن اريد ان انوه انه سؤالك غير واضح على كل حال ممكن ان
تعرضي هذا الكود ليستفيد به غيرك

تم تعديل 25 ديسمبر 200520 سنة بواسطة Admin05

if :appointment.show_app='today' then
 set_item_property('appointment.update',Enabled,property_true);
 set_item_property('appointment.transfer',Enabled,property_true);
  set_item_property('appointment.delete',Enabled,property_true);
  hide_view('show_num');
  ------------
  go_block('appointment');
set_block_property('appointment',default_where,'to_char(app_date,''dd-mm-yyyy'')='||''''||to_char(sysdate,'dd-mm-yyyy')||'''');
execute_query;
---------------------------------------------------------------------
  elsif
 :appointment.show_app='tomorrow' then
 set_item_property('appointment.update',Enabled,property_true);
 set_item_property('appointment.transfer',Enabled,property_true);
  set_item_property('appointment.delete',Enabled,property_true);
  show_view('show_num');
    go_block('appointment');
set_block_property('appointment',default_where,'to_char(app_date,''dd-mm-yyyy'')='||''''||to_char(sysdate+1,'dd-mm-yyyy')||'''');
execute_query;  
 
---------------------------------------------------------------------
else
  set_item_property('appointment.update',Enabled,property_false);
  set_item_property('appointment.transfer',Enabled,property_false);
  set_item_property('appointment.delete',Enabled,property_false);
  hide_view('show_num');
    go_block('appointment');
set_block_property('appointment',default_where,'to_char(app_date,''dd-mm-yyyy'')='||''''||to_char(sysdate-1,'dd-mm-yyyy')||'''');
execute_query;  
end if;

if :appointment.show_app='today' then
set_item_property('appointment.update',Enabled,property_true);
set_item_property('appointment.transfer',Enabled,property_true);
set_item_property('appointment.delete',Enabled,property_true);
hide_view('show_num');
------------
go_block('appointment');
set_block_property('appointment',default_where,'to_char(app_date,''dd-mm-yyyy'')='||''''||to_char(sysdate,'dd-mm-yyyy')||'''');
execute_query;
---------------------------------------------------------------------
elsif
:appointment.show_app='tomorrow' then
set_item_property('appointment.update',Enabled,property_true);
set_item_property('appointment.transfer',Enabled,property_true);
set_item_property('appointment.delete',Enabled,property_true);
show_view('show_num');
go_block('appointment');
set_block_property('appointment',default_where,'to_char(app_date,''dd-mm-yyyy'')='||''''||to_char(sysdate+1,'dd-mm-yyyy')||'''');
execute_query;

---------------------------------------------------------------------
else
set_item_property('appointment.update',Enabled,property_false);
set_item_property('appointment.transfer',Enabled,property_false);
set_item_property('appointment.delete',Enabled,property_false);
hide_view('show_num');
go_block('appointment');
set_block_property('appointment',default_where,'to_char(app_date,''dd-mm-yyyy'')='||''''||to_char(sysdate-1,'dd-mm-yyyy')||'''');
execute_query;
end if;

اختي الكريمة
هل لاحظتي الفرق بين عرضك للكود سابقا وعرضه الان اظن ان الاستفادة كانت في فكرة الكود وفكرة البرمجة
يعني مو من الضروري انه يكون الكود اللي كتبته 100% المهم الفكرة واظن ال if statment افادتك بموضوعك الذي اقترحت فيه التغيير وكما قلت نحن هنا نعطي رؤوس اقلام وانتي فهمتي الفكرة وطبقتي على اساسها
بالتوفيق ان شاء الله