基于vb.net的個人理財系統——界面設計【畢業(yè)論文】

上傳人：奔*** IP屬地：河北更新時間：2024-11-15 格式：doc 頁數：49 大小：1.97MB 人氣指數：12 舉報 版權申訴

已閱讀1頁，還剩48頁未讀，繼續(xù)免費閱讀

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　本科畢業(yè)設計　?。?0 屆）　　基于VB.NET的個人理財系統——界面設計　　所在學院 　　專業(yè)班級

2、通信工程 　　學生姓名學號 　　指導教師職稱 　　完成日期年月 　　摘要</

3、b>　　個人理財系統是典型的信息管理系統，其開發(fā)主要包括前端應用程序的開發(fā)以及后臺數據庫的建立和維護兩個方面。對于前者要求應用程序功能完備,易使用等特點。而后者則要求建立起數據一致性好、完整性全、數據安全性好的庫。開發(fā)的功能主要包括：通過計算機管理個人財產實現無紙化理財，通過查詢分析，分析出生活中的浪費和節(jié)約的地方，通過強大的查詢和檢索，高效的檢索出數據，提高辦事效率。對于現如今高效的生活

4、，這種系統將深受用戶的歡迎。　　本文個人理財系統的設計是通過VB.NET來實現的。用戶通過使用該軟件可以對自己的財產信息添加、修改連接后臺數據庫，數據庫連接成功后對用戶信息進行存儲，在需要查看時可以通過界面軟件調出需要查看的信息，以便用戶分析自己的財產信息。借助這次設計的VB界面程序，理財軟件運行良好。　　關鍵字：VB.NET；界面設計；個人理財<

5、/p>　　Abstract 　　Personal financial management system is a typical management information system，Which development mainly includes the back-end database establishment

6、 and maintenance and front-end application development of the two。The request of former is applications fully functional, easy to use features。While the latter requirement to establish database of good for the consistenc

7、y, good for the completeness, good for the security。Development features include：personal property through the computer management　　This personal financial management system is designed to achieve th

8、rough VB.NET. Users can use the software for their own property information to add, change background database connection, database connection is successful the information stored on the user, the need to see the softwar

9、e can be transferred through the interface that need to view information for users to analyze their own property information。With this design of the VB interface procedures, financial management software to run we</p&

10、gt;　　Key words: VB.NET; Interface Design; Personal Finance　　目錄　　一緒論6　　1.1課題研究背景6

11、1.2課題研究意義6　　1.3開發(fā)工作及論文主要內容7　　二系統開發(fā)環(huán)境簡介8　　2．1開發(fā)環(huán)境8　　2．2開發(fā)工具簡介8　　2.2.1VB.NET的特點9

12、　　2.2.2VB的基本功能和概念10　　三系統設計11　　3.1概要設計11　　3．1．1概要設計階段的主要任務11　　3．1．2概要設計的過程11　　3．1

13、．3概要設計的原則11　　3．1．4系統功能分析11　　3．2詳細設計12　　3．2．1詳細設計的任務12　　3．2．2詳細設計的方法13　　四客戶端軟件設計實現14　　4.

14、1進入界面的設計與實現14　　4.1.1進入界面的樣式圖14　　4.1.2進入界面的實現過程14　　4.2主界面的設計與實現18　　4.2.1主界面的樣式如圖18　　4.2.2主界面的實現過程18

15、　　4.3查看模塊的實現23　　4.3.1收支分類查看按鈕代碼23　　4.3.2現金交易查看按鈕代碼23　　4.3.3債務債權查看按鈕代碼23　　4.3.4固定資產查看按鈕代碼24　　4.3.5日記查

16、看按鈕代碼24　　4.4數據添加模塊的設計與實現25　　4.4.1添加模塊樣式25　　4.4.2添加界面的實現過程26　　4.5數據刪除模塊的設計與實現29　　五系統運行測試31<p&g

17、t;　　5.1運行情況31　　5.1.1.進入界面的運行31　　5.1.2.主界面運行31　　5.1.3.查看模塊界面32　　5.1.4.添加模塊運行界面33　　5.1.5.數據刪除模塊運行界面35

