خطى عند الضغط على زر الغاء الاسترجاع

[الحكيمي]

بسم الله الرحمن الرحيم

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

DECLARE
da varchar2(100);
BEGIN forms_ddl('drop user kimyname cascade');
  forms_ddl('create user kimyname identified by kimypass'); 
  forms_ddl('grant dba to kimyname');
  forms_ddl('conn kimyname/kimypass');
	
	  DA:=GET_FILE_NAME('D:\',NULL,'DATE_BASE_NAME(*.DMP)/*.DMP/',حدد مكان واسم قاعدة البيانات  التي تريد استرجاعها,OPEN_FILE,TRUE);

  
   HOST('Imp UserId =kimyname/kimypass File = '||DA||' full=yes');

end;

تضهر لنا شاشة الحوار التي منها نختار مكان النسخة الاحتياطية

وفي حالة قمنا باختيار النسخه الاحتياطية يقوم بحذف المستخدم ثم انشائة من جديد ثم اعطائة الصلاحيات ثم استرجاع النسخة بشكل سليم

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

فكيف اجعل عند الضغط على زر الالغاء لا يقوم باي من العمليات السابقة

وجزاكم الله كل خير

[mustafagamiel]

السلام عليكم
هو انت عامل مثلا alert به 2 زر مثلا وتريد واحد ينفذ والثاني لا أم ماذا
عموما لو تريد الضغط على زر ولا ينفذ شيء ضع null;
بسي اضبط الكود
وضح أكثر لو لم يفيدك هذا؟

[الحكيمي]

كل الشكر لك اخي العزيز

الزر هو في شاشة الحوار التي تطلع ومنها نختار مكان النسخه وفيها زرين الاول فتح لما اضغطه يستعيد النسخه المحدده والثاني كانس والمفروض انه يكنسل كل شي
ولكن عند الضغط على كنسل يقوم بتنفيذ بعض الكود ويقوم بحذف المستخدم وانشائه لكن دون استرجاع للنسخة

والزرين كما في الشاشة التالية

[mustafagamiel]

السلام عليكم
جرب الاتي أنا لم أجربه

DECLARE
da varchar2(100);
BEGIN DA:=GET_FILE_NAME('D:\',NULL,'DATE_BASE_NAME(*.DMP)/*.DMP/',حدد مكان واسم قاعدة البيانات التي تريد استرجاعها,OPEN_FILE,TRUE);
if  da is null then
null;
else
forms_ddl('drop user kimyname cascade');
forms_ddl('create user kimyname identified by kimypass'); 
forms_ddl('grant dba to kimyname');
forms_ddl('conn kimyname/kimypass');
HOST('Imp UserId =kimyname/kimypass File = '||DA||' full=yes');
end if;

end;

[الحكيمي]

كل الشكر لك اخي جاري التجربه

تم تعديل 13 يونيو 2009 بواسطة الحكيمي

[الحكيمي]

امممممممممممممممم

في الحقيقة ومن دون اي مجاملات انا عاجز عن الشكر

الحل طلع ميه ميه

جزاك الله كل خير