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

1、<p><b>　　本科畢業(yè)設(shè)計</b></p><p><b>　?。?0 屆）</b></p><p>　　基于VB.NET的個人理財系統(tǒng)——界面設(shè)計</p><p>　　所在學(xué)院 </p><p>　　專業(yè)班級

2、 通信工程 </p><p>　　學(xué)生姓名 學(xué)號 </p><p>　　指導(dǎo)教師 職稱 </p><p>　　完成日期 年 月 </p><p><b>　　摘 要</

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

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

5、/p><p><b>　　Abstract </b></p><p>　　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</p><p>　　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;<p>　　Key words: VB.NET; Interface Design; Personal Finance</p><p><b>　　目 錄</b></p><p><b>　　一 緒論6</b></p><p>　　1.1課題研究背景6</p><p>　　

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

12、<p>　　2.2.2VB的基本功能和概念10</p><p><b>　　三 系統(tǒng)設(shè)計11</b></p><p>　　3.1概要設(shè)計11</p><p>　　3．1．1概要設(shè)計階段的主要任務(wù)11</p><p>　　3．1．2概要設(shè)計的過程11</p><p>　　3．1

13、．3概要設(shè)計的原則11</p><p>　　3．1．4系統(tǒng)功能分析11</p><p>　　3．2詳細(xì)設(shè)計12</p><p>　　3．2．1詳細(xì)設(shè)計的任務(wù)12</p><p>　　3．2．2詳細(xì)設(shè)計的方法13</p><p>　　四 客戶端軟件設(shè)計實現(xiàn)14</p><p>　　4.

14、1進(jìn)入界面的設(shè)計與實現(xiàn)14</p><p>　　4.1.1進(jìn)入界面的樣式圖14</p><p>　　4.1.2進(jìn)入界面的實現(xiàn)過程14</p><p>　　4.2主界面的設(shè)計與實現(xiàn)18</p><p>　　4.2.1主界面的樣式如圖18</p><p>　　4.2.2主界面的實現(xiàn)過程18</p>

15、<p>　　4.3查看模塊的實現(xiàn)23</p><p>　　4.3.1收支分類查看按鈕代碼23</p><p>　　4.3.2現(xiàn)金交易查看按鈕代碼23</p><p>　　4.3.3債務(wù)債權(quán)查看按鈕代碼23</p><p>　　4.3.4固定資產(chǎn)查看按鈕代碼24</p><p>　　4.3.5日記查

16、看按鈕代碼24</p><p>　　4.4數(shù)據(jù)添加模塊的設(shè)計與實現(xiàn)25</p><p>　　4.4.1添加模塊樣式25</p><p>　　4.4.2添加界面的實現(xiàn)過程26</p><p>　　4.5數(shù)據(jù)刪除模塊的設(shè)計與實現(xiàn)29</p><p>　　五 系統(tǒng)運行測試31</p><p&g

17、t;　　5.1運行情況31</p><p>　　5.1.1.進(jìn)入界面的運行31</p><p>　　5.1.2.主界面運行31</p><p>　　5.1.3.查看模塊界面32</p><p>　　5.1.4.添加模塊運行界面33</p><p>　　5.1.5.數(shù)據(jù)刪除模塊運行界面35</p>

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

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

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

21、和數(shù)據(jù)，這對于查找、更新和維護(hù)工作都帶來了很大的困難。個人理財系統(tǒng)就是通過計算機(jī)對人們?nèi)粘５氖罩нM(jìn)行管理，具有相關(guān)的收支情況查詢和錄入等功能，由計算機(jī)代替人們來統(tǒng)計數(shù)據(jù)可使人們從繁重的勞動中解脫出來，大大提高人們的辦事效率，通過一些簡單的輸入操作，及時、準(zhǔn)確地獲得需要的信息。</p><p><b>　　1.2課題研究意義</b></p><p>　　收支管理是個人以

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

