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

(13-04-14, 04:06 AM)سعود كتب : تسلم هذا من طيبك
يعني حليت المشكلة؟
منع تكرار التسجيل كالتالي:
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

هذا باختصار طبعا المستخدم لن يعرف سبب عدم تمكنه من التسجيل الا اذا فصلنا في طرق اعطاء الرسائل لكن كتبت بسرعة

(13-04-14, 04:16 AM)سعود كتب : افتح برنامج SQL Server Management Studio
ثم انتقل الى databases ستجد القاعدة باسم pics

(13-04-14, 04:31 AM)سعود كتب : اخي الكريم انا استخدمت كود انشاء القاعدة يعني لا وجود للقاعدة اساسا انشاتها بالكود من الصفر.
يمكن مافهمت عليك

(13-04-14, 04:40 AM)ابراهيم مراد كتب :

(13-04-14, 04:31 AM)سعود كتب : اخي الكريم انا استخدمت كود انشاء القاعدة يعني لا وجود للقاعدة اساسا انشاتها بالكود من الصفر.
يمكن مافهمت عليك

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

(13-04-14, 09:05 AM)ابراهيم مراد كتب :

(13-04-14, 04:40 AM)ابراهيم مراد كتب :

(13-04-14, 04:31 AM)سعود كتب : اخي الكريم انا استخدمت كود انشاء القاعدة يعني لا وجود للقاعدة اساسا انشاتها بالكود من الصفر.
يمكن مافهمت عليك

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

استاذى العظيم سعود ممكن بعد اذنك يا اخى االفاضل برمجة نفس المثال ولكن بدل موديل 1
نخلى WebService1.asmx
عن طريق ال asp.net
واالاستعلام هيكون من الفورم لان هنضيف ويندوز ابلكيشن هىا هيا نفس الخطوط
وتحت كل كود اكتبلى بالعربى دا بيعمل ايه عشان افهم