家庭理財(cái)管理系統(tǒng)設(shè)計(jì)論文(共22頁(yè))

1、PAGE 畢 業(yè) 論 文中文題目家庭理財(cái)管理系統(tǒng)英文題目Family financial management system 系 別：信息管理系年級(jí)專業(yè)：2012級(jí)信息管理與信息系統(tǒng)姓 名：林雅雯學(xué) 號(hào)：125022415指導(dǎo)教師：崔玉勝職 稱：教授、副教授、講師、助教閩南理工學(xué)院教務(wù)處制2013年 月 日家庭理財(cái)管理系統(tǒng)【摘 要】家庭財(cái)務(wù)管理系統(tǒng)是典型的管理信息系統(tǒng)(MIS)，其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)(wih)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。經(jīng)過(guò)分析，我們使用 MICROSO

2、FT公司的 VISUAL BASIC開(kāi)發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱(cozng)數(shù)據(jù)庫(kù)的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)?！娟P(guān)鍵詞】家庭理財(cái)，管理信息系統(tǒng)，MIS，Visual Basic目錄(ml) TOC o 1-2 u 一 、緒 論 PAGEREF _Toc371680462 h 1（一）課題(kt)簡(jiǎn)介 PAGEREF _Toc371680463 h 1（二）開(kāi)發(fā)(kif)的意義 PAGEREF _Toc371680464 h 1二、開(kāi)發(fā)環(huán)境及實(shí)現(xiàn)技

3、術(shù) PAGEREF _Toc371680465 h 1（一）開(kāi)發(fā)環(huán)境 PAGEREF _Toc371680466 h 1（二）設(shè)計(jì)目的 PAGEREF _Toc371680467 h 2三、 數(shù)據(jù)庫(kù)設(shè)計(jì) PAGEREF _Toc371680468 h 2（一）數(shù)據(jù)庫(kù)需求分析 PAGEREF _Toc371680469 h 2（二）新建一個(gè)數(shù)據(jù)庫(kù) PAGEREF _Toc371680470 h 2（三）修改已建的數(shù)據(jù)庫(kù) PAGEREF _Toc371680471 h 2四、系統(tǒng)設(shè)計(jì) PAGEREF _Toc371680472 h 2（一）主界面的設(shè)計(jì)與實(shí)現(xiàn) PAGEREF _Toc3716804

4、73 h 2（二）日常收支與維護(hù)模塊的設(shè)計(jì)與實(shí)現(xiàn) PAGEREF _Toc371680474 h 4（三）現(xiàn)金收支查詢模塊的設(shè)計(jì)與實(shí)現(xiàn) PAGEREF _Toc371680475 h 7（四）收入/支出項(xiàng)目維護(hù)模塊的設(shè)計(jì)與實(shí)現(xiàn) PAGEREF _Toc371680476 h 8（五）信用卡收支與維護(hù)管理模塊的設(shè)計(jì)與實(shí)現(xiàn) PAGEREF _Toc371680477 h 13（六）登錄管理模塊的設(shè)計(jì)與實(shí)現(xiàn) PAGEREF _Toc371680478 h 15六、 系統(tǒng)使用說(shuō)明 PAGEREF _Toc371680479 h 18（一）使用說(shuō)明 PAGEREF _Toc371680480 h 18（

5、二）運(yùn)行環(huán)境 PAGEREF _Toc371680481 h 18七、 設(shè)計(jì)心得 PAGEREF _Toc371680482 h 18參考文獻(xiàn) PAGEREF _Toc371680483 h 19 PAGE 20一 、緒 論（一）課題(kt)簡(jiǎn)介家庭財(cái)務(wù)管理系統(tǒng)是每一個(gè)家庭管理家庭財(cái)務(wù)收入和支出的不可缺少的一個(gè)管理信息系統(tǒng),它的內(nèi)容(nirng)對(duì)于家庭的管理者來(lái)說(shuō)是至關(guān)重要的,所以家庭財(cái)務(wù)管理系統(tǒng)應(yīng)該能夠?yàn)槊恳粋€(gè)家庭的管理者提供充足的信息和快捷的查詢手段，大的方便家庭的管理者的合理理財(cái)。因此，開(kāi)發(fā)(kif)這樣一套管理軟件成為很有必要的事情，對(duì)于我們即將畢業(yè)的學(xué)生來(lái)說(shuō)，也是一次將所學(xué)的理論知

