تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل شاشة تسجيل دخول لبرنامج عبر فيجوال بيسك 2008
#1
السلام عليكم شباب ممكن تساعدونا في عمل شاشة تسجيل دخول لبرنامج عبر فيجوال بيسك 2008 بقاعدة بيانات




أتمنى من حضراتكم التكرم في المساعده طبعا أنا بدأت اتعلم شوي البرمجه عبر الفيجوال بيسك 2008
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
بداية تحتاج ان يكون لديك جدول للمستخدمين يتكو على الاقل من الحقول الرئيسية التالية:
1. ID (معرف)
2. User_Name (اسم المستخدم)
3. User_Password (كلمة المرور)
4. Employee_Name (اسم الموظف)
5. User_Privilege (صلاحية المستخدم (مدير - مستخدم عادي))
6. Record_Status (حالة المستخدم (مفعل - معلق))
سأفترض أن اسم الجدول الذي يحوي الحقول اعلاه اسمه (Users_TB) و أن قاعدة البيانات المستخدمة هي (SQL Server)
سنحتاج الى نافذة تسجيل دخول تتكون من العناصر التالية (TextBox عدد/2 + Label عدد/2 + Button عدد/2) كما موضح ادناه



في حدث (Click) للزر (تسجيل الدخول) ادرج الكود التالي مع تعديل ما يناسبك:
PHP كود :
UsernameTextBox.Enabled False
        Me
.Cursor Cursors.WaitCursor
        Try

            Dim usernamecmd 
As New SqlCommand("select id , user_name,Employee_Name from users_TB where user_name = '" UsernameTextBox.Text _
                                              
"' and Record_Status = 'Activated'"con)
 
           Me.Cursor Cursors.WaitCursor
            con
.Open()
 
           Dim usernamedr As SqlDataReader usernamecmd.ExecuteReader
            usernamedr
.Read()
 
           If Not (usernamedr.HasRowsThen
                UsernameTextBox
.Enabled True
                Me
.Cursor Cursors.Default
 
               MessageBox.Show("اسم المستخدم غير صحيح او غير مفعل""تسجيل الدخول"MessageBoxButtons.RetryCancelMessageBoxIcon.WarningMessageBoxDefaultButton.Button1MessageBoxOptions.RtlReading)
 
               Me.UsernameTextBox.Text ""
 
               Me.PasswordTextBox.Text ""
 
               Me.UsernameTextBox.Focus()
 
           Else
                userid 
usernamedr.Item(0)
 
               EmployeeName usernamedr.Item(2)

 
               'للتأكد من ان المستخدم الحالي غير مستخدم من قبل موظف اخر في الشركة
                Dim userstatussstring As String = "SELECT TOP 1 [user_Status] FROM [Users_Access_TB] " _
                                          & " where user_id = " & userid & " order by id desc"
                Dim userstatuscmd As New SqlCommand(userstatussstring, con)
                usernamedr.Close()
                If userstatuscmd.ExecuteScalar = True Then

                    Me.UsernameTextBox.Enabled = True
                    Me.UsernameTextBox.Focus()
                    MessageBox.Show("المستخدم " & Me.UsernameTextBox.Text & " متواجد فعلاً في النظام", "تسجيل دخول", MessageBoxButtons.OK _
                                    , MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
                    Me.UsernameTextBox.Text = ""
                    Me.PasswordTextBox.Text = ""
                    Me.Cursor = Cursors.Default
                    usernamedr.Close()
                    con.Close()
                    Exit Sub
                End If
                If usernamedr.IsClosed = False Then usernamedr.Close()

                Dim passwordcmd As New SqlCommand("select user_password from users_TB where id = " & userid, con)
                Dim passworddr As SqlDataReader = passwordcmd.ExecuteReader
                passworddr.Read()
                If PasswordTextBox.Text = passworddr.Item(0) Then
                    UsernameTextBox.Enabled = True
                    Me.Cursor = Cursors.Default
                    passworddr.Close()
                    con.Close()
                    MsgBox("مرحباً بك " & EmployeeName, MsgBoxStyle.Information, "تسجيل الدخول")
                    Me.UsernameTextBox.Text = ""
                    MainFrm.Show()
                    useraccesssub(Me.Name, Me, con, userid)
                    Me.Hide()
                Else
                    UsernameTextBox.Enabled = True
                    Me.Cursor = Cursors.Default
                    Me.PasswordTextBox.Focus()
                    MessageBox.Show("كلمة المرور غير صحيحة", "تسجيل الدخول", MessageBoxButtons.RetryCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
                    Me.PasswordTextBox.Text = ""
                    passworddr.Close()
                    If con.State = ConnectionState.Open Then con.Close()
                    Exit Sub
                End If
                If passworddr.IsClosed = False Then passworddr.Close()
            End If
            If usernamedr.IsClosed = False Then usernamedr.Close()
            If con.State = ConnectionState.Open Then con.Close()
        Catch ex As Exception
            UsernameTextBox.Enabled = True
            Me.Cursor = Cursors.Default
            If con.State = ConnectionState.Open Then con.Close()
            If ex.Message.ToString = "A network-related or instance-specific error occurred while establishing a connection to SQL Server. The server was not found or was not accessible. Verify that the instance name is correct and that SQL Server is configured to allow remote connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server)" Then
                MessageBox.Show("لا يوجد اتصال مع قاعدة البيانات .. يرجى الاتصال بمدير النظام.", "تسجيل دخول", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
                Exit Sub
            End If
            MsgBox(ex.Message, MsgBoxStyle.Critical, msgboxtitle)
        End Try 

ارجو ان يكون الشرح واضحاً

تحياتي ..
الرد }}}}
تم الشكر بواسطة: abulayth , thevirus , ممدوح , ممدوح , Adrees
#3
(12-11-16, 02:29 PM)ابراهيم النعيمي كتب : السلام عليكم
بداية تحتاج ان يكون لديك جدول للمستخدمين يتكو على الاقل من الحقول الرئيسية التالية:
1. ID (معرف)
2. User_Name (اسم المستخدم)
3. User_Password (كلمة المرور)
4. Employee_Name (اسم الموظف)
5. User_Privilege (صلاحية المستخدم (مدير - مستخدم عادي))
6. Record_Status (حالة المستخدم (مفعل - معلق))
سأفترض أن اسم الجدول الذي يحوي الحقول اعلاه اسمه (Users_TB) و أن قاعدة البيانات المستخدمة هي (SQL Server)
سنحتاج الى نافذة تسجيل دخول تتكون من العناصر التالية (TextBox عدد/2 + Label عدد/2 + Button عدد/2) كما موضح ادناه