23、方便迅速、可靠性高、存儲量大、保密性高等。這些優(yōu)點能極大效率的提高個人財務(wù)管理。但對于目前的情況來言，個人理財系統(tǒng)的使用還普遍基本以手工為主，迫切需要開發(fā)新系統(tǒng)來提高人們的理財效率，以最少的代價，獲取最大的收益。</p><p>　　1.3開發(fā)工作及論文主要內(nèi)容</p><p>　　本次課題主要研究的內(nèi)容是基于VB.NET設(shè)計的一個個人理財管理系統(tǒng)。最終的設(shè)計目標(biāo)是熟悉面向?qū)ο缶幊碳捌溟_發(fā)

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

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

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

27、s XP操作系統(tǒng)；</p><p>　?。?）VB.NET；</p><p>　?。?）SQL 數(shù)據(jù)庫；</p><p>　　本系統(tǒng)開發(fā)需求的硬件有：</p><p>　　CPU為400MHZ以上；</p><p>　　硬盤數(shù)據(jù)量最小配置為20G；</p><p>　　計算機(jī)內(nèi)存要求為128M以

28、上；</p><p><b>　　2．2開發(fā)工具簡介</b></p><p>　　Visual Basic.NET 是Microsoft 公司最新推出的Visual Studio.NET 可視化應(yīng)用程序開發(fā)工具中的一個重要成員。Visuai Stdio.NET 是Microsoft 公司推車的第一個基于.NET 框架的可視化應(yīng)用開發(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等應(yīng)用程序開發(fā)工具緊密地集成在一起，使他們共同使用同一個集成開發(fā)環(huán)境（Intergrated Development Environment，IDE），并使用同一

30、個基礎(chǔ)類庫，這樣大大簡化了應(yīng)用程序的開發(fā)過程，為開發(fā)人員快速地創(chuàng)建分布式應(yīng)用程序提供了強(qiáng)有力的支持[1]。</p><p>　　Visual Basic.NET由Basic演化而來的但它卻是截然不同的一種語言，它提供了許多強(qiáng)大的功能，如圖形用戶界面，事件處理，訪問Windows 32位平臺的應(yīng)用程序編程接口（Win32.API），面向?qū)ο缶幊毯彤惓Ｌ幚淼?。Visual Basic.NET是一種事件驅(qū)動的可視化編程

31、語言，它用集成開發(fā)環(huán)境（IDE）創(chuàng)建程序。在集成開發(fā)環(huán)境下，程序員能夠很方便的編寫，運行和調(diào)試Visual Basic程序，從而使創(chuàng)建工作的時間比不用IDE減少許多倍。</p><p>　　2.2.1VB.NET的特點</p><p>　　(1）面向?qū)ο蟮目梢暬O(shè)計平臺</p><p>　　傳統(tǒng)的程序設(shè)計方法，需要花大量的精力在程序的界面設(shè)計上，同時設(shè)計的效果不能實

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

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

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

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

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

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

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

39、按鈕和查看對象按鈕。設(shè)計一個VB應(yīng)用程序，通常需要同時進(jìn)行兩個方面的操作，即在對象窗口中設(shè)計用戶界面和在代碼窗口中編寫程序代碼。查看代碼按鈕和查看對象按鈕用于實現(xiàn)代碼窗口和對象窗口之間的快速切換。</p><p><b>　　三 系統(tǒng)設(shè)計</b></p><p><b>　　3.1概要設(shè)計</b></p><p>　　3．

