تقييم الموضوع :
  • 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 ك ب / التحميلات : 21)

الرد }}}}
تم الشكر بواسطة: 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
السلام عليكم
لقد عملت مشروع سابقا وهو موجود في احدى مشاركاتي تحت اسم الدخول لعدة مستخدمين
ارجو ان يفي بالغرض
اختكم الاصيله
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] كود اسم المستخدم وكلمة المرور ruaa muslem 13 1,611 05-04-15, 09:56 PM
آخر رد: ahmedabdelaliem
  حفظ ملف باسم القيمة الموجوه في TEXT Ksa004 3 698 08-12-14, 08:02 PM
آخر رد: السيد الغالي
  كيف انشئ تقرير منفصل لكل مستخدم فوفو 33 2,609 27-10-14, 06:01 PM
آخر رد: تركي الحلواني
Rainbow [سؤال] عمل شاشة فيها الاسم وكلمة السر محمد مسافر 6 1,101 07-02-14, 04:38 AM
آخر رد: asto

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


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