Public Class Login Form in VB

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 [emailprotected]_mloanid,[emailprotected]_accntid,[emailprotected], _PostAmountTo [emailprotected] 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 [emailprotected] 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 [emailprotected] 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) 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) 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

Causes of Tsunami

The Causes of Tsunami All tsunamis are caused by the sudden displacement of large volumes of water. All are the result of violent events with enough power to displace large volumes very rapidly. Moreover, Tsunamis are often referred to high waves of water caused by changes in the flow and surge of the ocean. On the other hand, Tsunamis can be caused by a few different factors, which are an earthquake, a large-scale undersea landslide, a submarine volcanic eruption (Cause of Tsunami, n. d. ). Firstly, the vast majority of tsunamis results from the earthquake.The earth's surface is covered by the continents and sea floor which are parts of the world-wide system of plates that are in the very slow motion. An earthquake occurs where the edges of plates run into one another, which are called faults or fault lines. The forces along faults sometimes can build-up over long periods of time. Therefore, when rocks finally break, the earthquake happens. For example, some features generated by th e forces released along the edges of plates faults are the Andes Mountains in South America, which occurred on land and the Aleutian Trench near Alaska, which occurred under water.When rapid and powerful faulting occurs near the ocean or underneath the ocean, the large earthquake will be generated and possibly being the tsunami (What causes tsunami? , n. d. ). The process of a happening of tsunami is complicated. The magnitude and depth of earthquake, the water depth in the region of tsunami generation, the amount of vertical motion of the sea floor, the rapidity of such motion, whether there is coincident subsidence of sediments and the efficiency which the energy is transferred from crust of the earth to water in the ocean are all parts of the generation mechanism of Tsunamis.The energy accumulates in the major plate until it exceeds the frictional forces between the two stuck plates. When this situation happens, the major plate snap back into an unrestrained position. This motion is suddenly the cause of the tsunami because it gives a gigantic push to the overlying water. Additionally, at the same time of the happening, the inland areas of the major plate are suddenly lowered (What causes Tsunamis? , 2012). However, not all earthquakes generate tsunamis. To generate tsunamis, earthquakes must occur underneath or near the ocean, be large and create movements in the sea floor.All oceanic regions of the world can experience tsunamis, but in the Pacific Ocean there is a much more frequent occurrence of large, destructive tsunamis because of the many large earthquakes along the margins of the Pacific Ocean. Secondly, underwater landslides, coastal landslides falling into the ocean can displace enough water to generate a tsunami. Undersea landslides occur when there is a large amount of sediment dislodged from the seafloor which displaces a water column and potentially creating tsunami. Land sliding into the sea is usually caused by an earthquake.It may also caus e destructive local tsunami (What causes tsunami? , n. d. ). For instance, there is a case in 1958 where Lituya Bay in Alaska faced a tsunami caused by rockslide which an enormous boulder was loosed by an earthquake and then fell into the bay. The mass of rock striking the bay's surface created a gigantic splash, which sent water wave to the height of 1720 feet (Lituya Bay Close Up, n. d. ). Last but not least, though less common, volcanic eruptions and submarine explosions which occur near or under the ocean can all cause sufficient displacement of water to generate a tsunami.These can be occurred in several ways. One possibility is destructive collapses of coastal. Inland and underwater volcanoes result in massive landslides. They break down and collapse, so they release large amounts of ash and debris into the water. In addition, pyroclastic flows, which are the mixtures of dense including hot blocks, ash, pumice, and gas, plunging down volcanic slopes into the water pushing wate r outwards. A volcano collapsing after an eruption also causes overlying water to drop suddenly. Tsunamis can also be induced by submarine volcanoes.These underwater volcanoes can collapse downwards or spew forth lava heating the surrounding water quickly (What causes Tsunamis? , 2012). References Lituya Bay Close Up (n. d. ) Retrieved from http://www. usc. edu/dept/tsunamis/alaska/1958/webpages/lituyacloseup. html What causes tsunami? (n. d. ) Retrieved from http://beachsafe. org. au/tsunami/ema/pages/04_causes. html Cause of Tsunami (n. d. ) Retrieved from http://tsun. sscc. ru/tsulab/tgi_4. htm What causes Tsunamis? (November 12, 2012) retrieved from http://www. ga. gov. au/hazards/tsunami/tsunami-basics/causes. html

How Personal Can Ethics Get Essay

