CREATE TABLE "USER_ACCOUNTS" 
( "USR_ID" VARCHAR2(100), 
"USR_ANAME" VARCHAR2(100), 
"USR_ENAME" VARCHAR2(100), 
"USR_PASSWORD" VARCHAR2(50), 
"USR_TYPE" NUMBER, 
"USR_STATUS" NUMBER, 
"USR_EXP_FLAG" NUMBER, 
"USR_EXP_FROM" DATE, 
"USR_EXP_TO" DATE, 
CONSTRAINT "GBT_LOGIN_PK" PRIMARY KEY ("USR_ID") ENABLE
)
/

-------------------------

USR_EXP_FLAG هو عبارة عن مستخدم مؤقت يعتمد علي USR_EXP_FROM و USR_EXP_TO يعني ازا دخلت فترة بداية وفترة نهاية للمستخدم
ووصل USR_EXP_TO لتاريخ اليوم لازم حساب هادا المستخدم يقفل
ممكن احد من الاخوان يساهدني بطريقة كتابة الكود ؟

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

اخي العزيز
"USR_EXP_FLAG" NUMBER,
"USR_EXP_FROM" DATE,
"USR_EXP_TO" DATE,
هدول ال 3 حقول
flag هو عبارة عن check box
لما تضغط عليه يطلب منك تدخل تاريخ البداية والنهاية لصلاحية هذا المستخدم
وازا وصل تاريخ اليوم الى usr_exp_to
يلغي القفل عن هذا المستخدم
يعني الحساب لهذا المستخدم لازم يتقفل من تاريخ البداية الى تاريخ النهاية
وضحت الفكرة ؟

السلام عليكم
يا اخوان الي اسبوع انتظر ردودكم ؟

مرحبا
انا عملت شاشة بتعمل اذا كان التاريخ بين تاريخ بداية تفعيل الحساب و نهاية تاريخ تفعيل الحساب بيشتغل الحساب, اما اذا كان مش بين الفترة فبيغلق.....
بإمكانك تتحكم بهاي الخاصية من خلال تعديل الـ if clause

declare
exp_frm date;
exp_to  date;
begin
:global.ok:=0;
select usr_exp_frm,usr_exp_to into exp_frm,exp_to
from users_table where username=user;
if sysdate between exp_frm and exp_to then --الحساب مفعل اذا كان ضمن الفترة
	--Auothorized User
	:global.ok:=1;
else
	message('Your Account is Locked...');
	message('Your Account is Locked...');
	:global.ok:=0;
end if;

end;

declare
exp_frm date;
exp_to  date;
begin
:global.ok:=0;
select usr_exp_frm,usr_exp_to into exp_frm,exp_to
from users_table where username=user;
if sysdate not between exp_frm and exp_to then --الحساب مفعل اذا لم يكن ضمن الفترة
	--Auothorized User
	:global.ok:=1;
else
	message('Your Account is Locked...');
	message('Your Account is Locked...');
	:global.ok:=0;
end if;

end;

login.zip

تم تعديل 31 ديسمبر 200817 سنة بواسطة ORA-2008

اخي الكريم .... السلام عليكم
شكرا على اهتمامك بموضوعي
انا اللي بدي اياه ................................
اولا لما يكون عندي USR_EXP_FLAG =1 وهو عبارة عن CHECK BOX
ولما يكون USR_EXP_TO يساوي التاريخ الحالي يفتح الحساب
ولكن خلال الفترة ما بين USR_EXP_FROM و USR_EXP_TO يكون الحساب مغلق
--------------------------------
انا عملت هيك

DECLARE
VV_FLAG NUMBER;
VV_EXP_TO DATE;
BEGIN
CURSOR GET_INFO IS
SELECT USR_EXP_FLAG,USR_EXP_TO 
FROM USERS_ACCOUNT
WHERE UPPER(USR_ID) = UPPER(:BLKLOGIN.USR_ID) AND UPPER(USR_PASSWORD) = UPPER(:BLKLOGIN.USR_PASSWORD);
BEGIN
OPEN GET_INFO;
FETCH GET_INFO INTO VV_FLAG,VV_EXP_TO;
IF VV_FLAG =1 AND VV_EXP_TO <> SYSDATE THEN
message('Your Account is Locked...');
	message('Your Account is Locked...');
ELSE 
NEW_FORM(); ------------ اعطيه مسار الشاشة الرئيسية
END IF;
END;

أشكركم يا اعضاء المنتدى
وانا اسف لقولي انني لست بحاجتكم في حل مشكلتي هذه
واشكر الاخ ORA على اهتمامه
وشكرا لكم جميعا