27-03-21, 03:51 AM
كود :
[align=left][font=Arial, tahoma][b] 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
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[/b][/font][/align]
هذا الكود يجلب لي من جدول ال USERS بيانات الاعمدة التالية:
- manager_year
- manager_name
- manager_password
- manager_system
ثم يدخلني على لماين فورم الخاص بمدير النظام
وما اريده انا هو ان يجلب لي من جدول ال USERS ايضا بيانات مستخدم القبض والتي هي
- catch_year
- catch_name
- catch_password
- catch_system
وايضا يجلب لي بيانات مستخدم الصرف من جدول ال USERS والتي هي :
- exchange_year
- exchange_name
- exchange_password
- exchange_system
الادوات المستخدمه في الفورم التي تنجلب اليها البيانات ويتم تسجيل الدخول هي كالتالي:
- TextBox1.Text
- TextBox2.Text
- TextBox3.Text
- ComboBox1.Text
اريد المساعده من اجل تكميل (نظام الصندوق المالي) وجزاكم الله خيراً .