Abstract This paper is about the case study, â€Å"How Personal Can ethics Get†. This paper discusses the dilemmas that Valerie Young has to face at her Chicago based fragrance employer named Wisson. Secondly, I will discuss what I would do if I were in the same dilemma as Valerie. Next, it discusses how personal differences and preference can impact organizations ethics. Lastly, this paper discusses how organizational policies and procedures can impact organizational ethics. How Personal Can Ethics Get? This case focuses on the ethical dilemmas that Valerie Young has to deal with her employer Wisson. Valerie is an immigrant worker that is currently working in the United States on a work visa. Valerie has uncovered unethical practices by her manager Lionel Waters. Valerie has discovered that Lionel Waters was violating Wissons company policy that no employee should take personal payments, bribes or kickbacks to customers or suppliers or the receipt of kickbacks, bribes and personal kickbacks are prohibited. Valerie has discovered documentation showing that Waters is receiving personal kickbacks from two fragrance companies through his personal company. This concerns Valerie since her division only receives projects from these two fragrance companies now instead of the other fragrance companies they have worked for in the past. She did not understand this why they did not work with the other companies anymore. She claimed that the other companies had some great project but these companies did not receive consideration from Wisson. Waters demonstrates the self-serving principle of might-equals right, which states you do whatever you are powerful enough to impose on others without respect to socially acceptable behaviors(). Waters demonstrates this ethical principle by willingly funneling kickback money into his personal business account, which is a violation of company policy. Waters is powerful enough to receive kickbacks from the fragrance companies and keep it hidden since he is an executive at Wisson. Ethical Dilemmas that Valerie Faces Valerie was making copies at work when she found some documents on the printer that belonged to Waters. The documents were on letterheads from Waters personal consultation company. On these documents, Valerie found out that Waters has been collect kickbacks from two fragrance companies. Valerie was very stunned about her findings and she was not sure what to do. Valerie was recently accepted to a Master of Science program and did not want to jeopardize her education nor her job. She decided to keep this quit for the reason that she did not know who she could trust. Valerie is currently in the United States on a work visa. Due to this fact she must have a job in order to remain in the United States. She discusses her findings with her boyfriend who she feels is the only person she can trust. He suggests that she keeps her findings quite until she has completed school and has secured a job since she is on a work visa. Valerie uses an ethical intensity in making her decision. The ethical intensity she displays is the magnitude of consequences, which is defined as the harm or benefit accruing to individuals affected by a decision or behavior(). She displays magnitude of consequences since her decision will affect if she will be able to stay in the United States on her work visa or if she will be forced to leave if she brings forward her findings and loses her job at Wission. Valerie also displays the self-serving principle of hedonist, which you do whatever is in your own self interest(). She displays this principle because she knows that it would be unethical to keep her findings quite but she puts what would benefit her the most first. She decided to keep her findings quite at this time so she could finish her studies and run the risk of losing her job. What Valerie should do? If I were in the same dilemma as Valerie I would handle the situation in a different way. If I had found the personal documents that were violating company policy I would bring that information to the attention of my superiors. I would send this information anonymously. I would do it anonymously due to the fact that I do not want my identity revealed at this time. This would be important for the reason that if my identity were revealed I would run the risk of losing my job due to retaliation from Waters and associates that were inside this situation. I would not want to run this risk given that I am on a work visa and would be forced to leave the United States and jeopardize my education if I lose my job due to retaliation from any insiders. How Personal Differences and Preference Can  Impact Organizational Ethics Ethics is defined as the study of moral values, principles and rules, including the determination of standards of conduct and obligations for individuals and organizations(). This definition implies that one individual may make see one thing ethical while another may see it unethical. Individuals develop their own code of personal ethics based upon a wide variety of sources and belief systems. Virtually everybody acquires and develops their sense of right and wrong via their parents and parental influences(origin). Since there are many views of what is ethical and unethical, Lawerence Kohlberg developed the stages of moral development. This model demonstrates how an individual will make decision on ethical dilemmas within an organization. Kohlberg suggest that an individual progresses through these stages during their lifetime. This model is made up of six stages of moral development, which are divided into three levels of development. The first level of development is referred to as the â€Å"pre-conventional† level. At this level, an individual evaluates ethical issues based on idea of avoiding punishment and seek personal reward. The second level is termed â€Å"conventional† level. At this stage an individual evaluates ethical issues on the basis of the fairness to others and a desire to conform to societal rules and expectations. The highest level is referred to as the â€Å"principled level. At this level an individual is likely to apply principles, such as utilitarian, deontological, or justice, to ethical issues in attempt to resolve them(referece). According to Kohlberg, a person in the principled level is likely to look into themselves rather than be influenced by organizational expectations(reference). Business ethics is defined as principles and standards that guide behavior in the world of business(reference). The stages of moral development can be used to show how individuals at different levels will handle ethical situations within in organization. We can also use the stakeholder and shareholder to express personal differences. Individuals who use the shareholder perspective focuses on decisions that are in the owners’ best interest. Individuals who use the shareholder perspective feels that ethical business practices are ones that make the most money. Individuals who back the stakeholder perspective believe that companies should consider  the needs and interests of multiple stakeholder groups, not just those with direct financial stake in the organization’s profits and losses(business). In other words, organizations that use this perspective consider how decisions will affect individuals on the inside and outside of the organization. How Organizational Policies and Procedures can Impact Organizational Ethics Since individuals have different views and perceptions on ethical issues many organizations have created policies and procedures. These policies are usually termed as the organizations code of conduct. Codes of conduct are formal policies, procedures and enforcement mechanism that outline moral and ethical expectations of an organization(reference). These policies are important to an organization since they lay out the norms and belief of the organization. Policies and procedures allow organizations to handle ethical issues effectively as the rise within in the organization. Policies allow an organization to deal with an ethical matter in a uniform manner since the organization has outlined the norms and beliefs of the organization. Individuals within an organization may have a different set of norms and beliefs resulting in ethical issues being resolved in ways that the organization may deem unethical. Policies and procedures are vital to an organization culture. Conclusion In Conclusion, this case study presents a dilemma that individuals experience on a day-to-day basis’s. It is important for a person to deal with ethical issues in an ethical way. This case also shows how personal differences affect how ethical issues are dealt with. If Valerie was not an immigrant worker on a visa she may have approached this ethical issue in a different manner. It is also important for an organization to have policies and procedures in place to deal with ethical issues as they arise within an organization. Policies are also insure ethical dilemmas are resolved in a manner that the society deems ethical. This will insure that the organizational will thrive in the future.

