Abortion Essays (1661 words) - Abortion, Free Essays, Term Papers

Premature birth Essays (1661 words) - Abortion, Free Essays, Term Papers Premature birth Fetus removal is the closure of pregnancy before birth and is ethically off-base. A premature birth brings about the passing of an incipient organism or a baby. Fetus removal annihilates the lives of vulnerable, blameless kids and unlawful in numerous nations. By prematurely ending these unborn newborn children, people are harming themselves; they are not permitting themselves to meet these new characters and exceptional characters. Fetus removal is just off-base. Everybody is raised knowing the distinction among good and bad. Murder isn't right, so for what reason isn't premature birth? Individuals contend that it isn't murder if the youngster is unborn. Fetus removal is murder since the hatchling being devastated is absolutely real and moving. Why is it that if an baby is devastated a month prior to the birth, there is no issue, however whenever killed a month after birth, this is insensitive homicide? It is ethically and deliberately silly, since we lose the center when we talk about conceptive rights without reference to a bigger good and otherworldly measurement, and we are reluctant to utilize language like offense and reclamation, or good and bad. - Wolf p54 The primary reason premature births are indecent is the manner by which they are so violently done. Regular, guiltless, innocuous embryos that could before long be giggling kids are in effect severely crushed. One type of premature birth is to cut the hatchling into pieces with serrated forceps before being expelled, piece by piece from the uterus by pull with a vacuum suction apparatus. Another structure comprises of bringing the baby feet first into the birth channel, puncturing its skull with a sharp instrument and sucking out the mind tissue. The body parts, for example, the head, are given letters, as opposed to allude to the parts as what they are. As I would see it this is for the specialists who can't confront the truth of what they are doing. The remaining parts of the hatchling or undeveloped organism, by and large, are placed into regular, plastic containers and afterward sent to a dumpster where these valuable bones also, appendages are arranged. Notwithstanding, how and when a premature birth happens are matters of little significance to genius abortionists and different safeguards. Significantly previous premature birth specialists from shifting foundations and religions have another view on premature birth. These progressions of heart were brought about by mental, strict and logical reasons. One specialist, Dr. Bernard Nathanson, performed 60,000 premature births and regulated 10,000, prior to logical proof and the utilization of a ultrasound, persuaded him he was advancing and taking part what he presently calls the most abominable holocaust in the history of the United States. Different specialists will not perform legitimate premature births, saying they should spare lives as opposed to annihilate them. Many contend is it the ladies' or the baby's privileges and qualities that are being stomped on on? Genius decision developments once in a while swear by a premature birth way of talking that appears to dehumanize and trivialize the passing of a hatchling as an approach to acculturate and make significant the regenerative privileges of ladies. (Wolf p54) Women can treat an undesirable embryo as an infringement of her social liberties and is therefor advocated tin utilizing power to remove it (McMillan pA12) The choice isn't up to the mother since she isn't God. Just God, a definitive maker has the option to pick who may live and who will pass on. People don't have the privilege or the ability to control the personal satisfaction and to abstain from affliction. The issue of fetus removal isn't simply life, however how life is made and the degree to which human goal and control the procedure, both when birth. All people developments and mediations may give us a world to lament. (Clark p3) With premature birth, we people give ourselves domain over a huge piece of God's arrangements and our predetermination. Fetus removal turns out to be particularly insidious when the bond among mother and youngster is broken furthermore, it is being utilized as an elective conception prevention when people can't control their flighty sexual cravings. In the event that creatures are mindful enough to be explicitly dynamic, they should likewise be mindful enough to acknowledge outcomes, and if that implies getting pregnant and making a real existence, at that point that life ought to have the chance to live. There ought to be a bond or connection between a mother and youngster, regardless of whether conceived or on the other hand unborn. Moms and her kids structure a bond not at all like some other felling of affection; when a youngster is prematurely ended, before given the option to develop in the bond, does the mother feel the association with her kid or is it simply uterine material. Premature birth is rarely about just premature birth. It is

Fin 516 Quiz 1

