Equilibrium Le Chateliers principle

Balance Le Chateliers rule Presentation: Balance is characterized as where the forward and turn around paces of a response are equivalent (1). A framework in powerful balance is a particular case of a framework in a consistent state. In this consistent express the pace of sources of info and yields in the framework is equivalent, so the cosmetics of the framework is unaltered after some time (3). Le Chateliers guideline can be utilized to foresee how an adjustment in conditions will influence substance harmony. This guideline expresses that if a substance framework at harmony experiences an adjustment in focus, temperature, volume, or weight, than the balance movements to counterbalance the change; moreover, any adjustment in these territories starts a contrary response in the influenced framework (2). This guideline is utilized to impact the aftereffects of reversible responses (1). When a response has arrived at balance, the harmony convergences of every reactant and item are known, one can utilize a condition to decide the balance steady (3). The steady consistently has a similar incentive as long as the temperature stays steady (2). The condition used to decide this steady is characterized as the grouping of the items (to the intensity of the stochiometric coefficients) over the convergence of the items likewise to the intensity of the stoichiometric coefficients (3). When you know to what exactly side of the response harmony movements to you can decide the prevailing species or coordination compound. A coordination compound is characterized as an aggravate that contains a coordination complex, which is a structure comprised of a focal particle clung to an encompassing grouping of atoms or ligands (1). Coordination is a reference to the organize covalent bonds between the ligands and the focal molecule (1). These bonds happen through the giving or tolerating of electron sets. Gatherings giving electron sets are the ligands (Lewis bases) while bunches tolerating sets are normally progress metal cations (1). The reason for this lab is to figure out how to apply this foundation data to all the more likely see how changes in harmony blend are influenced by misleadingly applied changes. When the progressions are applied expectations are made for shifts in harmony. Understudies will complete the investigation and figure out what side harmony really moves to. This assurance, using Le Chatleliers rule, will at that point be utilized to figure out which is the prevailing species, or coordination complex in every response. Method: All through the trial the shading and perceptions were constantly made. The cobalt (II) edifices were set up by including 3 mL of deionized water to the strong CoClv(2)†¢6Hv(2)O. In another test tube 3 mL of 12 M HCl was added to the strong CoClv(2)†¢6Hv(2)O. 0.309 g of CuClv(2)†¢2Hv(2)O was broken up in a little recepticle and the shading was recorded; 10 mL of deionized water Next, the arrangement was uniformly filled three test tubes. In the hood, 4 mL of 6 M NHv(3) was added dropwise to the principal test tube until the arrangement turned out to be obvious to frame [Cuv(9)NHv(3))4(Hv(2)O)v(2)] ²+. In the subsequent test tube, 10 drops of NaOH was added and perceptions were recorded to frame Cu(OH)v(2). We estimated 5 mL of 6 M HCl and added it to the third test cylinder to frame [CoCl4] ². 15 mL of a 0.1 M arrangement of CoClv(2)†¢6Hv(2)O was put in a little container. Utilizing a pipet, 2.0 mL of the arrangement was filled every one of the five marked test tubes. Test tube #1 was saved and utilized as a control. Set up isolated outlines for the expansion of reagents (HCl, NaCl, and HNOv(3)), expansion of water to test tube #3, warming to 100 ?C test tube #2-5, and cooling to 0 ?C test tube #2-5. Each graph ought to contain an expectation, perceptions, and dominating complex section. 0.3 g of CuClv(2)†¢2Hv(2)O was put in a 125 mL Erlenmeyer carafe and broke down by 3mL of deionized water; perceptions were made. An outline was set up for the expansion dropwise of NHv(3) (45 drops), HCl, and H2O to a cup and perceptions were recorded. Half of the arrangement was filled a container. One was warmed; the other was cooled, and thought about. The warmth was turned up high to heat up the arrangement and perceptions were made. Conversation: This analysis related Le Chateliers Principle to moving harmony. There is an enormous impact on the situation of harmony by the expansion of an animal categories which takes an interest this balance. At the point when an animal groups is included that responds and frames an overwhelming complex the balance will move to keep everything equivalent. A case of this is when HCl is added to the cobalt complex. The moving of harmony can be seen when the arrangement begins at pink shading and when HCl is added it changes shading to blue. The overwhelming complex is Cobalt Chloride. Water was included the above arrangement and the complex turned around to pink. The dominating complex abandoned cobalt chloride to [Co(H2O)6]2+. Water isn't legitimately taking an interest in balance however it despite everything responds with species in the arrangement and in this manner in a roundabout way causes a move in harmony. Water is a dissolvable and any dissolvable doesn't show up in the harmony condit ion in spite of the fact that it will even now have an impact of balance. This impact is equivalent to referenced before in that the dissolvable could respond with an animal varieties in the arrangement and cause an imbalance in balance along these lines causing a move. Science Encyclopedia database. http://science.jrank.org/pages/1771/Coordination Compound.html. (Gotten to November 1, 2009) Clackamus Community College database. http://dl.clackamas.edu/ch105-03/dynamic.htm (Accessed November 1, 2009) Chemguide database. http://www.chemguide.co.uk/physical/equilibria/lechatelier.html