Clara Barton Quotes From the Lady With the Lamp

Clara Barton, who had been a schoolteacher and the first woman to be a clerk at the US Patent Office, served in the Civil War nursing soldiers and distributing supplies for the sick and wounded. She spent four years tracking down missing soldiers at the end of the war. Clara Barton established the first permanent American Red Cross society and headed the organization until 1904. Selected Clara Barton Quotations †¢ An institution or reform movement that is not selfish, must originate in the recognition of some evil that is adding to the sum of human suffering, or diminishing the sum of happiness. †¢ I may be compelled to face danger, but never fear it, and while our soldiers can stand and fight, I can stand and feed and nurse them. †¢ The conflict is one thing Ive been waiting for. Im well and strong and young—young enough to go to the front. If I cannot be a soldier, Ill help soldiers. †¢ What could I do but go with them [soldiers of the Civil War], or work for them and my country? The patriot blood of my father was warm in my veins. †¢ A ball had passed between my body and the right arm which supported him, cutting through the sleeve and passing through his chest from shoulder to shoulder. There was no more to be done for him and I left him to his rest. I have never mended that hole in my sleeve. I wonder if a soldier ever does mend a bullet hole in his coat? †¢ Oh northern mothers wives and sisters, all unconscious of the hour, would to Heaven that I could bear for you the concentrated woe which is so soon to follow, would that Christ would teach my soul a prayer that would plead to the Father for grace sufficient for you, God pity and strengthen you every one. †¢ I dont know how long it has been since my ear has been free from the roll of a drum. It is the music I sleep by, and I love it ... I shall remain here while anyone remains, and do whatever comes to my hand. I may be compelled to face danger, but never fear it, and while our soldiers can stand and fight, I can stand and feed and nurse them. †¢ You glorify the women who made their way to the front to reach you in your misery, and nurse you back to life. You called us angels. Who opened the way for women to go and make it possible? ... For every womans hand that ever cooled your fevered brows, staunched your bleeding wounds, gave food to your famished bodies, or water to your parching lips, and called back life to your perishing bodies, you should bless God for Susan B. Anthony, Elizabeth Cady Stanton, Frances D. Gage and their followers. †¢ I may sometimes be willing to teach for nothing, but if paid at all, I shall never do a mans work for less than a mans pay. †¢ [T]he door that nobody else will go in at, seems always to swing open widely for me. †¢ Everybodys business is nobodys business, and nobodys business is my business. †¢ The surest test of discipline is its absence. †¢ It is wise statesmanship which suggests that in time of peace we must prepare for war, and it is no less a wise benevolence that makes preparation in the hour of peace for assuaging the ills that are sure to accompany war. †¢ Economy, prudence, and a simple life are the sure masters of need, and will often accomplish that which, their opposites, with a fortune at hand, will fail to do. †¢ Your belief that I am a Universalist is as correct as your greater belief that you are one yourself, a belief in which all who are privileged to possess it rejoice. In my case, it was a great gift, like St. Paul, I was born free, and saved the pain of reaching it through years of struggle and doubt. My father was a leader in the building of the church in which Hosea Ballow preached his first dedication sermon. Your historic records will show that the old Huguenot town of Oxford, Mass. erected one of, if not the first Universalist Church in America. In this town I was born; in this church I was reared. In all its reconstructions and remodelings I have taken a part, and I look anxiously for a time in the near future when the busy world will let me once more become a living part of its people, praising God for the advance in the liberal faith of the religions of the world today, so largely due to the teachings of this belief. †¢ I have an almost complete disregard of precedent and a faith in the possibility of something better. It irritates me to be told how things always have been done... I defy the tyranny of precedent. I cannot afford the luxury of a closed mind. I go for anything new that might improve the past. †¢ Others are writing my biography, and let it rest as they elect to make it. I have lived my life, well and ill, always less well than I wanted it to be but it is, as it is, and as it has been; so small a thing, to have had so much about it!