1. | Question ðÿ˜  (TCO C) Blease Inc. has a capital spending plan of $625,000, and it needs to keep up an objective capital structure of 60 percentâ debt and 40 percentâ equity. The organization figures a total compensation of $475,000. On the off chance that it follows the leftover profit strategy, what is its guage profit payout proportion? (a) 40. 61% (b) 42. 75% (c) 45. 00% (d) 47. 37% (e) 49. 74% | Student Answer:|  | (d) 47. 37 Equity required (Residual pay) = $625,000*40% = $250,000 Dividend paid = $475,000 †$250,000 = $225,000 Dividend payout proportion = 225000/475000 = 47. 37% |  | Instructor Explanation:| Answer is: dText: pp. 570-572 †Residual Dividends, Chapter 14 Capital financial plan $625,000 Equity proportion 40% Net pay (NI) $475,000 Dividends paid = NI †(Equity ratio)(Capital spending plan) $225,000 Dividend payout proportion = Dividends paid/NI 47. 37% | Points Received:| 10 of 10 | Comments:| | 2. | Question ðÿ˜  (TCO F) The accompan ying information applies to Saunders Corporation's convertible bonds: Maturity: 10 Stock cost: $30. 00 Par esteem: $1,000. 00 Conversion cost: $35. 00 Annual coupon: 5. 00% Straight-obligation yield: 8. 00% What is the bond's transformation esteem? (a) $698. 15 (b) $734. 89 (c) $773. 57 (d) $814. 29 e) $857. 14 | Student Answer:|  | (e) $857. 14 Conversion proportion = Par esteem/Conversion Price= 28. 5714 =1000/35 Current offer price= $30. 00 Therefore, change estimation of the bond= $857. 14 =28. 5714ãâ€"30 |  | Instructor Explanation:| Answer is: e Chapter 19: pp. 770-774 Conversion esteem = Conversion proportion x Market cost of stock = $857. 14 | Points Received:| 10 of 10 | Comments:| | 3. | Question ðÿ˜  (TCO B) SA †Your firm has obligation worth $350,000, with a yield of 12. 5 percent, and value worth $700,000. It is developing at aâ seven percent rate, and faces a 40 percent charge rate.A comparable firm with no obligation has a cost value of 17 percent. Unde r the MM augmentation with development, what is its expense of value? (a) 19. 25% (b) 21. 75% (c) 18. 0% (d) 17. 5% (e) 18. 4% | Student Answer:|  | | Instructor Explanation:| An is right. Educator Explanation: M and M Extension with Growth †Section 26. 4 (pp. 1011-1015) rsL = rsU + (rsU †rd)(D/S) 19. 25% = 17% + (17%-12. 5%)(350,000/700,000)| | Points Received:| 10 of 20 | Comments:| this is you messaged arrangement †4. (TCO B) SA †Your firm has obligation worth $350,000, with a yield of 12. 5 percent, and value worth $700,000.It is developing at a seven percent rate, and faces a 40 percent charge rate. A comparable firm with no obligation has a cost value of 17 percent. Under the MM expansion with development, what is its expense of value? My answer is: (d) 17. 5% rsL = rsU + (rsU †rd)(D/S) 17. 5% = 15% + (15%-10%)(200,000/400,000 I don't know where you got the 15% number for the rsU or the 200,000 for D or the 400,000 for S the figurings and equation ar e right however you utilized every single inaccurate info so I will give you 1/2 credit An is right. Educator Explanation: M and M Extension with Growth †Section 26. (pp. 1011-1015) rsL = rsU + (rsU †rd)(D/S) 19. 25% = 17% + (17%-12. 5%)(350,000/700,000) | 4. | Question ðÿ˜  (TCO B) Firm L has obligation with a market estimation of $200,000 and a yield of nine percent. The association's value has a market estimation of $300,000, its profit are developing at aâ five percentâ rate, and its expense rate is 40 percent. A comparative firm with no obligation has an expense of value of 12 percent. Under the MM augmentation with development, what might Firm L's absolute worth be in the event that it had no obligation? (a) $358,421 (b) $377,286 (c) $397,143 (d) $417,000 (e) $437,850 | Student Answer:|  | (c) $397,143 VTotal = VU + VTS, so VU = VTotal †VTS = D + S †VTS. Worth assessment cover = VTS = rdTD/(rsU †g) = 0. 09(0. 40)($200,000)/(0. 12 †0. 05) = $102,857 VU = $300,000 + $200,000 †$102,857 = $397,143 |  | Instructor Explanation:| Answer is: c Chapter 26, pp. 1011-1015 Debt: $200,000 Equity: $300,000 rd: 9% rsU : 12% T: 40% g: 5% Firm L has an all out estimation of $200,000 + $300,000 = $500,000. A comparative firm with no obligation ought to have a littler valu(e) Here is the estimation: VTotal = VU + VTS, so VU = VTotal †VTS = D + S †VTS. Worth assessment cover = VTS = rdTD/(rsU †g) = 0. 9(0. 40)($200,000)/(0. 12 †0. 05) = $102,857 VU = $300,000 + $200,000 †$102,857 = $397,143 | Points Received:| 20 of 20 | Comments:| | 5. | Question ðÿ˜  (TCO A) Which of the accompanying explanations is CORRECT? (an) An alternative's worth is dictated by its activity esteem, which is the market cost of the stock less its striking cost. In this way, a choice can't sell for more than its activity esteem. (b) As the stock’s cost rises, the time esteem segment of an alternative on a stock increments on the grounds that the contrast between the cost of the stock and the fixed strike cost increments. c) Issuing alternatives furnishes organizations with a minimal effort strategy for raising capital. (d) The market estimation of an alternative depends to a limited extent on the choice's a great opportunity to development and furthermore on the inconstancy of the basic stock's cost. (e) The potential misfortune on a choice declines as the choice sells at ever more elevated costs on the grounds that the net revenue gets greater. | Student Answer:|  | (c) Issuing alternatives furnishes organizations with a minimal effort technique for raising capital. |  | Instructor Explanation:| Answer is: d Chapter 8, pp. 306-310 | Points Received:| 0 of 20 | Comments:| Companies don't give Options †they are an exchanging vehicle of the trades †no capital from alternatives go to the firm | 6. | Question ðÿ˜  (TCO F) Suppose the December CBOT Treasury bond fates contract has a prov ided cost estimate of 80-07. What is the suggested yearly financing cost inborn in the fates contract? Accept this agreement depends on a multi year Treasury bond with semi-yearly premium installments. The assumed worth of the bond is $1000, and the semi-yearly coupon installments are $30. The yearly coupon rate on the securities is $60 per security (or 6%).The fates contract has 100 securities. (a) 6. 86% (b) 7. 22% (c) 7. 60% (d) 8. 00% (e) 8. 40% | Student Answer:|  | (d) 8% Quote: 80’07 0. 80 0. 07 N: 40 PV = (0. 80+0. 07/32) ? $1,000 = - $802. 1875 FV = $1,000 PMT = $30 I/YR = 4. 00% Annual rate: I/YR ? 2 = 8. 00% |  | Instructor Explanation:| Answer is: d Chapter 23, pp. 917-923 Answer Detail: Quote: 80-07 0. 80 0. 07 N: 40 PV = (0. 80+0. 07/32) ? $1,000 = - $802. 1875 FV = $1,000 PMT = $30 I/YR = 4. 00% Annual rate: I/YR ? 2 = 8. 00% | Points Received:| 20 of 20 | Comments:| |

