تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كود حمايه باسم مستخدم وكلمة مرور
#1
السلام عليكم
كيف الحال ان شاء الله بخير

انا عامل برنامج وحاب اعملة حمايه باسم مستخدم وكلمة مرور
بس يكون لعدة اشخاص وكل شخص له اسم المستخدم والرقم السري الخاص فيه
فا ضروري يتربط بالــ(Database)

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



وشاكر لكم مقدما Heart Heart
мσнαммє∂ вΐภ aℓΐ ˛♡
الرد }}}
تم الشكر بواسطة:
#2
Question 
(13-11-15, 03:10 PM)mohammed bin ali كتب : السلام عليكم
كيف الحال ان شاء الله بخير

انا عامل برنامج وحاب اعملة حمايه باسم مستخدم وكلمة مرور
بس يكون لعدة اشخاص وكل شخص له اسم المستخدم والرقم السري الخاص فيه
فا ضروري يتربط بالــ(Database)

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



وشاكر لكم مقدما Heart Heart

 اخي العزيز
 السلام عليكم ورحمة وبركاته
 هذا مثال  يمكن إضافة اكثر من مستخدم وكلمة ومرور
 تحياتي


الملفات المرفقة
.rar   pass.rar (الحجم : 9.15 ك ب / التحميلات : 56)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة: mohammed bin ali , Ahmed_Mansoor
#3
(13-11-15, 04:26 PM)Microformt كتب :
(13-11-15, 03:10 PM)mohammed bin ali كتب : السلام عليكم
كيف الحال ان شاء الله بخير

انا عامل برنامج وحاب اعملة حمايه باسم مستخدم وكلمة مرور
بس يكون لعدة اشخاص وكل شخص له اسم المستخدم والرقم السري الخاص فيه
فا ضروري يتربط بالــ(Database)

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



وشاكر لكم مقدما Heart Heart

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

Set DB = OpenDatabase(App.Path & "/a12.mdb", 2)
Set RS = DB.OpenRecordset("select * from jd1 Where Name='" & Trim(Text1.Text) & "' and password='" & Trim(Text2.Text) & "'", 2)
If RS.RecordCount <= 0 Then
MsgBox "ÇáÑÌÇÁ ÇáÊÇßÏ ãä ÅÏÎÇá ÃÓã ÇáãÓÊÎÏã æßáãÉ ÇáãÑæÑ ÇáÕÍíÍÉ", vbCritical + vbMsgBoxRtlReading
RS.Close
DB.Close
Text1 = ""
Text2 = ""
Text1.SetFocus
Exit Sub
End If
Unload Me
Form2.Show
RS.Close
DB.Close

انا ما عرفت هوا رابط القاعدة باي طريقة
انا رابطها ب(adodc)
мσнαммє∂ вΐภ aℓΐ ˛♡
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

اخي الكريم جرب الرابط التالي ربما تستطيع الاستفادة منه

http://vb4arb.com/vb/thread-11881.html

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
#5
(13-11-15, 05:33 PM)mohammed bin ali كتب :
(13-11-15, 04:26 PM)Microformt كتب :
(13-11-15, 03:10 PM)mohammed bin ali كتب : السلام عليكم
كيف الحال ان شاء الله بخير

انا عامل برنامج وحاب اعملة حمايه باسم مستخدم وكلمة مرور
بس يكون لعدة اشخاص وكل شخص له اسم المستخدم والرقم السري الخاص فيه
فا ضروري يتربط بالــ(Database)

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



وشاكر لكم مقدما Heart Heart

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

Set DB = OpenDatabase(App.Path & "/a12.mdb", 2)
Set RS = DB.OpenRecordset("select * from jd1 Where Name='" & Trim(Text1.Text) & "' and password='" & Trim(Text2.Text) & "'", 2)
If RS.RecordCount <= 0 Then
MsgBox "ÇáÑÌÇÁ ÇáÊÇßÏ ãä ÅÏÎÇá ÃÓã ÇáãÓÊÎÏã æßáãÉ ÇáãÑæÑ ÇáÕÍíÍÉ", vbCritical + vbMsgBoxRtlReading
RS.Close
DB.Close
Text1 = ""
Text2 = ""
Text1.SetFocus
Exit Sub
End If
Unload Me
Form2.Show
RS.Close
DB.Close

انا ما عرفت هوا رابط القاعدة باي طريقة
انا رابطها ب(adodc)
اخي العزيز
  هذا المثال على تقنية Dao  فقط
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة: mohammed bin ali , Ahmed_Mansoor
#6
السلام عليكم
لقد عملت مشروع سابقا وهو موجود في احدى مشاركاتي تحت اسم الدخول لعدة مستخدمين
ارجو ان يفي بالغرض
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اصدار الجدول الى الوورد باسم جديد gonm64 0 579 03-06-22, 02:49 PM
آخر رد: gonm64
  المساعدة في اضافة كلمة مرور لقاعدتي البيانات fahad fbs 2 1,466 01-12-20, 01:26 AM
آخر رد: fahad fbs
  [vb6.0] المساعدة في طباعة شريط وزن لقاعدة بيانات محمية بكلمة مرور وادي العوضي 4 1,693 29-02-20, 12:36 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] المساعدة في طريقة الاتصال بقاعدة بيانات محمية بكلمة مرور وادي العوضي 4 1,773 22-02-20, 10:47 PM
آخر رد: وادي العوضي
  [vb6.0] كيفية الاتصال بقاعدة البيانات علي شبكة دون طلب اسم الجهاز وكلمة المرور kamalgadir 0 1,696 05-12-18, 05:58 PM
آخر رد: kamalgadir
  [vb6.0] كيف احفظ ملف اكسل تم التعديل عليه باسم جديد و يتغير في كل مرة تلقائيا king basel 4 3,297 05-10-18, 12:24 AM
آخر رد: السيد الغالي
  هل ممكن عمل إتصال بقاعدة بيانات اكسيس محمية بكلمة مرور مع الاداة Data الاساسية عبدالله الصافي 3 2,191 24-05-18, 03:19 PM
آخر رد: larbihamri
Question [vb6.0] هل يمكن تغير اسم المستخدم وكلمة المرور إذا كنت موجودة ضمن الكود ؟؟ Microformt 2 1,889 12-03-18, 07:09 AM
آخر رد: Microformt
  ايقاف البرنامج في حال استراحتك والمطالبة بكلمة مرور alfakeehy 7 2,222 08-01-18, 03:01 AM
آخر رد: Amir_Alzubidy
  [vb6.0] السماح لاكثر من مستخدم بالاتصال بالسيرفر elkhateeb11 3 2,189 29-08-17, 12:12 AM
آخر رد: ahmedabdelaliem

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم