VB課程設(shè)計(jì)個(gè)人財(cái)務(wù)管理小幫手

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

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

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

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

5、 '數(shù)據(jù)庫(kù)查詢字符串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ù)庫(kù)訪問失敗,或者數(shù)據(jù)庫(kù)不存在，請(qǐng)選擇有效的數(shù)據(jù)庫(kù)文件！")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ù)庫(kù) DB_OPEN End Sub七、實(shí)驗(yàn)總結(jié) 1、通過本周的VB實(shí)驗(yàn)，我基本做出試驗(yàn)的功能，能夠?qū)ω?cái)務(wù)進(jìn)行一般的統(tǒng)計(jì)、記錄、查詢，達(dá)到了實(shí)驗(yàn)?zāi)康呐c要求。2、在實(shí)驗(yàn)的過程中也遇到過不少問題，主要是對(duì)數(shù)據(jù)庫(kù)的建立、連接、調(diào)用、處理不熟悉不了解，導(dǎo)致無法對(duì)代碼進(jìn)行編寫。3、代碼的編寫要條理分明，這樣才不至于在運(yùn)行的時(shí)候出現(xiàn)過多的錯(cuò)誤，同時(shí)各個(gè)窗體之間的聯(lián)系與處理也非常關(guān)鍵。八、心得體會(huì) 通過一周的VB課程設(shè)計(jì)，我對(duì)數(shù)據(jù)庫(kù)和VB6.0軟件的使用更加熟練，積累了有效