0115 966 7955 Today's Opening Times 10:00 - 20:00 (BST)
Place an Order
Instant price

Struggling with your work?

Get it right the first time & learn smarter today

Place an Order
Banner ad for Viper plagiarism checker

Public Class Login Form in VB

Disclaimer: This work has been submitted by a student. This is not an example of the work written by our professional academic writers. You can view samples of our professional work here.

Any opinions, findings, conclusions or recommendations expressed in this material are those of the authors and do not necessarily reflect the views of UK Essays.

Published: Thu, 08 Feb 2018

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles okButton2.Click

Try

mappDB.UserName = usernameTextBox.Text : mappDB.Password = passwordTextBox.Text

Call mappDB.connect()

MainForm.Show()

Catch ex As Exception

Call showError(ex.Message)

End Try

End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

If MessageBox.Show(“Do you really want to quit now?”, strApplicationName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Application.Exit()

End Sub

Private Sub loginForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.Text = strApplicationName & ” Login”

passwordTextBox.Text = String.Empty

‘todo remove when launch

usernameTextBox.Text = “admin”

passwordTextBox.Text = “7151epeN”

End Sub

End Class

Imports System.Data.OleDb

Imports System.Configuration

Public Class MainForm

Structure _gridFilter

Dim _sql As String

Dim _criteria As String

Dim _orderBy As String

End Structure

Dim gridFilter As New _gridFilter

Dim cmdLocal As OleDbCommand

Dim blIsActiveLoan As Boolean

Dim bsGLSummary As New BindingSource

Private Sub exitToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

If MessageBox.Show(“Quit application now?”, strApplicationName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Application.Exit()

End Sub

Private Sub MainForm_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

loginForm.Visible = False

End Sub

Private Sub MainForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

Call mappDB.close() : Call mappDB.dispose()

mappDB = Nothing

End Sub

Private Sub NewLoanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewLoanToolStripMenuItem.Click

borrowForm.ShowDialog()

End Sub

Private Sub BorrowerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrowerToolStripMenuItem.Click

borrowerForm.ShowDialog()

End Sub

Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.Text = strApplicationName & ” for ” & ConfigurationManager.AppSettings(“client”).ToString

‘dateLabel.Text = System.DateTime.Now.ToString(“MMM dd yyyy”)

loginUserNameLabel.Text = mappDB.UserName

loginsinceLabel.Text = System.DateTime.Now.ToString(“MMM dd yyyy hh:mm tt”)

filtercriteriaComboBox.SelectedIndex = 1

With glSumTotalDataGridView

.ReadOnly = True

.Rows.Add() : .Rows.Add() : .Rows.Add()

.Item(0, 0).Value = “Total Cr”

.Item(0, 1).Value = “Total Dr”

.Item(0, 2).Value = “Balance “

.Columns(0).Width = 550

.Columns(1).Width = 150

.Cursor = Cursors.Hand

.SelectionMode = DataGridViewSelectionMode.FullRowSelect

End With

End Sub

Private Sub searchfilterButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles searchfilterButton.Click

Me.Cursor = Cursors.WaitCursor

gridFilter._sql = “SELECT pk_borrowerID,lastname as [Last name],firstname as [First Name] FROM tblborrower”

gridFilter._orderBy = ” ORDER BY lastname”

Select Case filtercriteriaComboBox.SelectedIndex

Case 0 ‘firstname

gridFilter._criteria = ” WHERE firstname like ‘” & filtervalueTextBox.Text & “%'”

Case 1 ‘lastname

gridFilter._criteria = ” WHERE lastname like ‘” & filtervalueTextBox.Text & “%'”

Case 2 ‘company

gridFilter._criteria = ” WHERE company like ‘” & filtervalueTextBox.Text & “%'”

End Select

Call fillGrid(gridFilter._sql, gridFilter._criteria, gridFilter._orderBy, searchBrDataGridView, True)

Me.Cursor = Cursors.Default

End Sub

Private Sub refreshGLSumToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles glsum_refreshToolStripButton.Click

Me.Cursor = Cursors.WaitCursor

gridFilter._sql = ” SELECT fk_borrowerid,fullname as [Borrower Name],sumofcr as [Sum of Cr], sumofdr as [Sum of Dr], Balance FROM qGLsummary “

If Not incZeroBalToolStripButton.Checked Then

gridFilter._criteria = “”

Else

gridFilter._criteria = ” WHERE balance > 0 “

End If

gridFilter._orderBy = ” ORDER BY Fullname “

Call fillGrid(gridFilter._sql, gridFilter._criteria, gridFilter._orderBy, glSumDataGridView, True, bsGLSummary)

glsumRowCountToolStripLabel.Text = “of ” & glSumDataGridView.Rows.Count – 1

Call firstToolStripButton_Click(sender, e)

Call glsum_totals()

Me.Cursor = Cursors.Default

‘Call TotalOfGLSum()

End Sub

Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drtotalal_glsumLabel.Click

End Sub

Private Sub viewGLSummaryToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles glsum_openToolStripButton.Click

Try

Me.Cursor = Cursors.WaitCursor

Call TabControl1.SelectTab(1)

gridFilter._sql = ” Select pk_mloanid , pk_loanref as [Loan Ref],isactive as [Active], Dated FROM tblloanmaster “

gridFilter._orderBy = ” ORDER BY dated DESC “

gridFilter._criteria = ” WHERE fk_borrowerid=” & glSumDataGridView(0, glSumDataGridView.CurrentRow.Index).Value.ToString

Call fillGrid(gridFilter._sql, gridFilter._criteria, gridFilter._orderBy, brloanlistDataGridView, True)

brloanlistDataGridView.Columns(2).Width = 40

brloanlistDataGridView.Columns(3).Width = 40

brloanlistDataGridView.Columns(3).DefaultCellStyle.Format = “MMM dd yyyy”

brNameToolStripLabel.Text = glSumDataGridView(1, glSumDataGridView.CurrentRow.Index).Value.ToString

‘generalledgerDataGridView.DataSource = Nothing

Catch ex As Exception

Call showError(ex.Message.ToString)

Finally

Me.Cursor = Cursors.Default

End Try

End Sub

Private Sub borrowerDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles searchBrDataGridView.CellContentClick

End Sub

Private Sub borrowerDataGridView_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles searchBrDataGridView.CellDoubleClick

gridFilter._sql = ” SELECT fk_borrowerid,fullname as [Borrower Name],sumofcr as [Sum of Cr], sumofdr as [Sum of Dr], Balance FROM qGLsummary “

gridFilter._criteria = ” WHERE fk_borrowerid =” & searchBrDataGridView(0, searchBrDataGridView.CurrentRow.Index).Value.ToString

gridFilter._orderBy = ” ORDER BY Fullname “

Call fillGrid(gridFilter._sql, gridFilter._criteria, gridFilter._orderBy, glSumDataGridView, True)

‘Call TotalOfGLSum()

Call glsum_totals()

End Sub

Private Sub borrowerloanDataGridView_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles brloanlistDataGridView.CellContentDoubleClick

End Sub

Private Sub generalledgersummaryDataGridView_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles glSumDataGridView.CellDoubleClick

Call viewGLSummaryToolStripButton1_Click(sender, e)

End Sub

Private Sub upd_newToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upd_newToolStripButton.Click

Try

upd_datedDateTimePicker.Value = Now

upd_ToComboBox.SelectedIndex = 1

upd_isactiveCheckBox.Checked = True

Call combolist(“SELECT pk_accntID,pk_code FROM tblaccount ORDER BY description”, “pk_accntid”, “pk_code”, upd_AccntComboBox)

Call upd_AccntComboBox_SelectionChangeCommitted(sender, e)

‘upd_AmtNumericUpDown.Value = 0

upd_nextduedateDateTimePicker.Value = DateAdd(DateInterval.Month, 1, CType(duedateTextBox.Text.ToString, Date))

‘upd_statusComboBox.SelectedIndex = 0

Call toggleOnUpdate()

Catch ex As Exception

Call showError(ex.ToString)

End Try

End Sub

Private Sub upd_editToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles upd_editToolStripButton.Click

Try

Dim a As Integer = brloanDetailsDataGridView.CurrentRow.Index

Call combolist(“SELECT pk_accntID,pk_code FROM tblaccount ORDER BY description”, “pk_accntid”, “pk_code”, upd_AccntComboBox)

Call toggleOnUpdate()

With brloanDetailsDataGridView

upd_recidLabel.Text = .Item(0, a).Value.ToString

upd_AccntComboBox.Text = .Item(1, a).Value.ToString

upd_datedDateTimePicker.Value = CType(.Item(2, a).Value, Date)

If CType(.Item(3, a).Value, Double) > 0 Then ‘entry is Cr

upd_ToComboBox.Text = “Cr”

upd_AmtNumericUpDown.Value = CType(.Item(3, a).Value, Decimal)

Else

upd_ToComboBox.Text = “Dr”

upd_AmtNumericUpDown.Value = CType(.Item(4, a).Value, Decimal)

End If

upd_nextduedateDateTimePicker.Value = CType(duedateTextBox.Text.ToString, Date)

upd_isactiveCheckBox.Checked = isactiveCheckBox.Checked

End With

Catch ex As Exception

If Err.Number = 91 Then

Call showError(“Please click entry in General Ledger Details and click edit.”)

Else

Call showError(Err.Number & ” ” & ex.Message)

End If

End Try

End Sub

Private Sub upd_applyToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upd_applyToolStripButton.Click

If Not IsNumeric(upd_recidLabel.Text) Then

MessageBox.Show(“Please select entry from GL Details. Click OK to continue.”, strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information)

Exit Sub

End If

If upd_AmtNumericUpDown.Value = 0 Then

Call showError(“Enter amount value.”)

Exit Sub

End If

Dim i As Integer, _PostAmountTo As String = String.Empty

If MessageBox.Show(“Are all entries correct?”, strApplicationName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

Try

If upd_ToComboBox.Text.ToUpper = “DR” Then _PostAmountTo = “dr” Else _PostAmountTo = “Cr”

If upd_recidLabel.Text = “0” Then

cmdLocal = New OleDbCommand(“INSERT INTO tblloandetails(fk_mloanid,fk_accntid,dated,” & _PostAmountTo & “) VALUES(@fk_mloanid,@fk_accntid,@dated,@amt)”, mappDB.conn)

Else

cmdLocal = New OleDbCommand(“UPDATE tblloandetails SET [email protected]_mloanid,[email protected]_accntid,[email protected],” & _PostAmountTo & “[email protected] WHERE pk_dloanid=” & upd_recidLabel.Text.ToString, mappDB.conn)

End If

With cmdLocal.Parameters

.Add(“@fk_mloanid”, OleDbType.Integer, 0, “fk_mloanid”).Value = recIDLabel.Text

.Add(“@fk_accntid”, OleDbType.Integer, 0, “fk_accntid”).Value = upd_AccntComboBox.SelectedValue

.Add(“@dated”, OleDbType.Date, 0, “dated”).Value = upd_datedDateTimePicker.Value.ToString(“MMM/dd/yyyy”)

.Add(“@amt”, OleDbType.Decimal, 0, _PostAmountTo).Value = upd_AmtNumericUpDown.Value

End With

i = cmdLocal.ExecuteNonQuery

gridFilter._sql = ” SELECT pk_dloanid,pk_code as Particular,Dated,Cr,Dr FROM qloandetails “

gridFilter._criteria = ” WHERE fk_mloanid =” & brloanlistDataGridView(0, brloanlistDataGridView.CurrentRow.Index).Value.ToString

gridFilter._orderBy = ” ORDER BY dated,pk_dloanid “

Call fillGrid(gridFilter._sql, gridFilter._criteria, gridFilter._orderBy, brloanDetailsDataGridView, True)

Call gldetails_totals()

blIsActiveLoan = False

For i = 0 To brLoanDetailsSumDataGridView.Rows.Count – 1

If CType(brLoanDetailsSumDataGridView.Item(4, i).Value, Double) > 0 Then

blIsActiveLoan = True

Exit For

End If

Next

cmdLocal = New OleDbCommand(“UPDATE tblloanmaster SET [email protected] WHERE pk_mloanid=” & recIDLabel.Text.ToString, mappDB.conn)

With cmdLocal.Parameters

.Add(“@isactive”, OleDbType.Boolean, 0, “isactive”).Value = blIsActiveLoan

End With

cmdLocal.ExecuteNonQuery()

brloanlistDataGridView.Item(2, brloanlistDataGridView.CurrentRow.Index).Value = blIsActiveLoan

‘end status check

If blIsActiveLoan And MessageBox.Show(“Update due date?”, strApplicationName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

‘update loan due date

cmdLocal = New OleDbCommand(“UPDATE tblloanmaster SET [email protected] WHERE pk_mloanid=” & recIDLabel.Text.ToString, mappDB.conn)

With cmdLocal.Parameters

.Add(“@duedate”, OleDbType.Date, 0, “duedate”).Value = upd_nextduedateDateTimePicker.Value.ToString(“MMM dd yyyy”)

End With

cmdLocal.ExecuteNonQuery()

End If

Call toggleOnUpdate()

MessageBox.Show(brNameToolStripLabel.Text.ToUpper & ” general ledger update success. Click OK to continue.”, strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception

Call showError(ex.ToString)

Finally

i = Nothing

cmdLocal = Nothing

mappDB.close()

End Try

End If

End Sub

Private Sub gldetails_totals()

With brloanDetailsDataGridView

.Columns(2).DefaultCellStyle.Format = “MMM dd yyyy”

.Columns(3).Width = 80

.Columns(3).DefaultCellStyle.Format = “0,0.00”

.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

.Columns(4).Width = 80

.Columns(4).DefaultCellStyle.Format = “0,0.00”

.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

End With

gridFilter._sql = ” SELECT fk_mloanid,pk_code as Particular, sumofcr as Cr, sumofDr as Dr,Balance FROM qloandetailssum “

gridFilter._criteria = ” WHERE fk_mloanid =” & brloanlistDataGridView(0, brloanlistDataGridView.CurrentRow.Index).Value.ToString

gridFilter._orderBy = ” “

Call fillGrid(gridFilter._sql, gridFilter._criteria, gridFilter._orderBy, brLoanDetailsSumDataGridView, True)

With brLoanDetailsSumDataGridView

‘.Columns(2).DefaultCellStyle.Format = “MMM dd yyyy”

For i As Integer = 2 To 4

.Columns(i).Width = 80

.Columns(i).DefaultCellStyle.Format = “0,0.00”

.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

Next

End With

End Sub

Private Sub glsum_totals()

Dim _totalCr As Double = 0

Dim _totalDr As Double = 0

Try

For i As Integer = 0 To glSumDataGridView.Rows.Count – 1

_totalCr += CType(glSumDataGridView.Item(2, i).Value, Double)

_totalDr += CType(glSumDataGridView.Item(3, i).Value, Double)

Next

Catch

End Try

Try

‘add grid formatting

With glSumDataGridView

.Columns(1).Width = 350

.Columns(2).DefaultCellStyle.Format = “0,0.00”

.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

.Columns(3).DefaultCellStyle.Format = “0,0.00”

.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

.Columns(4).DefaultCellStyle.Format = “0,0.00”

.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

End With

With glSumTotalDataGridView

.Item(1, 0).Value = FormatNumber(_totalCr, 2)

.Item(1, 1).Value = FormatNumber(_totalDr, 2)

.Item(1, 2).Value = FormatNumber(_totalCr – _totalDr, 2)

.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

End With

Catch ex As Exception

Call showError(ex.Message)

End Try

End Sub

Private Sub upd_calcToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upd_calcToolStripButton.Click

Try

System.Diagnostics.Process.Start(“calc”)

Catch ex As Exception

Call showError(ex.ToString)

End Try

End Sub

Sub haltKeys(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles datedTextBox.KeyPress, duedateTextBox.KeyPress, _

comakerTextBox.KeyPress, remarkTextBox.KeyPress, payableTextBox.KeyPress, monthlyintTextBox.KeyPress, monthlypenaltyTextBox.KeyPress, _

principalTextBox.KeyPress, monthlyintTextBox.KeyPress, monthlypenaltyTextBox.KeyPress

e.Handled = True

End Sub

Private Sub export_glsumToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles glsum_exportToolStripButton.Click

If (glSumDataGridView.Rows.Count – 1) < 0 Then Exit Sub

Dim h As Integer = 0, r As Integer = 4

excelApp = New Excel.Application

excelWB = excelApp.Workbooks.Open(Application.StartupPath & “templatesglsummary.xlt”)

excelWS = CType(excelWB.Sheets(1), Excel.Worksheet)

With excelWS

For h = 0 To glSumDataGridView.Rows.Count – 1

r = h + 4 ‘4 is the base row

.Cells(r, 1) = h + 1 ‘sn

.Cells(r, 2) = glSumDataGridView.Item(1, h).Value.ToString

.Cells(r, 3) = glSumDataGridView.Item(2, h).Value.ToString

.Cells(r, 4) = glSumDataGridView.Item(3, h).Value.ToString

.Cells(r, 5) = glSumDataGridView.Item(4, h).Value.ToString

Next

‘balance

‘.Cells(6, ExcelColumns.colE) = “=C” & r & “-D” & r

r += 1

.Cells(r, ExcelColumns.colC) = “=SUM(C4:C” & r – 1 & “)” ‘Cr total

.Cells(r, ExcelColumns.colD) = “=SUM(D4:D” & r – 1 & “)” ‘Dr Total

.Cells(r, ExcelColumns.colE) = “=C” & r & “-D” & r ‘Balance Total

.Cells(r, ExcelColumns.colA) = “Total”

.Range(“A” & r & “:B” & r).Merge()

.Range(“A” & r).HorizontalAlignment = -4131

End With

Call drawBorder(“A4:E” & r)

excelApp.Visible = True

‘clean up variables

h = Nothing

excelWS = Nothing

excelWB = Nothing

excelApp = Nothing

End Sub

Private Sub gl_viewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gldetails_viewToolStripButton.Click

If (brloanDetailsDataGridView.Rows.Count – 1) < 0 Then Exit Sub

Dim h As Integer = 0, r As Integer = 0

‘Dim s As String = String.Empty

excelApp = New Excel.Application

excelWB = excelApp.Workbooks.Open(Application.StartupPath & “templatesgldetails.xlt”)

excelWS = CType(excelWB.Sheets(1), Excel.Worksheet)

With excelWS

.Cells(3, ExcelColumns.colC) = brNameToolStripLabel.Text.ToString

.Cells(4, ExcelColumns.colC) = loanRefLabel.Text.ToString

.Cells(5, ExcelColumns.colC) = datedTextBox.Text.ToString

.Cells(3, ExcelColumns.colG) = principalTextBox.Text.ToString

.Cells(4, ExcelColumns.colG) = monthlyintTextBox.Text.ToString

.Cells(5, ExcelColumns.colG) = monthlypenaltyTextBox.Text.ToString

For h = 0 To brloanDetailsDataGridView.Rows.Count – 1

r = h + 9 ‘is the base row

.Cells(r, ExcelColumns.colA) = h + 1 ‘sn

.Cells(r, ExcelColumns.colB) = brloanDetailsDataGridView.Item(1, h).Value.ToString

.Cells(r, ExcelColumns.colD) = CType(brloanDetailsDataGridView.Item(2, h).Value.ToString, Date).ToString(“MMM dd yyyy”)

.Cells(r, ExcelColumns.colE) = brloanDetailsDataGridView.Item(3, h).Value.ToString ‘cr

.Cells(r, ExcelColumns.colF) = brloanDetailsDataGridView.Item(4, h).Value.ToString ‘dr

‘balance col

If r > 10 Then .Cells(r, ExcelColumns.colG) = “=G” & (r – 1) & “+E” & r & “-F” & r

Next

r += 1

‘balance

.Cells(6, ExcelColumns.colG) = “=E” & r & “-F” & r

.Cells(r, ExcelColumns.colE) = “=SUM(E8:E” & r – 1 & “)”

.Cells(r, ExcelColumns.colF) = “=SUM(F8:F” & r – 1 & “)”

.Cells(r, ExcelColumns.colG) = “=E” & r & “-F” & r

.Cells(r, ExcelColumns.colA) = “Total”

.Range(“A” & r & “:D” & r).Merge()

.Range(“A” & r).HorizontalAlignment = -4131

End With

Call drawBorder(“A10:G” & r)

excelApp.Visible = True

h = Nothing

excelWS = Nothing

excelWB = Nothing

excelApp = Nothing

End Sub

Private Sub what_accntButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles what_accntButton.Click

Try

cmdLocal = New OleDbCommand(“SELECT description from tblaccount WHERE pk_accntID=” & upd_AccntComboBox.SelectedValue.ToString, mappDB.conn)

Dim rd As OleDbDataReader = cmdLocal.ExecuteReader

rd.Read()

If rd.HasRows Then MessageBox.Show(upd_AccntComboBox.Text & ” = ” & rd(0).ToString & “. Click OK to continue.”, strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information)

rd = Nothing

cmdLocal = Nothing

Catch

End Try

End Sub

Private Sub AccountToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AccountToolStripMenuItem.Click

rptAccountForm.ShowDialog()

End Sub

Sub toggleOnUpdate()

brloanlistDataGridView.Enabled = Not brloanlistDataGridView.Enabled

brloanDetailsDataGridView.Enabled = Not brloanDetailsDataGridView.Enabled

upd_newToolStripButton.Enabled = Not upd_newToolStripButton.Enabled

upd_editToolStripButton.Enabled = Not upd_editToolStripButton.Enabled

upd_applyToolStripButton.Enabled = Not upd_applyToolStripButton.Enabled

upd_cancelToolStripButton.Enabled = Not upd_cancelToolStripButton.Enabled

End Sub

Private Sub upd_cancelToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upd_cancelToolStripButton.Click

If MessageBox.Show(“Cancel update?”, strApplicationName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

upd_recidLabel.Text = “0”

Call toggleOnUpdate()

End If

End Sub

Private Sub borrowerloanDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles brloanlistDataGridView.CellContentClick

End Sub

Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click

If upd_applyToolStripButton.Enabled = True Then

MessageBox.Show(“Please complete updating/cancel GL of ” & brNameToolStripLabel.Text.ToUpper & “. Click OK to continue.”, strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information)

TabControl1.SelectedIndex = 1

End If

End Sub

Private Sub DueDateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DueDateToolStripMenuItem.Click

rptDueDateForm.ShowDialog()

End Sub

Private Sub rptBorrowerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rptBorrowerToolStripMenuItem.Click

Me.Cursor = Cursors.WaitCursor

Dim r As Integer = 4

excelApp = New Excel.Application

excelWB = excelApp.Workbooks.Open(Application.StartupPath & “templatesborrower.xlt”)

excelWS = CType(excelWB.Sheets(1), Excel.Worksheet)

cmdLocal = New OleDbCommand(“SELECT * from tblborrower ORDER BY lastname”, mappDB.conn)

Dim rd As OleDbDataReader = cmdLocal.ExecuteReader

While rd.Read

With excelWS

.Cells(r, ExcelColumns.colA) = r – 3

.Cells(r, ExcelColumns.colB) = rd(“lastname”).ToString

.Cells(r, ExcelColumns.colC) = rd(“firstname”).ToString

.Cells(r, ExcelColumns.colD) = rd(“jobtitle”).ToString & ” – ” & rd(“company”).ToString

.Cells(r, ExcelColumns.colE) = rd(“contactnos”).ToString

.Cells(r, ExcelColumns.colF) = rd(“address”).ToString

r += 1

End With

End While

If r > 4 Then Call drawBorder(“A5:F” & r – 1)

excelApp.Visible = True

mappDB.close()

rd = Nothing

cmdLocal = Nothing

r = Nothing

excelWS = Nothing

excelWB = Nothing

excelApp = Nothing

Me.Cursor = Cursors.Default

End Sub

Private Sub AccountToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AccountToolStripMenuItem1.Click

accountForm.ShowDialog()

End Sub

Private Sub LogOffToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogOffToolStripMenuItem.Click

Me.Visible = False

loginForm.Show()

End Sub

Private Sub borrowerloanDataGridView_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles brloanlistDataGridView.CellEnter

Dim rd As OleDbDataReader

recIDLabel.Text = “0”

Try

gridFilter._sql = ” SELECT pk_dloanid,pk_code as Particular,Dated,Cr,Dr FROM qloandetails “

gridFilter._criteria = ” WHERE fk_mloanid =” & brloanlistDataGridView(0, brloanlistDataGridView.CurrentRow.Index).Value.ToString

gridFilter._orderBy = ” ORDER BY dated,pk_dloanid “

Call fillGrid(gridFilter._sql, gridFilter._criteria, gridFilter._orderBy, brloanDetailsDataGridView, True)

cmdLocal = New OleDbCommand(“SELECT * FROM tblloanmaster WHERE pk_mloanid=” & brloanlistDataGridView(0, brloanlistDataGridView.CurrentRow.Index).Value.ToString, mappDB.conn)

rd = cmdLocal.ExecuteReader

rd.Read()

If rd.HasRows Then

recIDLabel.Text = rd(“pk_mloanid”).ToString

loanRefLabel.Text = rd(“pk_loanref”).ToString

datedTextBox.Text = CType(rd(“dated”).ToString, Date).ToString(“MMM dd yyyy”)

duedateTextBox.Text = CType(rd(“duedate”).ToString, Date).ToString(“MMM dd yyyy”)

comakerTextBox.Text = rd(“comaker”).ToString

remarkTextBox.Text = rd(“remark”).ToString

principalTextBox.Text = FormatNumber(rd(“principal”).ToString, 2).ToString

monthlyintTextBox.Text = FormatNumber(rd(“interest”).ToString, 2).ToString

monthlypenaltyTextBox.Text = FormatNumber(rd(“penalty”).ToString, 2).ToString

isactiveCheckBox.Checked = CType(rd(“isactive”), Boolean)

‘monthInterestNumericUpDown.Value = CType(rd(“interest”).ToString, Decimal)

payableTextBox.Text = FormatNumber(CType(principalTextBox.Text, Double) * (CType(monthlyintTextBox.Text, Double) / 100), 2).ToString

‘monthPenaltyNumericUpDown.Value = CType(rd(“penalty”).ToString, Decimal)

End If

Call gldetails_totals()

Catch ex As Exception

Call showError(ex.Message)

Finally

mappDB.close()

rd = Nothing

End Try

End Sub

Private Sub quitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quitToolStripMenuItem.Click

If MessageBox.Show(“Do you really want to quit now?”, strApplicationName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Application.Exit()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

nowToolStripLabel.Text = System.DateTime.Now.ToString(“MMM dd yyyy HH:mm:ss tt”)

End Sub

Private Sub previousToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles previousToolStripButton.Click

bsGLSummary.MovePrevious()

End Sub

Private Sub generalledgersummaryDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles glSumDataGridView.CellContentClick

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

brloanDetailsDataGridView.Rows(1).Selected = True

End Sub

Private Sub BackupDatabaseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupDatabaseToolStripMenuItem.Click

End Sub

Private Sub ToolStripLabel8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub upd_isactiveCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upd_isactiveCheckBox.CheckedChanged

End Sub

Private Sub upd_isactiveCheckBox_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles upd_isactiveCheckBox.CheckStateChanged

End Sub

Private Sub upd_isactiveCheckBox_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles upd_isactiveCheckBox.Click

If upd_ToComboBox.Text.ToUpper = “DR” Then

upd_isactiveCheckBox.Checked = True

GoTo close

End If

Dim x As Double = 0

For i As Integer = 0 To brLoanDetailsSumDataGridView.Rows.Count – 1

x += CType(brLoanDetailsSumDataGridView.Item(2, i).Value, Double)

Next

If x – upd_AmtNumericUpDown.Value > 0 Then

upd_isactiveCheckBox.Checked = True

GoTo close

End If

Exit Sub

close:

MessageBox.Show(“Zero balance loan cannot be close.”, strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub upd_AccntComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upd_AccntComboBox.SelectedIndexChanged

End Sub

Private Sub upd_AccntComboBox_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles upd_AccntComboBox.SelectionChangeCommitted

‘retrieve balance of selected account

For i As Integer = 0 To brLoanDetailsSumDataGridView.Rows.Count – 1

If brLoanDetailsSumDataGridView.Item(1, i).Value.ToString = upd_AccntComboBox.Text.ToString Then

upd_AmtNumericUpDown.Value = CType(brLoanDetailsSumDataGridView.Item(4, i).Value, Decimal)

Exit For

End If

Next

End Sub

Private Sub generalledgersummaryDataGridView_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles glSumDataGridView.CellEnter

Try

selectedrowindexToolStripTextBox.Text = CStr(e.RowIndex + 1)

Catch

End Try

End Sub

Private Sub filtervalueTextBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles filtervalueTextBox.KeyDown

If e.KeyCode = Keys.Enter Then Call searchfilterButton_Click(sender, e)

End Sub

Private Sub nextToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles nextToolStripButton.Click

bsGLSummary.MoveNext()

End Sub

Private Sub firstToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles firstToolStripButton.Click

bsGLSummary.MoveFirst()

End Sub

Private Sub lastToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Han


To export a reference to this article please select a referencing stye below:

Reference Copied to Clipboard.
Reference Copied to Clipboard.
Reference Copied to Clipboard.
Reference Copied to Clipboard.
Reference Copied to Clipboard.
Reference Copied to Clipboard.
Reference Copied to Clipboard.

Request Removal

If you are the original writer of this dissertation and no longer wish to have the dissertation published on the UK Essays website then please click on the link below to request removal:


More from UK Essays