[Atyafalk]

 
السلام عليكم اخوتي الكرام
أنا حاليا متلخبطة بين كثر كودات وكثير كثير حيرانه فطلبه مساعدتكم من بعد اذنكم
انا عامله جدول في قاعدة بيانات جدول خاص بالموظفين اسممه Tabla_Users
المهم في الفورم الاول فيه كومبوبوكس خاص باسم مستخدم وتكست خاص بالباسورد
وعامله كود يطلعلي كل اسماء الموظفين 
فعايزه عند ادخل الباسورد يكون ده الباسورد خاص بالموظف ولو فيه خطأ يطلع خطأ في بيانات

[baha]

وعليكم السلام ورحمة الله وبركاته


تعبئة الكومبو
 

كود :

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

تمنياتي لك وللجميع التوفيق