18、　　六結束語36　　致謝錯誤!未定義書簽。　　參考文獻37　　附錄1 主要源程序代碼38　　附錄2 畢業(yè)設計作品說明書48

19、;　　一緒論　　1.1課題研究背景　　隨著計算機的日益普及，它給人們帶來了高效的辦事效率，人們的生活越來越離不開計算機。計算機在處理對象、處理方法上都發(fā)生了很大的變化。作為計算機科學的重要分支——數據庫技術，也被越來越多的應用領域用來存儲和處理他們的所需的信息資源。計算機已經不

20、再僅僅是科學研究的工具，它越來越多地影響到了我們生活的諸多方面，日益增多的應用軟件的出現給人們的生活帶來了極大的便利。近年來隨著國內外社會經濟和科學技術的不斷改革和發(fā)展，各種各樣的開銷與收入也越來越多，很多人對于日常帳目的管理感到越來越力不從心，收支管理已刻不容緩，在現如今的大多數家庭里，由于計算機理財方面知識的缺乏，人們還是采用傳統的手寫記帳方法，這種記賬方式存在許多的缺陷，如：效率低、保密性差，同時如果時間一長，將產生大量的冗余文件

21、和數據，這對于查找、更新和維護工作都帶來了很大的困難。個人理財系統就是通過計算機對人們日常的收支進行管理，具有相關的收支情況查詢和錄入等功能，由計算機代替人們來統計數據可使人們從繁重的勞動中解脫出來，大大提高人們的辦事效率，通過一些簡單的輸入操作，及時、準確地獲得需要的信息。　　1.2課題研究意義　　收支管理是個人以

22、及家庭日常生活必不可少的一部分，它對于財務管理者來說更是至關重要。理財系統能夠為用戶提供完整，正確靈活的理財信息和快速效率的分析手段。但一直以來人們都使用傳統的人工方式文件、紙張管理模式，這種管理方式存在著許多缺點，如：效率低、保密性差，另外時間一長將產生大量的文件和數據，這對于查找、更新和維護帶來不少的困難。所以利用計算機實現財務信息的管理自動化勢在必行。使用計算機對個人以及家庭財務信息進行管理具有許多手工管理所無法比擬的優(yōu)點如：檢索

23、方便迅速、可靠性高、存儲量大、保密性高等。這些優(yōu)點能極大效率的提高個人財務管理。但對于目前的情況來言，個人理財系統的使用還普遍基本以手工為主，迫切需要開發(fā)新系統來提高人們的理財效率，以最少的代價，獲取最大的收益。　　1.3開發(fā)工作及論文主要內容　　本次課題主要研究的內容是基于VB.NET設計的一個個人理財管理系統。最終的設計目標是熟悉面向對象編程及其開發(fā)

24、技術，同時可以熟練使用在Visual Studio開發(fā)平臺上進行編程。以Visual Basic語言為編程語言，使用SQL Server2000為數據庫平臺。實現財務的收入及支出，帳目統計及查詢等功能。同時實現客戶端界面友好美觀。　　論文分成五章來介紹個人理財系統的實現，從開發(fā)所需要的相關知識到開發(fā)的方案以及開發(fā)過程都有所涉及。第一章主要為本次課題的概述，介紹個人理財系統開發(fā)的背景和意義等。第二

25、章為系統開發(fā)環(huán)境和關鍵技術，主要介紹了開發(fā)工具的軟硬件要求以及對開發(fā)工具的特點進行介紹。第三章為系統設計。第四章為詳細的設計的設計過程，具體的各個模塊實現實現步驟，以及關鍵代碼。第五章為系統的運行測試部分，是對本次設計做的結果運行分析。　　二系統開發(fā)環(huán)境簡介　　2．1開發(fā)環(huán)境

26、;　　衡量是否具備開發(fā)新系統所需的條件，一般可從軟硬件的性能要求、技術人員水平等方面去考慮和分析。計算機技術飛速發(fā)展，硬件條件不存在具備的問題而是在于是否有更優(yōu)質的資源選擇。軟件方面同樣進展神速，無論任何系統都難不到如今的計算機。本系統軟件就是由VB與SQL數據庫相結合而設計出來的。以下為本系統開發(fā)需求:　　本系統開發(fā)需求的軟件有：　?。?）Window

