How to Create a Login Form and User Form in VB.Net

Login form design

 

Code for Login button

 

Code for Cancel button

 

User Entry Form

User Entry Design

 

Add, Edit, Delete, Reset and Close. All those are buttons.

Enter User Is TextBox in enter a main Id and then press the arrow key to fill all the data in the TextBox and then you update some data.

 

This code for add a record

 

Private Sub btn_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Add.Click
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
Dim da1 As New OleDbDataAdapter
Dim ds1 As New DataSet
da1 = New OleDbDataAdapter("select * from UserEntry ", conn)
da1.Fill(ds1)
If texmainid.Text = ""
Then
MsgBox("Enter the UserId", MsgBoxStyle.Information)
Else
For i As Integer = 0 To ds1.Tables(0).Rows.Count - 1
If(texmainid.Text = Val(ds1.Tables(0).Rows(i)("Main_ID"))) Then
MsgBox("Enter UserId Is other than used", MsgBoxStyle.Information)
texmainid.Text = ""
texmainid.Focus()
Exit Sub
End If
Next
Dim cmd1 As New OleDbCommand("insert into UserEntry values('" & texDate.Text & "' , '" & texbranch.Text & "' , '" & texmainid.Text & "', '" & texname.Text & "', '" & texAddress.Text & "', '" & texcity.Text & "', '" & texstate.Text & "', '" & texpincode.Text & "', '" & texnationality.Text & "', '" & texcontactno1.Text & "', '" & texcontactno2.Text & "', '" & texemail.Text & "' , '" & texdofb.Text & "', '" & texgender.Text & "', '" & texIdproof.Text & "' , '" & texresideentproof.Text & "', '" & texpanNo.Text & "', '" & texnoname.Text & "', '" & texnorelation.Text & "', '" & texnoage.Text & "', '" & texspname.Text & "', '" & texspuserid.Text & "', '" & texmodeofpay.Text & "', '" & texbankname.Text & "', '" & texacno.Text & "', '" & texpaydate.Text & "', '" & texpakamount.Text & "', '" & texinword.Text & "', '" & texmultiid.Text & "')", conn)
cmd1.ExecuteNonQuery()
Call dataset1()
Call reset()
conn.Close()
MsgBox("One Record Insert", MsgBoxStyle.Information)
Call Reset()
End If
End Sub

This Code For Update/Edit Data

 

Private Sub btn_Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Edit.Click
Try
Dim cmd As New OleDbCommand("select * from UserEntry", conn)
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
Dim i As Integer
i = MsgBox("Are You Sure Update Selected Record ?", MsgBoxStyle.OkCancel)
If i = 1 Then
cmd.CommandText = "Update UserEntry set Branch_Name='" & texbranch.Text & "', Name='" & texname.Text & "', Address='" & texAddress.Text & "',City='" & texcity.Text & "',State='" & texstate.Text & "',PIN_Code='" & texpincode.Text & "',Nationslity='" & texnationality.Text & "',ContactNo1='" & texcontactno1.Text & "',ContactNo2='" & texcontactno2.Text & "',Email_ID='" & texemail.Text & "',Date_Of_Birth='" & texdofb.Text & "',Gender='" & texgender.Text & "',ID_Proof='" & texIdproof.Text & "' , Resideent_Proof='" & texresideentproof.Text & "', PAN_Card_No='" & texpanNo.Text & "', Nominee_Name='" & texnoname.Text & "', Relation='" & texnorelation.Text & "', Age='" & texnoage.Text & "', Sponsor_Name='" & texspname.Text & "', UserID='" & texspuserid.Text & "', Mode_Of_Payment='" & texmodeofpay.Text & "', Bank_Name='" & texbankname.Text & "', AC_No='" & texacno.Text & "', Payment_Date='" & texpaydate.Text & "', Pakage_Amount='" & texpakamount.Text & "', In_Word='" & texinword.Text & "', Multi_ID='" & texmultiid.Text & "'where Main_ID='" & texmainid.Text & "'"
cmd.ExecuteNonQuery()
Call dataset1()
Call reset()
MsgBox("Record Updated Successfully", MsgBoxStyle.Information)
texserch.Text = ""
Else
MsgBox("Keep It Continue", MsgBoxStyle.Information)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

 

This Code for delete thev data

 

Private Sub btn_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Delete.Click
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
Dim i As Integer
i = MsgBox("Are You Sure Delete Selected Record ?", MsgBoxStyle.OkCancel)
If i = 1 Then
Dim cmd As New OleDbCommand("Delete from UserEntry where Main_ID='" & texserch.Text & "'", conn)
cmd.ExecuteNonQuery()
Call dataset1()
Call reset()
MsgBox("One Record Delete", MsgBoxStyle.Information)
texserch.Text = ""
Else
MsgBox("Keep It Continue ", MsgBoxStyle.Information)
End If
End Sub

 

This code for reset TextBox

 

Private Sub btn_Refresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Refresh.Click
Call reset()
End Sub
Private Sub reset()
Dim a As Control
For Each a In Me.GroupBox1.Controls
If TypeOf a Is TextBox Then
a.Text = Nothing
texDate.Text = Date.Now
End If
Next
Dim b As Control
For Each b In Me.GroupBox3.Controls
If TypeOf b Is TextBox Then
b.Text = Nothing
End If
Next
Dim d As Control
For Each d In Me.GroupBox2.Controls
If TypeOf d Is TextBox Then
d.Text = Nothing
chepan.Checked = False
End If
Next
End Sub

 

This code for close the form

 

Private Sub btn_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_close.Click
End
End Sub

 

This code for serch and fill the data in form

In this code in the delete a record shortcut like enter your main id and press the delete key then delete a record.

 

Private Sub texserch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles texserch.TextChanged
Dim ds1 As New DataSet
Dim da1 As New OleDbDataAdapter("select * from UserEntry where Main_ID like '%" & texserch.Text & "%'", conn)
da1.Fill(ds1)
DataGrid1.DataSource = ds1.Tables(0)
End Sub
Private Sub texserch_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles texserch.KeyDown
Try
Dim da1 As New OleDbDataAdapter
Dim ds1 As New DataSet
da1 = New OleDbDataAdapter("select * from UserEntry where Main_ID='" & texserch.Text & "'", conn)
da1.Fill(ds1)
If e.KeyCode = 40 Then
If ds1.Tables(0).Rows.Count < 1 Then
MsgBox("Invalid Number", MsgBoxStyle.Exclamation)
texserch.Text = ""
Else
texDate.Text = Trim(ds1.Tables(0).Rows(0)(0))
texbranch.Text = Trim(ds1.Tables(0).Rows(0)(1))
texmainid.Text = Trim(ds1.Tables(0).Rows(0)(2))
texname.Text = Trim(ds1.Tables(0).Rows(0)(3))
texAddress.Text = Trim(ds1.Tables(0).Rows(0)(4))
texcity.Text = Trim(ds1.Tables(0).Rows(0)(5))
texstate.Text = Trim(ds1.Tables(0).Rows(0)(6))
texpincode.Text = Trim(ds1.Tables(0).Rows(0)(7))
texnationality.Text = Trim(ds1.Tables(0).Rows(0)(8))
texcontactno1.Text = Trim(ds1.Tables(0).Rows(0)(9))
texcontactno2.Text = Trim(ds1.Tables(0).Rows(0)(10))
texemail.Text = Trim(ds1.Tables(0).Rows(0)(11))
texdofb.Text = Trim(ds1.Tables(0).Rows(0)(12))
texgender.Text = Trim(ds1.Tables(0).Rows(0)(13))
texIdproof.Text = Trim(ds1.Tables(0).Rows(0)(14))
texresideentproof.Text = Trim(ds1.Tables(0).Rows(0)(15))
texpanNo.Text = Trim(ds1.Tables(0).Rows(0)(16))
texnoname.Text = Trim(ds1.Tables(0).Rows(0)(17))
texnorelation.Text = Trim(ds1.Tables(0).Rows(0)(18))
texnoage.Text = Trim(ds1.Tables(0).Rows(0)(19))
texspname.Text = Trim(ds1.Tables(0).Rows(0)(20))
texspuserid.Text = Trim(ds1.Tables(0).Rows(0)(21))
texmodeofpay.Text = Trim(ds1.Tables(0).Rows(0)(22))
texbankname.Text = Trim(ds1.Tables(0).Rows(0)(23))
texacno.Text = Trim(ds1.Tables(0).Rows(0)(24))
texpaydate.Text = Trim(ds1.Tables(0).Rows(0)(25))
texpakamount.Text = Trim(ds1.Tables(0).Rows(0)(26))
texinword.Text = Trim(ds1.Tables(0).Rows(0)(27))
texmultiid.Text = Trim(ds1.Tables(0).Rows(0)(28))
End If
If texIdproof.Text = "PAN Card,"
hen
texIdproof.Text = ""
chepan.Checked = True
End If
End If
If e.KeyCode = 46 Then
If ds1.Tables(0).Rows.Count < 1 Then
MsgBox("Invalid Number", MsgBoxStyle.Exclamation)
texserch.Text = ""
Else
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
Dim i As Integer
i = MsgBox("Are You Sure Delete Selected Record ?", MsgBoxStyle.OkCancel)
If i = 1 Then
Dim cmd As New OleDbCommand("Delete from UserEntry where Main_ID='" & texserch.Text & "'", conn)
cmd.ExecuteNonQuery()
Call dataset1()
Call reset()
MsgBox("One Record Delete", MsgBoxStyle.Information)
texserch.Text = ""
Else
MsgBox("Keep It Continue ", MsgBoxStyle.Information)
End If
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

 

This code for Load a Data at page load time

 

Private Sub UserEntry_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
texDate.Text = Date.Now
Call dataset1()
End Sub
Private Sub dataset1()
Dim da2 As New OleDbDataAdapter
Dim ds2 As New DataSet
da2 = New OleDbDataAdapter("select * from UserEntry", conn)
da2.Fill(ds2)
DataGrid1.DataSource = ds2.Tables(0)
End Sub

 

Thank you.