Iran And Weapons Of Mass Destruction Essay Example for Free

Iran And Weapons Of Mass Destruction Essay Iran is a signatory to the worldwide bargains that precludes creation and keeping of weapons of mass devastation. These settlements are; the substance weapons convection, the natural weapons show and the atomic Non-Profiliferation Treaty (NPT). Regardless of its endorsement of these arrangements, Iran is presently accepted to have weapons of mass demolition. After the Iraq-Iran war in mid 1980s, Ayatollah Khomeini set out to seek after atomic research after he lost around 100,000 troopers and regular folks because of compound weapons assaults by the Iraqis. Discussion has encircled the Iranian atomic weapons program throughout recent decades. While the nation keeps up that its uranium improvement program is exclusively implied for quiet purposes and the ebb and flow universal nuclear vitality organization chief general, Yukiya Amano guaranteeing that there are no proof in IAEA reports that Iran has plans to create weapons of mass pulverization, the United States through its congressional research paper accepts that Iran had since quite a while ago got done with creating atomic weapons in 2003. The world is similarly separated over the Iranian atomic weapon program. Just a couple of European nations are agreeing with the United States and nations like Russia don't have confidence in the charges that Iran has or has plans to create atomic weapons. Most nations from the East like China, Turkey, Syria, Afghanistan, the Arab League just as Gulf Cooperation Council, have communicated their full help for Iran to seek after what they call a quiet atomic vitality. Be that as it may, what are the ramifications of an atomic vitality in the hands of Iranians? The Iranian atomic program has earned numerous adversaries and partners in practically equivalent measure. Probably the best pundit of the Iranian atomic vitality is the United States. The strain connection between the nations goes back to three centuries when the Islamic unrest in Iran cleared the US solid partner Shah out of intensity. At the point when Ayatollah Khomeini came to control after the upheaval, he driven the country’s international strategy away from the United States and the two nations have since the time been total inverses in for all intents and purposes each international strategies. Conciliatory relations between the two countries was broken in mid 1980 and the Swiss government took over portrayal of American intrigue the next year. While in the United States, the Pakistani government accepted portrayal of Iranian issues. Be that as it may, the Iranian government has its own agent to the UN in New York City. In 1981, after the Algiers assertion, the US-Iran Claims Tribunal (arranged at The Hague, Netherlands) was framed to settled issues between the nationals of the two nations. Be that as it may, this commitment has consistently remain and managed lawful issues just . The Iranian atomic program has just worked throughout the years to strain the strategic relations further. American government by official requests made by its leader and furthermore by the congressional enactment bars any type of exchange with Iran. These approvals were forced as a result of Iran’s proceeded with compatibility of its atomic program and its rebelliousness with the IAEA requests. Iran is additionally blamed for supporting fear based oppressors and dread exercises just as of having poor human rights record. Notwithstanding, the American government has constantly kept up that these authorizations just objective the Iranian government commitment with the US and not the residents of Iran. The US subsequently allows certain exchanges that would help the nationals of Iran. Such commitment as alleviation gifts by the American nationals and NGOs, fare of clinical and farming items from US to Iran and import of staple from Iran are allowed. The American government has now and again lifted the exchange endorses particularly in the midst of compassionate emergencies like was the situation in 2003 during the Ban tremor. Hindrances to political relations between the nations in any case, despite everything stay uncertain. The United States is predominantly worried about the Iranian authorities’ absence of consistence with the IAEA and blamed their partners for seeking after a dangerous aspiration that would compromise harmony on the planet. The US fears over the Iran’s atomic is associated with their charges that Iran has been supporting dread exercises. Iran has consistently questioned the harmony bargain preferring the Israel and has been blamed for sabotaging the Middle East harmony process through its kept outfitting of civilian army and fear bunches like Hezbollah, Palestinian Islamic Jihad and the Hamas. The dangers an atomic Iran would expose the world to through its proceeded with relationship with civilian army and dread gatherings is one of the explanation sanctions are being forced by the US government as well as by the European association and the United Nations security board. The Iran atomic program would not be a risk to Israel yet additionally the world on the loose. Investigation of the chilly relations among Iran and Israel would reveal more insight into how the world would be compromised by Iran as an atomic force. Iran is the second biggest nation with a Jewish populace in the Middle East after Israel and some outstanding figures in Israel are known to have begun from Iran. The two nations had great relations when Iran was administered by the Shah, yet after the Islamic upheaval of Iran, Israel and the Iran’s administering church have had antagonistic binds with Iran declining to perceive Israel. In any case, in any event, during the threatening relationship, Israel helped United States offer arms to Iran as a major aspect of the notorious Iran-Contra outrage. As of late, the United States has been particularly vocal against the Iranian atomic program. Israel then again has consistently been prepared to incapacitate the Iranians of their rockets and different weapons thought about ruinous. They have even considered strategically sending their atomic weapons to clean up the Iranian atomic offices. In spite of the fact that Israel has never formally affirmed the quantity of its atomic weapons, it is murmured in the universal security circles that the nation has around 200-400 weapons of mass annihilation and is the main nation having an atomic weapons in the Middle East. What's more, it isn't lost to numerous that Israel had shelled the Iraqi office accepted to have been a piece of its atomic projects. The perpetual clash among Israel and Palestinians has not help matters either. The Palestinians proceeded with relocation to south Lebanon drove the arrangement of activist gatherings like Hezbollah, Hamas, and the Palestine Islamic Jihad among others. Despite the fact that these gatherings have been viewed as fear based oppressors groupings by numerous nations, Iran opposes this idea. It has not just offered these gatherings material help as far as weapons however see the gatherings as associations battling for an advocated cause and openly offer them moral help. These gatherings particularly the Hezbollah see the Iran otherworldly pioneer as their definitive position and the gatherings themselves have affirmed that every single political choice concerning their undertakings are alluded and made in Iran. For instance, the Iran otherworldly pioneer himself is said to have supported the Hezbollah’s investment in the Lebanese governmental issues. Considering these disclosures, it is proper to state that Iran is supporting self destruction planes at any rate roundabout to battle the Israelis. The Iranians and the pioneers have consistently criticized Israel and all the more frequently articulate demise of Israel in various structures. The Iranian president Mahmoud Ahmadinejad is on record guaranteeing that Israel should be cleared off from the essence of the earth and even addressed why the holocaust didn't perform it unequivocally. We may contended that the Iranian president doesn't use so much force and that the otherworldly pioneer who sooner or later looked for truce and standardized relations with the Israelis, is the genuine wellspring of intensity. Be that as it may, the decision ministry is planning something naughty if his tumults to have Hezbollah become a full political outfit which was protested by the United States is anything to pass by. Glancing back at the ongoing occasions in Lebanon where Israel endured a mortifying thrashing in the hands of Hezbollah, the impact of Iran and its aggressor gathering, Hezbollah in the Middle East was simply given a jolt. We may contend that Iran never began its atomic weapons program in light of Israel. Be that as it may, passing by the tenacious enemy of Israel talk by its pioneers, it would be very so as to state that Iran’s number one foe right presently is Israel and given open door would feel free to clear out the whole country. Just atomic weapons would put it at standard with Israel and cause it to accomplish the mass devastation they couldn't imagine anything better than to see. Once more, sifting through Israel as its main adversary, Iran is basically making more adversaries. With the United States standing out of nations partner and supporting Israel, Iranians would pronounce war with any country restrict to their arrangements against Israel. Tact and Alternatives President Bush’s endeavors to end the Iranians’ uranium improvement program had been centered around building a solid worldwide alliance that would force extreme authorizations against Iran expected to rebuff and disconnect until it forsakes its arrangements to create atomic weapons program. The nation then again, keeps up its atomic program is expected for serene employments. At the point when president Obama came into power, the main thing he declared in regards to his international strategy was to haggle with Iran and work it out of its atomic weapons program. So far nothing unmistakable is originating from the Iranian side. The serious issue in this entire procedure is that Iranian chiefs are basically not ready to talk and even as Washington attempts to seek after tact, Tehran is resolved on continuing with its program. The Obama organization ought not simply investigate this alternative without understanding their Iranian partners. From the improvements up until this point, it appears Tehran isn't

