كيف يمكن حدف البيانات كامله من الجداول اي تهيئة البرنامج

اخي الكريم غير طريقة عملك إلى تلقائية ، حاول إستخدام التعليمة التالية :

يجب أن تحتوي جميع الجداول لديك على قيد واحد على الأقل

CREATE OR REPLACE PROCEDURE TRUNCATE_ALL_TABLES 
IS
	CURSOR C1 IS 
	   SELECT 
	   UC.TABLE_NAME  ,
	   UC.CONSTRAINT_NAME ,
	   LEVEL AS TLEVEL
	   FROM ( SELECT * FROM 
	   USER_CONSTRAINTS UCI
   	  WHERE UCI.TABLE_NAME IN (SELECT TABLE_NAME FROM USER_TABLES) ) UC
	  CONNECT BY PRIOR UC.CONSTRAINT_NAME = UC.R_CONSTRAINT_NAME;

	CURSOR C2 IS
	  SELECT DISTINCT TABLE_NAME FROM ( 
		 SELECT 
	   UC.TABLE_NAME  ,
	   UC.CONSTRAINT_NAME ,
	   LEVEL AS TLEVEL
	   FROM ( SELECT * FROM 
	   USER_CONSTRAINTS UCI
   	  WHERE UCI.TABLE_NAME IN (SELECT TABLE_NAME FROM USER_TABLES) ) UC
	  CONNECT BY PRIOR UC.CONSTRAINT_NAME = UC.R_CONSTRAINT_NAME );

	CURSOR C3 IS 
	   SELECT 
	   UC.TABLE_NAME  ,
	   UC.CONSTRAINT_NAME ,
	   LEVEL AS TLEVEL
	   FROM USER_CONSTRAINTS UC
	  CONNECT BY PRIOR UC.CONSTRAINT_NAME = UC.R_CONSTRAINT_NAME 
	  START WITH UC.CONSTRAINT_TYPE = 'P';

	  V_SQL VARCHAR2(1000);
	  V_TABLE VARCHAR2(50);
	  V_CONSTRAINT VARCHAR2(50);
	  V_LEVEL NUMBER;
BEGIN
	OPEN C1;
	LOOP
		FETCH C1 INTO V_TABLE,V_CONSTRAINT,V_LEVEL;
		EXIT WHEN C1%NOTFOUND;
		V_SQL := 'ALTER TABLE '||V_TABLE||' DISABLE CONSTRAINT '||V_CONSTRAINT||' ';
		--DBMS_OUTPUT.PUT_LINE(V_SQL); 
		EXECUTE IMMEDIATE (V_SQL);
--		MESSAGE('Table :'||v_table||',was truncated seccessfully.');
	END LOOP;
CLOSE C1;
OPEN C2;		
	LOOP
		FETCH C2 INTO V_TABLE;
		EXIT WHEN C2%NOTFOUND;
		--V_SQL := 'DELETE FROM '||V_TABLE||';';
		/* You Can use Truncate by Enabling This futhure.*/
		V_SQL := 'TRUNCATE TABLE '||V_TABLE||' ';
		--DBMS_OUTPUT.PUT_LINE(V_SQL); 
		EXECUTE IMMEDIATE (V_SQL);
		EXECUTE IMMEDIATE ('commit');
		--MESSAGE('Table :'||v_table||',was truncated seccessfully.');
	END LOOP;
CLOSE C2;

	OPEN C3;
	LOOP
		FETCH C3 INTO V_TABLE,V_CONSTRAINT,V_LEVEL;
		EXIT WHEN C3%NOTFOUND;
		V_SQL := 'ALTER TABLE '||V_TABLE||' ENABLE CONSTRAINT '||V_CONSTRAINT||' '; 
		--DBMS_OUTPUT.PUT_LINE(V_SQL);
		EXECUTE IMMEDIATE (V_SQL);
--		MESSAGE('Table :'||v_table||',was truncated seccessfully.');
	END LOOP;

	CLOSE C3;
/*
EXCEPTION WHEN OTHERS THEN
	MESSAGE(error_text||SQLERRM);
	MESSAGE(error_text||SQLERRM);
	RAISE FORM_TRIGGER_FAILURE;
	*/
END;

اخي الكريم

العفوا ولي رجاء

الرجاء إعادة كتابة طلبات وأفكارك بنقاط مع توضيح كل نقطة إذا وجبت

كذا امورك كلها سردتها مع بعض انا بصراحة ليس لدي الوقت لكي أستخرج منها جميع ماتريد .

:)

الترتيب من أهم متطلبات المبرمج الناجح

بالتوفيق ،،

اقتباس

هل الصلاحيات تكون في نفس قاعدة البيانات اعطيني فكرة عنها

طبعاً هناك دائماً نوعين من الصلاحيات

1- على مستوى قاعدة البيانات وتمكنك من عمل مستخدم على القاعدة لنفس المستخدم ، وأيضاً تمكن من عمل Policies لعرض البيانات حسب المستخدم .

-- شرحها يطول

2- على مستوى الجداول أي تقوم انت بإعادة عمل النظام عندك ليدعم صلاحيات المستخدمين منذ دخوله إلى خروجه .

-- شرحها أيضاً يطول

اقتباس

هل اعدل بعض جمل لوف في الاستعلام في مشروعي اذا انا بركب الصلاحيات

طبعأً يحتاج على حسب النظام والصلاحيات لديك

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

بإختصار حسب الحاجة

اقتباس

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

موضوع الصلاحيات لايمكن عمله كله بشاشة وحدة ،،

ولكن كفكرة عامة لديك الشاشات التالية :

* نظام الصلاحيات

- تعريف الأنظمة والشاشات والتقارير "تكويدات النظام".

- تعريفات مجموعات الصلاحيات .

- تعريفات مستخدمين النظام .

- صلاحيات المجموعات . " من شاشات وتقارير وأنظمة وتحدد تفصيل الصلاحية ( فتح - استعلام - حذف - تعديل - إضافة - طباعة ) .

- صلاحيات المستخدم . " تحدد هنا المجموعات التي تعطى للمستخدم ، حيث ان المجموعة الواحدة تحتوي على مجموعة صلاحيات " .

- شاشة تسجيل الدخول مرتبطة بإدخال إسم مستخدم وكلمة مرور .

- شاشة الأنظمة الرئيسية يتم تعبئتها حسب الصلاحيات .

- جميع الشاشات الأخرى يتم كتابة أكواد تتحقق من الصلاحية مع الأحداث الخاصة بها .

بالتوفيق ،،