Heartland Home Finanace Vijaya

HeartLand Home Finanace This Application is a web-base application primarily used for the the marketing of different loan scheme of the heartland Home Finanace. It is used by the target customer of the HeartLand Home Finanace for retriving information like the staus of his Loan Application (Processing/Rejected/Granted). The login Panel that we are see is used for the authority of the HeartLand Home Finanace. In get into the Secure Section of the application.

Home Page and the Login Page

Protected Sub btnlogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnlogin.Click pnllogin.Visible = True Dim i As Integer Dim userslist As New ArrayList Dim dr() As DataRow Dim da As New SqlDataAdapter("select username from users", ConfigurationManager.AppSettings("connectionString")) Dim dt As New DataTable da.Fill(dt) dr = dt.Select For i = 0 To dr.Length - 1 userslist.Add(dr(i)(0).ToString) Next ddusername.DataSource = userslist pnllogin.Visible = True Page.DataBind() End Sub Protected Sub btnProducts_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnProducts.Click Response.Redirect("products.aspx") End Sub Protected Sub btnapply_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnapply.Click Dim con As New SqlConnection(ConfigurationManager.AppSettings("connectionString")) Dim comString As String Dim lastapplicantID As Integer comString = "select count(*) from application " Dim com As New SqlCommand(comString, con) con.Open() lastapplicantID = com.ExecuteScalar Session("applicantID") = CStr(lastapplicantID + 1) Response.Redirect("apply.aspx") End Sub Protected Sub btnspecaloffer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnspecaloffer.Click Response.Redirect("specialoffer.aspx") End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Panel3.Visible = True End Sub

Different Loan Scheme

The Loan Application Form

Protected Sub Button2_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim con As New SqlConnection(ConfigurationManager.AppSettings("connectionString")) Dim comString As String Dim comStringForResponse As String comString = "insert into application values (" & CInt(txtapplicantID.Text) & ",'" & txtname.Text & "'," & CInt(txtage.Text) & ",'" & ddloantype.SelectedValue & "','" & txtaddress.Text & "'," & CType(txtincome.Text, Single) & "," & CType(txtincome.Text, Single) & ",'" & Date.Now.ToString & "')" comStringForResponse = "insert into response values(" & CInt(txtapplicantID.Text) & ",'processing')" Dim com As New SqlCommand(comString, con) con.Open() com.ExecuteNonQuery() Dim com2 As New SqlCommand(comStringForResponse, con) com2.ExecuteNonQuery() lblsavedmessage.Visible = True

lblsavedmessage.Text = "Applied Successfully" End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load txtapplicantID.Text = Session("applicantID") Dim i As Integer Dim userslist As New ArrayList Dim dr() As DataRow Dim da As New SqlDataAdapter("select productname from products", ConfigurationManager.AppSettings("connectionString")) Dim dt As New DataTable da.Fill(dt) dr = dt.Select For i = 0 To dr.Length - 1 userslist.Add(dr(i)(0).ToString) Next ddloantype.DataSource = userslist ddloantype.DataBind() txtname.Focus() End Sub

The Check Status Form

Imports Imports Imports Imports

System.EnterpriseServices Microsoft.VisualBasic System.Data System.Data.SqlClient

Public Class checkStatus 'Inherits ServicedComponent Public Function status(ByVal appID As Int16) As String Dim con As New SqlConnection(ConfigurationManager.AppSettings("connectionString")) Dim comString As String Dim v_response As String comString = "select response from response where applicationID=" & appID Dim com As New SqlCommand(comString, con) con.Open() v_response = com.ExecuteScalar status = v_response End Function End Class

The Grant and Reject Form Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then Dim i As Integer Dim userslist As New ArrayList Dim dr() As DataRow Dim da As New SqlDataAdapter("select appID from application", ConfigurationManager.AppSettings("connectionString")) Dim dt As New DataTable da.Fill(dt) dr = dt.Select For i = 0 To dr.Length - 1 userslist.Add(dr(i)(0).ToString) Next ddapplicantID.DataSource = userslist Page.DataBind() End If End Sub Protected Sub ddapplicantID_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddapplicantID.SelectedIndexChanged GridView1.Visible = True Dim da As New SqlDataAdapter("select * from application where appID=" & CInt(ddapplicantID.SelectedValue) & "", ConfigurationManager.AppSettings("connectionString")) Dim dt As New DataTable

da.Fill(dt) GridView1.DataSource = dt Page.DataBind() End Sub Protected Sub ddlgOrReject_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlgOrReject.SelectedIndexChanged Dim con As New SqlConnection(ConfigurationManager.AppSettings("connectionString")) Dim comString As String comString = "update response set response='" & ddlgOrReject.SelectedValue.ToString & "' where applicationID=" & CInt(ddapplicantID.SelectedValue.ToString) Dim com As New SqlCommand(comString, con) con.Open() com.ExecuteNonQuery() lblmessage.Visible = True lblmessage.Text = ddlgOrReject.SelectedValue.ToString End Sub

New Secheme

Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click Dim con As New SqlConnection(ConfigurationManager.AppSettings("connectionString")) Dim comString As String comString = "insert into products values (" & CInt(txtproductID.Text) & ",'" & txtproductname.Text & "'," & CInt(txtrateOfInterest.Text) & "," & CType(txtmin.Text, Single) & "," & CType(txtmax.Text, Single) & ")" Dim com As New SqlCommand(comString, con) con.Open() com.ExecuteNonQuery() lblsavedmessage.Visible = True lblsavedmessage.Text = "Product Created Successfully" End Sub