Public class login form in vb - Free Essay Example

Public Class loginForm 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) 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

Questions On An Argument On The Existence Of A Prime...

Part 1: Clarifying an Argument State the argument you find in Passage 1 in explicit premise-and-conclusion form. PASSAGE 1: (P1) Every event must have a cause. (P2) An infinite series of events is inconceivable. (P3) There must be a first cause. (C1) The first cause must have at least been the originator of the universe. (C2) The first cause is God. PASSAGE 2: Nagel’s Counterargument (P1) Positing the existence of a first cause does not explain away the infinite regression of events. (P2) If God is self-caused, then there are no limits to what can be self-caused. (P3) If everything must have a cause, so must God. (C1) The existence of the world and the vast matrix of events that occur every day do not necessitate the existence of a prime mover, or creator (or God). Part 2: Clarifying an Objection to an Argument State in your own words and as concisely as possible what you take Nagel s objection in Passage 2 to mean. Your task is not only to explain Nagel s words but also to show how they bear on the argument in Passage 1. What is it, exactly, about the argument that Nagel is objecting to, which premise or inference does he reject? I believe Nagel is saying that if every event must have a cause, the infinite chain of events presumably necessitated by this logic in fact follows, assuming one’s acceptance of the mathematical concept of infinity. Ergo, there does not have to be a God or even a first cause, as the cosmological argumentShow MoreRelatedSuccess of Aquinas’s Cosmological Argument872 Words   |  4 Pagescosmological argument is a posteriori argument that Aquinas uses to prove the existence of God. Aquinas argues that, â€Å"Nothing can move itself, so whatever is in motion must be put in motion by another, and that by another again. But this causal loop cannot go on to infinity, so if every object in motion had a mover, there must be a first mover which is the unmoved mover, called God.† (Aquinas, Question 2, Article 3). I do agree with Aquinas’s cosmological argument in proving the existence of God with severalRead MoreThe Various Forms of the Cosmological Argument for the Existence of God1561 Words   |  7 PagesThe Various Forms of the Cosmological Argument for the Existence of God The cosmological argument is a well established argument for the existence of God and it is also known as the first cause argument. The cosmological argument is based upon the belief that there is a first cause behind the existence of universe and this was God. It has taken many forms and in the past has been presented in many ways. So many philosophers have put their points across, philosophers like; Read MoreDoes God Exist? Essay1972 Words   |  8 Pagesof philosophy consists of so many unanswered questions. One such question is whether or not God exists. This is the very question that has grasped the imagination of humanity since the birth of reason, and the same question that has plagued scientists and philosophers without coming close to an accepted conclusion. God is a word that means different things to different people. The definition for God, according to most monotheistic religions is the creator and ruler of the universe, and the source ofRead MoreExplain the Teleological Arguments for the Existence of God Essay1268 Words   |  6 PagesTeleological arguments The word teleological originates from the Greek ‘telos’ meaning end or purpose. It infers the existence of God from a particular aspect or character of the world, namely the presence of order, regularity and purpose, and thus, is most commonly known as the design argument; it postulates the idea of a designer for all that has been designed. As its name suggests, the teleological argument attempts to seek the ultimate end or purpose. Furthermore, the teleological argument holdsRead MoreThis essay will be examining the key arguments for the existence of God, in order to discuss the3100 Words   |  13 Pageskey arguments for the existence of God, in order to discuss the claim that â€Å"it is wrong to believe in anything without sufficient evidence†- with reference to the non-existence of God. It will be exploring both a priori and an a posteriori argument for the existence of God. It will solely be concentrating on the Theological argument, Cosmological argument and the Ontological argument, in order, to analyse their significance and contribution in vindicating the claim for the existence of God. TheRead MoreNaturalism Versus Christianity3872 Words   |  16 Pagesand human nature. In these areas that Naturalism fails, Christianity succeeds by offering a valid alternative. Christianity then can further establish itself as a superior worldview by offering convincing arguments such as ontological, cosmol ogical, argument for design, argument that shows God as the source of morality. As demonstrated through a proper logical analysis, Christianity is a superior worldview when compared to Naturalism. Summary of Naturalism Naturalism defines its basic definitionRead More Ontological Argument Essay2922 Words   |  12 Pages Most people have not witnessed or experienced God and therefore are confused about its existence. In Western theology, three theories have emerged to demonstrate the existence of God. These theories are the ontological argument, the cosmological argument, and the teleological argument. St. Anselm of eleventh century, and Descartes of seventeenth century, have used the ontological argument for proving the existence of God. The God, for them, is supreme, quot;needing nothing outside himself, butRead MoreExistence of God Argumentative Paper2119 Words   |  9 Pagesof arguments for the existence of God. With each argument there is a conception presented of God. For each argument there are different approaches. I will be focusing on the Cosmological and Teleological Arguments. Teleological Arguments are known to be arguments from divine, arguing from order in the universe to the existence of God (1).With the ordering of the universe, created by an intelligent being, they hold that it is ordered towards a purpose or an end. The Cosmological Argument â€Å"isRead MoreDoes Science Make The Belief? God Obsolete? Essay2124 Words   |  9 Pages1) â€Å"Does Science Make the Belief in God Obsolete?† by Kenneth Miller and Christopher Hitchens debate with no date of the discussion. 2) Biology professor Kenneth Miller’s central argument is that science should not undermine one’s faith in God. â€Å"Science itself does not contradict the hypothesis of God.† He makes this argument by stating that science explains the things that God has made and in doing so, trying to prove the existence of God through natural or scientific means does notRead MoreThe Nature Of The African Landscape10552 Words   |  43 Pagesnature of the African landscape has been depicted in Heart of Darkness. Questions such as 1.) How the Orientalist others the foreign landscape 2.) What is the psychological influence of the African landscape on the European colonisers? 3.) Does the psychological influenceon the Whites similar to that of the Blacks? 4.) And, what are the consequences of that psychological influence on the White invaders and the natives? These arguments are presented in ascending order of importance. I will study the colonial

