السلام عليكم اخوتي الكرام
أنا حاليا متلخبطة بين كثر كودات وكثير كثير حيرانه فطلبه مساعدتكم من بعد اذنكم
انا عامله جدول في قاعدة بيانات جدول خاص بالموظفين اسممه Tabla_Users
المهم في الفورم الاول فيه كومبوبوكس خاص باسم مستخدم وتكست خاص بالباسورد
وعامله كود يطلعلي كل اسماء الموظفين
فعايزه عند ادخل الباسورد يكون ده الباسورد خاص بالموظف ولو فيه خطأ يطلع خطأ في بيانات
وعليكم السلام ورحمة الله وبركاته
تعبئة الكومبو
كود :
dt = New DataTable
da = New OleDbDataAdapter("select user_name as a,pass as b from Table_user", con)
da.Fill(dt)
If dt.Rows.Count > 0 Then
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "a"
End If
كود عند الكتابة داخل التكست بوكس
كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text.Trim = ComboBox1.SelectedItem(1) Then
TextBox1.BackColor = Color.Green
ElseIf TextBox1.Text.Trim <> "" Then
TextBox1.BackColor = Color.Red
End If
End Sub
كود عند الاختيار من الكومبو بوكس
كود :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
TextBox1.BackColor = Color.White
TextBox1.Clear()
End Sub
تمنياتي لك وللجميع التوفيق