|
[VB.NET] خطا عن دخول للمنظومة
|
08-03-25, 07:42 PM
السلام عليكم اخوتي الاعضاء
قمت بتصميم منظومة لمحل تجاري والمنظومة تعمل بشكل ممتاز جدا منذو سنوات بالامس تظهر رسالة خطا عن الدخول للمنظومة ولا يوجد في كود الدخول للمنظومة اي خطا الصورة مرفقة ارجو المساعدة جزاكم الله كل خير 
08-03-25, 10:05 PM
وعليكم السلام ورحمة الله وبركاته
الخطأ موضح في الصورة وهو محاولة أدخال قيمة نصية في حقل رقمي راجع الكود مرة أخرى وتأكد من أدخال القيم بصيغة صحيحة لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي
تم الشكر بواسطة: أبو خالد الشكري , Zuhare
08-03-25, 10:55 PM
(آخر تعديل لهذه المشاركة : 08-03-25, 10:57 PM {2} بواسطة MOHAMMED ALZWI.)
شكرا اخي على ردك ومشاركتك
اسم المستخدم اختيار من الــــ ComboBox1 كلمة المرور  ata Type nvarchar(50)بيانات المدخلة كلها محدودة اختيار اسم المستخدم من ComboBox1 وداخل كلمة المرور من شاشة المنظومة او لوحة المفاتيح عند ادخال كلمة مرور خطا تظهر رسالة خطا في بيانات المستخدم وعند اختار نسخة احتياطية من قاعدة البيانات قديمة تعمل بشكل جيد ولا تظهر رسالة الخطا 
09-03-25, 12:57 AM
فعلا المشكلة واضحة في رسالة لخطأ التي أرسلها النظام كما قال لك الأخ princelovelorn
وهي محاولة إدخال نص في حقل رقمي ! ويمكنك أن ترفق فقط برمجة هذا الفورم ليساعدك الشباب في حل المشكلة .  تم الشكر بواسطة: princelovelorn , princelovelorn , Zuhare , Zuhare
09-03-25, 11:10 AM
هذا الكود الدخول المستخدم
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 |
|
|
