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!

The Rhetorical Analysis Of A Heros Journey - 1207 Words

A Hero’s Journey Jesyka Long Rose State College Abstract In society today, consumerism is a major component in the lives of not only Americans, but around the world. People are constantly looking for the next best thing to replace the things they already have. The purpose of this essay is to break down consumerism by using rhetorical analysis on the commercial for Kia’s new crosstrek, the Niro. This commercial relies heavily on the appeal to humor by having unrealistic, comedic actions. Along with humor, it establishes credibility by having a well-known comedic actress, Melissa McCarthy, as the star. The advertisement also plays on a person’s wanting to be a hero by having the commercial title be â€Å"Hero’s Journey.†Ã¢â‚¬ ¦show more content†¦The Kia Niro has high quality steel to reinforce the structure of the car, as well as an â€Å"advanced air-bag system† (K., n.d.). This advertisement also uses major topics in today’s society to draw people in. In the first section of the commercial, it uses whale extinction and McCarthy trying to save them. Secondly, it uses deforestation and the efforts to save the trees as another environmental draw-in. In the third slot, it focuses on global warming and the melting ice caps. And lastly, the commercial uses the extinction of rhinos (K. 2017.). This establishes Ethos by showing that the company is aware of the problems in the world today. These environmental issues have been a problem for several years, and there are many people that are concerned for them. By using them to pull people in, they are opening their audience to not only people who like the outdoors, but also to people who want to be heroes. Pathos The comedy that is throughout the Kia Niro’s advertisement is an appeal to pathos. Laughter is said to be medicine for the soul, and the commercial uses this well to their advantage. Kia uses Melissa McCarthy attempting to save the whales. Then she is trying to stop the deforestation. She is then seen protecting the ice caps. And as the finale, she is protecting the rhinos (K. 2017.). While all the issues are quite serious, laced with a comedic element allows them to be more manageable to the averageShow MoreRelatedRhethorical Analysis Movie Shrek1709 Words   |  7 PagesSalma Segebre Ms. Krivel AP Language October 5, 2012 Shrek Rhetorical Analysis Essay People have always watched fairytales at a very young age, growing up to believe in them. Some watched them to obtain some kind illusion, for pure entertainment, and others for the sake of love. However, not every fairytale has a purpose of giving us an illusion, of entertaining us, or making us believe in love. Shrek is not a typical fairytale. Even though many people see Shrek alongRead MoreSacrifice And Saving Private Ryan4254 Words   |  18 PagesSacrifice and Saving Private Ryan Spencer Beck Communication 301 May 8th, 2015 Introduction Significance and Rhetorical Problem Saving Private Ryan has been a huge commercial success since its release in 1998. According to Boxofficemojo.com, Saving Private Ryan’s worldwide gross is $481,840,909 with over half that just from the domestic US market alone. Not only was this film a financial success, it is also critically acclaimed. The film has won 79 awards; five of those

Meursault Justifies Murder - 1107 Words

