وقبل ارفع المثال بعد التعديل احذف القاعدة اللي انشاها مثالي باسم pics بواسطة برنامج SQL Server Management Studio
(13-04-14, 02:55 AM)سعود كتب : [ -> ]وقبل ارفع المثال بعد التعديل احذف القاعدة اللي انشاها مثالي باسم pics بواسطة برنامج SQL Server Management Studio
حاضر اخى اكريم انا بانتظارك
تصدق لم يكن بالضرورة حذف القاعدة لاني اضفت جدول جديد بالكود
وضعت فورم وبه زرين للدخول وللتسجيل ..توفيرا للذاكرة
(13-04-14, 03:22 AM)سعود كتب : [ -> ]تصدق لم يكن بالضرورة حذف القاعدة لاني اضفت جدول جديد بالكود
وضعت فورم وبه زرين للدخول وللتسجيل ..توفيرا للذاكرة
الف شكر جزاك الله كل خير يا طيب الله يوفقك فى حياتك ويكرمك اشكرك ع مساعدتك
واياك اخي الكريم
بقي ان تمنع تكرار التسجيل!!
نفس الاستعلام عند تسجيل الدخول والفرق بسيط ان احتجته خبرني
(13-04-14, 03:33 AM)سعود كتب : [ -> ]واياك اخي الكريم
بقي ان تمنع تكرار التسجيل!!
نفس الاستعلام عند تسجيل الدخول والفرق بسيط ان احتجته خبرني
اخى عند تشغيل المثال الملف هذا ليس موجود
pics ملف القاعده وبيظهر خطا فى السطر هذا
con.Open()
احتاجه بالفعل يا طيب القلب والله انك مبدع فععلا لازم منع تكرار التسجيل
اي نعم لاني نسيت ان اضع روتين التحقق من القاعدة قبل روتين التحقق من الجدول الجديد tusers
انتقل لفورم 1 وانظر لروتين gd وقم بقص اول روتينين وهما
والصقهم في حدث Load لفورم Frm_login وضعهم اعلى روتين
(13-04-14, 03:46 AM)سعود كتب : [ -> ]اي نعم لاني نسيت ان اضع روتين التحقق من القاعدة قبل روتين التحقق من الجدول الجديد tusers
انتقل لفورم 1 وانظر لروتين gd وقم بقص اول روتينين وهما
والصقهم في حدث Load لفورم Frm_login وضعهم اعلى روتين
وحيات الله انك مبدع الله يجعل ايامك نور وفرح وسعادة ممكن كود منع تكرار التسجيل
معلش تعبتك معى واين اجد ملف pics لكى ااعدل عليه
تسلم هذا من طيبك
يعني حليت المشكلة؟
منع تكرار التسجيل كالتالي:
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
هذا باختصار طبعا المستخدم لن يعرف سبب عدم تمكنه من التسجيل الا اذا فصلنا في طرق اعطاء الرسائل لكن كتبت بسرعة