6、識(shí)應(yīng)用于現(xiàn)實(shí)管理的一次很有意義的實(shí)踐活動(dòng)。（二）開(kāi)發(fā)的意義計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手，使用其可方便的管理家庭財(cái)務(wù)。今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域?，F(xiàn)在我國(guó)的家庭財(cái)務(wù)管理水平大部分都還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。我作為一個(gè)信息管理類的畢業(yè)生，希望可以在這方面有所貢獻(xiàn)。我希望能用我所學(xué)的知識(shí)編制出一個(gè)實(shí)用的程序來(lái)幫助家庭進(jìn)行財(cái)務(wù)管理。 開(kāi)發(fā)這一系統(tǒng)的好處大約有以下幾點(diǎn)：第一、可以存儲(chǔ)家庭日常財(cái)務(wù)信息。第二、只需了解操作系統(tǒng)

7、，就能實(shí)現(xiàn)方便快捷的家庭財(cái)務(wù)管理，節(jié)省人力；第三、可以迅速家庭財(cái)務(wù)歷史信息，做到收入支出心中有數(shù)?，F(xiàn)今社會(huì)互聯(lián)網(wǎng)已經(jīng)十分普及，而且現(xiàn)在各大銀行個(gè)人網(wǎng)上銀行系統(tǒng)都日趨完善，本系統(tǒng)為家庭的合理化理財(cái)做了很好的前期鋪墊，比如計(jì)算機(jī)的財(cái)務(wù)管理模式的建立。二、開(kāi)發(fā)環(huán)境及實(shí)現(xiàn)技術(shù)（一）開(kāi)發(fā)環(huán)境衡量是否具備使用新系統(tǒng)所需的條件，一般可從軟硬件的性能要求、環(huán)境條件、技術(shù)人員水平和數(shù)量等方面去考慮和分析，其中開(kāi)發(fā)人員的技術(shù)水平應(yīng)首先考慮近期內(nèi)可以培養(yǎng)和發(fā)展的技術(shù)人員。近些年計(jì)算機(jī)技術(shù)飛速發(fā)展，硬件條件可以說(shuō)是日新月異，其發(fā)展速度已令人驚訝的成倍比例發(fā)展。軟件方面同樣進(jìn)展神速，無(wú)論任何系統(tǒng)都難不到如今的計(jì)算機(jī)。本

8、系統(tǒng)就是由VB與access數(shù)據(jù)庫(kù)相結(jié)合而設(shè)計(jì)出來(lái)的。以下為本系統(tǒng)開(kāi)發(fā)需求。本系統(tǒng)開(kāi)發(fā)需求的軟件為：1、 Windows XP操作系統(tǒng)。2、VB 6.03、 ACCESS數(shù)據(jù)庫(kù)本系統(tǒng)開(kāi)發(fā)需求的硬件為：CPU為400MHZ以上；硬盤(pán)數(shù)據(jù)量最小配置為200G；計(jì)算機(jī)內(nèi)存要求為2GB以上；（二）設(shè)計(jì)目的對(duì)于家庭財(cái)務(wù)管理信息系統(tǒng)應(yīng)著重分析其經(jīng)濟(jì)效益，整合現(xiàn)有資源提高工作效率。三、 數(shù)據(jù)庫(kù)設(shè)計(jì)(shj)（一）數(shù)據(jù)庫(kù)需求(xqi)分析根據(jù)普通大眾(dzhng)家庭財(cái)務(wù)管理的實(shí)際情況，分析得到如下的數(shù)據(jù)庫(kù)結(jié)構(gòu)。1、現(xiàn)金日常收支表2、信用卡日常收支表3、收入/支出項(xiàng)目表4、用戶管理表（二）新建一個(gè)數(shù)據(jù)庫(kù)創(chuàng)建任

9、何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。1、標(biāo)識(shí)需要的數(shù)據(jù)；2、收集被標(biāo)識(shí)的字段到表中；3、標(biāo)識(shí)主關(guān)鍵字字段；4、繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表；5、規(guī)范數(shù)據(jù)；6、標(biāo)識(shí)指定字段的信息；7、創(chuàng)建物理表。（三）修改已建的數(shù)據(jù)庫(kù)四、系統(tǒng)設(shè)計(jì)（一）主界面的設(shè)計(jì)與實(shí)現(xiàn)主界面是用菜單形式表現(xiàn)的。如圖：圖1：主界面(jimin)菜單的制作過(guò)程(guchng)如下：首先(shuxin)通過(guò)“工具”菜單中的“菜單編輯器”調(diào)出菜單編輯器，然后進(jìn)行菜單的設(shè)置，如下圖：圖2：菜單(ci dn)編輯器圖此過(guò)程(guchng)中要注意各菜單的名稱唯一，另外

