(14-06-24, 11:05 PM)moh61 كتب : يوجد لدي كود يقوم بالتحقق من وجود اسم المستخدم بقاعدة البيانات ب sub مستقلة ... اريد عندما اضغط على ذر الحفظ ... والاتصال بال Sub يقوم بالخروج من الذر اذا كان المستخدم موجود
PHP كود :
Private Sub Check()
Dim conn3 As New OleDbConnection(ConfigurationManager.ConnectionStrings("LAUNDRY_SYSTEM.My.MySettings.Laundry_DatabaseConnectionString").ConnectionString)
Using Cmd As New OleDbCommand("SELECT * from login Where user_name = @user_name ", conn3)
Cmd.CommandType = CommandType.Text
Using sda As New OleDbDataAdapter(Cmd)
Cmd.Connection = conn3
sda.SelectCommand = Cmd
Cmd.Parameters.AddWithValue("@user_name", TextBox2.Text)
Cmd.Connection.Open()
Cmd.ExecuteScalar()
Cmd.Connection.Close()
Using login As New DataSet()
sda.Fill(login, "login")
If login.Tables(0).Rows.Count <> 0 Then
MsgBox("يجب تغير اسم المستخدم")
Exit Sub
End If
End Using
End Using
End Using
End Sub
'< حفظ المستخدم
Private Sub saved_Click(sender As Object, e As EventArgs) Handles saved.Click
Check()
' هنا يوجد كود الحفظ
End Sub
لتحقيق الهدف المطلوب بحيث يتم التحقق من وجود اسم المستخدم في قاعدة البيانات، وإذا كان موجودًا يتم إيقاف تنفيذ عملية الحفظ، يمكنك التعديل على الكود كالتالي:
تعديل Sub Check بحيث يعيد قيمة Boolean تدل على ما إذا كان المستخدم موجودًا أم لا.
استخدام القيمة المعادة من Sub Check في Sub saved_Click لاتخاذ القرار المناسب.
إليك الكود المعدل:
PHP كود :
Private Function Check() As Boolean
Dim conn3 As New OleDbConnection(ConfigurationManager.ConnectionStrings("LAUNDRY_SYSTEM.My.MySettings.Laundry_DatabaseConnectionString").ConnectionString)
Using Cmd As New OleDbCommand("SELECT * from login Where user_name = @user_name", conn3)
Cmd.CommandType = CommandType.Text
Using sda As New OleDbDataAdapter(Cmd)
Cmd.Connection = conn3
sda.SelectCommand = Cmd
Cmd.Parameters.AddWithValue("@user_name", TextBox2.Text)
Cmd.Connection.Open()
Cmd.ExecuteScalar()
Cmd.Connection.Close()
Using login As New DataSet()
sda.Fill(login, "login")
If login.Tables(0).Rows.Count <> 0 Then
MsgBox("يجب تغير اسم المستخدم")
Return True
End If
End Using
End Using
End Using
Return False
End Function
' حفظ المستخدم
Private Sub saved_Click(sender As Object, e As EventArgs) Handles saved.Click
If Check() Then
Exit Sub
End If
' هنا يوجد كود الحفظ
End Sub
التغييرات الرئيسية:
جعل Sub Check يعيد قيمة من نوع Boolean بحيث يعيد True إذا كان اسم المستخدم موجودًا، وFalse إذا لم يكن موجودًا.
استخدام القيمة المعادة من Sub Check في Sub saved_Click لاتخاذ القرار المناسب بشأن الخروج من Sub إذا كان المستخدم موجودًا.
بهذا الشكل، عندما تضغط على زر الحفظ، سيتم التحقق أولاً من وجود اسم المستخدم، وإذا كان موجودًا، سيتم عرض رسالة ويتم الخروج من Sub دون تنفيذ عملية الحفظ.
غَزة شجرة سنديان لا تنحني، ووردة لا تذبل، وشوكة عصية على الكسر. غزة، دماؤها تنتصر على السيف والسياف.
متغيب لفترة ان اخطأت بحق احد ارجو المسامحة
