Imports System.Data.OleDb
Public Class Form1
Public Sub NewUser()
Code_Users_InDirect()
UserID.Text = mynewIDUsers
UserFullName.Text = ""
UserGender.Text = ""
'UserDate.Value = Now.Date
UserName.Text = ""
UserPassword.Text = ""
UserType.Text = ""
UserPhone.Text = ""
UserAddress.Text = ""
UserNow.Text = ""
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
NewUser()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If UserFullName.Text = Nothing Or UserName.Text = Nothing Or UserPassword.Text = Nothing Then
MsgBox("يرجى ملىء البيانات المطلوبة المشار عليها بالرمز * ", MsgBoxStyle.Critical, "بيانات فارغة ")
Return
End If
Try
Dim cmd As New OleDbCommand(String.Empty, Conn)
cmd.CommandText = "Select COUNT(*) From Users where UserFullName=@fname"
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@fname", UserFullName.Text.Trim)
If Conn.State <> ConnectionState.Open Then Conn.Open()
If cmd.ExecuteScalar > 0 Then
MsgBox("المستخدم موجود مسبقا", MsgBoxStyle.Critical, "بيانات مكررة")
Else
cmd.CommandText =
"INSERT INTO Users(UserAddress,UserDate,UserFullName,UserGender,UserID,UserName,UserPassword,UserPhone,UserType,UserNow)" & _
"VALUES (@address,@dt,@fname,@gender,@id,@name,@password,@phone,@type,@now)"
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@address", UserAddress.Text)
cmd.Parameters.AddWithValue("@dt", Today)
cmd.Parameters.AddWithValue("@fname", UserFullName.Text)
cmd.Parameters.AddWithValue("@gender", UserGender.Text)
cmd.Parameters.AddWithValue("@id", UserID.Text)
cmd.Parameters.AddWithValue("@name", UserName.Text)
cmd.Parameters.AddWithValue("@password", UserPassword.Text)
cmd.Parameters.AddWithValue("@phone", UserPhone.Text)
cmd.Parameters.AddWithValue("@type", UserType.Text)
cmd.Parameters.AddWithValue("@now", UserNow.Text)
If cmd.ExecuteNonQuery > 0 Then
MsgBox("تم الحفظ بنجاح", MsgBoxStyle.Information, "تأكيد الحفظ")
Load_users_InDirect()
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
Conn.Close()
End Try
End Sub
End Class