في حدث (Click) للزر (تسجيل الدخول) ادرج الكود التالي مع تعديل ما يناسبك:
PHP كود :
UsernameTextBox.Enabled False
        Me
.Cursor Cursors.WaitCursor
        Try

            Dim usernamecmd 
As New SqlCommand("select id , user_name,Employee_Name from users_TB where user_name = '" UsernameTextBox.Text _
                                              
"' and Record_Status = 'Activated'"con)
 
           Me.Cursor Cursors.WaitCursor
            con
.Open()
 
           Dim usernamedr As SqlDataReader usernamecmd.ExecuteReader
            usernamedr
.Read()
 
           If Not (usernamedr.HasRowsThen
                UsernameTextBox
.Enabled True
                Me
.Cursor Cursors.Default
 
               MessageBox.Show("اسم المستخدم غير صحيح او غير مفعل""تسجيل الدخول"MessageBoxButtons.RetryCancelMessageBoxIcon.WarningMessageBoxDefaultButton.Button1MessageBoxOptions.RtlReading)
 
               Me.UsernameTextBox.Text ""
 
               Me.PasswordTextBox.Text ""
 
               Me.UsernameTextBox.Focus()
 
           Else
                userid 
usernamedr.Item(0)
 
               EmployeeName usernamedr.Item(2)

 
               'للتأكد من ان المستخدم الحالي غير مستخدم من قبل موظف اخر في الشركة
                Dim userstatussstring As String = "SELECT TOP 1 [user_Status] FROM [Users_Access_TB] " _
                                          & " where user_id = " & userid & " order by id desc"
                Dim userstatuscmd As New SqlCommand(userstatussstring, con)
                usernamedr.Close()
                If userstatuscmd.ExecuteScalar = True Then

                    Me.UsernameTextBox.Enabled = True
                    Me.UsernameTextBox.Focus()
                    MessageBox.Show("المستخدم " & Me.UsernameTextBox.Text & " متواجد فعلاً في النظام", "تسجيل دخول", MessageBoxButtons.OK _
                                    , MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
                    Me.UsernameTextBox.Text = ""
                    Me.PasswordTextBox.Text = ""
                    Me.Cursor = Cursors.Default
                    usernamedr.Close()
                    con.Close()
                    Exit Sub
                End If
                If usernamedr.IsClosed = False Then usernamedr.Close()

                Dim passwordcmd As New SqlCommand("select user_password from users_TB where id = " & userid, con)
                Dim passworddr As SqlDataReader = passwordcmd.ExecuteReader
                passworddr.Read()
                If PasswordTextBox.Text = passworddr.Item(0) Then
                    UsernameTextBox.Enabled = True
                    Me.Cursor = Cursors.Default
                    passworddr.Close()
                    con.Close()
                    MsgBox("مرحباً بك " & EmployeeName, MsgBoxStyle.Information, "تسجيل الدخول")
                    Me.UsernameTextBox.Text = ""
                    MainFrm.Show()
                    useraccesssub(Me.Name, Me, con, userid)
                    Me.Hide()
                Else
                    UsernameTextBox.Enabled = True
                    Me.Cursor = Cursors.Default
                    Me.PasswordTextBox.Focus()
                    MessageBox.Show("كلمة المرور غير صحيحة", "تسجيل الدخول", MessageBoxButtons.RetryCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
                    Me.PasswordTextBox.Text = ""
                    passworddr.Close()
                    If con.State = ConnectionState.Open Then con.Close()
                    Exit Sub
                End If
                If passworddr.IsClosed = False Then passworddr.Close()
            End If
            If usernamedr.IsClosed = False Then usernamedr.Close()
            If con.State = ConnectionState.Open Then con.Close()
        Catch ex As Exception
            UsernameTextBox.Enabled = True
            Me.Cursor = Cursors.Default
            If con.State = ConnectionState.Open Then con.Close()
            If ex.Message.ToString = "A network-related or instance-specific error occurred while establishing a connection to SQL Server. The server was not found or was not accessible. Verify that the instance name is correct and that SQL Server is configured to allow remote connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server)" Then
                MessageBox.Show("لا يوجد اتصال مع قاعدة البيانات .. يرجى الاتصال بمدير النظام.", "تسجيل دخول", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
                Exit Sub
            End If
            MsgBox(ex.Message, MsgBoxStyle.Critical, msgboxtitle)
        End Try 

ارجو ان يكون الشرح واضحاً

تحياتي ..

الله يحفظك,,,,,,
" إذا كنت تعتقد أن التعلم باهظ الثمن، فلتجرّب الجهل. "
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  نقل واسترجاع ملفات بواسطة الفيجوال بيسك عبدالرحمن المكاوي 25 500 أمس, 08:30 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 63 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] (مشكله) في تسجيل الدخول لموقع badoo باستخدام HttpWebRequest ali ahmed 1997 1 190 17-11-16, 04:08 AM
آخر رد: الماجيك مسعد
  ربط قاعدة بيانات اكسس 2010 مع فيجوال 2012 diab4diab 2 92 15-11-16, 10:24 PM
آخر رد: thevirus
  لانشاء فولدر فى مسار محدد بالفيجوال بيسك nabil.1710 4 96 07-11-16, 06:31 PM
آخر رد: nabil.1710
  اريد مساعدة في التعامل مع هذا الموقع بالفيجوال بيسك soper 2 83 03-11-16, 07:08 PM
آخر رد: soper
  فيجوال 2015 لا يحتوي على ريبورت ؟ samira20 3 105 02-11-16, 10:14 PM
آخر رد: أبو عمر
  [VB.NET] عايزة اربط الداتا جريد في الفيجوال بيسك .net باداة الريبورت فيور عشان تطلع التقرير Asmaa adel 2 106 25-10-16, 11:42 PM
آخر رد: Asmaa adel
  كيف استخدم شاشة انتظار مع ارسال ايميل samira20 1 95 23-10-16, 11:16 PM
آخر رد: ابراهيم النعيمي
Sad [سؤال] اريد صنع صفحة تسجيل دخول الي برنامج عن طريق داتابيس online sql sharo.azad 3 98 21-10-16, 04:07 AM
آخر رد: أبو عمر

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


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