管理信息系統(tǒng)課程設(shè)計報告

1、 第一章 緒論1.1 系統(tǒng)概述家庭財務(wù)的中心內(nèi)容賬務(wù)管理。人們幾乎每一天都會經(jīng)過許多次貨幣活動。其中包括了買入賣出實物，娛樂消費，起居飲食消費，還有發(fā)放工資，收繳保費等。如果能把各類不同的活動進行分類，建立不同的賬戶，分別對活動進行管理，那么無論現(xiàn)在還是將來，你的賬務(wù)就會清楚明白了。每天，我們對自己賬務(wù)的操作有如下幾類：添加新的數(shù)據(jù)項，比如今天我賣出了多少歐元，生活中，我們就要對自己還有多少歐元，今天所得的利潤進行統(tǒng)計?，F(xiàn)在我們把這些工作放到程序里去實現(xiàn)，就是這樣的操作。某賬戶今天是添加還是減少，比如對歐元的操作就是減少，如果與這個操作相關(guān)的賬戶是現(xiàn)金，然后根據(jù)貨幣兌換率提供的值計算現(xiàn)金賬戶今

2、天該錄入的數(shù)值。再如變賣所有古董的收藏，再存入銀行，在軟件的實現(xiàn)就為把古董的變賣值轉(zhuǎn)入存款賬戶。日常生活中，當我們要對一周來，外匯交易的情況進行了解，就非常困難，而觀察外匯一個月里的利率走勢就更加是問題。做到程序里，把它存放到一個數(shù)據(jù)表里就可以了。歸結(jié)后，賬戶的操作一般如下：新添，刪除，增加，減少，查找，轉(zhuǎn)賬，統(tǒng)計。對重要的數(shù)據(jù)表記錄還可以打印，和生成圖表，報表。1.2 項目目標現(xiàn)代社會家庭的理財觀念進一步提高，理財手段變得更加豐富。人們應用電腦進行家庭財務(wù)管理的觀念增強，因此，開發(fā)一個通用性家庭理財軟件已經(jīng)成為社會需求。本系統(tǒng)是一個家庭通用型理財軟件，系統(tǒng)目標是把適合家庭化管理的各種理財手段

3、及家庭日常收支管理實現(xiàn)計算機化管理，使對家庭及家庭成員的收支活動更好地進行記錄并加以統(tǒng)計分析成為可能，也使家庭理財變得方便，快捷，全面。1.3現(xiàn)系統(tǒng)存在的問題及薄弱環(huán)節(jié)分析現(xiàn)在的家庭，不少的的賬目都是隨手拿來張紙記錄，就算是用記事本來記錄也會因為各種原因出現(xiàn)字跡混淆的現(xiàn)象，長時間后再查閱，會發(fā)現(xiàn)不知道當時記了什么，隨手用紙張來記錄，不易于管理，東一張西一張容易造成遺漏、丟失數(shù)據(jù)等現(xiàn)象導致統(tǒng)計數(shù)據(jù)錯誤，去銀行存取后的打印單不能及時的記錄管理，會泄漏帳號和現(xiàn)有金額，形成安全隱患，不經(jīng)過記錄，卡折同時使用也會使得賬目不清楚對家里資產(chǎn)的預估形成誤差，有時候支出收入過多，大量數(shù)據(jù)的計算，錯誤常會伴隨而來

