منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سبق وان حطيت نفس السؤال واحتاج لمساعدة ضروري جدا ولكن دون جدوى يااخواني لوسمحتم ساعدوني !!!

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

(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 

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

و أعذرني حاولت اعدل الكود ولكن دون جدوى

(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

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

و أعذرني حاولت اعدل الكود ولكن دون جدوى

اسما الأدوات الموجودة في فورم الدخول

السنة 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