Nationalist state in southern Africa

Presentation The birthplace of African state in the cutting edge time frame goes back to the pre-pioneer time. African history and present day are entirely unexpected, and its contemporary political and monetary structures are unique. Africa state has fizzled as a result of inner debasement, poor administration and antagonistic outer condition, yet this can be improved. Southern Africa state is one of the perceived states in Africa.Advertising We will compose a custom research paper test on Nationalist state in southern Africa explicitly for you for just $16.05 $11/page Learn More There are a few experimental and socially developed properties that can be distinguished in Southern African district. The majority of the contemporary states, in Southern Africa, district share a similar pilgrim and postcolonial history. The district was initially colonized by Portuguese on the two coasts, today these are Mozambique and Angola. The Dutch colonized South Africa. Angola, Mozambique, and Nami bia were under the German guideline. The other Southern nations were under the majestic British (Gerhart 143). Today the Anglo phonetic, political and monetary legacy is a comparable component in the vast majority of these nations. Freedom developments in Angola, Zimbabwe, Namibia, Mozambique and Southern Africa turned to furnished battle to accomplish autonomy. The Cold war created politically-sanctioned racial segregation in South Africa, which crusaded for provincial destabilization against neighboring nations, and the impact was felt in all Southern African nations. For this situation, would examine the patriotism in South Africa as a foundation of majority rules system and advancement, just as an obstruction forestalling the accomplishment of these objectives. South Africa’s patriot state South Africa is a nation, which is found in the Southern piece of Africa. It comprises of nine regions. Its neighbors toward the north are Namibia, Botswana and Zimbabwe. Toward the eas t its neighbor is Mozambique and Swaziland. Lesotho is encircled by A south African area. The nation contains a few ethnic gatherings and has various societies and dialects. Eleven authority dialects are perceived by the administration of South Africa. Two of these dialects began from Europe, Afrikaans and South African English. The entirety of the ethnic clans and dialects are politically spoken to in the country’s protected majority rule government. In South Africa, the head of state is additionally the head of government, he is known as the reliant president. Greater part of South African populace is of dark African starting point. This populace is partitioned into a few ethnic gatherings communicating in different Bantu dialects. The nation has numerous clans of European, Asian and racially blended starting points in Africa. As indicated by the World Bank, South Africa is an upper center, pay economy along with Botswana, Gabon and Mauritius.Advertising Looking for examine paper on political theories? How about we check whether we can support you! Get your first paper with 15% OFF Learn More The nation is positioned as the greatest economy in Africa and is the 28th biggest economy on the planet. Around 25% of the populace is jobless; South Africa was colonized by both British and Boers (Gerhart 123). South Africa was known as Cape Town, and it turned into a British settlement in 1806. In 1820s, the Dutch and the British gained land in the north and east of South Africa. The Great Britain gained full control of the Cape of Good Hope in 1795. It likewise returned Cape Town to the Dutch in the year 1803. In mid nineteenth century, the Zulu people group overwhelmed the nation and expanded their region under their pioneer Shaka the Zulu. In 1830s, the Boers established the South Africa republic. In 1867 precious stone was found and gold was found in 1884 (Benson 213). The disclosure of these minerals prompted the mineral insurgency and expanded financial development and movement. There was a battle to control these assets between the indigenous individuals and Europeans, additionally between the Boers and the British. During the main Boer war (1880-1881), the Boers rebelled against the British infringements by utilizing guerrilla fighting strategies, which fit the nearby condition. The British, fought back with an extraordinary number of fighters, and another system was created in the subsequent Boer war (1899-1902), and they succeeded. During the pilgrim time, racial isolation was not formalized, albeit a few guidelines were set up to oversee the exercises of the nearby individuals. In 1909 association of South Africa was made. This association was commanded by the British Empire. It confined the dark individuals from claiming land in South Africa. As of now, the indigenous individuals controlled just 7% of the nation. Racial isolation was lawfully regulated by the British, and it was later known as politically-sanctioned racial se gregation. The British government recognized three racial classes, white, shaded and the dark. In 1931the association was given autonomy from the British government. The South African gathering and the national party joined to shape joined gathering. The national party was chosen for power in 1948, and it reinforced the racial isolation. The patriot government bunch individuals into three racial classifications and created rights and limitations for each.Advertising We will compose a custom research paper test on Nationalist state in southern Africa explicitly for you for just $16.05 $11/page Learn More The couple of white individuals controlled the enormous number of individuals. The racial isolation was alluded to as politically-sanctioned racial segregation. The white minority individuals in South Africa carried on with an exclusive requirement of life while the dark larger part individuals were living in poor condition. In 1961the nation turned into a republic and left the feder ation. Sovereign Elizabeth was not, at this point the head of state, and the last representative general was chosen as the president. The administration kept grasping politically-sanctioned racial segregation notwithstanding a great deal of resistance from individuals inside and outside the nation. Some western nations and associations began boycotting, working with South Africa. The administration mistreated the politically-sanctioned racial segregation opposition developments and viciousness turned out to be wide spread in South Africa. The national party government lifted the prohibition on the African national congress and other political developments in 1991. In 1994, South Africa held its first broad political race, which Africa National Congress won by a major edge. South Africa rejoined the province around the same time. Patriotism is a political belief system which implies, the ID of a gathering of individuals with objective element portrayed in national terms. Patriotism m akes national personality. It is an idea that one nation is better than every single other state. It can likewise be depicted as the arrival to a national past and now and again constraining outsiders out of the nation. It includes the foundation of a free satiate as a home for an ethnic network. National banners and national songs of devotion represent the character of a country. It is identified with the cutting edge state and the push for power. It has become the most compelling political and social factors ever. The patriot state is an organization for bringing majority rules system and advancement, despite the fact that it likewise frustrates accomplishment of these objectives. This is clear as it offers the political pioneers a chance to control the individuals of a specific country. In South Africa, patriotism began in the nineteenth century because of the effect of Christian missions and the establishment of a non racial constitution in Cape Town. Strategic Africans improve huge impact inside Cape legislative issues. Before the century's over, another African first class bunch had developed which was focused on non racial belief systems. In twentieth century, a few thoughts were created including an extreme desire that Africans would need to set up their own political force for the change of society. South Africa encountered the improvement of moderate African patriotism worried about non-radical thoughts. The advancement of Cape constitution was expected to improve the social states of Africans.Advertising Searching for explore paper on political theories? We should check whether we can support you! Get your first paper with 15% OFF Find out More African elites started to develop, for example, educators, priests of religion, ranchers, representatives and editors. Political pioneers in South Africa depended on the goals of the Cape constitution. Today South Africa is a free express this infers it is a patriot state . Patriotism has prompted vote based system in South Africa. On the hand, usually the monetary development rate following 15 years of majority rule government has prompted issues of neediness and Un-business. This has come about to military fights, vicious activity by the two dissenters and the police. The administration of South Africa accepts that the successful state foundations are a focal trademark; this has caused incapability inside South Africa. Patriotism has additionally prompted administration inside the administration emergency clinics and common wellbeing offices; this is a block to the advancement of clinical offices. It is a western course to advancement. In South Africa, it has prompted improvement o f present day frameworks and different offices. Then again, it declares the character of a national culture. Consequently patriotism supposedly rejects and acknowledge the strength of western culture. It has prompted the foundation of trend setting innovation in South Africa. Then again, the cutting edge innovation is requesting. Patriotism in South Africa has prompted the development of a dark class, which is a, focal approach, and it is a type of racial isolation. Then again, it is a procedure for breaking the mastery of whites in South Africa. Work value enactment in South Africa energizes the work of dark Africans; this encourages the state to utilize its assets to shape dark business class. On the hand, inability to include the whites in the business program obstructs advancement and democ