Altruism And Egoism A Moral Code Of Conduct - 1417 Words

In psychology, altruism and egoism are two contrasting views on morality, one holding that one should value principles/actions that benefit others over oneself, the other holding that not only are we innately selfish species, but that selfishness is how one ought to act. While both theories of morality are prevalent throughout history and cultures around the world, I will be examining the two sides of egoism: physiological and ethical, and how these can be connected to altruism. These theories are essential because they provide a foundation, development and a further understanding of one’s needs. Psychological egoism is defined as the belief that the actions we perform actions for our self-benefit. In my opinion, egoism should not be looked at as a moral code of conduct that carries a negative connotation. Everyday we perform selfish actions for our self-benefit, we work for a wage, which in turn provides for ourselves and our families, if we choose to have one. It is impossible to go throughout our lives and not perform a single selfish action. In fact, it is because of our selfishness that we have survived as a species. According to the biologist Richard Dawkins, â€Å"The ruthless and selfishness of the genes make them able to procreate copies of themselves; this is the basis of the evolution†( http://old.unipr.it). Psychological egoism can lead to acts that not only benefit the individual but also the group. For example, if someone volunteers their time at a homelessShow MoreRelatedEthics Essay772 Words   |  4 PagesWhat does Rachels’s â€Å"minimum conception of morality† consist of? Morality is, at the very least, the effort to guide one’s conduct by reason-while giving equal weight to the interests of each individual affected by one’s decision. Reason and impartiality consist stuff 7. What are five common features of Cultural Relativism? 1.Different societies have different moral codes. 2. (a) The good is determined by society; (b) an act is right if it is allowed by the guiding ideals od the society inRead MoreWhat Are Military Ethics?1056 Words   |  5 PagesDiscussion 1. What are military ethics? Military ethics can mean a wide range of things. It can encompass all aspects of military conduct, from writing performance reviews on subordinates, to relations of military personnel with their civilian leaders, to issues related to war (Encyclopedia.com 2017). However this reflection paper will espouse on the essential characteristics of leadership choices, higher standard for military personnel, and behavioral traits that must be imparted to our membersRead MoreThe Moral Philosophy Of Ethical Egoism2536 Words   |  11 PagesTimothy Walter PHI101 – 5:45PM Research Paper The Moral Philosophy of Ethical Egoism â€Å"Let him be the best of men, and let him be thought the worst; then he will have been put to the proof; and we shall see whether he will be affected by the fear of infamy and its consequences. And let him continue thus to the hour of death; being just and seeming to be unjust. When both have reached the uttermost extreme, the one of justice and the other of injustice, let judgment be given which is the happierRead MoreEthical Values And Behaviors Of An Organization941 Words   |  4 PagesHow do ethical values shape behavior in organizations? According to Saleem (2014), ethical values and behaviors of an organization are made up of organizations institutionalized philosophies along with the moral ideologies of its members. In addition, the codes of ethics help to enhance the moral reasoning of employees while shaping their behaviors towards morally questioning unethical situations. Organizational leaders are encouraged to build cultures of trust with leadership who establ ish concerningRead MoreCurrent Ethical Issues in Business Essay2863 Words   |  12 PagesCurrent Ethical Issue in Business Introduction Ethics and moral obligation are something that we all encounter at one time or another. Even in a professional setting, all persons should act in a manner that would uphold the good of society. Why is it that good, ethical and moral behavior is not always adhered to? Is it because some people do not understand ethics and what it means to be ethical? To be ethical, one has to decide between right and wrong, determine what is for the betterment ofRead MoreEssay on Ethics Case Study1554 Words   |  7 Pagesor wrong based on the consequences that occur from them. Decisions are considered to be effective when the negative consequences are eliminated or minimised (Baron, Pettit Slote, 1997; Burgh, 2006). Egoism, Altruism and Utilitarianism are some of the subcategories of Consequentialism. Egoism states that people should consider their own interests first and foremost (Baron, et al.,1997). Looking from an Egoistic perspective I ought to have cancelled any further association with the fast foodRead MoreNormative Theories Of Ethics And Its Principles2769 Words   |  12 Pages Normative theories of ethics The area of philosophy which is concerned with systematizing, defending and recommendation the concepts of right and wrong is briefly defined as ethics. Thus, ethics can be consider as a set of moral rules practiced by a group of people or community. The origin of word Ethics is greece, derived from the word ‘ethikos’, meaning habit. The theories of ethics and its principles are the standing pillars of ethical analysis. These ethical theories areRead MoreThe Price Good Men Pay For Indifference3633 Words   |  15 Pagesindividuals, inclusive of interactions in business. An ethical dilemma can be defined as an instance where moral considerations are pertinent and have the possibility to escalate to an ethical dilemma. For instance a decision or situation that morally requires two or more courses of action that are conflicting or a decision that should be taken in self interest but can intrude upon a moral principle. (Robinson, 2003) Essentially an ethical dilemma is a situation where there is no perfect solutionRead MoreMy View Of Human Morality Essay1844 Words   |  8 Pagesunderstands that life is important hence he or she needs moral values, which act as guiding principles. Our values form the foundation of our lives. They dictate the choices we make and determine the direction that our life takes. Our values will influence our decisions related to our relationships, career, and other activities we engage in. The world we lived is complicated that there exist no universal morality and absolute freedom and since our morals are unique and shaped by our individual experienceRead MoreAltruism, Trust, Integrity, And Professionalism3879 Words   |  16 PagesAbstract: Altruism is a feeling and behavior that shows a desire to help other people and a lack of selfishness. Professional organizations have codified standards of conduct or ethics. The United States Army (Army) is a branch of military service and one of the nation?s professions of arms. The Army demonstrates professionalism through trustworthiness, performance of duty, and strength of character. Each of these has an established standard based on statute, regulation, or doctrinal principle. Standards