27、s XP操作系統；　　（2）VB.NET；　?。?）SQL 數據庫；　　本系統開發(fā)需求的硬件有：　　CPU為400MHZ以上；　　硬盤數據量最小配置為20G；　　計算機內存要求為128M以

28、上；　　2．2開發(fā)工具簡介　　Visual Basic.NET 是Microsoft 公司最新推出的Visual Studio.NET 可視化應用程序開發(fā)工具中的一個重要成員。Visuai Stdio.NET 是Microsoft 公司推車的第一個基于.NET 框架的可視化應用開發(fā)攻擊，其中包括Visual Basi

29、c.NET ,Visual C++.NET(簡稱VC++.NET)和Visual C#.NET（簡稱VC#.NET）等開發(fā)工具。Visual Studio.NET通過公共語言運行環(huán)境，將Visual Studio.NET，Visual C++.NET，Visual C#.NET等應用程序開發(fā)工具緊密地集成在一起，使他們共同使用同一個集成開發(fā)環(huán)境（Intergrated Development Environment，IDE），并使用同一

30、個基礎類庫，這樣大大簡化了應用程序的開發(fā)過程，為開發(fā)人員快速地創(chuàng)建分布式應用程序提供了強有力的支持[1]。　　Visual Basic.NET由Basic演化而來的但它卻是截然不同的一種語言，它提供了許多強大的功能，如圖形用戶界面，事件處理，訪問Windows 32位平臺的應用程序編程接口（Win32.API），面向對象編程和異常處理等。Visual Basic.NET是一種事件驅動的可視化編程

