Essay Writing Service

1 Star2 Stars3 Stars4 Stars5 Stars (No Ratings Yet)
Loading...

Public Class Login Form in VB

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 fk_mloanid=@fk_mloanid,fk_accntid=@fk_accntid,dated=@dated,” & _PostAmountTo & “=@amt 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 isactive=@isactive 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 duedate=@duedate 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



Recommendation
EssayHub’s Community of Professional Tutors & Editors
Tutoring Service, EssayHub
Professional Essay Writers for Hire
Essay Writing Service, EssayPro
Professional Custom
Professional Custom Essay Writing Services
In need of qualified essay help online or professional assistance with your research paper?
Browsing the web for a reliable custom writing service to give you a hand with college assignment?
Out of time and require quick and moreover effective support with your term paper or dissertation?