[hglogtd]

السلام عليكم .... صباح ومساء الخير على الغالين 


عندي محاولة وارجوا التكرم بمساعدتي بالكود أو تغيير الفكرة أن كانت غير مجدية 


في عملي اليوزرات والباسوردات كثيرة جدأ 

فأنا أحاول تغيير الفكرة أن أمكنت 

الفكره هي أن الداتا بيس تتكون من جداول من ضمنها جدول user

اقوم بإدخال اسم المستخدم  المسجل في المجال فيه ليتمكن من الدخول لشاشة التعديل 


* عند محاولة الدخول على form3  يقوم بالتأكد من اليوزر هل هو مجود في جدول user 

أذا كان موجود يمسح له بالدخول وإلا فلا 


مجرد فكره واستقبل كل اقتراحاتكم لي فأنا أتعلم منكم ، وفقكم الله

[طالب 22]

يفضل انك تغير الفكرة الى

عند ضغط تسجيل الدخول يعطيك رسالة اسم المستخدم وكلمة السر
____________________________________-

اعتقد ان ما تطلبه صعب شوي بالنسبة لنا كمبتدئين بس علي داي ممكن يفيدك بالهموضوع اكثر لاني شفت له مثال مطرشه بالمنتدى لكي يستفيد منه الاعضاء

---

اول حاجه ستنشئ فورم ومنه تدخل اسم المستخدمين الجدد وماهي صلاحياتهم
ثانيا شي سيتم الربط بين الصلاحيات والمستخدم
ثالثا في كود تسجيل المستخدمين ستكتب الاوامر ... شغلانه طويلة

[hglogtd]

أنا استفيد من هالمنتدى الغالي على قلبي


وأخي طالب 22 ما فيه شي مستحيل او صعب على عباقرة المنتدى

واتوقع ان السؤال سهل وانا وانت نتعلم وأن شاء الله نلاقي حل واطلالتك على الموضوع تاج


أحاول انا ابتعد عن الصلاحيات ويوزر وباسور لان في مشروعي كل شخص بيشتغل على البرنامج عنده ما يكفيه من يوزرات


شكرا على الرد

[الوادي]

يعني المسألة ما فيها كلمة مرور،

يعني مجرد استفسار هل اسم اليوزر أو اسم اموظف أو اسمل اعميل (أيا كان) موجود مسبقا أم لا.

هنا اعمل استعلام عن الاسم فقط

ولكن Environment.UserName يعطيك اسم المستخدم الخاص بالويندوز.

---

هذا كود الاستعلام

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    Dim ret As Integer

    Using cmd As New OleDbCommand("SELECT COUNT(*) FROM [user] WHERE [user_name]=@username", cnn)
        cmd.Parameters.AddWithValue("@username", Environment.UserName)
        If Not cnn.State = ConnectionState.Open Then cnn.Open()
        ret = cmd.ExecuteScalar ' Scalar '
        cnn.Close()
    End Using

    If ret > 0 Then
        Form3.ShowDialog()

    Else
        MsgBox("اسم المستخدم غير موجود")

    End If

End Sub 


---

في الأول كنت فاهم انك تريد طريقة الاستعلام مع تحقق شرط

لكن رجعت قرأت الموضوع إتضح انك تريد تأييد أو عدم تأييد للفكرة.

الفكرة طيبة ما فيها شي، وتستخدم في التحقق في الصلاحية للدخول على شاشات معينة،
ورأيت تطبيق لهذه الطريقة في برامج ولكني نسيتها،
ولكن أتذكر أنها كانت تطلب كلمة مرور فقط مخصصة لتلك الصفحة (لأن اسم المستخدم قد سبق تسجيله في بداية تشغيل البرنامج)
وأحيانا تكون نفس كلمة المرور الأساسية للمستخدم من باب الاحتياط في حال قام المستخدم بترك البرنامج مفتوح وحاول غيره الدخول للصفحات الخطرة التلاعب بها.

---

يا طالب،

يعجبني فيك اجتهادك ونشاطك، ولاحظت فيك أنه عندما لا يكون لديك حل تشارك من باب تحريك وتنشيط الموضوع.

[hglogtd]

يعطيكم العافيه جميعاً وما استغني عنكم لا عدمناكم

الفكره وما فيها أنه اسم المستخدم يقرأ مع بداية تشغيل الفورم بدون تدخل احد يعني مثلا ليبل 2 = Environment.UserName

فاذا اضفت اسم المستخدم في جدول user هو تلقائي يسمح لك الدخول على الفورم واذا كان اسم المستخدم اللي هو Environment.UserName

غير موجود في القاعدة لا يسمح لك

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

[الوادي]

طيب الحين انتهى الموضوع ولا باقي؟

[hglogtd]

لا باقي ما انتهى وانا اللي ابيه الكود

وما عرفت اوصل له

[الوادي]

والكود اللي اعطيتك وش صار عليه.

[hglogtd]

اذا تكرمت طبقه لي على المثال لانه يعطيني اخطاء

[الوادي]

عشان تتعلم اعطيني الخطأ واعطيك الحل
وإذا ما فيك تتعلم اعطيك المثال.