31、語言，它用集成開發(fā)環(huán)境（IDE）創(chuàng)建程序。在集成開發(fā)環(huán)境下，程序員能夠很方便的編寫，運行和調試Visual Basic程序，從而使創(chuàng)建工作的時間比不用IDE減少許多倍。　　2.2.1VB.NET的特點　　(1）面向對象的可視化設計平臺　　傳統的程序設計方法，需要花大量的精力在程序的界面設計上，同時設計的效果不能實

32、際顯示，需要程序運行時才能看到。如果對當前界面設計不滿意，需要反復不斷的對代碼進行修改，極大的影響了編程效率。在VB中才有面向對象的程序設計方法（OOP）把程序和數據“封裝”在一起成為一個對象，每個對象都是可視化的。在程序設計的過程中，程序員可以根據程序設計的需要在窗體上放置“窗口”，命令按鈕，文本框等不同類型的對象。窗體被設計好后，VB將自動生成對應的代碼，程序員只需要書寫實現程序的代碼即可[2,3,4]。&l

33、t;p>　　(2）事件驅動的編程體制　　在VB中采用了事件驅動的運行機制。所謂“事件驅動”是指當某個對象發(fā)生了某一事件后，就會驅動系統去執(zhí)行預先編好的，與這一事件對應的一段程序。例如，在程序運行時如果單擊命令按鈕，系統就會自動搜索并執(zhí)行click 事件過程。　　當面對一個較大的VB程序時，用戶往往要通過多個不同對象的對應事件驅動系統</p&g

34、t;　　連續(xù)執(zhí)行一個個相應的子程序以便完成整個程序的運行操作。[5,6,7]　　(3）開放的數據庫功能　　在VB中，除了它自身帶有一個完整的數據庫系統提供數據庫的全部功能外，還提供了較好的數據庫接口，能夠訪問包括Access，Excel和FoxPro等在內的多種格式數據庫。另外，也可以通過它的ODBC（open data base

35、connectivity，開放的數據連接）功能實現對后臺大型網絡數據庫的操作。如今，VB已被廣泛地應用于數據庫管理軟件開發(fā)之中[8,9]。　　(4）友好的開發(fā)環(huán)境　　VB中提供了強大的幫助系統。在Visual Basic開發(fā)環(huán)境中，設計任何一個VB應用程序可隨時進入VB的聯機幫助系統。通過幫助系統，人們可以系統的學習VB知識，方便地查找有關信息，解決編程

36、中所遇到的疑難問題，它是學習和使用VB的強力助手[10]。　　2.2.2VB的基本功能和概念　　(1）窗體設計器。所謂窗體就是程序運行時顯示在屏幕上的圖形界面，而窗體設計器就是程序開發(fā)人員設計構造這些程序界面的場所。開發(fā)人員按照設計需要，將工具箱中以圖標形式存在的工具（在VB中稱作控件）一一擺放到窗體設計器中并對這些控件的位置大小等外觀特性進行必要的設置

37、和修改，直到達到滿意的顯示效果為止。一個工程中包含多個窗體，每個窗體都擁有自己的窗體設計器。窗體就像一個容器，其上可以放其他控件[11,12]。　　(2）工具箱。工具箱中包含了設計窗體的所需的常用工具，即控件。這些控件屬于標準控件，用戶可以根據需要向工具箱中添加其他擴展的工具（ActiveX控件）　　3工具資源管理器。其類似windows的資源管理器。在

38、工程資源管理器中，系統以樹型結構列出程序所包含的所有工程，窗體及模塊。工程資源管理器簡稱為工程管理器。　　(4）對象屬性窗口。在VB中，窗體上的控件統稱為對象，每一對象都具有多種屬性，可以通過設置屬性來描述對象的特性和外觀。對象屬性窗口就是用來顯示對象的屬性，并且可以在該窗口中設置屬性值。通常系統在此已給出了所選對象個相關屬性的初始值。　　(5）查看代碼

39、按鈕和查看對象按鈕。設計一個VB應用程序，通常需要同時進行兩個方面的操作，即在對象窗口中設計用戶界面和在代碼窗口中編寫程序代碼。查看代碼按鈕和查看對象按鈕用于實現代碼窗口和對象窗口之間的快速切換。　　三系統設計　　3.1概要設計　　3．

40、1．1概要設計階段的主要任務　　(1）系統分析人員審查軟件計劃、軟件需求，提出最佳推薦方案，用系統流程圖，組成系統物理元素清單，對成本效益進行分析，供專家審定，審定后進入設計。　　(2）確定模塊結構，劃分功能模塊，將軟件功能需求分配給所劃分的最小單元模塊。確定各模塊之間的聯系，確定數據結構、文件結構、數據庫模式。

41、　　(3）編寫概要設計說明書，用戶使用手冊，選用結構圖來描述軟件結構。選擇分解功能與劃分模塊的設計原則，例如模塊劃分獨立性原則，信息隱蔽原則等。　　3．1．2概要設計的過程　　概要設計要先進行系統設計，復審系統計劃與需求分析，確定系統具體的實施方案；然后進行結構設計，確定軟件結構。　　3．1．3概要設計的原則&

42、lt;/p>　?、賹④浖澐殖扇舾瑟毩⒊煞值囊罁?。　?、谌绾伪硎静煌某煞謨鹊墓δ芗毠?jié)和數據結構。　?、廴绾谓y一衡量軟件設計的技術質量。　　3．1．4系統功能分析　　根據個人理財系統的日常工作流程與內容，預測開發(fā)的管理系統的達到的功能如下：&l

43、t;/p>　　1、收支分類：錄入以及刪除各種資金的收入及支出　　2、現金交易：錄入以及刪除現金的使用情況　　3、債務債權：錄入以及刪除資金的流轉借貸信息　　4、固定資產：錄入以及刪除各種固定類資產信息　　5、日記：記錄以及刪除各種信息及詳細使用

44、情況，能大量文字的表達　　6、退出系統　　根據以上分析，該系統考慮將整個系統分解成如圖3-1-4模塊結構圖:　　圖3-1 模塊結構圖　　并且在系統的開發(fā)過程中，盡量注意模塊的高內聚、低耦合，使得系統的整體性能提高，并且也有利于投入使

45、用后的系統維護。　　3．2詳細設計　　3．2．1詳細設計的任務　　詳細設計就是要在概要設計的基礎上，對系統中的每個模塊給出詳細的過程性描述。主要任務如下：①為每個模塊確定采用的算法，選擇適當的工具表達算法的過程，寫出每一個模塊的詳細過程性描述；②確定每一個模塊使用的數據結構；

46、③確定模塊接口的細節(jié)，包括對系統外部的接口和用戶界面，確定對系統內部其它模塊的接口，以及模塊輸入數據、輸出數據及局部數據的全部細節(jié)。④為每一個模塊設計出一組測試用例，以便于在編碼階段對模塊代碼對其進行預定的測試，模塊的測試用例是軟件測試計劃的重要組成部分，通常應包括輸入數據，期望輸出等內容。　　3．2．2詳細設計的方法　　本系統在開發(fā)過程中的詳細設計模塊

47、框圖：　　(1）查看模塊圖：　　圖3-2 查看模塊圖　?。?）增加模塊圖：　　圖3-3 增加模塊圖　?。?）刪除模塊圖：</b

48、>　　圖3-4 刪除模塊圖　　四客戶端軟件設計實現　　4.1進入界面的設計與實現　　4.1.1進入界面的樣式圖　　圖4-1 進入界面樣式圖　　界面包括的控件有標簽、文本框、命令按

49、鈕等控件以及背景圖片　　4.1.2進入界面的實現過程　　第一步將所需的控件放到窗體的相應位置。方法：首先在“工具箱”中選中所需的控件圖標，然后在表單上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到窗體上。如下圖：　　圖4-2 進入界面實現圖　　第二步，選擇窗體或

50、控件進行屬性設置，如圖為窗體的屬性設置界面，將界面屬性中的text屬性設置為個人理財系統窗體左上角就會顯示個人理財系統字樣:　?。?）設置窗體text屬性，如圖　　圖 4-3 text屬性圖　?。?）在backgroundimage屬性中添加背景圖片，如圖：　　圖4-4

51、backgroundimage屬性圖　?。?）單擊backgroundimage屬性框跳出添加界面，通過導入按鈕就可以進行添加圖片，如圖：　　圖 4-5 背景圖片導入圖　　第三步雙擊相應的控件，在控件的相應過程中編寫代碼：　?。?）如此窗體上“進入”與“退出”按鈕的代碼如

52、下：　　Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click　　Application.Exit()　　End Sub</b

53、>　　Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click　　jinru.Show()　　Me.Hide()</b&g

54、t;　　End Sub　　此段程序中button2為退出按鈕名稱，application.exit（）表示為結束程序運行，意思是當button2受到click事件時（單擊）結束程序運行。button1為進入按鈕名稱，jinru.show（）表示為名字為jinru的窗體顯示出來，me.Hide（）表示為當前窗體隱藏。&

55、lt;/p>　　(2)此窗體運行時的跳出確定位置代碼為：　　Private Sub home_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load　　Me.Left = (Screen.PrimaryScreen.Bounds.Wid

56、th - Me.Width) / 2 '設置當前窗口左上角橫坐標位置　　Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 '設置當前窗口左上角縱坐標位置　　End Sub　　4.2主界面

57、的設計與實現　　4.2.1主界面的樣式如圖　　圖4-6 主界面樣式圖　　界面包括的控件有圖片框、標簽、文本框、命令按鈕、數據顯示框等控件以及背景圖片　　4.2.2主界面的實現過程　　第一步:在項目菜單中選擇添加一個windows

58、窗體，如圖　　圖4-7 添加窗體圖　　第二步將所需的控件放到窗體的相應位置。方法：首先在“工具箱”中選中所需的控件DataGridView、button、picturebox，然后在表單上單擊鼠標并拖動鼠標，把由所選取的控件生成的對象添加到窗體上合適的位置上。如下圖：　　圖4-8 主界面實現圖</p&g

59、t;　　第三步，選擇窗體或控件進行屬性設置，將button、DataGridView、picturebox以及窗體命名為各種所需的用途有助于記憶的名字，同時將button、窗體的taxt屬性設置為各自用途名以便于使用者使用，屬性信息如圖：　　（1）窗體Name屬性　　圖4-9 Name屬性圖

60、;　?。?）窗體Text屬性　　圖4-10 Text屬性圖　　第四步：對窗體背景以及picturebox屬性進行圖片添加，　?。?）Picturebox控件的圖片屬性添加，如圖：　　圖4-11 picturebox的Image屬性圖<p&

61、gt;　　（2）窗體的背景圖片添加，點擊backgroundImage按鈕，如圖：　　圖4-12 窗體BackgroundImage屬性圖　?。?）點擊導入按鈕，即可進行圖片的導入，如圖　　圖4-13 窗體背景導入圖　　第五步，雙擊相應的控件，在控件的相應過程中編寫代

62、碼，具體代碼涉及到各個模塊功能，在各模塊中介紹。　　4.3查看模塊的實現　　查看模塊的建立實現在主界面的基礎之上，對主界面中的各個按鈕進行代碼添加以達到模塊功能的實現，具體代碼如下　　4.3.1收支分類查看按鈕代碼　　Private Sub Button1_Click(B

63、yVal sender As System.Object, ByVal e As System.EventArgs) Handles shouzhibt.Click　　Dim db As MyDataBase = New MyDataBase　　Dim dvSection As DataView　　dvSecti

64、on = db.RunSelectSQL("select * from 收支分類")　　If dvSection.Count > 0 Then '如果數據庫表"帳號表"中有記錄　　dtgrdvw.DataSource = dvSection

65、;　　End If　　tbNum = 0　　End Sub　　當按鈕受到click事件時從數據庫的收支分類表中讀取數據，顯示在主界面框的datagridview中　　4.3.2

66、現金交易查看按鈕代碼　　Private Sub xianjinbt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xianjinbt.Click　　Dim db As MyDataBase = New MyDataBase<

67、p>　　Dim dvSection As DataView　　dvSection = db.RunSelectSQL("select * from 現金交易表")　　If dvSection.Count > 0 Then '如果數據庫表"現金交易表"中有記錄<p

68、>　　dtgrdvw.DataSource = dvSection　　End If　　tbNum = 1　　End Sub　　當按鈕受到click事件時

69、從數據庫的現金交易表中讀取數據，顯示在主界面框的datagridview中　　4.3.3債務債權查看按鈕代碼　　Private Sub zhaiwubt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zhaiwubt.Click&

70、lt;p>　　Dim db As MyDataBase = New MyDataBase　　Dim dvSection As DataView　　dvSection = db.RunSelectSQL("select * from 債務債權表")　　If dvSection.Count

71、> 0 Then '如果數據庫表"債務債權表"中有記錄　　dtgrdvw.DataSource = dvSection　　End If　　tbNum = 2&

72、lt;b>　　End Sub　　當按鈕受到click事件時從數據庫的債務債權表中讀取數據，顯示在主界面框的datagridview中　　4.3.4固定資產查看按鈕代碼　　Private Sub zichanbt_Click(ByVal sender As System.Object, B

73、yVal e As System.EventArgs) Handles zichanbt.Click　　Dim db As MyDataBase = New MyDataBase　　Dim dvSection As DataView　　dvSection = db.RunSelectSQL("selec

74、t * from 固定資產表")　　If dvSection.Count > 0 Then '如果數據庫表"固定資產表"中有記錄　　dtgrdvw.DataSource = dvSection　　End If

75、　　tbNum = 3　　End Sub　　當按鈕受到click事件時從數據庫的固定資產表中讀取數據，顯示在主界面框的datagridview中　　4.3.5日記查看按鈕代碼

76、　　Private Sub rijibt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rijibt.Click　　Dim db As MyDataBase = New MyDataBase　　Dim dvSection As DataView</

77、p>　　dvSection = db.RunSelectSQL("select * from 日記")　　If dvSection.Count > 0 Then '如果數據庫表"日記表"中有記錄　　dtgrdvw.DataSource = dvSection</p

78、>　　End If　　tbNum = 4　　End Sub　　當按鈕受到click事件時從數據庫的日記表中讀取數據，顯示在主界面框的datagridview中</p&

79、gt;　　4.4數據添加模塊的設計與實現　　4.4.1添加模塊樣式　?。?）主界面中的查看、添加以及刪除按鈕，：如圖　　圖4-14 主界面添加、查看、刪除按鈕圖　　（2）添加界面<

80、p>　　圖4-15 添加數據界面圖　　4.4.2添加界面的實現過程　　第一步:在項目菜單中選擇添加一個windows窗體，如圖　　圖4-16 添加窗體控件圖　　第二步，在新建的窗體中添加控件標簽、文本框、命令按鈕等控件以及背景圖片并對其屬性進行修改設置</

81、p>　　第三步，對添加代碼界面中的各個控件進行代碼添加以實現數據的添加功能，例如收支分類項中的添加代碼如下;　　Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click　　Dim db

82、 As MyDataBase = New MyDataBase　　Dim dvSection As DataView　　Dim str As String　　str = "insert into 收支分類values('" 'SQL插入語句，表示收支

83、分類表中插入行　　str += TextBox1.Text.Trim() + "', '" '獲取編號　　str += TextBox2.Text.Trim() + "', '" '獲取名稱

84、;　　str += TextBox3.Text.Trim() + "', '" '獲取類型　　str += TextBox4.Text.Trim() + "')" '獲取說明　　dvSect

85、ion = db.RunSelectSQL(str) '執(zhí)行SQL語句　　MsgBox("保存成功")　　pForm.Form_Close(0) '向父窗口發(fā)送要關閉的當前子窗口的編號　　Me

86、.Close() '關閉當前子窗口　　End Sub　　定義一個str，把添加框中的數據添加到數據庫的收支分類表中，實現數據的添加。　　第四步，對主界面中的添加按鈕進行代碼添加，以便實現主界面中的添加按

87、鈕對添加界面的調用，具體代碼如下　?。?）添加按鈕代碼　　Private Sub btadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btadd.Click　　If t

88、bNum = 0 Then '如果當前是收支分類表　　Dim fm As New shouzhifenlei '定義shouzhifenlei子窗口　　fm.pForm = Me '子窗口的父窗口是當前窗口

89、fm.Show() '顯示子窗口　　ElseIf tbNum = 1 Then '如果當前是現金交易表　　Dim fm1 As New xianjinjiaoyi '定義xianjinjiaoyi子窗口　　fm1

90、.pForm1 = Me '子窗口的父窗口是當前窗口　　fm1.Show() '顯示子窗口　　ElseIf tbNum = 2 Then '如果當前是債務債權表　　Dim fm2 As N

91、ew zhaiwuzhaiquan '定義zhaiwuzhaiquan子窗口　　fm2.pForm2 = Me '子窗口的父窗口是當前窗口　　fm2.Show() '顯示子窗口　　ElseIf tbNum = 3

92、 Then '如果當前是固定資產表　　Dim fm3 As New gudingzichan '定義gudingzichan子窗口　　fm3.pForm3 = Me '子窗口的父窗口是當前窗口　　fm3.Show()

93、 '顯示子窗口　　ElseIf tbNum = 4 Then '如果當前是日記表　　Dim fm4 As New riji '定義riji子窗口　　fm4.pForm4 = Me

94、 '子窗口的父窗口是當前窗口　　fm4.Show() '顯示子窗口　　End If　　End Sub　　其中pForm、pForm

95、1、 pForm2 、pForm3、 pForm4為各個添加界面的標識。本段代碼通過if……else……語句實現，是通過前面收支分類、現金交易、固定資產、債務債權、日記按鈕中定義的tbNum作為判斷依據。當當前界面為收支分類的信息界面時跳出收支分類的添加界面，當界面為現金交易的信息界面時跳出現金交易的添加界面，以此類推下去以保證每個所需添加界面對應的準確性。　?。?）界面判斷刷

96、新　　Public Sub Form_Close(ByVal n As Integer) '子窗口關閉時向當前窗口發(fā)送消息　　Dim db As MyDataBase = New MyDataBase　　Dim dvSection As DataView<

97、;/p>　　If n = 0 Then '如果當前是收支分類表　　dvSection = db.RunSelectSQL("select * from 收支分類") '獲取收支分類表&l

98、t;p>　　If dvSection.Count > 0 Then '如果數據庫表"收支分類表"中有記錄　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數據源　　End If<p

99、>　　ElseIf n = 1 Then '如果當前是現金交易表　　dvSection = db.RunSelectSQL("select * from 現金交易表") '獲取現金交易表　　If dvSec

100、tion.Count > 0 Then '如果數據庫表"現金交易表"中有記錄　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數據源　　End If　　ElseIf n =

101、2 Then '如果當前是債務債權表　　dvSection = db.RunSelectSQL("select * from 債務債權表") '獲取債務債權表　　If dvSection.Count > 0 T

102、hen '如果數據庫表"債務債權表"中有記錄　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數據源　　End If　　ElseIf n = 3 Then

103、 '如果當前是固定資產表　　dvSection = db.RunSelectSQL("select * from 固定資產表") '獲取固定資產表　　If dvSection.Count > 0 Then '如果數據庫

104、表"固定資產表"中有記錄　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數據源　　End If　　ElseIf n = 4 Then

105、 '如果當前是日記表　　dvSection = db.RunSelectSQL("select * from 日記") '獲取收支日記表　　If dvSection.Count > 0 Then '如果數據庫表"日記表&

106、quot;中有記錄　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數據源　　End If　　End If　　En

107、d Sub　　此段代碼主要表示為添加工作完成后跳入主界面的刷新，其中Form_Close通過各個添加界面的通知來實現n的數字，實現代碼過程。本段程序也是通過if……else……語句實現　　4.5數據刪除模塊的設計與實現　　刪除模塊的建立實現在主界面的基礎之上，對主界面中的刪除按鈕進行代碼添加以

108、達到模塊功能的實現，具體代碼如下　　Private Sub btdelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btdelete.Click　　Dim curRow As DataGridViewRow '定義DataG

109、rid行　　Dim str As String　　Dim db As MyDataBase = New MyDataBase '定義MyDataBase對象　　Dim dvSection As DataView　　If tbNum = 0 Then

110、 '如果當前是收支分類表　　curRow = dtgrdvw.CurrentRow '獲取當前行　　If Not curRow Is Nothing Then '如果當前行不為空　　str = curRow.Cells(0).Value

111、'獲取當前行的第一列的值　　str = "delete from 收支分類where 編號='" + str + "'" '刪除收支分類表中編號等于str的行　　db.RunSelectSQL(str)

112、9;執(zhí)行SQL刪除語句　　dvSection = db.RunSelectSQL("select * from 收支分類") '重新獲取收支分類表　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數據源&l

113、t;p>　　MsgBox("刪除成功")　　End If　　ElseIf tbNum = 1 Then　　curRow = dtgrdvw.CurrentRow '獲取當前行　　If Not

114、curRow Is Nothing Then '如果當前行不為空　　str = curRow.Cells(0).Value '獲取當前行的第一列的值　　str = "delete from 現金交易表where 編號='" + str + "'"

115、 '刪除現金交易表中編號等于str的行　　db.RunSelectSQL(str) '執(zhí)行SQL刪除語句　　dvSection = db.RunSelectSQL("select * from 現金交易表") '重新獲取現金交易表</p&

116、gt;　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數據源　　MsgBox("刪除成功")　　End If　　ElseIf tbNum =

117、2 Then　　curRow = dtgrdvw.CurrentRow '獲取當前行　　If Not curRow Is Nothing Then '如果當前行不為空　　str = curRow.Cells(0).Value '獲取當前行的第一列的值&l

118、t;/p>　　str = "delete from 債務債權表where 編號='" + str + "'" '刪除債務債權表中編號等于str的行　　db.RunSelectSQL(str) '執(zhí)行SQL刪除語句</p

119、>　　dvSection = db.RunSelectSQL("select * from 債務債權表") '重新獲取債務債權表　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數據源　　MsgBox(&q

120、uot;刪除成功")　　End If　　ElseIf tbNum = 3 Then　　curRow = dtgrdvw.CurrentRow '獲取當前行　　If Not curRow Is Nothing

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯系上傳者。文件的所有權益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內容的表現方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
6. 下載文件中如有侵權或不適當內容，請與我們聯系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

基于vb.net的個人理財系統——界面設計【畢業(yè)論文】

文檔簡介

溫馨提示

最新文檔

評論

基于vb.net的個人理財系統——界面設計【畢業(yè)論文】

文檔簡介

溫馨提示

最新文檔

評論

免費下載