Public class login form in vb - Free Essay Example

Sample details Pages: 22 Words: 6611 Downloads: 5 Date added: 2017/06/26 Category Statistics Essay Did you like this example? Public Class loginForm Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles okButton2.Click Don’t waste time! Our writers will create an original "Public class login form in vb" essay for you Create order 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) 0 Then Exit Sub Dim h As Integer = 0, r As Integer = 4 excelApp = New Excel.Application excelWB = excelApp.Workbooks.Open(Application.StartupPath templatesglsummary.xlt) excelWS = CType(excelWB.Sheets(1), Excel.Worksheet) With excelWS For h = 0 To glSumDataGridView.Rows.Count 1 r = h + 4 4 is the base row .Cells(r, 1) = h + 1 sn .Cells(r, 2) = glSumDataGridView.Item(1, h).Value.ToString .Cells(r, 3) = glSumDataGridView.Item(2, h).Value.ToString .Cells(r, 4) = glSumDataGridView.Item(3, h).Value.ToString .Cells(r, 5) = glSumDataGridView.Item(4, h).Value.ToString Next balance .Cells(6, ExcelColumns.colE) = =C r -D r r += 1 .Cells(r, ExcelColumns.colC) = =SUM(C4:C r 1 ) Cr total .Cells(r, ExcelColumns.colD) = =SUM(D4:D r 1 ) Dr Total .Cells(r, ExcelColumns.colE) = =C r -D r Balance Total .Cells(r, ExcelColumns.colA) = Total .Range(A r :B r).Merge() .Range(A r).HorizontalAlignment = -4131 End With Call drawBorder(A4:E r) excelApp.Visible = True clean up variables h = Nothing excelWS = Nothing excelWB = Nothing excelApp = Nothing End Sub Private Sub gl_viewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gldetails_viewToolStripButton.Click If (brloanDetailsDataGridView.Rows.Count 1) 0 Then Exit Sub Dim h As Integer = 0, r As Integer = 0 Dim s As String = String.Empty excelApp = New Excel.Application excelWB = excelApp.Workbooks.Open(Application.StartupPath templatesgldetails.xlt) excelWS = CType(excelWB.Sheets(1), Excel.Worksheet) With excelWS .Cells(3, ExcelColumns.colC) = brNameToolStripLabel.Text.ToString .Cells(4, ExcelColumns.colC) = loanRefLabel.Text.ToString .Cells(5, ExcelColumns.colC) = datedTextBox.Text.ToString .Cells(3, ExcelColumns.colG) = principalTextBox.Text.ToString .Cells(4, ExcelColumns.colG) = monthlyintTextBox.Text.ToString .Cells(5, ExcelColumns.colG) = monthlypenaltyTextBox.Text.ToString For h = 0 To brloanDetailsDataGridView.Rows.Count 1 r = h + 9 is the base row .Cells(r, ExcelColumns.colA) = h + 1 sn .Cells(r, ExcelColumns.colB) = brloanDetailsDataGridView.Item(1, h).Value.ToString .Cells(r, ExcelColumns.colD) = CType(brloanDetailsDataGridView.Item(2, h).Value.ToString, Date).ToString(MMM dd yyyy) .Cells(r, ExcelColumns.colE) = brloanDetailsDataGridView.Item(3, h).Value.ToString cr .Cells(r, ExcelColumns.colF) = brloanDetailsDataGridView.Item(4, h).Value.ToString dr balance col If r 10 Then .Cells(r, ExcelColumns.colG) = =G (r 1) +E r -F r Next r += 1 balance .Cells(6, ExcelColumns.colG) = =E r -F r .Cells(r, ExcelColumns.colE) = =SUM(E8:E r 1 ) .Cells(r, ExcelColumns.colF) = =SUM(F8:F r 1 ) .Cells(r, ExcelColumns.colG) = =E r -F r .Cells(r, ExcelColumns.colA) = Total .Range(A r :D r).Merge() .Range(A r).HorizontalAlignment = -4131 End With Call drawBorder(A10:G r) excelApp.Visible = True h = Nothing excelWS = Nothing excelWB = Nothing excelApp = Nothing End Sub Private Sub what_accntButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles what_accntButton.Click Try cmdLocal = New OleDbCommand(SELECT description from tblaccount WHERE pk_accntID= upd_AccntComboBox.SelectedValue.ToString, mappDB.conn) Dim rd As OleDbDataReader = cmdLocal.ExecuteReader rd.Read() If rd.HasRows Then MessageBox.Show(upd_AccntComboBox.Text = rd(0).ToString . Click OK to continue., strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information) rd = Nothing cmdLocal = Nothing Catch End Try End Sub Private Sub AccountToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AccountToolStripMenuItem.Click rptAccountForm.ShowDialog() End Sub Sub toggleOnUpdate() brloanlistDataGridView.Enabled = Not brloanlistDataGridView.Enabled brloanDetailsDataGridView.Enabled = Not brloanDetailsDataGridView.Enabled upd_newToolStripButton.Enabled = Not upd_newToolStripButton.Enabled upd_editToolStripButton.Enabled = Not upd_editToolStripButton.Enabled upd_applyToolStripButton.Enabled = Not upd_applyToolStripButton.Enabled upd_cancelToolStripButton.Enabled = Not upd_cancelToolStripButton.Enabled End Sub Private Sub upd_cancelToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upd_cancelToolStripButton.Click If MessageBox.Show(Cancel update?, strApplicationName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then upd_recidLabel.Text = 0 Call toggleOnUpdate() End If End Sub Private Sub borrowerloanDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles brloanlistDataGridView.CellContentClick End Sub Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click If upd_applyToolStripButton.Enabled = True Then MessageBox.Show(Please complete updating/cancel GL of brNameToolStripLabel.Text.ToUpper . Click OK to continue., strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information) TabControl1.SelectedIndex = 1 End If End Sub Private Sub DueDateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DueDateToolStripMenuItem.Click rptDueDateForm.ShowDialog() End Sub Private Sub rptBorrowerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rptBorrowerToolStripMenuItem.Click Me.Cursor = Cursors.WaitCursor Dim r As Integer = 4 excelApp = New Excel.Application excelWB = excelApp.Workbooks.Open(Application.StartupPath templatesborrower.xlt) excelWS = CType(excelWB.Sheets(1), Excel.Worksheet) cmdLocal = New OleDbCommand(SELECT * from tblborrower ORDER BY lastname, mappDB.conn) Dim rd As OleDbDataReader = cmdLocal.ExecuteReader While rd.Read With excelWS .Cells(r, ExcelColumns.colA) = r 3 .Cells(r, ExcelColumns.colB) = rd(lastname).ToString .Cells(r, ExcelColumns.colC) = rd(firstname).ToString .Cells(r, ExcelColumns.colD) = rd(jobtitle).ToString rd(company).ToString .Cells(r, ExcelColumns.colE) = rd(contactnos).ToString .Cells(r, ExcelColumns.colF) = rd(address).ToString r += 1 End With End While If r 4 Then Call drawBorder(A5:F r 1) excelApp.Visible = True mappDB.close() rd = Nothing cmdLocal = Nothing r = Nothing excelWS = Nothing excelWB = Nothing excelApp = Nothing Me.Cursor = Cursors.Default End Sub Private Sub AccountToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AccountToolStripMenuItem1.Click accountForm.ShowDialog() End Sub Private Sub LogOffToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogOffToolStripMenuItem.Click Me.Visible = False loginForm.Show() End Sub Private Sub borrowerloanDataGridView_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles brloanlistDataGridView.CellEnter Dim rd As OleDbDataReader recIDLabel.Text = 0 Try gridFilter._sql = SELECT pk_dloanid,pk_code as Particular,Dated,Cr,Dr FROM qloandetails gridFilter._criteria = WHERE fk_mloanid = brloanlistDataGridView(0, brloanlistDataGridView.CurrentRow.Index).Value.ToString gridFilter._orderBy = ORDER BY dated,pk_dloanid Call fillGrid(gridFilter._sql, gridFilter._criteria, gridFilter._orderBy, brloanDetailsDataGridView, True) cmdLocal = New OleDbCommand(SELECT * FROM tblloanmaster WHERE pk_mloanid= brloanlistDataGridView(0, brloanlistDataGridView.CurrentRow.Index).Value.ToString, mappDB.conn) rd = cmdLocal.ExecuteReader rd.Read() If rd.HasRows Then recIDLabel.Text = rd(pk_mloanid).ToString loanRefLabel.Text = rd(pk_loanref).ToString datedTextBox.Text = CType(rd(dated).ToString, Date).ToString(MMM dd yyyy) duedateTextBox.Text = CType(rd(duedate).ToString, Date).ToString(MMM dd yyyy) comakerTextBox.Text = rd(comaker).ToString remarkTextBox.Text = rd(remark).ToString principalTextBox.Text = FormatNumber(rd(principal).ToString, 2).ToString monthlyintTextBox.Text = FormatNumber(rd(interest).ToString, 2).ToString monthlypenaltyTextBox.Text = FormatNumber(rd(penalty).ToString, 2).ToString isactiveCheckBox.Checked = CType(rd(isactive), Boolean) monthInterestNumericUpDown.Value = CType(rd(interest).ToString, Decimal) payableTextBox.Text = FormatNumber(CType(principalTextBox.Text, Double) * (CType(monthlyintTextBox.Text, Double) / 100), 2).ToString monthPenaltyNumericUpDown.Value = CType(rd(penalty).ToString, Decimal) End If Call gldetails_totals() Catch ex As Exception Call showError(ex.Message) Finally mappDB.close() rd = Nothing End Try End Sub Private Sub quitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quitToolStripMenuItem.Click If MessageBox.Show(Do you really want to quit now?, strApplicationName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Application.Exit() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick nowToolStripLabel.Text = System.DateTime.Now.ToString(MMM dd yyyy HH:mm:ss tt) End Sub Private Sub previousToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles previousToolStripButton.Click bsGLSummary.MovePrevious() End Sub Private Sub generalledgersummaryDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles glSumDataGridView.CellContentClick End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) brloanDetailsDataGridView.Rows(1).Selected = True End Sub Private Sub BackupDatabaseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackupDatabaseToolStripMenuItem.Click End Sub Private Sub ToolStripLabel8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub upd_isactiveCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upd_isactiveCheckBox.CheckedChanged End Sub Private Sub upd_isactiveCheckBox_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles upd_isactiveCheckBox.CheckStateChanged End Sub Private Sub upd_isactiveCheckBox_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles upd_isactiveCheckBox.Click If upd_ToComboBox.Text.ToUpper = DR Then upd_isactiveCheckBox.Checked = True GoTo close End If Dim x As Double = 0 For i As Integer = 0 To brLoanDetailsSumDataGridView.Rows.Count 1 x += CType(brLoanDetailsSumDataGridView.Item(2, i).Value, Double) Next If x upd_AmtNumericUpDown.Value 0 Then upd_isactiveCheckBox.Checked = True GoTo close End If Exit Sub close: MessageBox.Show(Zero balance loan cannot be close., strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub Private Sub upd_AccntComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upd_AccntComboBox.SelectedIndexChanged End Sub Private Sub upd_AccntComboBox_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles upd_AccntComboBox.SelectionChangeCommitted retrieve balance of selected account For i As Integer = 0 To brLoanDetailsSumDataGridView.Rows.Count 1 If brLoanDetailsSumDataGridView.Item(1, i).Value.ToString = upd_AccntComboBox.Text.ToString Then upd_AmtNumericUpDown.Value = CType(brLoanDetailsSumDataGridView.Item(4, i).Value, Decimal) Exit For End If Next End Sub Private Sub generalledgersummaryDataGridView_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles glSumDataGridView.CellEnter Try selectedrowindexToolStripTextBox.Text = CStr(e.RowIndex + 1) Catch End Try End Sub Private Sub filtervalueTextBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles filtervalueTextBox.KeyDown If e.KeyCode = Keys.Enter Then Call searchfilterButton_Click(sender, e) End Sub Private Sub nextToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles nextToolStripButton.Click bsGLSummary.MoveNext() End Sub Private Sub firstToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles firstToolStripButton.Click bsGLSummary.MoveFirst() End Sub Private Sub lastToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lastToolStripButton.Click bsGLSummary.MoveLast() End Sub Private Sub incZeroBalToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles incZeroBalToolStripButton.Click incZeroBalToolStripButton.Checked = Not incZeroBalToolStripButton.Checked End Sub Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click Dim s As String = strApplicationName s += vbCrLf ConfigurationManager.AppSettings(client).ToString s += vbCrLf vbCrLf Dedicated To: s += vbCrLf Ethan,Shane,Althea and Khristine s += vbCrLf vbCrLf Developed By: vbCrLf SoftIndex Solutions 2009 s += vbCrLf Jonathan Bantang MessageBox.Show(s, strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub End Class Imports System.Data.OleDb Public Class accountForm Dim oadmainLocal As OleDbDataAdapter Dim dtmaindatatable As DataTable Dim bs As New BindingSource Private Sub accountForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Call fillGrid(SELECT pk_accntid, pk_code as Code, Description FROM tblaccount, ) End Sub Private Sub mainDataGridView_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles mainDataGridView.CellEnter Try selectedrowindexToolStripTextBox.Text = CStr(e.RowIndex + 1) Catch End Try End Sub Private Sub closeToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closeToolStripButton.Click Me.Close() End Sub Private Sub saveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveToolStripButton.Click Dim cmdblder As OleDbCommandBuilder = New OleDbCommandBuilder(oadmainLocal) Dim _msg As String = String.Empty Try oadmainLocal.Update(dtmaindatatable) _msg = Update success. Click OK to continue Catch ex As Exception _msg = ERROR : ex.Message Finally MessageBox.Show(_msg, strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information) cmdblder = Nothing _msg = Nothing End Try End Sub Private Sub fillGrid(ByVal _sql As String, ByVal _criteria As String) oadmainLocal = New OleDbDataAdapter(_sql + _criteria + ORDER BY pk_code, mappDB.conn) dtmaindatatable = New DataTable Try oadmainLocal.Fill(dtmaindatatable) bs = New BindingSource bs.DataSource = dtmaindatatable With mainDataGridView .DataSource = Nothing .DataSource = dtmaindatatable .DataSource = bs format grid .Columns(0).Visible = False .Columns(1).Width = 150 .Columns(2).Width = 320 .SelectionMode = DataGridViewSelectionMode.FullRowSelect .Cursor = Cursors.Hand TODO word wrap desc columns selectedrowindexToolStripTextBox.Text = 1 totalrowsToolStripLabel.Text = of .RowCount 1 End With bs = Nothing Catch ex As Exception MessageBox.Show(query error : ex.Message) Finally mappDB.close() End Try End Sub Private Sub removeToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles removeToolStripButton.Click Try mainDataGridView.Rows.Remove(mainDataGridView.CurrentRow) Catch ex As Exception Call showError(ex.ToString) End Try End Sub Private Sub previewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles previewToolStripButton.Click End Sub Private Sub nextrowToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nextrowToolStripButton.Click bs.MoveNext() End Sub Private Sub firstrowToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles firstrowToolStripButton.Click bs.MoveFirst() End Sub Private Sub lastrowToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lastrowToolStripButton.Click bs.MoveLast() End Sub Private Sub previousrowToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles previousrowToolStripButton.Click bs.MovePrevious() End Sub Private Sub addToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addToolStripButton.Click Call lastrowToolStripButton_Click(sender, e) End Sub Private Sub refreshToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles refreshToolStripButton.Click End Sub End Class Imports System.Data.OleDb Public Class borrowerForm Dim oadmainLocal As OleDbDataAdapter Dim dtmaindatatable As DataTable Dim bs As New BindingSource Dim strAllTableColumns As String = SELECT pk_borrowerid,lastname as [Last Name], firstname as [First Name],jobtitle as [Job Title], contactnos as [Contact Nos],Address,Company FROM tblborrower Private Sub borrowerForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing oadmainLocal = Nothing dtmaindatatable = Nothing End Sub Private Sub borrowerForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Call fillGrid(strAllTableColumns, ) filteroptionToolStripButton.SelectedIndex = 0 End Sub Private Sub mainDataGridView_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles mainDataGridView.CellEnter Try currentRowToolStripTextBox.Text = CStr(e.RowIndex + 1) Catch End Try End Sub local fillgrid. perform table update Private Sub fillGrid(ByVal _sql As String, ByVal _criteria As String) oadmainLocal = New OleDbDataAdapter(_sql + _criteria + ORDER BY lastname, mappDB.conn) dtmaindatatable = New DataTable Try oadmainLocal.Fill(dtmaindatatable) bs = New BindingSource bs.DataSource = dtmaindatatable With mainDataGridView .DataSource = Nothing .DataSource = bs format grid .Columns(0).Visible = False .Columns(1).Width = 120 .Columns(2).Width = 120 .Columns(3).Width = 150 .Columns(4).Width = 120 .Columns(5).Width = 150 .Columns(6).Width = 150 .SelectionMode = DataGridViewSelectionMode.FullRowSelect .Cursor = Cursors.Hand TODO word wrap desc columns currentRowToolStripTextBox.Text = 1 rowCountToolStripLabel.Text = of .RowCount 1 End With Catch ex As Exception MessageBox.Show(query error : ex.Message) Finally mappDB.close() End Try End Sub Private Sub closeToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closeToolStripButton.Click Me.Close() End Sub Private Sub saveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveToolStripButton.Click Dim cmdblder As OleDbCommandBuilder = New OleDbCommandBuilder(oadmainLocal) Dim _msg As String = String.Empty Try oadmainLocal.Update(dtmaindatatable) _msg = Update success. Click OK to continue Catch ex As Exception _msg = ERROR : ex.Message Finally MessageBox.Show(_msg, strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information) cmdblder = Nothing _msg = Nothing End Try End Sub Private Sub searchmainfilterToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles searchmainfilterToolStripButton.Click Select Case filteroptionToolStripButton.SelectedIndex Case 0 all Call fillGrid(strAllTableColumns, ) Case 1 firstname Call fillGrid(strAllTableColumns, WHERE firstname LIKE filtervalueToolStripTextBox.Text.ToString %) Case 2 lastname Call fillGrid(strAllTableColumns, WHERE lastname LIKE filtervalueToolStripTextBox.Text.ToString %) Case 3 company Call fillGrid(strAllTableColumns, WHERE company LIKE filtervalueToolStripTextBox.Text.ToString %) End Select End Sub Private Sub removefilterToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles removefilterToolStripButton.Click filteroptionToolStripButton.SelectedIndex = 0 Call searchmainfilterToolStripButton_Click(sender, e) End Sub Private Sub removeToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles removeToolStripButton.Click Try mainDataGridView.Rows.Remove(mainDataGridView.CurrentRow) Catch ex As Exception Call showError(ex.ToString) End Try End Sub Private Sub nextToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nextToolStripButton.Click bs.MoveNext() End Sub Private Sub firstToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles firstToolStripButton.Click bs.MoveFirst() End Sub Private Sub lastToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lastToolStripButton.Click bs.MoveLast() End Sub Private Sub previousToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles previousToolStripButton3.Click bs.MovePrevious() End Sub Private Sub mainDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles mainDataGridView.CellContentClick End Sub Private Sub addToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles addToolStripButton.Click Call lastToolStripButton_Click(sender, e) bs.AddNew() End Sub End Class Imports System.Data.OleDb Public Class borrowForm Dim cmdLocal As OleDbCommand Private Sub closeToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closeToolStripButton.Click Me.Close() End Sub Private Sub applyToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles applyToolStripButton.Click If Not IsNumeric(recIDLabel.Text) Then MessageBox.Show(Click New if you want to enter loan. Click OK to continue., strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information) Exit Sub End If If principalNumericUpDown.Value = 0 Then MessageBox.Show(Principal cannot be zero value. Click OK to continue, strApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Information) Exit Sub End If If MessageBox.Show(Are all entries correct?, strApplicationName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then Exit Sub Call PayableTotal(sender, e) Dim i As Integer = 0 Select Case CType(recIDLabel.Text.ToString, Integer) Case 0 cmdLocal = New OleDbCommand(INSERT INTO tblloanmaster(pk_loanref,fk_borrowerid,dated,duedate,comaker,remark,principal,interest,penalty) values(@pk_loanref,@fk_borrowerid,@dated,duedate,comaker,remark,@principal,@interest,@penalty), mappDB.conn) Case Else cmdLocal = New OleDbCommand(UPDATE tblloanmaster SET [emailprotected]/* */_borrowerid,[emailprotected]/* */,[emailprotected]/* */,[emailprotected]/* */,[emailprotected]/* */,[emailprotected]/* */ WHERE pk_mloanid= recIDLabel.Text, mappDB.conn) GoTo update_only End Select With cmdLocal.Parameters .Clear() .Add(@pk_loanref, OleDbType.VarChar, 50, pk_loanref).Value = loanRefLabel.Text .Add(@fk_borrowerID, OleDbType.Integer, 0, fk_borrowerID).Value = borrowerComboBox.SelectedValue .Add(@dated, OleDbType.Date, 0, dated).Value = loanDateTimePicker.Value.ToString(MMM/dd/yyyy) .Add(@duedate, OleDbType.Date, 0, duedate).Value = duedateDateTimePicker.Value.ToString(MMM/dd/yyyy) .Add(@nextduedate, OleDbType.Date, 0, nextduedate).Value = duedateDateTimePicker.Value.ToString(MMM/dd/yyyy) .Add(@comaker, OleDbType.VarChar, 50, comaker).Value = comakerTextBox.Text .Add(@remark, OleDbType.VarChar, 50, remark).Value = remarkTextBox.Text .Add(@principal, OleDbType.Decimal, 0, principal).Value = principalNumericUpDown.Value .Add(@interest, OleDbType.Decimal, 0, interest).Value = monthInterestNumericUpDown.Value .Add(@penalty, OleDbType.Decimal, 0, penalty).Value = monthPenaltyNumericUpDown.Value End With i = cmdLocal.ExecuteNonQuery() If i 0 Then cmdLocal = New OleDbCommand(SELECT pk_mloanid FROM tblloanmaster WHERE pk_loanref= loanRefLabel.Text.ToString , mappDB.conn) Dim rd As OleDbDataReader = cmdLocal.ExecuteReader rd.Read() recIDLabel.Text = rd(0).ToString rd = Nothing If recIDLabel.Text 0 Then open the last rowid post to principal+due date to GL cmdLocal = New OleDbCommand(INSERT INTO tblloandetails(fk_mloanid,fk_accntid,dated,cr) VALUES(@fk_mloanid,@fk_accntid,@dated,@cr), mappDB.conn) With cmdLocal.Parameters .Add(@fk_mloanid, OleDbType.Integer, 0, fk_mloanid).Value = recIDLabel.Text .Add(@fk_accntid, OleDbType.Integer, 0, fk_accntid).Value = principalComboBox.SelectedValue .Add(@dated, OleDbType.Date, 0, dated).Value = loanDateTimePicker.Value .Add(@Cr, OleDbType.Decimal, 0, Cr).Value = principalNumericUpDown.Value End With cmdLocal.ExecuteNonQuery() post to principal interest+due date to GL cmdLocal = New OleDbCommand(INSERT INTO tblloandetails(fk_mloanid,fk_accntid,dated,cr) VALUES(@fk_mloanid,@fk_accntid,@dated,@cr), mappDB.conn) With cmdLocal.Parameters .Add(@fk_mloanid, OleDbType.Integer, 0, fk_mloanid).Value = recIDLabel.Text .Add(@fk_accntid, OleDbType.Integer, 0, fk_accntid).Value = interestComboBox.SelectedValue .Add(@dated, OleDbType.Date, 0, dated).Value = loanDateTimePicker.Value .Add(@Cr, OleDbType.Decimal, 0, Cr).Value = CType(payableTextBox.Text, Double) End With cmdLocal.ExecuteNonQuery() End If cmdLocal = Nothing End If update_only: mappDB.close() If MessageBox.Show(borrowerComboBox.Text.ToUpper loan is now saved. Create New Loan?, strApplicationName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Call newToolStripButton_Click(sender, e) End Sub Private Sub newLoanForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call combolist(SELECT * from qborrower, pk_borrowerid, fullname, borrowerComboBox) End Sub Function loanID() As String cmdLocal = New OleDbCommand(SELECT COUNT(pk_mloanid) as x from tblloanmaster, mappDB.conn) Dim rd As OleDbDataReader = cmdLocal.ExecuteReader rd.Read() Return Date.Today.ToString(MMdd) - CStr(Format(CType(rd(0), Integer) + 1, 0000)) rd = Nothing cmdLocal = Nothing mappDB.close() End Function Private Sub newToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newToolStripButton.Click loanRefLabel.Text = loanID() recIDLabel.Text = 0 loanDateTimePicker.Value = Now duedateDateTimePicker.Value = DateAdd(DateInterval.Month, 1, Now) payableTextBox.Text = 0.00 principalNumericUpDown.Value = 0 remarkTextBox.Text = Loan release date date. monthInterestNumericUpDown.Value = 10 monthPenaltyNumericUpDown.Value = 3 Call combolist(SELECT pk_accntID,pk_code FROM tblaccount ORDER BY description, pk_accntid, pk_code, principalComboBox) Call combolist(SELECT pk_accntID,pk_code FROM tblaccount ORDER BY description, pk_accntid, pk_code, interestComboBox) End Sub Sub PayableTotal(ByVal sender As Object, ByVal e As EventArgs) Handles principalNumericUpDown.ValueChanged, monthInterestNumericUpDown.ValueChanged payableTextBox.Text = CStr(CType(principalNumericUpDown.Value, Double) * (CType(monthInterestNumericUpDown.Value, Double) / 100)) End Sub Private Sub payableTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles payableTextBox.KeyPress e.Handled = True End Sub Private Sub payableTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles payableTextBox.TextChanged End Sub End Class Imports System.data.OleDb Public Class rptAccountForm Dim cmdlocal As OleDbCommand Dim rd As OleDbDataReader Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call combolist(SELECT pk_accntid,pk_code from tblaccount, pk_accntid, pk_code, AccntComboBox) End Sub Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click Me.Cursor = Cursors.WaitCursor Dim strCriteria As String = String.Empty Dim i As Integer = 1 Dim r As Integer = 5 If AccntComboBox.Text.ToUpper ALL Then strCriteria = AND pk_accntid= AccntComboBox.SelectedValue.ToString excelApp = New Excel.Application excelWB = excelApp.Workbooks.Open(Application.StartupPath templatesaccount.xlt) excelWS = CType(excelWB.Sheets(1), Excel.Worksheet) excelWS.Cells(1, ExcelColumns.colF) = AccntComboBox.Text.ToString excelWS.Cells(2, ExcelColumns.colF) = fromDateTimePicker.Value.ToString(MMM dd yyyy) Chr(10) toDateTimePicker.Value.ToString(MMM dd yyyy) cmdlocal = New OleDbCommand(SELECT * from qrptaccount WHERE dated BETWEEN # fromDateTimePicker.Value.ToString(MMM dd yyyy) # AND # toDateTimePicker.Value.ToString(MMM dd yyyy) # strCriteria, mappDB.conn) rd = cmdlocal.ExecuteReader While rd.Read With excelWS .Cells(r, ExcelColumns.colA) = r 4 .Cells(r, ExcelColumns.colB) = rd(pk_code).ToString .Cells(r, ExcelColumns.colC) = rd(fullname).ToString .Cells(r, ExcelColumns.colD) = CType(rd(dated).ToString, Date).ToString(MMM dd yyyy) .Cells(r, ExcelColumns.colE) = rd(cr).ToString .Cells(r, ExcelColumns.colF) = rd(dr).ToString r += 1 End With End While add cr and dr sum excelWS.Cells(r, ExcelColumns.colE) = =SUM(E5:E r 1 ) excelWS.Cells(r, ExcelColumns.colF) = =SUM(F5:F r 1 ) excelWS.Cells(r, ExcelColumns.colA) = Total excelWS.Range(A r :D r).Merge() excelWS.Range(A r).HorizontalAlignment = -4131 If r 6 Then Call drawBorder(A6:F r) excelApp.Visible = True clean up variables mappDB.close() rd = Nothing cmdlocal = Nothing r = Nothing excelWS = Nothing excelWB = Nothing excelApp = Nothing Me.Cursor = Cursors.Default End Sub Private Sub ToolStripButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click Me.Close() End Sub Private Sub viewAllToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles viewAllToolStripButton.Click End Sub End Class Imports System.Data.OleDb Public Class rptDueDateForm Dim cmdlocal As OleDbCommand Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click Me.Cursor = Cursors.WaitCursor Dim r As Integer = 4 excelApp = New Excel.Application excelWB = excelApp.Workbooks.Open(Application.StartupPath templatesduedate.xlt) excelWS = CType(excelWB.Sheets(1), Excel.Worksheet) cmdlocal = New OleDbCommand(SELECT * from qrptduedate WHERE duedate BETWEEN # fromDateTimePicker.Value.ToString(MMM dd yyyy) # AND # toDateTimePicker.Value.ToString(MMM dd yyyy) # ORDER BY duedate, mappDB.conn) Dim rd As OleDbDataReader = cmdlocal.ExecuteReader While rd.Read With excelWS .Cells(r, ExcelColumns.colA) = r 3 .Cells(r, ExcelColumns.colB) = rd(fullname).ToString .Cells(r, ExcelColumns.colC) = rd(pk_loanref).ToString .Cells(r, ExcelColumns.colD) = CType(rd(duedate).ToString, Date).ToString(MMM dd yyyy) .Cells(r, ExcelColumns.colE) = rd(sumofcr).ToString .Cells(r, ExcelColumns.colF) = rd(sumofdr).ToString .Cells(r, ExcelColumns.colG) = rd(balance).ToString r += 1 End With End While add cr and dr sum excelWS.Cells(r, ExcelColumns.colE) = =SUM(E4:E r 1 ) excelWS.Cells(r, ExcelColumns.colF) = =SUM(F4:F r 1 ) excelWS.Cells(r, ExcelColumns.colG) = =SUM(G4:G r 1 ) excelWS.Cells(r, ExcelColumns.colA) = Total excelWS.Range(A r :D r).Merge() excelWS.Range(A r).HorizontalAlignment = -4131 If r 5 Then End If Call drawBorder(A4:G r) excelApp.Visible = True clean up variables mappDB.close() rd = Nothing cmdlocal = Nothing r = Nothing excelWS = Nothing excelWB = Nothing excelApp = Nothing Me.Cursor = Cursors.Default End Sub Private Sub ToolStripButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click Me.Close() End Sub End Class

Essay on The Allegory of the Cave in Platos Republic

The Allegory of the Cave in Platos Republic This paper discussed The Allegory of The Cave in Platos Republic, and tries to unfold the messages Plato wishes to convey with regard to his conception of reality, knowledge and education. THE ALLEGORY OF THE CAVE Platos Allegory of the Cave is a story that conveys his theory of how we come to know, or how we attain true knowledge. It is also an introduction into his metaphysical and ethical system. In short, it is a symbolic explanation of his Theory of the Forms (or eidos). In a cavern some people experience a strange confinement, for they are chained so they can look forward only at the wall of the cave. At their backs, a fire burns which they never are able to see.†¦show more content†¦For they would be taking the terms in their language to refer to the shadows that pass before their eyes, rather than to the real things that cast the shadows. A summary interpretation of the allegorys meaning cannot be better or more concisely stated than in Socrates addition: the prison-house is the world of sight, the light of the fire is the sun, and you will not misapprehend me if you interpret the journey upward to be the ascent of the soul into the intellectual worlds So, to be very clear on one point of possible confusion, the blinding sun of the allegory is not the real sun, but a symbol for the good. The cave allegory also proves that the role of education is not to teach in the sense of feeding people information they do not have, but rather to shed light on things they already know. Education isnt the craft of putting sight into the soul. Education takes for granted that sight is there but that it isnt turned the right way or looking where it ought to look, and it tries to redirect it properly. (2) The concept of duty and service are addressed in response to the objection raised by Glaucon. While contemporary philosophers are, for the most part, self-taught, they have no obligation to serve their state; however, the guardians are nurtured and educated, that is, liberated, by the State, they are unshackled. Therefore, and if their probity is not enough to dictate for them, compulsory service to that which has made themShow MoreRelatedPlatos The Republic: Analysis of the Chapter Entitled Allegory of the Cave588 Words   |  3 Pageswork is The Republic. Out of The Republic comes a chapter entitled â€Å"Allegory of the Cave†.(â€Å"Plato†) Plato’s Allegory of the Cave describes ignorance and the process of enlightenment. The cave symbolizes a prison for the mind. Cave dwellers only know of the one reality presented in the cave, yet it is not reality at all. The cave dwellers are ignorant, knowing only one way and not trying to broaden their minds. Plato uses chains and shackles to represent the mental bondage of the cave dwellersRead MoreThe Allegory Of The Cave1086 Words   |  5 Pagesallegorical significance(s) of the cave in Plato’s Republic. How is the cave an allegory of Plato’s philosophy? How is the allegory of the cave an allegory for enlightenment or philosophical education? How and why are most human beings like prisoners in a cave? Who are the puppeteers? What does the world outside the cave represent? What does the sun represent? Etc. What is Plato’s Theory of the Forms? What is a Form? How does the allegory of the cave express Plato’s Theory of the Forms? How is philos ophyRead More Plato Essay623 Words   |  3 Pagescharacter. Some people doubt the existance of Socrates but, like nearly everyone else who appears in Platos works, he is not an invention of Plato: there really was a Socrates (Kraut). Plato wrote many works asking questions about terms such as justice, piety, and immortality to name a few. His works include but are not limited to, The Apology, Crito, Phaedo, Euthyphro, and his most famous work The Republic which was a work about justice. In 387 B.C.E. Plato founded the first great school of antiquityRead MoreEssay about Platos Allegory of the Cave1305 Words   |  6 PagesPlato’s â€Å"Allegory of the Cave† is the most significant and influential analogy in his book, The Republic. This thorough analogy covers many of the images Plato uses as tools throughout The Republic to show why the four virtues, also known as forms, are what create good. The â€Å"Allegory of the Cave†, however, is not one of the simplest representations used by Plato. Foremost, to comprehend these images such as the â€Å"divided line† or Plato’s forms, one must be able to understand this allegory and allRead MorePlato s Dialogue, Republic, And The Claims Of The Modern World1556 Words   |  7 Pagesperson who sides with the argument that philosophers play an important role in society. In Plato’s dialogue, Republic, he attempts to discover justice and to convey the importance philosophers possess in ensuring a just society. The main argument that will be addressed in this essay is that philosophers are useful and are essential to guarantee a truly just city. In this paper I will use Plato’s dialogue, Republic, and the claims mentioned throughout to support and build my agreement with Plato in arguingRead MoreThe Allegory Of The Cave872 Words   |  4 PagesBy the time The Republic was written the term had a new meaning. Instead of the method previously described, it was now used to des cribe what something is. â€Å"The Republic stresses that true dialectic is performed by thinking solely of the abstract and nonsensible realm of forms; it requires that reason secure an unhypothetical first principle (the Good) and then derive other results in light of it† (Meinwald). In later dialogues like Parmenides, dialectic is used to understand forms in the properRead MoreComparison: Allegory of the Cave and the Myth of the Metals1171 Words   |  5 PagesAllegory to Myth In the Republic, Plato uses reason to model the ultimate form of civilization where everyone achieves his/her human potential. This should not be confused with individual equality, for Plato sees a harmonious and virtuous community where citizens are under a hierarchy and working together for the greater good of the state. The question, however, remains: How does one achieve Plato’s ideal state when there is evil and deception in the world? In answering this question, Plato putsRead MoreComing Back to Platos Cave1125 Words   |  5 PagesIn Plato’s Republic, Book VII, Socrates presents an allegory to Glaucon that is meant to examine the effect of education and knowledge on human beings (514a). This allegory motivates the arguments given in the larger context of the Republic, namely the construction of the perfectly good and just city. Specifically, the allegory shows how the philosopher, as the only person who exits the cave in the allegory, is required to re enter th e cave after having exited and come into direct contact with trueRead MorePlatos 4 Analogies Of The Republic Analysis1579 Words   |  7 PagesIn Books VI and VII of the The Republic, Plato uses the four analogies to represent his theory of justice in the ideal state. The four analogies include the ship, the sun, the divided line, and the cave. The analogies of the ship, and the cave are used by Plato to represent the people of the state and proving his argument that philosophers are the true rulers of the state. The divided line and the sun analogies also supports Plato’s point about philosophers obtaining intellectual knowledge apposedRead MoreAllegory Of The Giver By Lois Lowry1436 Words   |  6 Pagestouch base more on the Plato’s themes from the Republic, Book X and The Allegory of The Cave in relation to the Lois Lowry’s The Giver. What I would like to be kept in mind while making our comparison, is my previous commentary on the Allegory of the Cave fro m prior class discussions on Plato, The Allegory of the Cave shows us to not just stare at the known shadows and be satisfied with it, but to look beyond it to find the truth and real understanding. And Plato’s ideas in regards to art

XYZ Energy Organizational Behaviour Solution

Question: Describe about the Impacts of integration models on XYZ employees, Increase in stress due to change in organizational environment and Developing communication strategy of XYZ energy? Answer: Introduction: Bissell, (2012) stated that merging and acquisition between two companies often creates conflicts between two group of employees. According to Bruce et al., (2010) employees face difficulty to adjust with new culture during integration of two separate companies. However DePamphilis (2015) opines that the impacts of these difficulties become more prominent as managements neither shows interest to get employees view on the decision, nor involves them directly with the process. Conflicts among can be occurred even organizational structure and culture of both mergers are same. Analysis of the current case study reflects the presence of cultural conflict among employees due to merging of Big Energy and XYZ energy. However, the case study also reflects that the employees of XYZ energy are facing more difficulties to adopt the culture of working. Although both of the organizations belong to same industry, management of Big Energy ate showing reluctance to increase communication with XYZ employees. As management of Big Energy is not interested to keep all XYZ employees within their organization, most of XYZ staffs already lost their jobs. Lack of communication between Big Energy management and XYZ employees is also increasing the conflicts among employee and management. According to McShane et al., (2012) similarity in organizational structures enables employees to adopt new environment after merging. However, the current case study reflects that Big Energy managed failed to maintaining integrity among staffs after merging and it lead to change in attitude of staffs. The essay deals with identification of impacts of integrating two separate organizations on behavior, value and attitude of employees. Recommendations are also made for Big Energy management to minimize the effects of change in employee nature. Impacts of integration models on XYZ employees: Attitude, value and behavior of employees are changed during integration of two companies due to presence of stress, chances of losing job and change in competition (Park, 2012).However, difference in culture and values also impact significantly on the behavior of employees. The cultures of public and private organizations are different (Ybema et al., 2011). In this case also, XYZ being a public organization provides employees with freedom to communicate with management. In XYZ, employees from each department are selected as representatives in management. On other hand, Big Energy is a private organization. Although both of the organizations operate in same industry, managements of these organizations provide different working environment to employees. Acquisition of XYZ increases those chances of being dominated in new integrated environment. Apart from this, the difference in cultural can also increase complexity of the situation. Increase in stress due to change in organizational environment: Generally the mergers do not take opinion from lower level employees before implementing the decision. However Xenikou and Furnham (2013) states that the negative impacts of merging are mostly seen among employees of lower level. On other hand, Sarris and Kirby (2013) also opined that the employees of lower level in organizational hierarchy are the most affected due to any merging or acquisition process. Integration of two companies often leads to significant change in organizational culture (people.stern.nyu.edu, 2015). As stated by Alvesson, (2013) sudden change in working environment increases stress among staffs. As staffs of low level have the maximum chance of losing job after integration among two companies, amount of stress caused by change in working nature is also maximum for these employees (Roberts et al.,2015). Bojica and Fuentes (2012) stated that stress on employees can be reduced by increasing interaction with management. However, Creed (2012) opined that regular comm unication between employees and management is not only beneficial for reducing stress over employees, but it also enhances loyalty of staffs towards new company. According to Lee and Pennings, (2015) management of an organization needs to take proper measure to reduce stress on employees as high stress reduces their productivity. Epstein et al., (2014) also stated that high stress can not only result degradation in performance of employees, but it also increases the problems like absenteeism and high employee turnover rate. The current analysis regarding effects of stress on employee behavior indicates that lack of stress management strategies can affect long term sustainability of an organization. According to the present case, XYZ energy is completely acquired by Big Energy. Discussion on the performance of XYZ energy indicates that its employees possess sufficient competency to ensure growth of the organization. Although structures of both organizations are almost similar, XYZ management provided the employees with more chances of taking part in managerial activities. Although Big Energy management completely bought XYZ energy, the organization is not interested to include employees of the acquired company. From the given case, it is evident that most of the XYZ employees already lost their job although they were equally competent with Big Energy (BE) employees. Information provided on management of BE is not interested to communicate with the existing employees of XYZ. Analysis on the nature of BE management indicates that the future of existing XYZ employees are also not secured. The current condition of integrated organization is not only creating high stress on employees , the situation is also reducing their loyalty. It is evident that XYZ employees are highly skilled. Increased stress on them can cause poor performance and also this it can reduce their productivity. However, the stress can increases anxiety among employees. Thus the incidents of conflict may arise. Increase in fear of losing job due to management policies: As the BE management is not showing interest to enhance integrity among employees, dissatisfaction among employees is increasing. On other hand, activities of management are clearly reflecting that they are not willing to keep staffs of XYZ.As the chances of losing job is increasing among existing XYZ employees their loyalty to the new organization is reducing. According to Murphy (2013) avoiding cultural conflict is impossible when two organizations are merged together. However, the incidents of conflicts can be reduced if employees of both organizations get the opportunity of knowing each other (Park, 2012). The case study states that managers of Big Energy are not showing interest to visit remote offices of XYZ. Apart from this, XYZ employees are not being provided with the opportunity of knowing BE staffs. As none of the parties are communicating with each other, XYZ staffs are being detached from management. DePamphilis, (2015) stated that commitment of staffs toward the work de pends on their level of loyalty to management. However, lack of communication is reducing the commitment of XYZ staffs. Apart from this, with reduction in job security, anxiety among staffs is increasing and it is resulting different physical and psychological problems. Degradation in moral values: In spite of being highly skilled, XYZ employees are losing their jobs. As a result, the activities of BE management may seem partial to those employees. It is evident that the employees of XYZ are not being judged by their skills only. According to Lee and Pennings, (2015) impartial nature of management encourages employees to improve their moral values. In the current case, security of job is not determined by performance only. Maximum degradation in moral values arisen when job security is hampered (DePamphilis, 2015). Analysis of current scenario in XYZ energy is indicating that the existing employees may get involved with immoral practices to for personal benefit. As the integrity among employees is reducing, conflicts among them can increase. Degradation in moral values among employees can lead to poor performance, increased tendency of being absent, decreased loyalty to the organization as well as several physical problems related to hypertension and cardiovascular activities. Recommendations for Big Energy management: Discussion on problems caused by wrong integration model adaption indicates that impacts of this integration model are currently affecting XYZ employees. However the long term growth of Big Energy can also be hampered by implementation of ineffective integration strategies by Big Energy management. If the management fails to use skilled employees, the primary objective of merger will not be satisfied. The adverse effects of wrong integration strategies can be minimized by taking some immediate actions. In this essay some recommendations are made for Big Energy management to solve the problems. Developing communication strategy: BE management should focus on increasing communication. Increase in communication between both parties will also lead to increase in integrity among them. However, the management should focus more enhancing the level of understanding between two organizations instead of conducting formal communication programs. Management of Big Energy should engage the leaders of XYZ energy with the process of communication strategy development. Apart from this the management should also focus on development of proper schedule of communication programs. Management if BE should also ensure that the employees of both organizations are getting sufficient chances to interact among themselves. Increased interaction among the employees will lead to enhanced productivity of the organization. As the XYZ was a public organization, employees of this company got more chances to communicate with management. Although, BE is privately owned organizations, the new employees should be encouraged to communicate with in the management whenever required. It will enable the management to increase participation of XYZ employees in organizational activities. Currently the management of BE is not dealing with XYZ leaders with equal importance. The management should ensure that XYZ leaders are being allowed to take part in managerial activities to utilize their capabilities. Assessing employee attitude: Discussion on the current scenario is indicating that the level of dissatisfaction is high among XYZ employees. Management of the organization should monitor the attitude of new employees to get information regarding view on integrated company. As the cultures of both organizations are different, employees of XYZ can face difficulty in adapting new culture. Management of Big Energy should arrange training sessions so that the new employees can adopt organizational culture without creating any effect on their performance. BE management should ensure that the effective practices of both XYZ and BE couture are combined together to form a new integrated culture. Managers f BE should arrange for face to face interviews of XYZ employees to assessing the impacts of new culture on them. Apart from this, the employees of XYZ should be encouraged to provide feedback on existing culture of BE for making a common integrated culture. Maintaining clarity of management activities: Recent activities of BE management can create feelings of discrimination among the employees of XYZ Energy. However, the management should ensure that their activities are impartial. Clarity should be maintained in every decision. Before implementing a strategy, all employees should be informed earlier. Apart from informing employees, BE management should allow XYZ managers to take part in decision making process. Thus the expertise of XYZ managers will be utilized for attaining business goals. It will also enhance the level of integrity in BE. Conclusion: The current analysis on given case study indicates the management of Big Energy adopted wrong integration model for executing the tasks related to complete acquisition of XYZ energy. Although some problems related with cultural conflict is inevitable in case of such acquisitions, improper strategies of BE management made the problems more evident in current merging. According to the case study, performance of XYZ energy was better than most of the organizations of its category. As two well performing organizations were merging in this case, the new integrated company was expected to one of the best organizations in industry. However, BE management failed to use highly skilled employees of XYZ energy as a result of wrong integration model implementation. As the management is not maintaining communication with new employees, these employees care becoming less loyal As a result the chances of high turnover among existing XYZ employees can increase. It can hamper long term growth of Big Energy. However, analysis on the recommendations indicates that the management requires taking some actions immediately to avoid further losses. From the analysis made on existing problems with integration model of Big Energy indicates that the management needs to increase communication with XYZ employees by visiting their office regularly. Apart from this, actions like arranging communication programs among employees of two organizations and allowing XYZ employees to participate more in organizational activities can be effective to the enhance effectiveness of the integration. References Alvesson, M. (2013). Understanding organizational culture. Los Angeles: SAGE. Bissell, G. (2012). Organisational behaviour for social work. Bristol, UK: Policy. Bojica, A. and Fuentes, M. (2012). Knowledge acquisition and corporate entrepreneurship: Insights from Spanish SMEs in the ICT sector. Journal of World Business, 47(3), pp.397-408. Bruce, M., Collins, S., Langdon, P., Powlitch, S. and Reynolds, S. (2010). Does training improve understanding of core concepts in cognitive behaviour therapy by people with intellectual disabilities? A randomized experiment. British Journal of Clinical Psychology, 49(1), pp.1-13. Creed, A. (2012). Organisational behaviour. Oxford: Oxford University Press. DePamphilis, D. (2015). Mergers and Acquisitions Basics. [online] www.univie.ac.at. Available at: https://www.univie.ac.at/aicher/dateien/MA%20Int%202013-2014%20-%20documents/Mergers_and_Acquisitions_Basics__All_You_Need_To_Know%20-%20Donald%20DePamphilis.pdf [Accessed 4 Mar. 2015]. Epstein, M., Davila, A. and Manzoni, J. (2014). Performance Measurement and Management Control. Bradford: Emerald Group Publishing Limited. Lee, K. and Pennings, J. (2015). MERGERS AND ACQUISITIONS: STRATEGIC - ORGANIZATIONAL FIT AND OUTCOMES. [online] Available at: https://www-management.wharton.upenn.edu/pennings/documents/Mergers_Acquisitions.pdf [Accessed 4 Mar. 2015]. McShane, S., Travaglione, A. and Olekalns, M. (2012). Organisational behaviour. North Ryde, N.S.W.: McGraw Hill Australia. Murphy, B. (2013). Organisational Behaviour for Social Work. Practice, 25(2), pp.143-145. Park, B. (2012). What changes the rules of the game in wholly owned subsidiaries? Determinants of knowledge acquisition from parent firms. International Business Review, 21(4), pp.547-557. people.stern.nyu.edu, (2015). ACQUISITIONS AND TAKEOVERS. [online] Available at: https://people.stern.nyu.edu/adamodar/pdfiles/papers/acquisitions.pdf [Accessed 4 Mar. 2015]. Roberts, A., Wallace, W. and Moles, P. (2015). Mergers and Acquisitions. [online] Available at: https://www.ebsglobal.net/documents/course-tasters/english/pdf/h17mq-bk-taster.pdf [Accessed 4 Mar. 2015]. Sarris, A. and Kirby, N. (2013). Organisational psychology. Prahran, Vic.: Tilde Publishing and Distribution. Xenikou, A. and Furnham, A. (2013). Group dynamics and organizational culture. Basingstoke: Palgrave Macmillan. Ybema, S., Yanow, D. and Sabelis, I. (2011). Organizational culture. Cheltenham: Edward Elgar.