Morrisons PLC Essay Example | Topics and Well Written Essays - 2500 words

Morrisons PLC - Essay Example extraordinarily during a period where extraordinary rivalry and rising costs of working together in staple have crushed overall revenues accessible to retailers. Morrisons has as of late experienced misfortunes as it has attempted to incorporate the Safeway chain of stores into its own retail base, which has made its yearly benefits drop considerably. Its offers plunged 3% in 2005, to recoup to some degree before the year's over and close off at 183 p or a 2% plunge of 3.75 pence.(Flanagan, 2005). Instead of the expectations of budgetary examiners of a salary of around 225 million pounds, it just posted benefits of around 134.2 million pounds before tax assessment, with an income for each portion of 3 pounds and 52 pence.(www.morrisons.co.uk, 2006/7). In 2006 in any case, the position has improved for the 52 weeks that finished January 29, 2006, according to the reexamined pay articulation that has as of late been distributed by Morrisons.(www.morrisons.co.uk, 2007). While the misfortunes before tax assessment were accounted for as 312.9 million pounds, a similar figure shoots upward to 374.4 million pounds when considering the Safeway transformation costs. Notwithstanding, the balanced salary before tax collection is 61.5 million pounds benefit, with net benefit after charges being 45.9 million pounds. Be that as it may, as called attention to over, the profit per portion of the Company have dropped to 3.52 pounds per share in 2006. The present offer costs of Morrison stock is in the scope of 250 to 260 pence and has been moving inside this range to around 350 pence, which is a normal of around 3 pounds for every offer. The cost to income proportion is subsequently 3/3.5 = 0.87, which gives a sign that the stock might be overrated when contrasted with the profits that are being produced from it. Profit on stocks are not considerable either, and the significant expense to income proportion gives a sign that that financial specialists may not be effectively seeking after acquisition of this stock on account of their observation that it doesn't offer exceptionally high potential for gain and is in