10、還要注意菜單的級(jí)別。最后(zuhu)設(shè)置如下的代碼（只要單擊菜單即可設(shè)置各菜單代碼）代碼如下圖：圖3：菜單設(shè)置（二）日常收支與維護(hù)模塊的設(shè)計(jì)與實(shí)現(xiàn)1、運(yùn)行界面：圖4：日常收支(shu zh)管理屬性(shxng)2、實(shí)現(xiàn)(shxin)過(guò)程：第一步，將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，即可把由所選取的控件生成的對(duì)象添加到窗體上。如下圖：圖5：工具箱第二步，選擇窗體或控件進(jìn)行屬性(shxng)設(shè)置，如圖為日期文本框控件的屬性設(shè)置(shzh)界面:圖6：屬性(shxng)設(shè)置其它屬性和控件的設(shè)置方法類似。第三步，雙擊相

11、應(yīng)(xingyng)的控件，在控件的相應(yīng)過(guò)程(guchng)中編寫(xiě)代碼： 此窗體上用了3個(gè)Adodc控件，Adodc1用來(lái)連接日常收支表，Adodc2用來(lái)連接收入項(xiàng)目表，Adodc3用來(lái)連接支出(zhch)項(xiàng)目表。使用方法是首先通過(guò)Adodc控件與數(shù)據(jù)庫(kù)相連，然后將各數(shù)據(jù)項(xiàng)與數(shù)據(jù)字段相連。（三）現(xiàn)金收支查詢模塊的設(shè)計(jì)與實(shí)現(xiàn)1、運(yùn)行界面：圖7：日常收支表表格用來(lái)存放查詢的結(jié)果。表格的主要屬性為：圖8：查詢(chxn)屬性(shxng)表（四）收入/支出項(xiàng)目維護(hù)(wih)模塊的設(shè)計(jì)與實(shí)現(xiàn)1、運(yùn)行界面：圖9：收入類型設(shè)置 圖10：支出類型設(shè)置2、實(shí)現(xiàn)過(guò)程：收入，支出項(xiàng)目的代碼如下：Private S