The emotionless anti-hero, Monsieur Meursault, embarks on a distinct philosophical journey through The Stranger. Confident in his ideas about the world, Meursault is an unemotional protagonist who survives without expectations or even aspirations. Because of his constant indifference and lack of opinions about the world, it can be denoted that he undergoes a psychological detachment from the world and society. It is through these characteristics that exist in Meursault that Camus expresses the absurd. Starting from the very first sentence of the book, â€Å"Maman died today. Or maybe yesterday, I don’t know.† (Camus 1) The indifferent tone from these short sentences convey a rather apathetic attitude from Meursault’s part. Not only does he not†¦show more content†¦Society was unable to comprehend Meursaults apathetic reasons for the murder and attempts to rationalize with it through the trial to try to come to an understanding as to what may have incited his actions. Meursault experiences a philosophical triumph as his execution dates nears, due to his acceptance of the absurd, which confirms his identity; much like the absurd world, he doesn’t acknowledge human experiences and relationships. He is content with this, and welcomes the crowd, confident that nothing can take away his satisfaction. This shows that while he gains philosophical peace, he still is unable to grapple with interpersonal relationships and the role he was intended to play in society. Meursault does not overcome society’s judgment, but rather revels in the hatred. Through his conversation with the chaplain, Meursault discovers happiness in the fact that the absurd world mirrors his own indifference. Meursault compares his beliefs about life to those the chaplain holds, and comes to some finality in his thought process. He settled on a firm stance, â€Å"sure about [himself], about everything, surer than [the chaplain] could ever be, sure of my life and sure of the death waiting for me† (Camus 108). Meursault becomes infatuated with the absurd world, rather than rejecting it in disgust or horror. He strongly identifies with the absurdity, â€Å"opening up to the gentle indifference of the world† (CamusShow MoreRelatedThe Stranger by Camus1492 Words   |  6 Pagescontinue the pattern and attempt to create a sense of rational structure. Albert Camus explores this theory of â€Å"absurdity† in his narrative novel The Stranger, through his character Monsieur Meursault. The novel follows Meursault through his seemingly senseless life which perpetuates to his senseless murder of another man. Throughout his trial, the reactions to his lack of reasoning display this particular theory front center. Within a excerpt from the latter of his trial chapter, Camus’s use ofRead MoreAnalysis Of The Novel The Stranger988 Words   |  4 PagesIn the novel, ‘The Stranger’, by Albert Camus, the author creates an abs urd anti-hero in Meursault to demonstrate that, because life is random and inexplicable one has to acknowledge that they don’t have control over events that transpire and that only with hope can one can contribute meaning to a meaningless existence. The randomness of life is demonstrated through the events in Meursault’s life. Meursault is thrown into the situation where he is given a promotion by his boss. â€Å"He was planningRead MoreThe Futile Search For Reason1348 Words   |  6 PagesMeursault’s lack of motive in the murder of the Arab man illustrates how there is no logical reason behind the events of life. After the fight against the Arab men, Meursault follows Raymond back to the beach, when Raymond contemplates whether or not to shoot them with his gun. Meursault recounts, â€Å"I thought that if I said no he’d get himself worked up and shoot for sure. All I said was, ‘He hasn’t said anything yet. It’d be pretty lousy to shoot him like that’† (56). Meursault has always looked at situationsRead MoreMeursault Is An Absurdism1499 Words   |  6 Pagesnovella by Albert Camus, takes place in the early 1940s and revolves around Meursault, a French Algerian. Developed through a presentation of his own thoughts, it grows clear that Meursault is an absurdist. He believes that his actions lack significance, refuses to analyze himself beyond his physical needs, and does not find logical meaning within the surrounding world. As a result of these components of his character, Meursault repeatedly fails to adopt the norms of others. His existence consequentlyRead MoreEssay on myth of sisyphus975 Words   |  4 Pagesoutside influences. We create our own human nature through these free choices. We also create our values through these choices. Paragraph 1: Transition statement: These prominent ideas have been analyzed in various texts to specifically justify a philosopher’s interpretation for the life of an individual. This particular theme can be seen Through the comparison between Myth of sisyphus and Dostovesky’s works. Though they both believe in the existence of an individual that the societyRead More The Stranger Essay879 Words   |  4 Pagesmorality, and how much emphasis should placed on following this certain ethical structure. Albert Camuss main character, Meursault, is depicted as a nonconformist that is unwilling to play societys game. Through Meursaults failure to comply with societys values and conform to the norm, he is rejected and also condemned to death by society. He is tried for the crime of murder, but is not judged solely on his actions during the aforementioned crime. He is judged on his specific actions that societyRead More Comparing Albert Camus The Stranger (The Outsider) and Jean-Paul Sartres Nausea2131 Words   |  9 Pagescause and effect by providing no motive for the murder of the Arab, and resists a reductive reading of itself as a case history of a monster. The novel contrasts its refusal to interpret with the coherent narrative that the prosecutors create. The Stranger and Nausea explore similar strategies as they interrogate ways to view the world without a system of interpretative illusions. Nausea refuses to assign order to its events by choosing not to justify them with psychology or cause. Roquentin findsRead MoreAnalysis Of The Way Meursault 1335 Words   |  6 PagesThe way Meursault reacts to his surroundings throughout the first part of the book is especially noticeable in chapter 1. Within this chapter, you may notice that he talks more about the setting of places and the moods of others than he does his own emotions. The story starts off with Meursault stating that his mother died that day. Following this, he attends a vigil which he says is fifty miles away. Instead of telling us how he feels about the loss of his mother, he proceeds to tell us that heRead More The Stranger Essay1301 Words   |  6 PagesWhile reading The Stranger I noticed that traits that Albert Camus character depicts in the book are closely related to the theories of Sigmund Freud on moral human behavior. Albert Camus portrays his character of Meursault as a numb, emotionless person tha t seems to mindlessly play out his role in society, acting in a manner that he sees as the way he’s supposed to act, always living in the moment with his instincts driving him, and if the right circumstance presents itself the primal deep seededRead More Absurdity in Albert Camus’ The Stranger Essay2431 Words   |  10 Pagesof absurdity, that person may appear to be alienated or exiled or a stranger, much like Meursault in The Stranger. For Woelfel, what is later described as absurdity by Camus comes out in two passages in The Stranger. When Meursault is asked why he shot the Arab, because of his understanding of himself and the world being absurd, he answers it was because of the sun (Camus 103). Also just before Meursault is being executed, he thinks to himself about the gentle indifference of the world (Camus

Comparison Paper free essay sample

The purpose of this paper is to address differences between public and community health, research public health resources on a borough, state, and national level as well as review a brief history of those agencies. Whereas public health and community health is often used interchangeably, public health is coordinated on a national, state, and borough scale and public health is a profession that includes more than just nurses. Public health can include emergency personnel, health educators, public officials, public health nurses, social workers, and community individuals. Community health uses information and implements the research from public health arenas to a specific population. Laws are enacted at a local, state, and the national level that enforce public health (Stanhope Lancaster, 2008). â€Å"The local health department has direct responsibility to the citizens in its community or jurisdiction† (Stanhope Lancaster, 2008, p. 59). The Municipality of Anchorage, according to the last census projected 295,570 residents in Anchorage and 91,946 in the Matanuska-Susitna Borough (United States Census 2010, n. d. ). According to Municipality Of Anchorage (n. d. ), â€Å"The Anchorage Department of Health Human Services enhances the quality of life for the people of Anchorage by promoting good physical and mental health, preventing illness and injury, protecting the environment, and providing helping services to people in need† (Health and Human Services). They offer services not limited to the following: Sexually transmitted disease treatment and testing, family planning services, immunization, women’s health services, and communicable disease testing and control. Medical care is never denied due to an inability to pay. The City of Anchorage was first incorporated on November 23, 1920 and on September 15, 1975 it became the Municipality of Anchorage combining what was called the Greater Anchorage Area Borough with the city. The Municipality of Anchorage Health and Human Services is responsible for an area of approximately 1,961. 1 square miles. (Municipality Of Anchorage, n. d. ). The state of Alaska Department of Health and Social Services offers direct and indirect health care services to the public such as family planning, immunizations, home care, epidemiological investigations, health education, community assessment, and community partnering (My Alaska, n. d. ). These services are available to Alaskan residents on a sliding scale. At this time, Alaska has goals for improving the health of Alaskan residents at the state and local regions called Healthy Alaskans 2020. It must be remembered that Alaska has been a state for just over 50 years and although it is the largest state in the nation, it has the lowest population density per square mile of any state in the nation (â€Å"My Alaska†, n. d. ). According to Alaska Historical Society (n. d. ), â€Å"On January 3, 1959, President Eisenhower proclaimed Alaska to be the forty-ninth state of the United States† (When did Alaska become a state? . The national system responsible for the health and welfare of United States citizens is the U. S. Department of Health and Human Services. â€Å"HHS is charged with regulating health care and overseeing the health status of Americans† (Stanhope Lancaster, 2008, p. 56). A newer division, Office of Public Health Preparedness was added after September 11, 2011 to assist with preparing for bioterrorism at the state and national level (Stanhope Lancaster, 2008). The U. S. Public Health Service (PHS) has eight agencies and is a large part of HHS. The agencies are, â€Å"Agency for Toxic Substances and Diseases Registry; Centers for Disease Control and Prevention; Food and Drug Administration; Health Resources and Services Administration; Indian health Services; National Institutes of Health; and Substance Abuse and Mental Health Services Administration† (Stanhope Lancaster, 2008, p. 56). The HHS evolved from an act in 1798 for setting up hospitals to care for seamen and Marines. Later, in 1798, the Quarantine Act firmly removed the power to quarantine away from the state and placed it at a national level. This began an emergence of health care policy at a national level. The hospital system for the seamen and Marines in 1906 became the Public Health Service. There continued an emergence of national health care advocacy. The federal government created the Children’s Service in 1912, Bureau of Indian Health Service in 1921; the National Hygienic Laboratory in 1930 later renamed to National Institutes of Health, the Federal Food, Drug, and Cosmetic Act of 1938 later becoming the Food and Drug Administration, the Communicable Disease Center in 1946 and later renamed Center for Disease Control and Prevention. In 1953, According to U. S. Department of Health And Human Services (n. d. , â€Å"The Cabinet-level Department of Health, Education, and Welfare was created under President Eisenhower, officially coming into existence April 11, 1953. In 1979, the Department of Education Organization Act was made law, providing for a separate Department of Education. HEW became the Department of Health and Human Services, officially arriving on May 4, 1980â⠂¬  (Historical Highlights). The borough, state, and national health resources have evolved over time to promote health as well as in response to historical events and epidemics. The goals and focus recently have become much more focused on promoting health. Although some may use public health and community health interchangeable, public health is a profession, â€Å"a system and social enterprise† (Stanhope Lancaster, 2008, p. 255). Public health is what society does in order to ensure health among communities it is responsible for. (Stanhope Lancaster, 2008). Community health is focused on a group of individuals defined as a community either by geography, needs, or perhaps special interest. â€Å"In most definitions, the community includes three factors: people, place, and function† (Stanhope Lancaster, 2008, p. 97).