40、1．1概要設(shè)計階段的主要任務(wù)</p><p>　　(1）系統(tǒng)分析人員審查軟件計劃、軟件需求，提出最佳推薦方案，用系統(tǒng)流程圖，組成系統(tǒng)物理元素清單，對成本效益進(jìn)行分析，供專家審定，審定后進(jìn)入設(shè)計。</p><p>　　(2）確定模塊結(jié)構(gòu)，劃分功能模塊，將軟件功能需求分配給所劃分的最小單元模塊。確定各模塊之間的聯(lián)系，確定數(shù)據(jù)結(jié)構(gòu)、文件結(jié)構(gòu)、數(shù)據(jù)庫模式。</p><p>

41、　　(3） 編寫概要設(shè)計說明書，用戶使用手冊，選用結(jié)構(gòu)圖來描述軟件結(jié)構(gòu)。選擇分解功能與劃分模塊的設(shè)計原則，例如模塊劃分獨立性原則，信息隱蔽原則等。</p><p>　　3．1．2概要設(shè)計的過程</p><p>　　概要設(shè)計要先進(jìn)行系統(tǒng)設(shè)計，復(fù)審系統(tǒng)計劃與需求分析，確定系統(tǒng)具體的實施方案；然后進(jìn)行結(jié)構(gòu)設(shè)計，確定軟件結(jié)構(gòu)。</p><p>　　3．1．3概要設(shè)計的原則&

42、lt;/p><p>　?、賹④浖澐殖扇舾瑟毩⒊煞值囊罁?jù)。</p><p>　?、谌绾伪硎静煌某煞謨?nèi)的功能細(xì)節(jié)和數(shù)據(jù)結(jié)構(gòu)。</p><p>　　③如何統(tǒng)一衡量軟件設(shè)計的技術(shù)質(zhì)量。</p><p>　　3．1．4系統(tǒng)功能分析</p><p>　　根據(jù)個人理財系統(tǒng)的日常工作流程與內(nèi)容，預(yù)測開發(fā)的管理系統(tǒng)的達(dá)到的功能如下：&l

43、t;/p><p>　　1、收支分類：錄入以及刪除各種資金的收入及支出</p><p>　　2、現(xiàn)金交易：錄入以及刪除現(xiàn)金的使用情況</p><p>　　3、債務(wù)債權(quán)：錄入以及刪除資金的流轉(zhuǎn)借貸信息</p><p>　　4、固定資產(chǎn)：錄入以及刪除各種固定類資產(chǎn)信息</p><p>　　5、日記：記錄以及刪除各種信息及詳細(xì)使用

44、情況，能大量文字的表達(dá)</p><p><b>　　6、退出系統(tǒng)</b></p><p>　　根據(jù)以上分析，該系統(tǒng)考慮將整個系統(tǒng)分解成如圖3-1-4模塊結(jié)構(gòu)圖:</p><p>　　圖3-1 模塊結(jié)構(gòu)圖</p><p>　　并且在系統(tǒng)的開發(fā)過程中，盡量注意模塊的高內(nèi)聚、低耦合，使得系統(tǒng)的整體性能提高，并且也有利于投入使

45、用后的系統(tǒng)維護(hù)。</p><p><b>　　3．2詳細(xì)設(shè)計</b></p><p>　　3．2．1詳細(xì)設(shè)計的任務(wù)</p><p>　　詳細(xì)設(shè)計就是要在概要設(shè)計的基礎(chǔ)上，對系統(tǒng)中的每個模塊給出詳細(xì)的過程性描述。主要任務(wù)如下：①為每個模塊確定采用的算法，選擇適當(dāng)?shù)墓ぞ弑磉_(dá)算法的過程，寫出每一個模塊的詳細(xì)過程性描述；②確定每一個模塊使用的數(shù)據(jù)結(jié)構(gòu)；

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

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

48、></p><p>　　圖3-4 刪除模塊圖</p><p>　　四 客戶端軟件設(shè)計實現(xiàn)</p><p>　　4.1進(jìn)入界面的設(shè)計與實現(xiàn)</p><p>　　4.1.1進(jìn)入界面的樣式圖</p><p>　　圖4-1 進(jìn)入界面樣式圖</p><p>　　界面包括的控件有標(biāo)簽、文本框、命令按

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

50、控件進(jìn)行屬性設(shè)置，如圖為窗體的屬性設(shè)置界面，將界面屬性中的text屬性設(shè)置為個人理財系統(tǒng)窗體左上角就會顯示個人理財系統(tǒng)字樣:</p><p>　　（1）設(shè)置窗體text屬性，如圖</p><p>　　圖 4-3 text屬性圖</p><p>　?。?）在backgroundimage屬性中添加背景圖片，如圖：</p><p>　　圖4-4

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

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

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

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

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

56、th - Me.Width) / 2 '設(shè)置當(dāng)前窗口左上角橫坐標(biāo)位置</p><p>　　Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 '設(shè)置當(dāng)前窗口左上角縱坐標(biāo)位置</p><p><b>　　End Sub</b></p><p>　　4.2主界面

57、的設(shè)計與實現(xiàn)</p><p>　　4.2.1主界面的樣式如圖</p><p>　　圖4-6 主界面樣式圖</p><p>　　界面包括的控件有圖片框、標(biāo)簽、文本框、命令按鈕、數(shù)據(jù)顯示框等控件以及背景圖片</p><p>　　4.2.2主界面的實現(xiàn)過程</p><p>　　第一步:在項目菜單中選擇添加一個windows

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

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

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

61、gt;　?。?）窗體的背景圖片添加，點擊backgroundImage按鈕，如圖：</p><p>　　圖4-12 窗體BackgroundImage屬性圖</p><p>　?。?）點擊導(dǎo)入按鈕，即可進(jìn)行圖片的導(dǎo)入，如圖</p><p>　　圖4-13 窗體背景導(dǎo)入圖</p><p>　　第五步，雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代

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

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

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

65、;　　End If</b></p><p><b>　　tbNum = 0</b></p><p><b>　　End Sub</b></p><p>　　當(dāng)按鈕受到click事件時從數(shù)據(jù)庫的收支分類表中讀取數(shù)據(jù)，顯示在主界面框的datagridview中</p><p>　　4.3.2

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

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

68、>　　dtgrdvw.DataSource = dvSection</p><p><b>　　End If</b></p><p><b>　　tbNum = 1</b></p><p><b>　　End Sub</b></p><p>　　當(dāng)按鈕受到click事件時

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

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

71、> 0 Then '如果數(shù)據(jù)庫表"債務(wù)債權(quán)表"中有記錄</p><p>　　dtgrdvw.DataSource = dvSection</p><p><b>　　End If</b></p><p><b>　　tbNum = 2</b></p><p>&

