Code:
'Register User Form
Imports System.Data.OleDb
Public Class RegisterUser
‘ Variables Decleration
Public Con As OleDbConnection
Public Cmd As OleDbCommand
Public Dr As OleDbDataReader
Public Da As OleDbDataAdapter
Dim Email_id As Object
'TextBox(EmployeeID.Click)
TBEmpID.Text = Trim(TBEmpID.Text)
End Sub
'TextBox(EmailName.Click)
TBEmailName.Text = Trim(TBEmailName.Text)
End Sub
'Button(BClear.Click)
TBEmpID.Text.Clear()
TBEmpName.Text.Clear()
TBEmailName.Text.Clear()
TBPass.Text.Clear()
TBCPass.Text.Clear()
CBDomain.Text.Clear()
End Sub
'WindowControlButton(Help.Click) (?)
HelpForm.Show()
End Sub
'Button(BRegister.Click)
Try
Emailid = TBEmailName.Text & “” & CBDomain.Text
If(TBEmpID.Text = String.Empty or TBEmpName.Text = String.Empty or TBEmailName.Text = String.Empty or TBPass.Text = String.Empty or TBCPass.Text = String.Empty) then
MsgBox(“You Have miss to fill some fields”, MessageBox.Style = Exclamation)
Else
If(CBDomain.Text = String.Empty) then
MsgBox(“Kindly Select the domain of your email”, MessageBox.Style = Exclamation)
Else
If(TBPass.Text = TBCPass.Text)then
Con = New OleDbConnection(“Provider=Microsoft.ACE.OleDb.12.0; Data Source=DataBase\Dashbard.accdb; Presist Info Security = False”)
Con.Open()
Cmd = New OleDbCommand(“INSERT INTO EmpDatas(EmpID,Name,EmailID,Password) VALUES(‘” & TBEmpID.Text & ”’,’” & TBEmpName.Text & ”’ ,’” & Emailid & ”’ ,’” & TBPass.Text & ”’)”, Con)
Cmd.ExecuteNonQuery()
MsgBox(“Data Saved Successfully”, MessageBox.Style= Information)
Con.Close()
Else
MsgBox(“Password and ConfirmPassword is not matched. Please try again”, MessageBox.Style=Exclamation)
TBPass.Text.Clear()
TBCPass.Text.Clear()
End If
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
EntryForm.Show()
Me.Close
End Sub
End Class
Comment