4、，使得賬目錯誤，導致投資理財?shù)氖д`。第二章 需求分析軟件需求分析的目標是深入描述軟件的功能和性能,確定軟件的約束和軟件同其它系統(tǒng)元素的接口細節(jié)。需求分析階段研究的對象是軟件項目的用戶需求。一方面，必須全面理解用戶的各項要求，但又不能全盤接受所有的要求，另一方面，要準確地表達被接受的用戶要求。2.1 總體目標家庭財務(wù)管理主要由日常記賬管理和應用各種理財手段進行理財實現(xiàn)家庭資金的最大增值。記賬按范圍和使用方式可分為現(xiàn)金記賬，定期存款記賬，活期記賬，股票交易記賬，債權(quán)債務(wù)記賬。它們分別對應于現(xiàn)金賬戶，定期存款賬戶，活期賬戶，股票交易賬戶，實物資產(chǎn)賬戶，債權(quán)債務(wù)賬戶，保險賬戶?，F(xiàn)金賬戶可為不同家庭成員

5、建立自己的賬戶，也可一人建立幾個賬戶，以便把自己的現(xiàn)金按類歸劃，按用途有效的進行消費計劃和統(tǒng)計?；钇谫~戶對應于各家庭成員的銀行活期賬戶。股票交易賬戶對應所開的股票交易賬戶，股票記賬可以對近期的股票活動詳細信息進行查詢，瀏覽，并對盈利情況統(tǒng)計。2.2 具體目標要收入、支出更加全面，從多方面增加收入支出的情況，包括一般收入、借款所的、它人還錢、及股票所的。支出同樣如此。第三章 概要設(shè)計3.1 總體系結(jié)構(gòu)設(shè)計管理員權(quán)限系統(tǒng)登錄收入信息管理支出信息管理系統(tǒng)退出圖3-1管理員權(quán)限模塊圖收入信息管理股票收入返還收入借入收入一般收入圖3-2 收入信息管理模塊圖支出信息管理還貸支出股票支出日常支出借出支出圖3

6、-3 支出信息管理模塊圖3.2 接口設(shè)計（一）外部接口 (1)用戶界面在用戶界面部分，根據(jù)需求分析結(jié)果，用戶需要一個友善界面。在界面設(shè)計上，應做到簡單明了，易于操作，并且要注意到界面的布局，應突出的顯示重要以及出錯信息。在界面設(shè)計部分，本系統(tǒng)按照microsoft公司的用戶界面設(shè)計標準，為用戶提供友好、方便、直觀、簡潔的操作環(huán)境。本系統(tǒng)采用了窗口繼承的方式，使窗口有統(tǒng)一的界面風格和操作風格。同時，對錯誤信息、提示信息進行標準話，盡量做到清晰明了。本系統(tǒng)在輸入上，同時支持鼠標和鍵盤。并應用powerbuilder豐富的控件，盡可能多的采用選擇輸入、自動輸入以及提示輸入(2)軟件接口服務(wù)器程序可以

7、使用powerbuilder提供的對sql server的接口，進行對數(shù)據(jù)庫的所有訪問。(3)硬件接口在輸入方面，對于鍵盤、鼠標的輸入、對輸入進行處理。（二）內(nèi)部接口內(nèi)部接口方面，各模塊之間采用函數(shù)調(diào)用、參數(shù)傳遞、返回值的方式進行信息傳遞。具體參數(shù)的結(jié)構(gòu)將在下面數(shù)據(jù)結(jié)構(gòu)設(shè)計的內(nèi)容中說明。接口傳遞的信息將是以數(shù)據(jù)結(jié)構(gòu)封裝了的數(shù)據(jù)，以參數(shù)傳遞或返回值的形式在各模塊間傳輸。3.3 代碼設(shè)計代碼是按使用的目的，表示識別、分類、排序數(shù)據(jù)的數(shù)字、文字或符號。識別是將文件中存儲數(shù)據(jù)區(qū)別開，或?qū)⑽募械臄?shù)據(jù)按組區(qū)別開，識別主要用開數(shù)據(jù)更新與查找。分類是根據(jù)數(shù)據(jù)編碼中的定義對數(shù)據(jù)分類，用于檢索數(shù)據(jù)或統(tǒng)計分析。排

8、序是根據(jù)編碼規(guī)則，按代碼中規(guī)定的次序排序，用于輸出與生成報表。3.4 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫建設(shè)是硬件，軟件和干件的結(jié)合；數(shù)據(jù)庫設(shè)計應該和應用系統(tǒng)設(shè)計相結(jié)合。3.5數(shù)據(jù)字典列名類型長度是否主健完整性約束賬號char20是字符型數(shù)據(jù)密碼char20否字符型數(shù)據(jù)性別char10否字符型數(shù)據(jù) 生日char20否字符型數(shù)據(jù)地址char50否字符型數(shù)據(jù)表1用戶信息表列名類型長度是否主健完整性約束收入人char10是字符型數(shù)據(jù)收入日期char10否字符型數(shù)據(jù)收入金額int8否數(shù)字字符表2 一般收入表列名類型長度是否主健完整性約束借款人char10是字符型數(shù)據(jù)借款日期char10否字符型數(shù)據(jù)借款金額int8否數(shù)

9、字字符表3 借入收入表列名類型長度是否主健完整性約束還款人char10是字符型數(shù)據(jù)還款日期char10否字符型數(shù)據(jù)還款金額int8否數(shù)字字符表4 返還收入表列名類型長度是否主健完整性約束收入人char10是字符型數(shù)據(jù)收入日期char10否字符型數(shù)據(jù)收入金額int8否數(shù)字字符表5 股票收入表列名類型長度是否主健完整性約束支出人char10是數(shù)字字符支出日期char10否字符型數(shù)據(jù)支出金額char10否字符型數(shù)據(jù)表6 日常支出表列名類型長度是否主健完整性約束支出人char10是字符型數(shù)據(jù)支出日期char10否字符型數(shù)據(jù)支出金額char10否數(shù)字字符表7 股票支出表列名類型長度是否主健完整性約束借款

10、人char10是數(shù)字字符借款日期char10否字符型數(shù)據(jù)借款金額char10否數(shù)字字符表8 借出支出表列名類型長度是否主健完整性約束還貸人char10是數(shù)字字符還貸日期char10否字符型數(shù)據(jù)還貸金額char10否字符型數(shù)據(jù)表9 還貸支出表3.6運行設(shè)計 該系統(tǒng)為客戶端/服務(wù)器模式，客戶端可安裝在個人計算機上，運行于windows98以上的操作系統(tǒng)下，服務(wù)器端dbms選用sql server進行管理?？蛻魴C程序在有輸入時啟動接收數(shù)據(jù)模塊，通過各模塊之間的調(diào)用，讀入并對輸入進行格式化。在接收數(shù)據(jù)模塊得到充分的數(shù)據(jù)時，并等待接收服務(wù)器返回的信息。接收到返回信息后隨即調(diào)用數(shù)據(jù)輸出模塊，對信息進行處理

11、，產(chǎn)生相應的輸出。 運行控制嚴格按照各模塊間函數(shù)調(diào)用關(guān)系來實現(xiàn)。 服務(wù)器在接收到數(shù)據(jù)后發(fā)送確認信號，在對數(shù)據(jù)處理、訪問數(shù)據(jù)庫后，將返回信息送回客戶機，并等待確認。使用高性能的服務(wù)器，如pentium4，將縮短數(shù)據(jù)庫反應時間。3.7出錯處理設(shè)計程序在運行時主要會出現(xiàn)兩種錯誤：1、由于輸入信息，或無法滿足要求時產(chǎn)生的錯誤，稱為軟錯誤。對于軟錯誤，須在輸入數(shù)據(jù)驗證模塊由數(shù)據(jù)進行數(shù)據(jù)分析，判斷錯誤類型，再生成相應的錯誤提示語句，達到輸出模塊中。對于硬錯誤，可在出錯的相應模塊中輸出簡單的出錯語句，并將程序重置。返回輸入階段。在網(wǎng)絡(luò)傳輸方面，可建立一條成本較低的后備網(wǎng)絡(luò)，以保證當主網(wǎng)絡(luò)斷路時數(shù)據(jù)的通信。在

12、硬件方面，選擇較可靠、穩(wěn)定的服務(wù)器機種，保證系統(tǒng)運行時的可靠性。3.8安全保密設(shè)計系統(tǒng)設(shè)計了登錄界面，每個合法用戶都有一個編號、用戶名及密碼，該密碼都用戶個人維護，從而實現(xiàn)對用戶的身份驗證。3.9維護設(shè)計該系統(tǒng)后臺采用microsoft公司 sql server 2000 服務(wù)器，對數(shù)據(jù)的管理可以自動進行。數(shù)據(jù)可以手動或者自動備份，對破損數(shù)據(jù)可以及時恢復。對數(shù)據(jù)庫的使用角色、維護、安全性等可以設(shè)定。第四章 詳細設(shè)計4.1數(shù)據(jù)庫鏈接為了便于用戶使用和維護，我們將與數(shù)據(jù)庫的連接，單獨寫出來并進行編譯，這樣系統(tǒng)在新的環(huán)境使用時，只需改動一處數(shù)據(jù)庫連接代碼，即可立即使用，連接關(guān)鍵代碼如下：import

13、s system.dataimports system.data.sqlclientdim strcon as string = data source =zvdpfx4afdlgof2; initial catalog = 家庭財務(wù)管理系統(tǒng); & integrated security =true;dim conn as new sqlconnection(strcon)4.2 vb功能塊實現(xiàn)登錄的實現(xiàn)private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles bu

14、tton1.click dim str as string = select count(*) from 用戶信息表where 賬號= & combobox1.text & and 密碼= & textbox2.text & dim comm as new sqlcommand(str, conn) dim n as integer conn.open() if comm.executescalar 0 then call denglu() else n = msgbox(輸入的賬戶或密碼錯誤, 4 + 48, 通知) textbox2.text = end if conn.close() e

15、nd sub計時的實現(xiàn) private sub timer1_tick(byval sender as object, byval e as system.eventargs) handles timer1.tick dim shi, fen, miao as integer dim a, b, c as string if miao 59 then miao += 1 end if if miao = 59 and fen 59 then fen += 1 miao = 0 end if if miao = 59 and fen = 59 and shi 59 then shi += 1 f

16、en = 0 miao = 0 end if if miao 9 then c = 0 & miao.tostring else c = miao.tostring end if if fen 9 then b = 0 & fen.tostring else b = fen.tostring end if if shi 0 then str = update 用戶信息表 set 密碼= & textbox3.text & where 賬號= & textbox1.text & comm.commandtext = str comm.executenonquery() str = select

17、count(*) from 用戶信息表 where 賬號= & textbox1.text & and 密碼= & textbox3.text & comm.commandtext = str n = msgbox(修改成功, 0 + 64, 恭喜) call fanhui() else n = msgbox( 你輸入的賬號或密碼有誤，請重新開始, 0 + 48, 警告) textbox1.text = textbox2.text = textbox3.text = textbox4.text = end if conn.close() end sub第五章 系統(tǒng)測試與調(diào)試登錄界面運行結(jié)果在運

18、行程序時，系統(tǒng)進入第一個窗體，即登錄界面，如圖5-1所示。圖5-1 登錄界面主菜單界面運行結(jié)果通過登錄界面的登錄按鈕，登錄到主菜單界面，如圖5-2所示。圖5-2 主菜單界面添加功能界面運行結(jié)果 通過主菜單界面里的下拉菜單可以進入各個功能的界面，就以收入信息管理下的一般收入來說，如圖5-3所示。圖5-3 添加功能修改功能界面運行結(jié)果 通過主菜單界面里的下拉菜單可以進入各個功能的界面，就以收入信息管理下的一般收入來說，如圖5-4示。圖5-4 添加功能刪除功能界面運行結(jié)果 通過主菜單界面里的下拉菜單可以進入各個功能的界面，就以收入信息管理下的一般收入來說，如圖5-6所示。圖5-5 刪除功能查詢功能界

19、面運行結(jié)果通過主菜單界面里的下拉菜單可以進入各個功能的界面，就以收入信息管理下的一般收入來說，如圖5-6所示。圖5-6 查詢功能顯示功能界面運行結(jié)果通過主菜單界面里的下拉菜單可以進入各個功能的界面，就以收入信息管理下的一般收入來說，如圖5-7所示。圖5-7 顯示功能修改密碼功能界面運行結(jié)果通過登錄界面的修改密碼按鈕，鏈接到密碼修改窗口，進行密碼修改。如圖5-8所示。圖5-8 修改密碼功能注冊賬號功能界面運行結(jié)果通過登錄界面的注冊賬號按鈕，鏈接到注冊賬號窗口，進行賬號注冊。如圖5-9所示。圖5-9 賬號注冊功能附 錄附錄1 部分源代碼imports system.dataimports syst

20、em.data.sqlclientpublic class form1 inherits system.windows.forms.form public strcon as string = data source=zvdpfx4afdlgof2;initial catalog=家庭財務(wù)管理;integrated security=truepublic conn as new sqlconnection(strcon) private sub button1_click(byval sender as system.object, byval e as system.eventargs) h

21、andles button1.click dim str as string = select count(*) from 用戶信息表where 賬號= & combobox1.text & and 密碼= & textbox2.text & dim comm as new sqlcommand(str, conn) dim n as integer conn.open() if comm.executescalar 0 then call denglu() else n = msgbox(輸入的賬戶或密碼錯誤, 4 + 48, 通知) textbox2.text = end if conn.

22、close() end sub private sub button2_click(byval sender as system.object, byval e as system.eventargs) dim a as integer a = msgbox(繼續(xù)嗎？, 4 + 32 + 0, 詢問) if a = 6 then end end if end sub private sub timer1_tick(byval sender as object, byval e as system.eventargs) handles timer1.tick dim shi, fen, miao

23、 as integer dim a, b, c as string if miao 59 then miao += 1 end if if miao = 59 and fen 59 then fen += 1 miao = 0 end if if miao = 59 and fen = 59 and shi 59 then shi += 1 fen = 0 miao = 0 end if if miao 9 then c = 0 & miao.tostring else c = miao.tostring end if if fen 9 then b = 0 & fen.tostring el

24、se b = fen.tostring end if if shi 9 then a = 0 & shi.tostring else a = shi.tostring end if label7.text = format(now(), hh:mm:ss ) label13.text = a & : & b & : & c end sub private sub timer2_tick(byval sender as object, byval e as system.eventargs) handles timer2.tick if me.text = then me.text = 登錄界面

25、 else me.text = end if end sub private sub timer3_tick(byval sender as object, byval e as system.eventargs) handles timer3.tick if label1.left -me.width then label1.left = me.width else label1.left -= 5 end if end sub private sub linklabel2_linkclicked(byval sender as system.object, byval e as syste

26、m.windows.forms.linklabellinkclickedeventargs) handles linklabel2.linkclicked dim f19 as new form19 f19.show() me.hide() end sub private sub linklabel1_linkclicked(byval sender as system.object, byval e as system.windows.forms.linklabellinkclickedeventargs) handles linklabel1.linkclicked dim f20 as

27、new form20 f20.show() me.hide() end sub private sub button2_click_1(byval sender as system.object, byval e as system.eventargs) handles button2.click dim a as integer a = msgbox(繼續(xù)嗎？, 4 + 32 + 0, 詢問) if a = 6 then end end if end subend classpublic class form2 inherits system.windows.forms.formprivat

28、e sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click dim str as string = insert into 一般收入表(收入人,收入日期,收入金額) values( & textbox1.text & , & textbox3.text & , & textbox2.text & ) dim comm as new sqlcommand(str, conn) conn.open() comm.executescalar() conn.c

29、lose() msgbox(添加成功) textbox1.text = textbox2.text = textbox3.text = end sub private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.click dim f2 as new form2 f2.show() me.hide() end sub private sub button3_click(byval sender as system.object, byval e as

30、system.eventargs) handles button3.click dim a as integer a = msgbox(繼續(xù)嗎？, 4 + 32 + 0, 詢問) if a = 6 then end end if end subend class private sub button3_click(byval sender as system.object, byval e as system.eventargs) handles button3.click dim a as integer a = msgbox(繼續(xù)嗎？, 4 + 32 + 0, 詢問) if a = 6 t

31、hen end end if end sub private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.click dim f2 as new form2 f2.show() me.hide() end sub private sub form4_load(byval sender as object, byval e as system.eventargs) handles mybase.load textbox1.text = textbox3.

32、text = end sub private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click dim str as string = update 一般收入表 set 收入日期= & textbox4.text & + ,收入金額= & textbox3.text & where 收入人= & textbox1.text & dim comm as new sqlcommand(str, conn) dim n as integer conn.

33、open() if comm.executenonquery() then n = msgbox(信息已修改，請繼續(xù)操作！) else n = msgbox(不存在該記錄！) end if conn.close() textbox1.text = textbox3.text = textbox4.text = end subend class private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.click dim f2 as new form2

34、 f2.show() me.hide() end sub private sub button3_click(byval sender as system.object, byval e as system.eventargs) handles button3.click dim a as integer a = msgbox(繼續(xù)嗎？, 4 + 32 + 0, 詢問) if a = 6 then end end if end sub private sub button1_click(byval sender as system.object, byval e as system.event

35、args) handles button1.click dim str as string = delete from 一般收入表where 收入人= & trim(textbox1.text) & dim comm as new sqlcommand(str, conn) conn.open() if comm.executenonquery() then msgbox(記錄已刪除！) else msgbox(不存在該記錄！) end if conn.close() textbox1.text = end subend class private sub button3_click(byva

36、l sender as system.object, byval e as system.eventargs) handles button3.click dim a as integer a = msgbox(繼續(xù)嗎？, 4 + 32 + 0, 詢問) if a = 6 then end end if end sub private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.click dim f2 as new form2 f2.show() me.hide() end sub private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click dim str as string = select * from 一般收入表where 收入人= & textbox1.text & dim comm as new sqlcomman