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


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

(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 


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


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