السلام عليكم
كيف الحال ان شاء الله بخير
انا عامل برنامج وحاب اعملة حمايه باسم مستخدم وكلمة مرور
بس يكون لعدة اشخاص وكل شخص له اسم المستخدم والرقم السري الخاص فيه
فا ضروري يتربط بالــ(Database)
وجالس ابحث عن الكود مش محصلة ليا 3 ايام
فا اللي عنده الكود يفيدني او برنامج شبيه له مفتوح المصدر وانا بطلع الاكواد
وشاكر لكم مقدما
(13-11-15, 03:10 PM)mohammed bin ali كتب : [ -> ]السلام عليكم
كيف الحال ان شاء الله بخير
انا عامل برنامج وحاب اعملة حمايه باسم مستخدم وكلمة مرور
بس يكون لعدة اشخاص وكل شخص له اسم المستخدم والرقم السري الخاص فيه
فا ضروري يتربط بالــ(Database)
وجالس ابحث عن الكود مش محصلة ليا 3 ايام
فا اللي عنده الكود يفيدني او برنامج شبيه له مفتوح المصدر وانا بطلع الاكواد
وشاكر لكم مقدما
اخي العزيز
السلام عليكم ورحمة وبركاته
هذا مثال يمكن إضافة اكثر من مستخدم وكلمة ومرور
تحياتي
(13-11-15, 04:26 PM)Microformt كتب : [ -> ] (13-11-15, 03:10 PM)mohammed bin ali كتب : [ -> ]السلام عليكم
كيف الحال ان شاء الله بخير
انا عامل برنامج وحاب اعملة حمايه باسم مستخدم وكلمة مرور
بس يكون لعدة اشخاص وكل شخص له اسم المستخدم والرقم السري الخاص فيه
فا ضروري يتربط بالــ(Database)
وجالس ابحث عن الكود مش محصلة ليا 3 ايام
فا اللي عنده الكود يفيدني او برنامج شبيه له مفتوح المصدر وانا بطلع الاكواد
وشاكر لكم مقدما
اخي العزيز
السلام عليكم ورحمة وبركاته
هذا مثال يمكن إضافة اكثر من مستخدم وكلمة ومرور
تحياتي
الله يعطيك العافيه اخي بس طلعتلي مشكله الي بالون الاحمر
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)
(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 ايام
فا اللي عنده الكود يفيدني او برنامج شبيه له مفتوح المصدر وانا بطلع الاكواد
وشاكر لكم مقدما
اخي العزيز
السلام عليكم ورحمة وبركاته
هذا مثال يمكن إضافة اكثر من مستخدم وكلمة ومرور
تحياتي
الله يعطيك العافيه اخي بس طلعتلي مشكله الي بالون الاحمر
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 فقط
السلام عليكم
لقد عملت مشروع سابقا وهو موجود في احدى مشاركاتي تحت اسم الدخول لعدة مستخدمين
ارجو ان يفي بالغرض