كيف أجعل لبرنآمجي كلمة سر ؟

[delphi4you]

السلام عليكم ورحمة الله وبركاته ياخوان

عندي مشكل ألا وهو كيف أجعل لبرنامجي كلمة مرور

لدي برنآمج يقوم بإظهار شاشه ترحيبيه ثم يعرض فورم 1

**** وضع فورم التحقق من كلمة المرور ليظهر بعد الشاشه الترحيبيه وقبل شاشه البرنامج

وعند ادخال الكلمه الصحيحه يقوم البرنامج بعرض الفورم 1 [ شاشه البرنامج الرئيسيه ]

ماذا احتاج من اكواد وأين أضعها وكيف ارتبها ؟؟؟

اعذرون جدا فأنا مبتدئ

[B.M.AbdelAziZ]

الامر بسيط
عليك اضافة Form2
الشاشة الترحيبية SlpashScreen تقوم باظهار Form2،
Form2 تتحقق من صحة كلمة السر وتقوم باظهار Form1 ان كانت صحيحة
والسلام عليكم ورحمة الله

[delphi4you]

جزاك الله خيرا يدلتا لقد وضعتني على بدايه الطريق

لاكن ماهي الأكواد اللازمه ؟ الخاصه بكلمه المرور ! ؟

[merouane]

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

أو فقط قمت بالبحث من زاوية البحث لوجدت ما تريد بكل تأكيد

[أمير الدلفي]

سلام
هذا ملف مفتوح ممكن تعدل فيه ما أردت
أن شاء الله ينفعك

[delphi4you]

اخي مروآن

أنا لا أضع موضوعا من دون أن أبحث عنه واتبحر به

أنظر ماذا قلت وماذا لم تلآحظه أنت

____________

لدي برنآمج يقوم بإظهار شاشه ترحيبيه ثم يعرض فورم 1

أريـد وضع فورم التحقق من كلمة المرور ليظهر بعد الشاشه الترحيبيه وقبل شاشه البرنامج

____________

المشكله تكمن في الشاشه الترحيبيه وليس بكلمة المرور

أريـد أن أعرف كيف أجعل فورم كلمة المرور يظهر بعد الشاشه الترحيبيه وقبل فورم البرنامج

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

جزآكم الله خيرا جميعا

[أمير الدلفي]

سلامي حبيبي ****ا ان تتحكم في اعصابك و لا داعي للقلق

ما رأيك في الكود التالي :
begin
Application.Initialize;
FSplash := TFSplash.Create(Application);
FSplash.Show;
FSplash.Update;
Application.CreateForm(Tmotdepasse, motdepasse);
Application.CreateForm(Tform1, form1);
sleep(2222);
FSplash.close;
FSplash.Release;
Application.Run;
end.

ادخل من projet ثم في voir le source ثم اختر الفورم الذي يكون مباشرة بعد شاشتك الترحيبية
و ممكن ترسل مرفقك أعدل فيه
بالتوفيق

[delphi4you]

بالعكس جدا يا اخي امكروس

مروآن أخ غالي علينا وأنت أخ غالي علينا وكذلك الجميع

لايوجد مايثير الأعصاب :d

فقط كنت سأوضح له نقطه صغيره

وجزآكم الله خيرا جميعا ;)

[أمير الدلفي]

بالتوفيق أخي

[SALAH]

سلام
هذا ملف مفتوح ممكن تعدل فيه ما أردت
أن شاء الله ينفعك

كيف اغير كلمة المرور فانا لا **** 000000

[professor DeXTeR]

يمكنك عمل ذلك بكل بسآطه ياصالح ;)

قم بفتح السورس اللذي أرفقه أخونا أمكروس

سيظهر لك فورم 1

قم بالذهاب الى التبويب Events بجآنب تبويب الخصائص

انزل الى آخر شئ واختر onFormShow

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


c:='000000';

قم بتغير الأصفار الى الرقم اللذي تريده

والسلام مسك الختآم

[SALAH]

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

[مهدي]

و عليكم السلام و رحمة الله و بركاته

الموضوع التالي يحتوى مثال للموضوع

http://www.delphi4arab.com/forum/showthread.php?t=374

[raf2009]

begin
Application.Initialize;
FormUtilisateur:=TFormUtilisateur.Create(nil) ;
FormUtilisateur.ShowModal;
IF not FormUtilisateur.Pass THEN
BEGIN
FormUtilisateur.Release;
application.Terminate;
END
ELSE
BEGIN
FormUtilisateur.Release;
//----------------------------------
FormSkin:= TFormSkin.Create(nil);
FormSkin.Show;
FormSkin.Update;
FormSkin.free;
Application.Run;
End; // //-------------Utilisateur---------------------

end.