+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعدة ضرورية ارجوكم (/showthread.php?tid=38142)
مساعدة ضرورية ارجوكم - saqaf - 27-03-21
كود :
[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
اريد المساعده من اجل تكميل (نظام الصندوق المالي) وجزاكم الله خيراً .
RE: مساعدة ضرورية ارجوكم - علي بنيان - 27-03-21
ارفق المشروع حتى نعدل عليه