مشكلة في login - cayo12300 - 26-03-18
السلام عليكم ورحمة الله وبركاته
عندي مشكلة انا مسوية داتا اسمها user
وداخلها تيبل اسمه Admin
وفيها
Id
Ad_Name
Ad_password
>>>>>>>>>>>>>>>>>>>>
فأبي اسوي تسجيل دخول عن طريق بيانات موجودة داخل الداتا لكن
لما اسوي الاكواد يطلع خطأ في هذا الجزء
كود :
Me.AdminTableAdapter.Fill(Me.UserDataSet1.Admin, TextBox1.Text.Trim, TextBox2.Text.Trim)
كود :
Public Class Adminlogin
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then
MsgBox("you should complet ypur deails")
Else
Me.AdminTableAdapter.Fill(Me.UserDataSet1.Admin, TextBox1.Text.Trim, TextBox2.Text.Trim)
If Me.UserDataSet1.user.Count > 0 Then
Me.Close()
Test.Show()
Else
MsgBox("Logon failure, user name or password are incorrect!", MsgBoxStyle.Critical)
End If
End If
End Sub
Private Sub Ad_NameTextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If IsNumeric(e.KeyChar.ToString()) Then
MessageBox.Show("Letters only!")
SendKeys.Send("{Backspace}")
End If
End Sub
Private Sub Ad_NameTextBox_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
Form1.Show()
End Sub
Private Function Ad_Name() As Object
Throw New NotImplementedException
End Function
End Class
ممكن حل
RE: مشكلة في login - emamtron2014 - 26-03-18
وعليكم السلام ورحمة الله وبركاته
انا عندي كود بطريقه اخري
ممكن يحل مشكلتك
تفضل الكود
كود :
Public Sub Login_load(ByVal User_Name As String, ByVal Pass As String)
dtLogin.Clear()
Dim cmd As New OleDbCommand("select * from UsersTable where User_Name=@User_Name and Pass=@Pass", connAccess2007)
cmd.Parameters.Add("User_Name", OleDbType.VarChar).Value = User_Name
cmd.Parameters.Add("Pass", OleDbType.VarChar).Value = Pass
connAccess2007.Open()
dtLogin.Load(cmd.ExecuteReader)
connAccess2007.Close()
cmd = Nothing
End Sub
Login_load(TextBox1.Text, TextBox2.Text)
If dtLogin.Rows.Count > 0 Then
user_id = dtLogin.Rows(0).Item(0)
End If
RE: مشكلة في login - cayo12300 - 26-03-18
(26-03-18, 04:46 AM)emamtron2014 كتب : وعليكم السلام ورحمة الله وبركاته
انا عندي كود بطريقه اخري
ممكن يحل مشكلتك
تفضل الكود
كود :
Public Sub Login_load(ByVal User_Name As String, ByVal Pass As String)
dtLogin.Clear()
Dim cmd As New OleDbCommand("select * from UsersTable where User_Name=@User_Name and Pass=@Pass", connAccess2007)
cmd.Parameters.Add("User_Name", OleDbType.VarChar).Value = User_Name
cmd.Parameters.Add("Pass", OleDbType.VarChar).Value = Pass
connAccess2007.Open()
dtLogin.Load(cmd.ExecuteReader)
connAccess2007.Close()
cmd = Nothing
End Sub
Login_load(TextBox1.Text, TextBox2.Text)
If dtLogin.Rows.Count > 0 Then
user_id = dtLogin.Rows(0).Item(0)
End If
كودك ناقص لانه ما اشتغل معي ...
RE: مشكلة في login - emamtron2014 - 26-03-18
اخي الكود شغال تمام
ولكن عليك
1-ان تكتب اسم الفورم الذي تريد فتحه في حالة اذا كان اسم المستخدم وكلمة السر صحيحه
2- قاعدة البيانات المستخدمة هي اكسيس 2007
3- عليك تغيير اسم الجدول والحقول والمتغيرات.ممكن تبعت جزء من برنامجك وسنقوم بالتعديل عليه ان شاء الله
وهذا هو الكود بعد التعديل
كود :
Public Sub Login_load(ByVal User_Name As String, ByVal Pass As String)
dtLogin.Clear()
Dim cmd As New OleDbCommand("select * from UsersTable where User_Name=@User_Name and Pass=@Pass", connAccess2007)
cmd.Parameters.Add("User_Name", OleDbType.VarChar).Value = User_Name
cmd.Parameters.Add("Pass", OleDbType.VarChar).Value = Pass
connAccess2007.Open()
dtLogin.Load(cmd.ExecuteReader)
connAccess2007.Close()
cmd = Nothing
End Sub
Login_load(TextBox1.Text, TextBox2.Text)
If dtLogin.Rows.Count > 0 Then
user_id = dtLogin.Rows(0).Item(0)
frmMainMenu.Show()
Else
MsgBox("")
End If
RE: مشكلة في login - ابو ملاك الخبير - 26-03-18
هذا الكود شغال عندي 100%
وارفقت صورة التصميم حتى تعرف الادوات المستخدمة
كود :
Imports System.Data.SqlClient
Public Class Login_form
Private Sub BTNlogin_Click(sender As Object, e As EventArgs) Handles BTNlogin.Click
Dim SQLQ As String = ("Select * From Mangers WHERE empuser= '" & Texuser.Text & "' and emppass= '" & Texpass.Text & "'")
Dim SQLCmnd As New SqlCommand(SQLQ, SQLcon)
Dim SQLAdptr = New SqlDataAdapter(SQLCmnd)
Dim Dt As New DataTable
Dt.Clear()
SQLAdptr.Fill(Dt)
If Dt.Rows.Count > 0 Then
MsgBox("تم تسجيل الدخول بنجاح")
MainBord_form.Show()
Me.Hide()
Else
MsgBox("اسم المستخدم او كلمة المرور غير صحيحة")
End If
End Sub
Private Sub BTNEXIT_Click(sender As Object, e As EventArgs) Handles BTNEXIT.Click
Close()
End Sub
Private Sub CheckBoxSP_CheckedChanged(sender As Object) Handles CheckBoxSP.CheckedChanged
If Texpass.UseSystemPasswordChar = True Then
' show password
Texpass.UseSystemPasswordChar = False
Else
' hide password
Texpass.UseSystemPasswordChar = True
End If
End Sub
End Class
RE: مشكلة في login - سعود الشامان - 29-03-18
وعليكم السلام ورحمة الله وبركاته
إضافة إلى مشاركة اخوي ابو ملاك
شاهد هذا المثال وفيه شرح فيديو لكامل العمليه بالتفصيل
http://vb4arb.com/vb/showthread.php?tid=21817
|