منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كود حمايه باسم مستخدم وكلمة مرور - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كود حمايه باسم مستخدم وكلمة مرور (/showthread.php?tid=13806)



كود حمايه باسم مستخدم وكلمة مرور - mohammed bin ali - 13-11-15

السلام عليكم
كيف الحال ان شاء الله بخير

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

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



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


RE: كود حمايه باسم مستخدم وكلمة مرور - Microformt - 13-11-15

(13-11-15, 03:10 PM)mohammed bin ali كتب : السلام عليكم
كيف الحال ان شاء الله بخير

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

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



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

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


RE: كود حمايه باسم مستخدم وكلمة مرور - mohammed bin ali - 13-11-15

(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)


RE: كود حمايه باسم مستخدم وكلمة مرور - abulayth - 13-11-15

السلام عليكم

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

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

يعطيك العافية


RE: كود حمايه باسم مستخدم وكلمة مرور - Microformt - 13-11-15

(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  فقط


RE: كود حمايه باسم مستخدم وكلمة مرور - الاصيله - 14-11-15

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