منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مشروع] ارجو تصحيح الخطا فى المشروع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [مشروع] ارجو تصحيح الخطا فى المشروع (/showthread.php?tid=2549)

الصفحات: 1 2 3

RE: ارجو تصحيح الخطا فى المشروع - سعود - 13-04-14

(13-04-14, 02:51 AM)ابراهيم مراد كتب :
(13-04-14, 02:42 AM)سعود كتب : صدقني انا ماتطلبه موجود بالمثال الذي كتبت رابطه لك.
يوجد كود انشاء قاعدة بيانات + كود انشاء جدول باعمدة وقيم افتراضية
كود استعلام عن رقم الصورة او اسمها وهذا شبيه بتسجيل الدخول

طيب شوفته فعلا ومشابه للكود طيب ممكن تعمله تسجيل الدخول بيورز وباسورد وتعطينى المثال انا اسف ان تقلت عليك الله يسعدك يارب ويجعلك من اهل الجنه

تسلم ياخوي وابشر ..دقايق والمثال جاهز ان شالله

RE: ارجو تصحيح الخطا فى المشروع - سعود - 13-04-14

وقبل ارفع المثال بعد التعديل احذف القاعدة اللي انشاها مثالي باسم pics بواسطة برنامج SQL Server Management Studio

RE: ارجو تصحيح الخطا فى المشروع - ابراهيم مراد - 13-04-14

(13-04-14, 02:55 AM)سعود كتب : وقبل ارفع المثال بعد التعديل احذف القاعدة اللي انشاها مثالي باسم pics بواسطة برنامج SQL Server Management Studio

حاضر اخى اكريم انا بانتظارك

RE: ارجو تصحيح الخطا فى المشروع - سعود - 13-04-14

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

RE: ارجو تصحيح الخطا فى المشروع - ابراهيم مراد - 13-04-14

(13-04-14, 03:22 AM)سعود كتب : تصدق لم يكن بالضرورة حذف القاعدة لاني اضفت جدول جديد بالكود
وضعت فورم وبه زرين للدخول وللتسجيل ..توفيرا للذاكرةSmile

الف شكر جزاك الله كل خير يا طيب الله يوفقك فى حياتك ويكرمك اشكرك ع مساعدتك

RE: ارجو تصحيح الخطا فى المشروع - سعود - 13-04-14

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

RE: ارجو تصحيح الخطا فى المشروع - ابراهيم مراد - 13-04-14

(13-04-14, 03:33 AM)سعود كتب : واياك اخي الكريم
بقي ان تمنع تكرار التسجيل!!
نفس الاستعلام عند تسجيل الدخول والفرق بسيط ان احتجته خبرني

اخى عند تشغيل المثال الملف هذا ليس موجود
pics ملف القاعده وبيظهر خطا فى السطر هذا
con.Open()
احتاجه بالفعل يا طيب القلب والله انك مبدع فععلا لازم منع تكرار التسجيل

RE: ارجو تصحيح الخطا فى المشروع - سعود - 13-04-14

اي نعم لاني نسيت ان اضع روتين التحقق من القاعدة قبل روتين التحقق من الجدول الجديد tusers
انتقل لفورم 1 وانظر لروتين gd وقم بقص اول روتينين وهما
كود :
cdb()
كود :
ctb()

والصقهم في حدث Load لفورم Frm_login وضعهم اعلى روتين
كود :
ctusers()


RE: ارجو تصحيح الخطا فى المشروع - ابراهيم مراد - 13-04-14

(13-04-14, 03:46 AM)سعود كتب : اي نعم لاني نسيت ان اضع روتين التحقق من القاعدة قبل روتين التحقق من الجدول الجديد tusers
انتقل لفورم 1 وانظر لروتين gd وقم بقص اول روتينين وهما
كود :
cdb()
كود :
ctb()

والصقهم في حدث Load لفورم Frm_login وضعهم اعلى روتين
كود :
ctusers()

وحيات الله انك مبدع الله يجعل ايامك نور وفرح وسعادة ممكن كود منع تكرار التسجيل

معلش تعبتك معى واين اجد ملف pics لكى ااعدل عليه

RE: ارجو تصحيح الخطا فى المشروع - سعود - 13-04-14

تسلم هذا من طيبك
يعني حليت المشكلة؟
منع تكرار التسجيل كالتالي:
1-نكتب دالة جديدة بالموديول
2- نستدعي الدالة من نفس دالة تسجيل جديد Addme وهو بالموديول ايضا

الان التطبيق اذهب للموديول واكتب اعلى دالة التسجيل Addme الدالة التالية:
كود :
Function amefound(ByVal un As TextBox) As Boolean
        Dim cm As New SqlCommand("select count(un) from tusers where un=@un", con)
        cm.Parameters.AddWithValue("@un", un.Text)

        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Try
            If cm.ExecuteScalar <= 0 Then
                Return False
            Else
                Return True
            End If

        Catch ex As Exception
            Return False
        End Try
    End Function


الان لنذهب لدالة التسجيل Addme
اكتب باول الدالة الكود التالي:
كود :
If amefound(un) Then
            Return False
            Exit Function
        End If
لتصبح دالة التسجيل بعد اضافة منع تكرار التسجيل هكذا
كود :
Function addme(ByVal un As TextBox, ByVal ps As TextBox) As Boolean
        If amefound(un) Then
            Return False
            Exit Function
        End If

        Dim cm As New SqlCommand("insert into tusers(un,ps) values(@un,@ps)", con)
        cm.Parameters.AddWithValue("@un", un.Text)
        cm.Parameters.AddWithValue("@ps", ps.Text)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Try
            cm.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
هذا باختصار طبعا المستخدم لن يعرف سبب عدم تمكنه من التسجيل الا اذا فصلنا في طرق اعطاء الرسائل لكن كتبت بسرعة