12、ub Cmd_OK_Click() If Len(Trim(cob_Flag.Text) = 0 Then MsgBox 請(qǐng)選擇收支類型 cob_Flag.SetFocus Exit Sub End If If Len(Trim(dco_Type.Text) = 0 Then MsgBox 請(qǐng)選擇收支(shu zh)分類 dco_Type.SetFocus Exit Sub End If If Len(Trim(dco_Acc.Text) = 0 Then MsgBox 請(qǐng)選擇(xunz)銀行賬號(hào) dco_Acc.SetFocus Exit Sub End If If Len(Trim(txt

13、Date) = 0 Then MsgBox 請(qǐng)輸入收支(shu zh)日期 txtDate.SetFocus Exit Sub End If If Len(Trim(txtSum) = 0 Then MsgBox 請(qǐng)輸入收支金額 txtSum.SetFocus Exit Sub End If If Len(Trim(dco_Mem.Text) = 0 Then MsgBox 請(qǐng)選擇使用人 dco_Mem.SetFocus Exit Sub End If 當(dāng)交易類型為取款（1）時(shí)，選擇帳戶信息后，需要判斷是否此賬號(hào)金額是否足夠 If MyAcc.GetInfo(Trim(dco_Acc.Boun

14、dText() And MyAcc.ASum -1 Then StrSch = And l.Flag= + Trim(cob_Flag.ListIndex) End If If Len(Trim(dco_Type.Text() 0 Then StrSch = StrSch + And l.TypeId= + dco_Type.BoundText() End If If Len(Trim(cob_Date.Text) 0 Then StrDate = Format(cob_Date.Text, yyyy-mm-dd) StrSch = StrSch + And l.UseDate=# + Tri

15、m(StrDate) + # End If End If TmpSource = Select l.Id, IIF(l.Flag=0,收入,支出) AS 收支類型, _ + t.TypeName AS 分類名稱,l.ANo AS 賬號(hào),l.UseDate AS 收支日期, _ + l.UseSum AS 收支金額,m.MemName AS 使用(shyng)人,l.Memos AS 說(shuō)明,l.Flag _ + From InOutList l,Types t,Members m _ + Where l.MemId=m.MemId And l.TypeId=t.TypeId + StrSch _

16、 + Order By l.UseDate DescMsgBox TmpSource Adodc1.ConnectionString = Conn Adodc1.RecordSource = TmpSource Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 0 編號(hào)(bin ho) DataGrid1.Columns(1).Width = 2100 收支(shu zh)類型 DataGrid1.Columns(2).Width = 1000 分類名稱 DataGrid1.Columns

17、(3).Width = 1600 賬號(hào) DataGrid1.Columns(4).Width = 1000 收支日期 DataGrid1.Columns(5).Width = 1200 收支金額 DataGrid1.Columns(6).Width = 1000 使用人 DataGrid1.Columns(7).Width = 1200 說(shuō)明 DataGrid1.Columns(8).Width = 0 FlagEnd Sub（五）信用卡收支與維護(hù)管理模塊的設(shè)計(jì)與實(shí)現(xiàn)1、運(yùn)行界面：圖11：銀行信息管理屬性設(shè)置2、實(shí)現(xiàn)過(guò)程：第一步將所需的控件放到窗體的相應(yīng)位置(wi zhi)；方法：首先在“工具

18、箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，即可把由所選取(xunq)的控件生成的對(duì)象添加到窗體上。如下圖：圖12：家庭理財(cái)系統(tǒng)屬性(shxng)設(shè)置第二步，選擇窗體或控件進(jìn)行屬性設(shè)置，如圖為窗體的屬性設(shè)置界面:圖13：窗體屬性設(shè)置其它屬性和控件的設(shè)置(shzh)方法類似。第三步，雙擊相應(yīng)(xingyng)的控件，在控件的相應(yīng)過(guò)程(guchng)中編寫(xiě)代碼。比如DataGrid1控件的主要屬性設(shè)置如下：圖14：DataGrid1控件的主要屬性設(shè)置（六）登錄管理模塊的設(shè)計(jì)與實(shí)現(xiàn)界面如下圖：圖15：登錄(dn l)界面設(shè)計(jì)主要(zhyo)代碼如下：Private Sub C

19、md_OK_Click() 判斷輸入(shr)的用戶名和密碼是否符合標(biāo)準(zhǔn) If Trim(txtUserName) = Then MsgBox 請(qǐng)輸入用戶名 txtUserName.SetFocus Exit Sub End If If Len(txtPass) 6 Then MsgBox 密碼長(zhǎng)度不能小于6 txtPass.SetFocus txtPass.SelStart = 0 txtPass.SelLength = Len(txtPass2) Exit Sub End If If txtPass txtPass2 Then MsgBox 密碼和確認(rèn)密碼不相同，請(qǐng)重新確認(rèn) txtPass

20、2.SetFocus txtPass2.SelStart = 0 txtPass2.SelLength = Len(txtPass2) Exit Sub End If 判斷用戶名是否(sh fu)已經(jīng)存在 如果是插入新的用戶，則必須進(jìn)行(jnxng)判斷；如果是修改已有的用戶，則當(dāng)用戶名被修改時(shí)進(jìn)行判斷 With MyUser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(txtUserName) = True Then MsgBox 用戶名已經(jīng)存在，請(qǐng)重新(chngxn)輸入 txtUserName.SetFocu

21、s txtUserName.SelStart = 0 txtUserName.SelLength = Len(txtUserName) Exit Sub End If End If .UserName = Trim(txtUserName) .UserPwd = Trim(txtPass) 根據(jù)變量Modify的值決定是插入新數(shù)據(jù)，還是更新已有的數(shù)據(jù) If Modify = False Then .Insert MsgBox 添加成功 Else .Update (OriUser) 如果修改自身用戶名，則更新CurUser對(duì)象 If OriUser = CurUser.UserName And Trim(txtUserName) OriUser Then CurUser.UserName = Trim(txtUserName) CurUser.GetInfo (CurUser.UserName) End If MsgBox 修改成功 End If End With Unload MeEnd Sub六、 系統(tǒng)使用說(shuō)明（一）使用說(shuō)明1、運(yùn)行于Windows XP以上操作系統(tǒng)。2、數(shù)據(jù)庫(kù)的默認(rèn)(mrn)路徑：D:設(shè)計(jì)家庭理財(cái)家庭理財(cái).mdb3、系統(tǒng)默認(rèn)(mrn)密碼：admin（二）運(yùn)行(ynxng)環(huán)境：Windows XP以上操作系統(tǒng)。七、 設(shè)計(jì)心得經(jīng)過(guò)三個(gè)