Justification And Weaknesses Of Non

Justification And Weaknesses Of Non-Interpretive Essay Justification and Weaknesses of the Non-Interpretive Model Brief: Justification and Weaknesses of the Non-Interpretive Model The question of Constitutional interpretation still has yet to be resolved. Should only the explicit commands of our nations Founding Fathers be referenced in courts of law, or can it be justified that an outside body should extrapolate from the specific text of the Constitution to define and defend additional fundamental rights? Further, if this body, namely the Supreme Court, bases its decisions of constitutional relevance not wholly on exact interpretation, then regardless of reason, are they wholly illegitimate? The non-interpretive model allows the Court to interpret beyond the exact wording of the Constitution to define and protect the values of a society. The question of how the non-interpretative model can be justified must be answered. Despite much remaining confusion between the two models, it is clear that history has chosen the non-interpretative model without which many of the defining points in our nations history would be unjustified. The overwhelming strength of the non-interpretive model is that it has allowed for many fundamental decisions that have served to protect the natural rights of the members of this society. If on the other hand the interpretive model is to be accepted, a significant number of decisions must be revoked. Briefly, the majority of the due process clause is no longer justified. Fair criminal and civil procedures must be dismantled since they have no specific textual reference in the Constitution. Freedom of speech, religion, and property rights are all called in question. Also affected is the legitimacy of franchise and legislative apportionment bodies of doctrine. The equal protection clause of the Constitution when read literally outlines the defense of some forms of racial discrimination. However, it does not immediately guarantee the right to vote, eligibility for office, or the right to serve on a jury. Additionally, the clause does not suggest that equal-facility segregation is not to be allowed. Finally, the freedom from cruel and unusual punishments as outlined in the eighth amendment loses its flexibility. In this manner, a prima facie argument against the interpretive model is evident. Without the ability to move beyond the specific wording, the Court loses its authority to protect what society values as basic human rights. A fundamental question relevant to this debate is whether or not values within our society are time-enduring or changing. When the Supreme Court makes a controversial decision, does it use the text of the Constitution to legitimize principles of natural law, social norms and arrangements? Or, is it acting as an interpreter of slowly changing values and imposing its views on society through its decisions? The Constitution is not a stagnant document; it is very much alive and changing with the times. Critics argue that the amendment process was created to allow change and that the role of the Judiciary does not include the power to change stated commands in addition to that of enforcing them. However, in many cases, the amendment process is inadequate for clarification of issues of human rights. A great virtue of the non-interpretive model is that the Court has the power to strike down unconstitutional legislation that allows for the Court to preserve the rights of the people. Non-interpretation then requires the application of understood codes, yet the decision-making process is far from mechanical. Critics contest that the Court should not have the ability to interpret societal values in a given period of time. However, as has been shown, history has upheld this tradition. A number of questions now arise. Is it practically wise to place the responsibility to define and protect human rights in the hands of Supreme Court Justices? The answer lies in ones interpretation of history. While it is true that the Court has made decisions that reflect its own biases and interests, it can be shown that the Court has also consistently acted to secure the rights of citizens and to limit federal and state powers. Following, is the definition and enforcement of human rights a judicial task? The adjudication of the Supreme Court over issues of human rights as opposed to this power residing in other branches of government must be answered. While there is no direct statement regarding judicial review in the Constitution, Marbury v. .ufa02ba4f77bda687e5fe00e37a6345c8 , .ufa02ba4f77bda687e5fe00e37a6345c8 .postImageUrl , .ufa02ba4f77bda687e5fe00e37a6345c8 .centered-text-area { min-height: 80px; position: relative; } .ufa02ba4f77bda687e5fe00e37a6345c8 , .ufa02ba4f77bda687e5fe00e37a6345c8:hover , .ufa02ba4f77bda687e5fe00e37a6345c8:visited , .ufa02ba4f77bda687e5fe00e37a6345c8:active { border:0!important; } .ufa02ba4f77bda687e5fe00e37a6345c8 .clearfix:after { content: ""; display: table; clear: both; } .ufa02ba4f77bda687e5fe00e37a6345c8 { display: block; transition: background-color 250ms; webkit-transition: background-color 250ms; width: 100%; opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; background-color: #95A5A6; } .ufa02ba4f77bda687e5fe00e37a6345c8:active , .ufa02ba4f77bda687e5fe00e37a6345c8:hover { opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; background-color: #2C3E50; } .ufa02ba4f77bda687e5fe00e37a6345c8 .centered-text-area { width: 100%; position: relative ; } .ufa02ba4f77bda687e5fe00e37a6345c8 .ctaText { border-bottom: 0 solid #fff; color: #2980B9; font-size: 16px; font-weight: bold; margin: 0; padding: 0; text-decoration: underline; } .ufa02ba4f77bda687e5fe00e37a6345c8 .postTitle { color: #FFFFFF; font-size: 16px; font-weight: 600; margin: 0; padding: 0; width: 100%; } .ufa02ba4f77bda687e5fe00e37a6345c8 .ctaButton { background-color: #7F8C8D!important; color: #2980B9; border: none; border-radius: 3px; box-shadow: none; font-size: 14px; font-weight: bold; line-height: 26px; moz-border-radius: 3px; text-align: center; text-decoration: none; text-shadow: none; width: 80px; min-height: 80px; background: url(https://artscolumbia.org/wp-content/plugins/intelly-related-posts/assets/images/simple-arrow.png)no-repeat; position: absolute; right: 0; top: 0; } .ufa02ba4f77bda687e5fe00e37a6345c8:hover .ctaButton { background-color: #34495E!important; } .ufa02ba4f77bda687e5fe00e37a6345c8 .centered-text { display: table; height: 80px; padding-left : 18px; top: 0; } .ufa02ba4f77bda687e5fe00e37a6345c8 .ufa02ba4f77bda687e5fe00e37a6345c8-content { display: table-cell; margin: 0; padding: 0; padding-right: 108px; position: relative; vertical-align: middle; width: 100%; } .ufa02ba4f77bda687e5fe00e37a6345c8:after { content: ""; display: block; clear: both; } READ: Soldiers Of Destruction By Charles W. Sydnor, Jr: Eicke’S Cultivation Of Elitism Essay Madison is referenced here as the greatest of all cases justifying this judicial power. Thus arises the penultimate question of the authority of the Supreme Court. Constitutional adjudication was allowed for implicitly by the Founding Fathers. Only some of the principles of higher law were written down in the original document; however, the distinction between those .