تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في عمل صلاحية الدخول vb.net 2010 with sql server 2010
#1
السلام عليكم 
كيف يتم عمل صلاحية الدخول للمستخدمين باستخدام vb.net و sql علما اني شاهدة العديد من الامثلة ....
الان لدي مثال بسيط يحتوي على 
*قاعدة البيانات تحتوي على اسم المستخدم والباسورد والصلاحية
المشكلة كيف اجعل الشخص الذي يدخل الى البرنامج اذا كان يوزر لاتظهر الصورة واذا كان ادمن تظهر الصور 
والمثال في المرفقات  للتعديل


الملفات المرفقة
.rar   test1.rar (الحجم : 144.98 ك ب / التحميلات : 16)
((نصر من الله وفتح قريب))
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم أخي العزيز ورحمة الله وبركاته
نرجو من جنابكم الكريم رفع قاعدة البيانات لكي يتسنى لنا مساعدتكم وشكرا.
الرد }}}}
تم الشكر بواسطة: Namer , hassan
#3
اعتذر اخي هذه قاعدة البيانات


الملفات المرفقة
.rar   dba.rar (الحجم : 224.29 ك ب / التحميلات : 16)
((نصر من الله وفتح قريب))
الرد }}}}
تم الشكر بواسطة:
#4
لقد حذفت الرد هناك خطأ في المشروع سوف أعدل عليه ثم أرفعه بعد قليل
الرد }}}}
تم الشكر بواسطة: Namer , Namer , hassan
#5
احسنت اخي بارك الله فيك ..
حاولت ان اسألك كيف اضيف مستخدم واعطائه اي صلاحية
((نصر من الله وفتح قريب))
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد تم التعديل على البرنامج بناء لطلبكم
الشرح بالصور :
واجهة إضافة مستخدم User Registration
   

واجهة الدخول User Login
   


عندما يمتلك المستخدم صلاحية المدير
   

   

عندما يمتلك المستخدم صلاحية مستخدم عادي

   

   

الأكواد :
واجهة إضافة مستخدم جديد User Registration :
قم باستدعاء المكتبات التالية :
PHP كود :
Imports System.Data.SqlClient
Imports System
.Data 

قم بالإعلان عن المتغيرات التالية :
PHP كود :
Dim con As New SqlConnection("Data Source=LocalHost;Initial Catalog=dba;Integrated Security=True")
 
   Dim cmd As SqlCommand
    Dim da 
As SqlDataAdapter
    Dim ds 
As DataSet
    Dim sqlstr 
As String 

قم بإضافة الإجراء لتحميل البيانات من جدول status إلى Combobox:
PHP كود :
'Load Description to Description ComboBox
    Private Sub LoadcmbDescription()
        Try
            con.Open()
            sqlstr = "SELECT * FROM status_tb"
            cmd = New SqlCommand(sqlstr, con)
            da = New SqlDataAdapter(cmd)
            ds = New DataSet
            ds.Clear()
            da.Fill(ds, "status_tb")

            cmbDescription.Items.Clear()
            For Each r In ds.Tables("status_tb").Rows
                cmbDescription.Items.Add(r(1).ToString())
            Next
            con.Close()
        Catch ex As Exception
            If con.State = ConnectionState.Open Then con.Close()
            MsgBox(ex.Message)
        End Try
    End Sub 

ضع الإجراء في الحدث Load للنموذج :
PHP كود :
Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load
        LoadcmbDescription
()
 
   End Sub 

لإضافة مستخدم جديد ضع الكود التالي :
PHP كود :
Try
 
           Dim s As String txtPass.Text
            Dim bArray
() As Byte System.Text.Encoding.UTF8.GetBytes(s)
 
           Dim sb64 As String System.Convert.ToBase64String(bArray)

 
           con.Open()
 
           sqlstr "SELECT * FROM tblUsers Where UsrName=@UsrName"
 
           cmd = New SqlCommand(sqlstrcon)
 
           cmd.Parameters.Add("@UsrName"SqlDbType.NVarChar50).Value txtUser.Text

            If cmd
