منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] خطا عن دخول للمنظومة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=52165)

خطا عن دخول للمنظومة - MOHAMMED ALZWI - 08-03-25

السلام عليكم اخوتي الاعضاء  
قمت بتصميم منظومة لمحل تجاري والمنظومة تعمل بشكل ممتاز جدا منذو سنوات 
بالامس تظهر رسالة خطا عن الدخول للمنظومة ولا يوجد في كود الدخول للمنظومة اي خطا 
الصورة مرفقة 

ارجو المساعدة جزاكم الله كل خير

RE: خطا عن دخول للمنظومة - princelovelorn - 08-03-25

وعليكم السلام ورحمة الله وبركاته
الخطأ موضح في الصورة
وهو محاولة أدخال قيمة نصية في حقل رقمي
راجع الكود مرة أخرى
وتأكد من أدخال القيم بصيغة صحيحة

RE: خطا عن دخول للمنظومة - MOHAMMED ALZWI - 08-03-25

شكرا اخي على ردك ومشاركتك 

اسم المستخدم اختيار من الــــ ComboBox1  
كلمة المرور   Big Grinata Type   nvarchar(50)

بيانات المدخلة كلها محدودة اختيار اسم المستخدم من ComboBox1  
وداخل كلمة المرور  من شاشة المنظومة او لوحة المفاتيح

عند ادخال كلمة مرور خطا تظهر رسالة خطا في بيانات المستخدم

وعند اختار نسخة احتياطية من قاعدة البيانات قديمة تعمل بشكل جيد ولا تظهر رسالة الخطا

RE: خطا عن دخول للمنظومة - أبو خالد الشكري - 09-03-25

فعلا المشكلة واضحة في رسالة لخطأ التي أرسلها النظام كما قال لك الأخ princelovelorn
وهي محاولة إدخال نص في حقل رقمي !
ويمكنك أن ترفق فقط برمجة هذا الفورم ليساعدك الشباب في حل المشكلة .

RE: خطا عن دخول للمنظومة - MOHAMMED ALZWI - 09-03-25

هذا الكود الدخول المستخدم


   Private Sub But_login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_login.Click
        Dim rdr As SqlDataReader
        If SQLCON.State = 1 Then SQLCON.Close()
        SQLCON.Open()

        Dim cmd As New SqlCommand("select * from T_users where NAME_USER=@NAME_USER and PASSWORD=@PASSWORD ", SQLCON)
        cmd.Parameters.AddWithValue("@NAME_USER", ComboBox1.Text)
        cmd.Parameters.AddWithValue("@PASSWORD", TXT_PASSOWRD.Text)
        rdr = cmd.ExecuteReader
        rdr.Read()
        If rdr.HasRows Then
            Str_UserName_ID = rdr("ID").ToString
            Str_UserName = rdr("NAME_USER").ToString

            With Frm_Home
                .BUTT_MORD.Enabled = rdr("suplliers").ToString
                .BUTT_COUSTMERS.Enabled = rdr("COSTMERS").ToString
                .BUT_ITEMS_.Enabled = rdr("ITEMS").ToString
                .BUTT_SALSEESS.Enabled = rdr("sales_bill").ToString
                .BUTT_RE_SALESS.Enabled = rdr("sales_bill").ToString
                .BUT_ESALAATT.Enabled = rdr("esailt").ToString
                .BUTT_REPORSSS.Enabled = rdr("reports").ToString
                .BUTT_ALMOLHAGATT.Enabled = rdr("molhgat").ToString
                .BUTT_SEETING.Enabled = rdr("seeting").ToString
                .butt_usres.Enabled = rdr("USERS").ToString
                .ShowDialog()
                Me.Hide()
            End With
        Else

            MessageBox.Show("كلمة المرور غير صحيحة ،،، يرجى إعــــادة المحاولـــة", "خطأ في الدخول", MessageBoxButtons.OK, MessageBoxIcon.Error)

            TXT_PASSOWRD.Text = ""
            TXT_PASSOWRD.Select()
        End If

        rdr.Close()
        SQLCON.Close()

    End Sub

RE: خطا عن دخول للمنظومة - أبووسم2 - 10-03-25

تم كتابة حرف الذال "ذ" في حقل رقمي كما هو موضح في الصورة المرفقة