Descriptive Approach To Chinese Culture And Possible Stereotypes - 2475 Words

Descriptive Approach To Chinese Culture And Possible Stereotypes (Coursework Sample) Content: Chinese CultureStudents NameInstitutional AffiliationDateAbstractCulture is the conformity to beliefs and behavior patterns by a group of people that form the base of similar characteristics and knowledge, which are learned from socializing. The appreciation of what the group believes in and the interactions amongst themselves brings a sense of identity of being a member of the culture brought about by cognitive constructs and understanding, which is fostered by varying unique cultural groups (Kroeber Kluckhohn 1952). The sense of sharing similar cultural heritage creates multiple groups that practice different norms which only them understands. In the world, there are thousands of cultural groups defined by beliefs, religion, food, lifestyle, clothing, arts, social habits, and music.Chinese culture is one of the many existing cultural groups and has millions of members. The culture is more than 5000 years old and currently has evolved to co-exist with the western cu lture. In China, the co-existence of sky crappers with the old traditional heritage buildings is evidence of the Chinese culture evolution. With 59 ethnic groups, the Chinese culture is still evolving, and Buddhism is the most practiced religion. The Chinese culture has some values they hold dear including courtesy, harmony, filial piety righteousness, wisdom, loyalty, benevolence, and honesty. The values form the core of the culture, and the results of the values are seen in how they make foreign policies and how they resolve conflicts amongst themselves and outside world.Ethnocentrism refers to the sense of cultural superiority and underestimating other cultures. Individuals of a particular group overestimate their culture eight times while they are underestimating the other group. The sense of superiority encroaches by failing to appreciate the cultural beliefs and heritage of other cultural groups and tending to assume them as powerless and treat them poorly. The individuals bel ieve that their culture is best and the values and virtues fit best in tackling world problems and provide ultimate solutions compared to other cultural groups. They use economic and social status as metrics of superiority. Communication and interactions have proved to leverage the problem as the individuals get to learn the cultural values and virtues and get to appreciate them. This way, the individual understands that each culture has values and some are better than theirs.Stereotyping is the negative attitude towards a particular cultural group developed from ethnocentrism. A continuous sense of superiority leads to the false belief of psychological characteristics of the culture group. Stereotyping results in discrimination, which negatively affects relationships between various cultural groups. The stereotyping happens in various means including media, which is most used in spreading misconceptions about various cultural groups. However, interactions and communication with ind ividuals from different cultural groups can help in reducing stereotyping of cultural groups. Stereotyping of Chinese culture is most evident in western culture, which depicts them as inferior, and not industrialized and competent than them.The following examples indicate high stereotyping levels of Chinese culture by media in the USA. To many, who have come to learn and understand the culture they can see how the stereotype comes out in the video. The first example is a film Sick Man of Asia. In the film, poverty and diseases are used to depict the way of life of Chinese. Although Chinese had many valuable resources, the film portrayed them as people who could not use their brains and come up with ideas they could utilize the resources. On the other hand, the Chinese government in place would collaborate with the westerns governors who would in turn mine the resources and ship them to the USA. This depicts that the USA is a superpower and their knowledge is far above that of the Ch inese. Also, there is a scene where a western boxer faces a Chinese, and he beats him ten- nil. This shows that the western boxing is not a match to the filthy Kung-Fu skills. The entire, movie depicts the superiority of the western culture and this is indeed a misconception as the Chinese has taken over the economic developments and have utilized the natural resources to be a superpower.Also in the Big Bang Theory the main character Jim Parsons after being asked where he was, he produced a photo of a train full of Chinese. This is a stereotype indicating that communication means in the china are not yet developed. However, it is a fact that China has 11,808 miles of high-speed rail which is the longest in the world. Also, China has the modern rail network with modern trains. This, however, stays to be an underlooked fact and western culture still perceive Chinese culture as a backward culture slow to develop and timid in their progress. This fact is vivid in the current acquisitio n of Volvo Company by Geely, the Ford Company owner and a Chinese. Though the acquisition came after Volvo couldnt put up with the competitive Ford, most Americans still see it Geely was sponsored by the China Government. This has been doing rounds on the media stations in the USA.Individualism and collectivismAccording to the above examples, western media depict Chinese culture to have a collectivist view, but many types of research have described them to have individualism view. There are two standard means of understanding the relationship between individuals in a cultural group. They include individualism, which states that each makes their own choices and also the degree they connect with the rest of the group is personal. Collectivism is the 2nd method, and sees the group as the primary entity, with the group members blindly following a collective decision blindly.The western media view of Chinese culture to have a collectivist view makes them stereotype them in having the mak e poor judgments and be lenient in learning to think for themselves. It paints them as slaves to their own rules and the problems they face as created by lack of freedom to have their individual voice heard. The continued stereotyping has completely blinded the American to appreciate the significant developments being made by Chinese innovators and take their great moves for granted. Their perception sees the group as the essential aspect, and individuals are just members of the group. Instead of evaluating the team as a lot of people interacting, it judges the group as a whole and views the individuals as mere members of the team.The collectivist view brings the notion of mob mentality that sometimes if affected by peers ending up making wavering and baseless decisions. In this regard, media observes Chinese decisions as being influenced by the peer thinking that takes away the personal ability to think and to reason in a decisive way. This forms the base for racism where individua ls judge a certain member of a cultural group by the group deeds rather than by the individual deeds.However, research by Fan (2000) on the Chinese culture has a different perception from that given by western media. According to Fan, the Chinese culture uniqueness is implied by the recognition that an individual is different from everybody else and composes his very own mind about things. Chinese culture respects that a person is a separate entity with the ability to make his own choices believing his ideas, and also being responsible for his very own deeds. The Chinese culture gives the group members the freedom to think and do whatever they wish but then make them understand that they also stand the charge of their own deeds whether good or bad. In some instances, however, if the individual choice may affect the well-being being of the entire cultural group various measures are taken to curb the situation. In this regard, it is clear that the collectivist view of the western cult ure is a misconception represented as facts, but they are wrong.Long-term vs. Short-termThere has been a conception in the media about chine products being short-term and the western products being long-term. The western countries have continuously been in quality crisis with China to the extent of locking them out in trade (Fan, 2000). The media depict Chinese culture as short-term decision makers and like to get the short-term profit that affects Long-term viability. There are so many locked out projects such as solar panel project which was immaturely put on hold saying that the supply was of poor quality. Since then, there has been a misconception that everything from China is of poor quality. There are very many videos showing how fragile China products are. This misconception has seen China shift its market to Europe and Africa where they have dominated and are becoming a superpower. They have established many long-term projects, and when we are busy ridiculing them, they are making massive steps in world economic domination.According to (Lin, Wang, Zhou, Wei) China has embraced technology which makes them produce long-lasting goods. Also, they indicate that China has signed long-time deals with various counties and have provided infrastructure to different developing countries which have not encountered a problem to date. While America is busy stereotyping China of short-term products, other countries have understood the misconception and have given them a chance to build their infrastructures. In return, China is reaping significant profits, which is turning it into a superpower, which American cant see from being blinded by the fact that Chinese culture makes short-term decisions. While USA government is terming China as adamant in taking responsibility, many countries have formed a healthy relationship with China, and they always respond to issues based on the projects they ...

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.