.ExecuteScalar 0 Then
                MsgBox
("User Exists,try to enter another userName"MsgBoxStyle.Critical"Caution")
 
               con.Close()
 
               Return
            Else
                sqlstr 
"INSERT INTO tblUsers(UsrName,UsrPassword,UsrDescription) VALUES(@UsrName,@UsrPassword,@UsrDescription)"
 
               cmd = New SqlCommand(sqlstrcon)
 
               With cmd.Parameters
                    
.Add("@UsrName"SqlDbType.NVarChar50).Value txtUser.Text
                    
.Add("@UsrPassword"SqlDbType.NVarChar50).Value sb64
                    
.Add("@UsrDescription"SqlDbType.NVarChar50).Value cmbDescription.Text
                End With
                cmd
.ExecuteNonQuery()
 
               MsgBox("User added successfully"MsgBoxStyle.Information"Caution")
 
           End If
 
           con.Close()
 
       Catch ex As Exception
            If con
.State ConnectionState.Open Then con.Close()
 
           MsgBox(ex.Message)
 
       End Try
 
       txtPass.Clear()
 
       txtUser.Clear() 

واجهة الدخول :
كود الدخول :
PHP كود :
Try
 
           Dim s As String txtPass.Text
            Dim bArray
() As Byte System.Text.Encoding.UTF8.GetBytes(s)
 
           Dim sb64 As String System.Convert.ToBase64String(bArray)

 
           con.Open()
 
           sqlstr "SELECT * FROM tblUsers Where Usrname=@UsrName and UsrPassword=@UsrPassword"
 
           cmd = New SqlCommand(sqlstrcon)
 
           With cmd.Parameters
                
.Add("@UsrName"SqlDbType.NVarChar50).Value txtUser.Text
                
.Add("@UsrPassword"SqlDbType.NVarChar50).Value sb64
            End With

            If cmd
.ExecuteScalar 0 Then
                MsgBox
("Invalid username or password!"MsgBoxStyle.Critical"Error")
 
               con.Close()
 
               txtPass.Clear()
 
               txtUser.FindForm()
 
               Return
            Else
                Me
.Hide()
 
               If txtDescription.Text "admin" Then
                    frmMain
.Show()
 
                   frmMain.PictureBox1.Visible True
                Else
                    frmMain
.Show()
 
                   frmMain.PictureBox1.Visible False
                End 
If
 
           End If
 
           con.Close()
 
       Catch ex As Exception
            If con
.State ConnectionState.Open Then con.Close()
 
           MsgBox(ex.Message)
 
       End Try 

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

المشروع بعد التعديل :
.rar   khodor1985 - UserPro.rar (الحجم : 889.12 ك ب / التحميلات : 24)

أتمنى لك التوفيق أخي ولا تنسونا من الدعاء
الرد }}}}
تم الشكر بواسطة: derham , derham , Namer , Adrees , hassan , ابو ابراهيم , zinom
#7
اشكرك اخي بارك الله فيك
وجعلة في ميزان حسناتك انشاء الله
((نصر من الله وفتح قريب))
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 42 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 59 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 169 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 280 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 70 21-11-16, 11:24 PM
آخر رد: السرور
  [VB.NET] (مشكله) في تسجيل الدخول لموقع badoo باستخدام HttpWebRequest ali ahmed 1997 1 188 17-11-16, 04:08 AM
آخر رد: الماجيك مسعد
  مساعدة بخصوص Listbox CLARO 3 78 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 83 16-11-16, 11:58 AM
آخر رد: أبووسم
  ربط قاعدة بيانات اكسس 2010 مع فيجوال 2012 diab4diab 2 80 15-11-16, 10:24 PM
آخر رد: thevirus
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 72 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان

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


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