[saqaf]

(01-03-21, 10:44 PM)ابراهيم ايبو كتب : السلام عليكم
اخي المثال شغال ومجرب ولم يشتكي منه احد من قبل
لااذكر نسخة الفريم وورك التي عملت عليها يمكنك معرفتها من خلال البرنامج
الشيئ الاخر ربما نسخة ال Sqlserver التي عندك لم تستطيع عمل اتاش للقاعدة 
لاأعرف ربما لديك مشكلة في مكان ما

لسلام عليكم اخي الكريم الكود التالي يقرا لي فقط من الداتا بيز بيانات مدير النظام فقط وهي كالتالي  
1- manager_year
2- manager_name
3-manager_password
4-manager_system 
 
حيث انه حالياً فقط يسجل الدخول الى الماين فورم الخاص بادارة النظام فقط .

وما اريده انا هو اني اجعله يقرا لي ايضا بيانات مستخدم القبض من الداتا بيز وهي كالتالي  
1-catch_year
2-catch_name
3-catch_password
4-catch_system

ويقرا ايضا بيانات مستخدم الصرف من الداتا بيز وهي كالتالي:
1-exchange_year
2-exchange_name
3-exchange_password
4-exchange_system


ادوات فورم الوجن هي كالتالي:

1-     TextBox1
2-     TextBox2
3-     TextBox3
4-     ComboBox1


الكود الموجود عندي الذي  يقرا بيانات مدير النظام هو كالتالي :





Dim dt As New DataTable()
        Dim da As New SqlClient.SqlDataAdapter
        If TextBox2.Text = "" Or TextBox3.Text = "" Or ComboBox1.TabIndex = -1 Then
            MsgBox("من فضلك املا كل الحقول")
            Exit Sub

        Else

            dt.Clear()
            da = New SqlClient.SqlDataAdapter("Select * from users Where manager_year = N'" & TextBox1.Text.Trim() & "' and manager_name = N'" & TextBox2.Text.Trim() & "'  and manager_password = N'" & TextBox3.Text.Trim() & "'  and manager_system = N'" & ComboBox1.Text.Trim() & "'", cn)
            da.Fill(dt)
            If dt.Rows.Count > 0 Then
                If dt.Rows(0).Item("manager_system") = "ادارة النظام" Then
                    managment_system.Show()
                    Me.Hide()
                ElseIf dt.Rows(0).Item("catch_system") = "نظام القبض" Then
                    main_khabt.Show()
                    Me.Hide()
                ElseIf dt.Rows(0).Item("exchange_system") = "نظام الصرف" Then

                    main_sarf.Show()
                    Me.Hide()

                End If
            Else
                MsgBox("البيانات خاطئة يرجى المحاولة ثانية")
            End If
        End If

 

 ارجو منكم مساعدتي لجعل الكود يقرا بيانات الثلاثه المستخدمين  والذين هم 
- مدير النظام 
-مشتخدم القبض
-مستخدم الصرف 




ارجوك ساعدني بقى معي خطوتين لتسليم نظامي وينالك الاجر في هذا الشهر باذن الله