VB課程設(shè)計個人財務(wù)管理小幫手

1、課程設(shè)計報告課程設(shè)計題目： 個人財務(wù)管理小幫手 學(xué)生姓名 董翔專 業(yè) 計算機科學(xué)與技術(shù)班 級 10304101指導(dǎo)教師 謝小林 2011 年 6 月11 日一、 實驗題目：設(shè)計一個個人財務(wù)管理小幫手本系統(tǒng)由五部分組成：用戶管理、錄入模塊、查詢模塊、統(tǒng)計模塊、分析模塊。二、 實驗時間、地點： 2011-6-72011-6-9 信工樓302三、實驗?zāi)康?1. 通過該題目的設(shè)計，使學(xué)生掌握軟件開發(fā)過程的問題分析、系統(tǒng)設(shè)計、程序編碼、測試等基本方法和技能；2. 掌握利用VB開發(fā)數(shù)據(jù)庫系統(tǒng)的方法；3. 掌握文件的操作方法。四、實驗內(nèi)容與要求 本系統(tǒng)由五部分組成：用戶管理、錄入模塊、查詢模塊、統(tǒng)計模塊、分

2、析模塊。 1. 用戶管理：實現(xiàn)用戶的添加、刪除、密碼修改功能。2. 錄入模塊：對日常收支情況進(jìn)行登記。收入和支出按類別登記，如學(xué)習(xí)、交通、通信、伙食費、娛樂、禮品等，內(nèi)容包括時間、地點、金額、備注等。3. 查詢模塊：可按年、月、日查看收支明細(xì)。4. 統(tǒng)計模塊：對收入、支出情況可按類型、時間段進(jìn)行統(tǒng)計。5. 分析模塊：分析并顯示每項支出所占總支出的百分比。顯示按支出類型排序后的支出信息（最好用圖表形式）。將排序后的內(nèi)容保存。要求：1. 3人完成2. 數(shù)據(jù)可以存放到文件中，也可以存放到access數(shù)據(jù)庫中。3. 提供登錄界面。4. 用戶根據(jù)口令進(jìn)入系統(tǒng)，不同的用戶擁有不同權(quán)限：可讀可寫、只讀、只讀

3、部分信息。5. 界面友好，對用戶可能輸入的非法數(shù)據(jù)進(jìn)行提示，如日期輸入不正確五、實現(xiàn)思路 個人財務(wù)管理小幫手理財管理系統(tǒng)包括基本信息管理、理財管理和數(shù)據(jù)統(tǒng)計等主要功能，具體功能如下：基本信息的添加、修改、刪除和查詢；理財信息的添加、修改、刪除和查詢；數(shù)據(jù)統(tǒng)計模塊包括日常收支統(tǒng)計、銀行交易統(tǒng)計和個人資產(chǎn)統(tǒng)計等功能。系統(tǒng)功能模塊圖個人財務(wù)管理銀 行 信 息 管 理支 出 類 型 管 理日 常 收 支 管 理銀 行 往 來 管 理銀 行 賬 戶 管 理日 常 收 支 統(tǒng) 計銀 行 交 易 統(tǒng) 計個 人 資 產(chǎn) 統(tǒng) 計基本信息管理系統(tǒng)用戶管理家庭理財管理數(shù)據(jù)統(tǒng)計管理銀行信息管理用戶成員管理用戶信息管理

4、修改自身密碼功能模塊圖本系統(tǒng)按照功能需求和部門使用的情況，將系統(tǒng)劃分為多個子系統(tǒng)，每個子系統(tǒng)完成一定的功能。數(shù)據(jù)庫的設(shè)計數(shù)據(jù)庫設(shè)計設(shè)計是對于一個給定的應(yīng)用環(huán)境，構(gòu)造最優(yōu)的數(shù)據(jù)庫模式，建立數(shù)據(jù)庫及其應(yīng)用系統(tǒng)，使之能有效地存取數(shù)據(jù)，滿足用戶的信息要求和處理要求。本實驗的數(shù)據(jù)庫內(nèi)容包括收入、支出、收入項目、支出項目等表；功能齊全六、部分代碼（登陸界面）Public UserLimit As StringPublic iConcstr As String '字符串Public db As ADODB.Connection '定義為數(shù)據(jù)庫連接Public strSql As String

5、 '數(shù)據(jù)庫查詢字符串Public Rs As ADODB.Recordset '數(shù)據(jù)集Public strYear As StringPublic strMonth As StringPublic strDay As StringPublic Sub DB_OPEN() On Error GoTo errp iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "finance.mdb;" Set db = New ADODB.Con

6、nection db.Open iConcstr Exit Suberrp: MsgBox (Str(Err.Number) & "數(shù)據(jù)庫訪問失敗,或者數(shù)據(jù)庫不存在，請選擇有效的數(shù)據(jù)庫文件！")End SubPrivate Sub cmdQuit_Click() EndEnd SubPrivate Sub cmdSure_Click() strSql = "select key from user_key where user='" & Trim(txtUser) & "'" 'strS

7、ql = "select 密碼 from 用戶表 where 用戶名='" & Trim(txtUser) & "'" Set Rs = New ADODB.Recordset Rs.Open strSql, db, adOpenStatic, adLockReadOnly If Rs.RecordCount = 0 Then MsgBox ("user name err") Else 'If Rs.BOF = True Or Rs.EOF = True Then Exit Sub If Tri

8、m(txtKey) = Rs("key") Then strSql = "select limit from user_key where user='" & Trim(txtUser) & "'" 'strSql = "select 密碼 from 用戶表 where 用戶名='" & Trim(txtUser) & "'" Set Rs = New ADODB.Recordset Rs.Open strSql, db,

9、adOpenStatic, adLockReadOnly UserLimit = Rs("limit") Unload Me MDIMain.Show Else MsgBox ("password err") End If End IfEnd SubPrivate Sub Form_Load() '連接數(shù)據(jù)庫 DB_OPEN End Sub七、實驗總結(jié) 1、通過本周的VB實驗，我基本做出試驗的功能，能夠?qū)ω攧?wù)進(jìn)行一般的統(tǒng)計、記錄、查詢，達(dá)到了實驗?zāi)康呐c要求。2、在實驗的過程中也遇到過不少問題，主要是對數(shù)據(jù)庫的建立、連接、調(diào)用、處理不熟悉不了解，導(dǎo)致無法對代碼進(jìn)行編寫。3、代碼的編寫要條理分明，這樣才不至于在運行的時候出現(xiàn)過多的錯誤，同時各個窗體之間的聯(lián)系與處理也非常關(guān)鍵。八、心得體會 通過一周的VB課程設(shè)計，我對數(shù)據(jù)庫和VB6.0軟件的使用更加熟練，積累了有效