72、lt;b>　　End Sub</b></p><p>　　當(dāng)按鈕受到click事件時從數(shù)據(jù)庫的債務(wù)債權(quán)表中讀取數(shù)據(jù)，顯示在主界面框的datagridview中</p><p>　　4.3.4固定資產(chǎn)查看按鈕代碼</p><p>　　Private Sub zichanbt_Click(ByVal sender As System.Object, B

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

74、t * from 固定資產(chǎn)表")</p><p>　　If dvSection.Count > 0 Then '如果數(shù)據(jù)庫表"固定資產(chǎn)表"中有記錄</p><p>　　dtgrdvw.DataSource = dvSection</p><p><b>　　End If</b></p>

75、<p><b>　　tbNum = 3</b></p><p><b>　　End Sub</b></p><p>　　當(dāng)按鈕受到click事件時從數(shù)據(jù)庫的固定資產(chǎn)表中讀取數(shù)據(jù)，顯示在主界面框的datagridview中</p><p>　　4.3.5日記查看按鈕代碼</p><p>

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

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

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

79、gt;<p>　　4.4數(shù)據(jù)添加模塊的設(shè)計與實現(xiàn)</p><p>　　4.4.1添加模塊樣式</p><p>　?。?）主界面中的查看、添加以及刪除按鈕，：如圖</p><p>　　圖4-14 主界面添加、查看、刪除按鈕圖</p><p><b>　?。?）添加界面</b></p><

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

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

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

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

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

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

86、.Close() '關(guān)閉當(dāng)前子窗口</p><p><b>　　End Sub</b></p><p>　　定義一個str，把添加框中的數(shù)據(jù)添加到數(shù)據(jù)庫的收支分類表中，實現(xiàn)數(shù)據(jù)的添加。</p><p>　　第四步，對主界面中的添加按鈕進(jìn)行代碼添加，以便實現(xiàn)主界面中的添加按

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

88、bNum = 0 Then '如果當(dāng)前是收支分類表</p><p>　　Dim fm As New shouzhifenlei '定義shouzhifenlei子窗口</p><p>　　fm.pForm = Me '子窗口的父窗口是當(dāng)前窗口</p><p>　　

89、fm.Show() '顯示子窗口</p><p>　　ElseIf tbNum = 1 Then '如果當(dāng)前是現(xiàn)金交易表</p><p>　　Dim fm1 As New xianjinjiaoyi '定義xianjinjiaoyi子窗口</p><p>　　fm1

90、.pForm1 = Me '子窗口的父窗口是當(dāng)前窗口</p><p>　　fm1.Show() '顯示子窗口</p><p>　　ElseIf tbNum = 2 Then '如果當(dāng)前是債務(wù)債權(quán)表</p><p>　　Dim fm2 As N

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

92、 Then '如果當(dāng)前是固定資產(chǎn)表</p><p>　　Dim fm3 As New gudingzichan '定義gudingzichan子窗口</p><p>　　fm3.pForm3 = Me '子窗口的父窗口是當(dāng)前窗口</p><p>　　fm3.Show()

93、 '顯示子窗口</p><p>　　ElseIf tbNum = 4 Then '如果當(dāng)前是日記表</p><p>　　Dim fm4 As New riji '定義riji子窗口</p><p>　　fm4.pForm4 = Me

94、 '子窗口的父窗口是當(dāng)前窗口</p><p>　　fm4.Show() '顯示子窗口</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　其中pForm、pForm

95、1、 pForm2 、pForm3、 pForm4為各個添加界面的標(biāo)識。本段代碼通過if……else……語句實現(xiàn)，是通過前面收支分類、現(xiàn)金交易、固定資產(chǎn)、債務(wù)債權(quán)、日記按鈕中定義的tbNum作為判斷依據(jù)。當(dāng)當(dāng)前界面為收支分類的信息界面時跳出收支分類的添加界面，當(dāng)界面為現(xiàn)金交易的信息界面時跳出現(xiàn)金交易的添加界面，以此類推下去以保證每個所需添加界面對應(yīng)的準(zhǔn)確性。</p><p><b>　?。?）界面判斷刷

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

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

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

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

100、tion.Count > 0 Then '如果數(shù)據(jù)庫表"現(xiàn)金交易表"中有記錄</p><p>　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數(shù)據(jù)源</p><p><b>　　End If</b></p><p>　　ElseIf n =

101、2 Then '如果當(dāng)前是債務(wù)債權(quán)表</p><p>　　dvSection = db.RunSelectSQL("select * from 債務(wù)債權(quán)表") '獲取債務(wù)債權(quán)表</p><p>　　If dvSection.Count > 0 T

102、hen '如果數(shù)據(jù)庫表"債務(wù)債權(quán)表"中有記錄</p><p>　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數(shù)據(jù)源</p><p><b>　　End If</b></p><p>　　ElseIf n = 3 Then

103、 '如果當(dāng)前是固定資產(chǎn)表</p><p>　　dvSection = db.RunSelectSQL("select * from 固定資產(chǎn)表") '獲取固定資產(chǎn)表</p><p>　　If dvSection.Count > 0 Then '如果數(shù)據(jù)庫

104、表"固定資產(chǎn)表"中有記錄</p><p>　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數(shù)據(jù)源</p><p><b>　　End If</b></p><p>　　ElseIf n = 4 Then

105、 '如果當(dāng)前是日記表</p><p>　　dvSection = db.RunSelectSQL("select * from 日記") '獲取收支日記表</p><p>　　If dvSection.Count > 0 Then '如果數(shù)據(jù)庫表"日記表&

106、quot;中有記錄</p><p>　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數(shù)據(jù)源</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　En

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

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

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

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

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

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

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

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

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

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

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

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

119、><p>　　dvSection = db.RunSelectSQL("select * from 債務(wù)債權(quán)表") '重新獲取債務(wù)債權(quán)表</p><p>　　dtgrdvw.DataSource = dvSection '重新指定DataGrid表的數(shù)據(jù)源</p><p>　　MsgBox(&q

120、uot;刪除成功")</p><p><b>　　End If</b></p><p>　　ElseIf tbNum = 3 Then</p><p>　　curRow = dtgrdvw.CurrentRow '獲取當(dāng)前行</p><p>　　If Not curRow Is Nothing