تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة برناج الصندوق المالي
#1
سبق وان حطيت نفس السؤال واحتاج لمساعدة ضروري جدا ولكن دون جدوى يااخواني لوسمحتم ساعدوني !!!


السؤال كالتالي:
عملت برنامج بالفيجوال بيسك 2012 واريد ربطه بال sql server ولكن اريد ان تساعدوني في كيفية دخول كل مستخدم من الى الواجهه الخاصه به عن طريق الكود الذي يستدعي بيانات المستخدم من جدول المستخدمين حيث ان عندي ثلاثه مستخدمين وثلاث واجهات  وهم مدير النظام ومستخدم سند الصرف ومستخدم مسند القبض  وكل واحد منهم له واجهه خاصة به ... ارجو منكم مساعدتي !!
الرد
تم الشكر بواسطة:
#2
(01-03-21, 06:07 PM)saqaf كتب : سبق وان حطيت نفس السؤال واحتاج لمساعدة ضروري جدا ولكن دون جدوى يااخواني لوسمحتم ساعدوني !!!


السؤال كالتالي:
عملت برنامج بالفيجوال بيسك 2012 واريد ربطه بال sql server ولكن اريد ان تساعدوني في كيفية دخول كل مستخدم من الى الواجهه الخاصه به عن طريق الكود الذي يستدعي بيانات المستخدم من جدول المستخدمين حيث ان عندي ثلاثه مستخدمين وثلاث واجهات  وهم مدير النظام ومستخدم سند الصرف ومستخدم مسند القبض  وكل واحد منهم له واجهه خاصة به ... ارجو منكم مساعدتي !!

في الجدول أكيد عندك حقل خاص بنوع المستخدم ؟
 هذا في الحالة العادية للتحقق من هل المستخدم موجود او لا 
PHP كود :
        Con.Open()
        Dim cmd As New SqlCommand("select * from USERES where UserName = @UserName and Password = @Password USERTYPE= @USERTYP "Con)
        cmd.Parameters.Add("@UserName"SqlDbType.VarChar).Value txtusername
        cmd
.Parameters.Add("@Password"SqlDbType.VarChar).Value txtpassword
 cmd
.Parameters.Add("@USERTYP"SqlDbType.VarChar).Value =USERTYP
Dim adp 
As New SqlDataAdapter(cmd)
        Dim dt As New DataTable
        adp
.Fill(dt)
        If dt.Rows.Count() <= 0 Then
            MessageBox
.Show("اسم المستخدم او كلمة المرور غير صحيحين")
       

 THEN
"مدير"= ELSEIF USERTYPE

 Home
.Show()
                
                Con
.Close()

THEN"محاسب"= ELSEIF USERTYPE 
 Home2
.Show()
    
                Con
.Close()
END IF 

ما ستقوم به كالأتي شرط إذا كان نوع المستخدم = مدير 
يفتح فورم كذا وهكذا 
و تستطيع وضع أكثر من شرط ولكن هناك طرق أخرى أحسن و هي عدم تمكين أزرار لفتح الفورم وتستطيع جلب نوع المستخدم وتطبيق هذه الشرط في ميديول


و أعذرني حاولت اعدل الكود ولكن دون جدوى
الرد
تم الشكر بواسطة: ابراهيم ايبو
#3
(01-03-21, 09:55 PM)سعيد كنيمو كتب :
(01-03-21, 06:07 PM)saqaf كتب : سبق وان حطيت نفس السؤال واحتاج لمساعدة ضروري جدا ولكن دون جدوى يااخواني لوسمحتم ساعدوني !!!


السؤال كالتالي:
عملت برنامج بالفيجوال بيسك 2012 واريد ربطه بال sql server ولكن اريد ان تساعدوني في كيفية دخول كل مستخدم من الى الواجهه الخاصه به عن طريق الكود الذي يستدعي بيانات المستخدم من جدول المستخدمين حيث ان عندي ثلاثه مستخدمين وثلاث واجهات  وهم مدير النظام ومستخدم سند الصرف ومستخدم مسند القبض  وكل واحد منهم له واجهه خاصة به ... ارجو منكم مساعدتي !!

في الجدول أكيد عندك حقل خاص بنوع المستخدم ؟
 هذا في الحالة العادية للتحقق من هل المستخدم موجود او لا 
PHP كود :
        Con.Open()
        Dim cmd As New SqlCommand("select * from USERES where UserName = @UserName and Password = @Password USERTYPE= @USERTYP "Con)
        cmd.Parameters.Add("@UserName"SqlDbType.VarChar).Value txtusername
        cmd
.Parameters.Add("@Password"SqlDbType.VarChar).Value txtpassword
 cmd
.Parameters.Add("@USERTYP"SqlDbType.VarChar).Value =USERTYP
Dim adp 
As New SqlDataAdapter(cmd)
        Dim dt As New DataTable
        adp
.Fill(dt)
        If dt.Rows.Count() <= 0 Then
            MessageBox
.Show("اسم المستخدم او كلمة المرور غير صحيحين")
       

 THEN
"مدير"= ELSEIF USERTYPE

 Home
.Show()
                
                Con
.Close()

THEN"محاسب"= ELSEIF USERTYPE 
 Home2
.Show()
    
                Con
.Close()
END IF 

ما ستقوم به كالأتي شرط إذا كان نوع المستخدم = مدير 
يفتح فورم كذا وهكذا 
و تستطيع وضع أكثر من شرط ولكن هناك طرق أخرى أحسن و هي عدم تمكين أزرار لفتح الفورم وتستطيع جلب نوع المستخدم وتطبيق هذه الشرط في ميديول


و أعذرني حاولت اعدل الكود ولكن دون جدوى
الرد
تم الشكر بواسطة:
#4
اسما الأدوات الموجودة في فورم الدخول

السنة                          TextBox1
اسم المستخدم           TextBox2
كلمة السر                   TextBox3


اسما الفورمات المراد الدخول لهم من فورم الدخول

managment_system اسم فورم مدير النظام
main_khabt اسم فورم مستخدم القبض
main_sarf اسم فورم مستخدم الصرف


BOX اسم قاعدة البيانات  
users  اسم الجدول  

اسما الحقول الموجود في جدول ال users حيث ان جميع الحقول موجوده في جدول واحد وهو جدول ال  users كما ذكرنا اسمه
-------------------------------------------------------------------------
manager_year
manager_name                                    حقول مستخدم الادارة
manager_password
------------------------------------------------------------------------
catch_year
catch_name                                        حقو ل مستخدم القبض
catch_password
-------------------------------------------------------------------------                            
exchange_year
exchange_name                                حقول مستخدم الصرف
exchange_password
-------------------------------------------------------------------------

Server name : DESKTOP-F6JDGS1\SQLEXPRESS
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم