DOT NET LAB PROGRAM PERIYAR UNIVERSITY
- 1. ONLINE BANK SOURCE CODE: REGISTRATION PAGE: Imports System.Data.SqlClient Imports System.Configuration Partial Class REGISTRATION Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim con = New SqlConnection con.ConnectionString = "Data Source=.SQLEXPRESS;AttachDbFilename=C:UsersGOKULDocumentsVisual Studio 2010WebSitesonlinebankApp_DataACCOUNT.mdf;Integrated Security=True;User Instance=True" con.Open() Dim qry As String qry = "INSERT INTO ACCTAB (UNAME,PWD,ACCNO,EMAIL,MOB,AMT) VALUES (@unam,@pw,@accno,@mail,@mob,@amt)" Dim cmd As New SqlCommand(qry, con) cmd.Parameters.AddWithValue("@unam", TextBox1.Text) cmd.Parameters.AddWithValue("@pw", TextBox2.Text) cmd.Parameters.AddWithValue("@accno", TextBox3.Text) cmd.Parameters.AddWithValue("@mail", TextBox4.Text) cmd.Parameters.AddWithValue("@mob", TextBox5.Text) cmd.Parameters.AddWithValue("@amt", TextBox6.Text) cmd.ExecuteNonQuery() Response.Redirect("HOME.aspx") Response.Write("REGISTRATION SUCCESSFUL") con.Close() Catch ex As Exception Response.Write(ex.ToString) End Try End Sub End Class LOGIN PAGE: Imports System.Data.SqlClient Imports System.Configuration Partial Class HOME Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim conn = New SqlConnection conn.ConnectionString = "Data source=.SQLEXPRESS;AttachDbFilename=C:UsersGOKULDocumentsVisual Studio 2010WebSitesonlinebankApp_DataACCOUNT.mdf;Integrated Security=True;User Instance=True" conn.Open() Dim checkusr As String checkusr = "SELECT count(*) FROM ACCTAB WHERE ACCNO=@uname AND PWD=@pwd" Dim cmd As New SqlCommand(checkusr, conn) cmd.Parameters.AddWithValue("@uname", TextBox1.Text)
- 2. cmd.Parameters.AddWithValue("@pwd", TextBox2.Text) Dim cu As Integer cu = Convert.ToInt32(cmd.ExecuteScalar) If cu = 1 Then Response.Redirect("deposit.aspx") Else Response.Write("USER NAME INCORRECT RETRY") End If cmd.ExecuteNonQuery() conn.Close() Catch ex As Exception Response.Write(ex.ToString) End Try End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Response.Redirect("REGISTRATION.aspx") End Sub End Class DEPOSIT PAGE: Imports System.Data.SqlClient Imports System.Configuration Partial Class deposit Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim conn = New SqlConnection conn.ConnectionString = "Data source=.SQLEXPRESS;AttachDbFilename=C:UsersGOKULDocumentsVisual Studio 2010WebSitesonlinebankApp_DataACCOUNT.mdf;Integrated Security=True;User Instance=True" conn.Open() Dim checkusr As String checkusr = "UPDATE ACCTAB SET AMT=AMT+@amt WHERE ACCNO=@accno" Dim cmd As New SqlCommand(checkusr, conn) cmd.Parameters.AddWithValue("@accno", TextBox1.Text) cmd.Parameters.AddWithValue("@amt", TextBox2.Text) cmd.ExecuteNonQuery() conn.Close() Response.Write("AMOUNT DEPOSITED SUCCESSFULLLY ") Catch ex As Exception Response.Write(ex.ToString) End Try End Sub End Class WITHDRAW PAGE: Imports System.Data.SqlClient Imports System.Configuration Partial Class Withdraw Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim conn = New SqlConnection
- 3. conn.ConnectionString = "Data source=.SQLEXPRESS;AttachDbFilename=C:UsersGOKULDocumentsVisual Studio 2010WebSitesonlinebankApp_DataACCOUNT.mdf;Integrated Security=True;User Instance=True" conn.Open() Dim checkusr As String checkusr = "UPDATE ACCTAB SET AMT=AMT-@amt WHERE ACCNO=@accno" Dim cmd As New SqlCommand(checkusr, conn) cmd.Parameters.AddWithValue("@accno", TextBox1.Text) cmd.Parameters.AddWithValue("@amt", TextBox2.Text) cmd.ExecuteNonQuery() conn.Close() Response.Write("AMOUNT WITHDRAWN SUCCESSFULLLY ") Catch ex As Exception Response.Write(ex.ToString) End Try End Sub End Class FUNDTRANSFER PAGE: Imports System.Data.SqlClient Imports System.Configuration Partial Class Fundtransfer Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim conn = New SqlConnection conn.ConnectionString = "Data source=.SQLEXPRESS;AttachDbFilename=C:UsersGOKULDocumentsVisual Studio 2010WebSitesonlinebankApp_DataACCOUNT.mdf;Integrated Security=True;User Instance=True" conn.Open() Dim srs, des As String srs = "UPDATE ACCTAB SET AMT=AMT-'" + TextBox3.Text + "' WHERE ACCNO='" + TextBox1.Text + "'" des = "UPDATE ACCTAB SET AMT=AMT+'" + TextBox3.Text + "' WHERE ACCNO='" + TextBox2.Text + "'" Dim cmd1 As New SqlCommand(srs, conn) Dim cmd2 As New SqlCommand(des, conn) cmd1.ExecuteNonQuery() cmd2.ExecuteNonQuery() conn.Close() Response.Write("AMOUNT TRANSFERED SUCCESSFULLLY ") Catch ex As Exception Response.Write(ex.ToString) End Try End Sub End Class
- 5. MY ACCOUNT PAGE: DEPOSIT PAGE: