管理信息系統(tǒng)課程設(shè)計(jì)0002

管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告設(shè)計(jì)題目：家庭財(cái)務(wù)小助手院系：經(jīng)濟(jì)管理學(xué)院專業(yè)班級(jí)：***************學(xué)生姓名：***、***、***2011年1月14日

指導(dǎo)教師評(píng)語(yǔ)指導(dǎo)教師：年月日成績(jī)?cè)u(píng)定學(xué)號(hào)姓名任務(wù)分工成績(jī)TOC\o"1-5"\h\z\o"CurrentDocument"系統(tǒng)規(guī)劃1\o"CurrentDocument"1.1問(wèn)題的提出1\o"CurrentDocument"1.2研究路線1\o"CurrentDocument"1.3戰(zhàn)略規(guī)劃說(shuō)明書3\o"CurrentDocument"系統(tǒng)分析5\o"CurrentDocument"2.1可行性分析報(bào)告5\o"CurrentDocument"2.2業(yè)務(wù)流程分析6\o"CurrentDocument"2.3數(shù)據(jù)流程分析8\o"CurrentDocument"2.4數(shù)據(jù)字典8\o"CurrentDocument"2.5主要數(shù)據(jù)處理的描述11\o"CurrentDocument"系統(tǒng)設(shè)計(jì)12\o"CurrentDocument"3.1代碼設(shè)計(jì)12\o"CurrentDocument"3.2功能結(jié)構(gòu)圖設(shè)計(jì)123.3信息系統(tǒng)流程圖設(shè)計(jì)133.4輸出設(shè)計(jì)133.5輸入設(shè)計(jì)15\o"CurrentDocument"3.6數(shù)據(jù)存儲(chǔ)設(shè)計(jì)20\o"CurrentDocument"3.7處理流程圖設(shè)計(jì)22\o"CurrentDocument"系統(tǒng)實(shí)施25\o"CurrentDocument"4.1用戶登錄功能的實(shí)現(xiàn)25\o"CurrentDocument"4.2多窗體切換功能的實(shí)現(xiàn)28\o"CurrentDocument"4.3“收支項(xiàng)目管理”功能的實(shí)現(xiàn)30\o"CurrentDocument"4.4“日常收入”的添加、修改、刪除功能的實(shí)現(xiàn)32\o"CurrentDocument"“實(shí)用查詢”功能的實(shí)現(xiàn)34\o"CurrentDocument"“每月明細(xì)”功能的實(shí)現(xiàn)35\o"CurrentDocument"“收支統(tǒng)計(jì)”功能的實(shí)現(xiàn)36\o"CurrentDocument"4.8“工具箱”功能的實(shí)現(xiàn)37\o"CurrentDocument"4.9系統(tǒng)測(cè)試38\o"CurrentDocument"總結(jié)42\o"CurrentDocument"參考文獻(xiàn)46系統(tǒng)規(guī)劃1.1問(wèn)題的提出多年以來(lái)人們都使用傳統(tǒng)的人工方式記錄和管理家庭或自己財(cái)務(wù)情況。這種管理和記錄方式不僅不便于長(zhǎng)期保存，也存在著不可避免的缺點(diǎn)，如效率太低、保密性太差。時(shí)間一長(zhǎng)，伴隨著居民收入水平的提高和居民各種消費(fèi)和收入的多樣性，家庭理財(cái)所需要管理的信息就會(huì)越來(lái)越多，就會(huì)產(chǎn)生大量的文件和數(shù)據(jù)，這樣就會(huì)對(duì)查閱、更新、保存等方面都產(chǎn)生不少的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已逐漸被人們認(rèn)識(shí)并掌握。使用計(jì)算機(jī)對(duì)家庭理財(cái)信息進(jìn)行管理具有傳統(tǒng)的手工管理所沒(méi)法比擬的優(yōu)點(diǎn)。例如：統(tǒng)計(jì)方便、查找容易、可靠性高、保密性好、更新方便等。這些優(yōu)點(diǎn)能夠極大地提高家庭理財(cái)信息管理的效率，大大降低居民在信息管理精力上的投入。家庭理財(cái)管理系統(tǒng)，它利用計(jì)算機(jī)應(yīng)用技術(shù)，使家庭理財(cái)逐步信息化，從而形成由家庭成員與計(jì)算機(jī)共同構(gòu)成服務(wù)于家庭的人機(jī)信息財(cái)務(wù)管理系統(tǒng)。隨著計(jì)算機(jī)發(fā)展，家庭理財(cái)信息系統(tǒng)已經(jīng)成為很多家庭財(cái)務(wù)管理的一個(gè)重要途徑。計(jì)算機(jī)的最大優(yōu)點(diǎn)在于利用它能夠高效準(zhǔn)確地進(jìn)行財(cái)務(wù)信息管理。使用計(jì)算機(jī)進(jìn)行信息財(cái)務(wù)管理，不僅提高了工作效率，而且大大的提高了其安全性。1.2研究路線

1.3戰(zhàn)略規(guī)劃說(shuō)明書1、系統(tǒng)名稱：家庭財(cái)務(wù)小助于2、系統(tǒng)目標(biāo)：通過(guò)該系統(tǒng)，一個(gè)家庭可以進(jìn)行家庭成員基本信息的增加、修改、刪除；完成日常生活中收入支出、借入借出、定期銀行賬戶、活期銀行賬戶的管理；完成每月的收支統(tǒng)計(jì)、每月的明細(xì)；并提供基本的日常收支的查詢功能。通過(guò)上述功能來(lái)實(shí)現(xiàn)管理家庭的日常財(cái)務(wù)活動(dòng)，提供查詢、分析功能，更方便用戶管理家庭的財(cái)務(wù)。3、系統(tǒng)結(jié)構(gòu)：本次開發(fā)的系統(tǒng)共分為六個(gè)子系統(tǒng)，分別是系統(tǒng)設(shè)置、日常管理、實(shí)用查詢、統(tǒng)計(jì)分析、工具箱、幫助；系統(tǒng)設(shè)置主要實(shí)現(xiàn)的功能是收支項(xiàng)目的添加、刪除，家庭成員的添加、成員信息的編輯，數(shù)據(jù)備份。日常管理主要實(shí)現(xiàn)的功能是日常收支、借入借出款、定期銀行賬戶、活期銀行賬戶信息的添加、修改、刪除。實(shí)用查詢主要實(shí)現(xiàn)日常收支的查詢。統(tǒng)計(jì)分析主要實(shí)現(xiàn)每月明細(xì)和收支統(tǒng)計(jì)。工具箱主要提供一些有益于用戶使用該系統(tǒng)的小工具，比如：計(jì)算器、記事本。幫助主要介紹一下系統(tǒng)的功能、如何使用等等。4、新系統(tǒng)的開發(fā)方法采用的是原型法，其原因如下：（1）原型法采用的是“自下而上”的開發(fā)策略，更容易被普遍的家庭用戶所接受，也適合像“家庭財(cái)務(wù)小助手”這樣的小系統(tǒng)；（2）在整個(gè)系統(tǒng)的開發(fā)中，不是一勞永逸的，需要根據(jù)平常的調(diào)查不斷地改進(jìn)系統(tǒng)，以使得所開發(fā)出的系統(tǒng)讓用戶更滿意；（3）用此方法開發(fā)出的“家庭財(cái)務(wù)小助手”更能符合普遍家庭用戶的要求，實(shí)現(xiàn)日常家庭財(cái)務(wù)管理的基本功能。5、系統(tǒng)的總體實(shí)施進(jìn)度

系統(tǒng)分析2.1可行性分析報(bào)告對(duì)于家庭財(cái)務(wù)管理信息系統(tǒng)的設(shè)計(jì)開發(fā)是否可行，我們從管理、技術(shù)和經(jīng)濟(jì)三個(gè)方面進(jìn)行可行性分析。首先在管理方面，鑒于近年來(lái)隨著國(guó)內(nèi)外社會(huì)經(jīng)濟(jì)和科學(xué)技術(shù)的不斷改革和發(fā)展，各種各樣的開銷與收入也越來(lái)越多，很多人對(duì)于日常帳目的管理感到越來(lái)越力不從心，收支管理已刻不容緩，在大多數(shù)家庭里，由于計(jì)算機(jī)知識(shí)的缺乏，人們還采用手寫記帳的方法，這種管理方法存在跟多缺陷，如：效率低、保密性差，另外時(shí)間一長(zhǎng)，將產(chǎn)生大量的冗余文件和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)工作都帶來(lái)了很大的困難。家庭理財(cái)系統(tǒng)就是通過(guò)計(jì)算機(jī)對(duì)人們?nèi)粘５氖罩нM(jìn)行管理，具有相關(guān)的收支情況查詢和錄入，以及有關(guān)數(shù)據(jù)的打印輸出，有計(jì)算機(jī)統(tǒng)計(jì)可使人們從繁重的勞動(dòng)中解脫出來(lái)，通過(guò)一些簡(jiǎn)單的輸入操作，及時(shí)、準(zhǔn)確地獲得需要的信息。這反映了大部分家庭對(duì)于該軟件需求的迫切性。其次在技術(shù)方面，近年來(lái)，計(jì)算機(jī)技術(shù)飛速發(fā)展幾乎超出了人們的想象，硬件的更新?lián)Q代速度更是以級(jí)數(shù)進(jìn)行。計(jì)算機(jī)在處理對(duì)象、處理方法上都發(fā)生了很大的變化。作為計(jì)算機(jī)科學(xué)的重要分支一一數(shù)據(jù)庫(kù)技術(shù)，也被越來(lái)越多的應(yīng)用領(lǐng)域采用來(lái)存儲(chǔ)和處理他們的信息資源。作為一款小巧實(shí)用的家庭財(cái)務(wù)管理軟件，對(duì)于硬件的要求要遠(yuǎn)遠(yuǎn)低于當(dāng)今市場(chǎng)的主流配置，在開發(fā)的方法方面，可以借助面向?qū)ο蟮拈_發(fā)方法，利用vb編程語(yǔ)言與系統(tǒng)自帶的數(shù)據(jù)庫(kù)軟件就可以滿足。幾乎所有擁有電腦的家庭，在不更換任何設(shè)備的前提下，就可以自己開發(fā)（如果自己具有一定的開發(fā)小軟件的能力）或者下載安裝實(shí)用本軟件。因此在技術(shù)方面不存在任何問(wèn)題。最后在經(jīng)濟(jì)方面，對(duì)于這樣一款面向廣大家庭的理財(cái)軟件，低配置的要求，注定可以滿足大家經(jīng)濟(jì)方面的要求。本軟件的開發(fā)成本很低，投入使用后，可以大大方便用戶的日常家庭財(cái)務(wù)管理工作，給用戶帶來(lái)新的生活體驗(yàn)。綜上所述。得出可行性分析結(jié)論為，可以立即開發(fā)。2.2業(yè)務(wù)流程分析組織結(jié)構(gòu)圖:管理功能圖：家庭理財(cái)管理信息系統(tǒng)包括基本的信息管理、理財(cái)管理和數(shù)據(jù)統(tǒng)計(jì)等主要攻能，具體功能應(yīng)該有：基本信息的添加、修改、刪除和查詢。基本信息包括銀行信息、收入分類和支出分類等內(nèi)容，此功能為理財(cái)管理和數(shù)據(jù)統(tǒng)計(jì)模塊提供依據(jù)。理財(cái)信息的添加、修改、刪除和查詢。理財(cái)信息包括日常收支、銀行交易和銀行賬戶等內(nèi)容。數(shù)據(jù)統(tǒng)計(jì)模塊包括收支統(tǒng)計(jì)，銀行交易統(tǒng)計(jì)和家庭資產(chǎn)統(tǒng)計(jì)等功能。由此作出該系統(tǒng)的管理功能圖如下：銀行信收入類、支出類常收銀行往銀行賬常收m行交庭資家庭成Cm戶信修改自息型型支來(lái)戶支易產(chǎn)員息身管管管管管管統(tǒng)統(tǒng)統(tǒng)管管密理Jg理LUi理jHJ理J1理JLU管理業(yè)務(wù)流程圖:2.3數(shù)據(jù)流程分析該家庭管理信息系統(tǒng)的數(shù)據(jù)流程圖:P1.2統(tǒng)計(jì)處理收入支出差額單2.4數(shù)據(jù)字典P1.2統(tǒng)計(jì)處理收入支出差額單對(duì)數(shù)據(jù)流程圖中的數(shù)據(jù)項(xiàng)、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、處理邏輯、數(shù)據(jù)存儲(chǔ)和外部實(shí)體六個(gè)方面進(jìn)行具體定義。數(shù)據(jù)項(xiàng)的定義數(shù)據(jù)項(xiàng)編號(hào)：I02-01數(shù)據(jù)項(xiàng)名稱：收入編號(hào)別名：收入編碼簡(jiǎn)述：某位家庭成員的收入類型及寬度：整型取值范圍：0?32767數(shù)據(jù)結(jié)構(gòu)定義數(shù)據(jù)結(jié)構(gòu)編號(hào)：DS03-01數(shù)據(jù)結(jié)構(gòu)名稱：存款單簡(jiǎn)述：某個(gè)家庭成員去某家銀行存款的信息數(shù)據(jù)結(jié)構(gòu)組成：DS03-02+DS03-03數(shù)據(jù)流的定義數(shù)據(jù)流編號(hào)：D03-02數(shù)據(jù)流名稱：工資單簡(jiǎn)述：某位家庭成員的工資單數(shù)據(jù)流來(lái)源：工作單位數(shù)據(jù)流去向：家庭成員數(shù)據(jù)流組成：工作單位名稱+工資數(shù)額+家庭成員名稱+日期數(shù)據(jù)流量：2000元/月高峰流量：2700元/月處理邏輯的定義處理邏輯編號(hào)：P02-03數(shù)據(jù)邏輯名稱：計(jì)算每月家庭收入支出結(jié)余簡(jiǎn)述：計(jì)算家庭所有成員的收入與支出的代數(shù)和輸入的數(shù)據(jù)流：每位家庭成員本月的收入和支出。處理：計(jì)算所有成員的收入之和，所有成員的支出之和，然后用收入減去支出。輸出的數(shù)據(jù)流：得出收入支出之差，然后計(jì)入數(shù)據(jù)存儲(chǔ)賬目文件處理頻率：每個(gè)月一次數(shù)據(jù)存儲(chǔ)的定義數(shù)據(jù)存儲(chǔ)編號(hào)：F02-02數(shù)據(jù)存儲(chǔ)名稱：銀行存款帳簡(jiǎn)述：存放在某家銀行的現(xiàn)金數(shù)目數(shù)據(jù)存儲(chǔ)組成：銀行名稱+銀行編號(hào)+存款數(shù)額關(guān)鍵字：銀行編號(hào)相關(guān)聯(lián)的處理：P02外部實(shí)體的定義外部實(shí)體編號(hào)：S03-01外部實(shí)體名稱：用戶簡(jiǎn)述：某位家庭成員的信息輸入的數(shù)據(jù)流：D03-02輸出的數(shù)據(jù)流：D03-01

2.5主要數(shù)據(jù)處理的描述處理日常收支管理的判斷表:決策規(guī)則號(hào)123條件總收入大于總支出NYY銀行利率上升YN應(yīng)采取的行動(dòng)增加銀行存款寸減少銀行存款寸寸系統(tǒng)設(shè)計(jì)3.1代碼設(shè)計(jì)本信息系統(tǒng)采用順序碼設(shè)計(jì)。舉例，存款處理中，狀態(tài)【已取】設(shè)計(jì)為1，狀態(tài)【未取】設(shè)計(jì)為0。3.2功能結(jié)構(gòu)圖設(shè)計(jì)3.3信息系統(tǒng)流程圖設(shè)計(jì)3.4輸出設(shè)計(jì)實(shí)用查詢界面:日常收入日常支出口按日期從■到口按方式口按金額1元口按項(xiàng)目統(tǒng)計(jì)分析——每月明細(xì)界面:統(tǒng)計(jì)分析一一收支統(tǒng)計(jì)界面:

收入情況日期支出情況方式金額項(xiàng)目來(lái)源人員共收入****元，共支出****元關(guān)閉3.5輸入設(shè)計(jì)系統(tǒng)設(shè)置——-項(xiàng)目管理界面：收入項(xiàng)目支出項(xiàng)目頊目1添加項(xiàng)目:添加刪除保存取消系統(tǒng)設(shè)置——-添加家庭成員界面：

日常收入界面（見下一頁(yè)）:

日常支出界面:活期存款界面:

活期賬戶的存取款界面:賬戶信息取款記錄開戶日期：開戶人：開戶金額：元銀行賬號(hào)：銀行名稱：共有：0個(gè)賬戶銀行地址：下一個(gè)上一個(gè)新開賬戶修改信息開戶日期:銀行名稱:銀行地址:銀行賬號(hào):刪除賬戶開戶日期:銀行名稱:銀行地址:銀行賬號(hào):確定開戶人：元開戶金額:開戶金額:定期儲(chǔ)蓄界面:編輯欄存款日期銀行名稱銀行地址銀行賬號(hào)開戶日期銀行名稱銀行地址銀行賬號(hào)款額開戶人得款人已取添加修改刪除關(guān)閉借入借出款界面（見下一頁(yè)）:3.6數(shù)據(jù)存儲(chǔ)設(shè)計(jì)數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)中包含11個(gè)表，即用戶信息表，家庭成員信息表，定期存款信息表，活期存取信息表，活期帳號(hào)信息表，借出信息表，借入信息表，收入信息表，支出信息表，收入項(xiàng)目信息表，支出項(xiàng)目信息表。下面分別介紹這些表的結(jié)構(gòu)1、用戶信息表（Userl）用來(lái)保存系統(tǒng)用戶信息，結(jié)構(gòu)如表所示編號(hào)字段名數(shù)據(jù)類型說(shuō)明1User文本用戶名，主鍵2Pass文本密碼2、家庭成員信息表（成員）用來(lái)保存家庭成員信息，結(jié)構(gòu)如表所示編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1Key自動(dòng)編號(hào)記錄編號(hào)，主鍵2姓名文本，長(zhǎng)度50姓名3稱呼文本，長(zhǎng)度10性別4生日文本，長(zhǎng)度50生日5手機(jī)文本，長(zhǎng)度50手機(jī)3、定期存款信息表（定期存款）:編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1Key自動(dòng)編號(hào)記錄編號(hào)，主鍵2銀行名稱文本，長(zhǎng)度503銀行地址文本，長(zhǎng)度504銀行賬號(hào)數(shù)字/長(zhǎng)整型5款額貨幣定期存款數(shù)額6開戶人文本，長(zhǎng)度507得款人文本，長(zhǎng)度508已取文本判斷是否已經(jīng)取款4、活期存取信息表（活期存取）:

編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1Key自動(dòng)編號(hào)記錄編號(hào)，主鍵2帳號(hào)文本，長(zhǎng)度50銀行賬號(hào)3存取文本，長(zhǎng)度50是否存取4數(shù)目貨幣存取數(shù)額5日期文本存取日期6姓名文本，長(zhǎng)度50存取人姓名7余額貨幣賬戶內(nèi)余額5、活期帳戶信息表（活期帳戶）編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1Key自動(dòng)編號(hào)記錄編號(hào)，主鍵2銀行賬號(hào)文本，長(zhǎng)度50銀行賬號(hào)3銀行名稱文本，長(zhǎng)度504銀行地址文本5開戶日期日期/時(shí)間存取日期6開戶人文本，長(zhǎng)度507開戶金額貨幣6、借出信息表（借出）編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1得款人文本2金額貨幣3出借人文本4日期文本5借款原因文本6已還文本7、借入信息表（借入）編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1得款人文本2金額貨幣3出借人文本4日期文本5出借原因文本6已還文本8、收入信息表（收入）

編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1Key自動(dòng)編號(hào)記錄編號(hào)，主鍵2日期文本3方式文本4金額文本5項(xiàng)目文本6來(lái)源文本7人員文本8備注備注9、支出信息表（支出）編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1Key自動(dòng)編號(hào)記錄編號(hào)，主鍵2日期文本3方式文本4金額文本5項(xiàng)目文本6去向文本7人員文本8備注備注10、支出項(xiàng)目信息表（支出項(xiàng)目）編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1項(xiàng)目文本11、收入信息表（收入項(xiàng)目）編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1項(xiàng)目文本3.7處理流程圖設(shè)計(jì)系統(tǒng)設(shè)置:日常管理:實(shí)用查詢與統(tǒng)計(jì)分析:系統(tǒng)實(shí)施系統(tǒng)各主要功能的界面實(shí)現(xiàn)及相應(yīng)的主要源代碼，系統(tǒng)的測(cè)試方法，測(cè)試數(shù)據(jù)的選取等。本系統(tǒng)的開發(fā)采用VB6.0（程序設(shè)計(jì)工具）和Access2003（數(shù)據(jù)庫(kù)設(shè)計(jì)工具），一般采用ADO來(lái)訪問(wèn)數(shù)據(jù)庫(kù)。若用ADO進(jìn)行連接、操作數(shù)據(jù)庫(kù)。在VB6.0中使用ADO對(duì)象，首先要將ADO對(duì)象加入到工程中的“引用”對(duì)話框，加入的方法如下：（1）在VB6.0窗口中單擊“工程”菜單，選擇“引用”子菜單；I..1（2）在彈出的“引用對(duì)話框中單擊“MicrosoftActiveXDataObject2.1”選項(xiàng)，如下圖所示：I..1引用-家庭收支苣理至統(tǒng),vbp可用的引用（A）：〈VisualBasicForApplicaAiurLE5ViEu：alBasicriiritimeubjectsand.prucedure~yVisu：dlEasicubjects:aridprucedureeMicroEuftActiveXDataObisets2.1LibrarOLEAntomatMicroEuftActiveXDataObisets2.1Librar/MicruEoftDataBindingCollectionVB6.0(.：在上述完成后，就可以在工程中引用ADO了。4.1用戶登錄功能的實(shí)現(xiàn)1、用戶登錄的界面通過(guò)輸入用戶名和密碼，然后訪問(wèn)數(shù)據(jù)庫(kù)檢驗(yàn)用戶名和密碼是否有誤，若沒(méi)輸入內(nèi)容或輸入的內(nèi)容不符合格式規(guī)定，給予提示。若無(wú)誤則登錄到主程序界面，否則給予提示信息。點(diǎn)擊退出后，會(huì)自動(dòng)退出系統(tǒng)。若三次輸入的密碼都不正確，也會(huì)自動(dòng)退出系統(tǒng)。點(diǎn)擊小問(wèn)號(hào)，會(huì)彈出初次使用的小提示。可用下圖表示：1、用戶登錄的界面DimMydbAsNewADODB.RecordsetDimMydblAsNewADODB.RecordsetDimStr_textAsStringPrivateSubCommand1_Click()'登錄按鈕OnErrorResumeNextStaticIAsInteger記數(shù)器StaticLAsInteger記數(shù)器DimStr_nameAsStringDimStr_passwordAsStringDimStr_usernameAsStringDimStr_userpasswordAsStringDimRemaindayAsLongStr_name=txt_name.TextStr_password=txt_password.TextSetMydb=ExeCutesql("selectuserfromuserlwhereuser='"&Str_name&"'",Str_text)IfMydb.EOFThenMsgBox"你輸入的用戶名不存在，請(qǐng)重新輸入！",vbOKOnly+32,"提示"L=L+1txt_name.SetFocusIfL=5ThenMsgBox”你已經(jīng)多次輸入錯(cuò)誤的用戶名，請(qǐng)查證后重新登陸！”,vbOKOnly+48,”提示"EndEndIfExitSubElseSetMydbl=ExeCutesql("selectuser,passfromuserlwhereuser='"&Str_name&"'",Str_text)Str_username=Trim(Mydb1.Fields(0))Str_userpassword=Trim(Mydb1.Fields(1))IfTrim(Str_password)=Str_userpasswordThenfrm_main.ShowMydb.CloseMydb1.CloseSetMydb=NothingSetMydb1=NothingUnloadMeElseMsgBox"你輸入的密碼錯(cuò)誤，請(qǐng)重新輸入！",vbOKOnly+32,"提示"I=I+1txt_password.SetFocusIfI=3ThenMsgBox”你輸入的密碼三次都不正確，本系統(tǒng)將關(guān)閉！”,vbOKOnly+48,"提示”EndEndIfExitSubEndIfEndIfEndSubPrivateSubCommand2_Click()，退出按鈕UnloadMeEndSub4.2多窗體切換功能的實(shí)現(xiàn)下面一個(gè)圖是系統(tǒng)的主界面：1、通過(guò)點(diǎn)擊菜單或工具欄的一些按鈕來(lái)實(shí)現(xiàn)不同功能子系統(tǒng)的切換，主要用到兩種窗體兩種方法.Show1、通過(guò)點(diǎn)擊菜單或工具欄的一些按鈕來(lái)實(shí)現(xiàn)不同功能子系統(tǒng)的切換，主要用到兩種窗體兩種方法.Show和首先是點(diǎn)擊菜單后菜單的切換UnloadMe，其部分的程序代碼如下:PrivateSubmnu_rcgl_jr_Click()frm_borrowin.Show0,frm_mainEndSubPrivateSubmnu_rcgl_sr_Click()frm_intake.Show0,frm_mainEndSubPrivateSubmnu_rcgl_zc_Click()frm_expend.Show0,frm_main'切換到“借入款”功能窗體'切換到“日常收入”功能窗體'切換到“日常支出”功能窗體EndSub2、通過(guò)點(diǎn)擊菜單欄下面的工具欄來(lái)調(diào)用不同的子系統(tǒng)，在制作工具欄是需要添加兩個(gè)控件：ImageList和Toolbar控件，，這兩個(gè)控件屬于ActiveX控件，需要添加，在“工程”中打開“部件”對(duì)話框，選中“MicrosoftWindowsCommonControls6.0”項(xiàng)。單擊“確定”按鈕即被添加到VB6.0左側(cè)的工具欄中。點(diǎn)擊Toolbar1后添加代碼：PrivateSubToolbar1_ButtonClick(ByVilButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1'點(diǎn)擊后彈出“收支項(xiàng)目”窗體Callmnu_xt_xu_ClickCase2'點(diǎn)擊后彈出“添加家庭成員”窗體Callmnu_cx_ClickCase8，點(diǎn)擊后彈出“退出”對(duì)話框，退出系統(tǒng)MsgBox"非常感謝您使用本系統(tǒng)！",，"家庭收支管理系統(tǒng)"UnloadMeEndSelectEndSub3、主系統(tǒng)界面的狀態(tài)欄的添加，在這里需要StatusBar控件，該控件也是“MicrosoftWindowsCommonControls6.0”組控件中的一個(gè)，而且還要在窗體中放置一個(gè)Timer控件，來(lái)獲取系統(tǒng)時(shí)間：PrivateSubForm_Load()，狀態(tài)欄顯示當(dāng)前操作用戶frm_main.StatusBar1.Panels(1).Text="當(dāng)前操作用戶："+CnameEndSubPrivateSubTimer1_Timer()，狀態(tài)欄顯示當(dāng)前系統(tǒng)時(shí)間frm_main.StatusBar1.Panels(2).Text=Format(Now,"yyyy年mm月dd日hh：mm：ss")EndSub4.3“收支項(xiàng)目管理”功能的實(shí)現(xiàn)在該功能子系統(tǒng)中需要添加一個(gè)SSTab控件和兩個(gè)MSHFlexGrid、在“MicrosoftWindowsCommonControls6.0”組控件中。截圖如下：點(diǎn)擊“添加”，“添加項(xiàng)目”中輸入要添加的收支項(xiàng)目，然后點(diǎn)擊保存就會(huì)保存數(shù)據(jù)庫(kù)和上面的表中，在表中選中一個(gè)項(xiàng)目，然后點(diǎn)擊“刪除”就會(huì)刪除該收支項(xiàng)目。部分程序代碼如下：DimMydblAsADODB.RecordsetDimMydb2AsADODB.RecordsetDimMydb3AsADODB.RecordsetDimMydb4AsADODB.RecordsetDimStr_textAsStringPrivateSubcmd_save_Click()'“保存”按鈕，實(shí)現(xiàn)保存添加的項(xiàng)目OnErrorResumeNextDimAAsBooleanIfSSTab1.Tab=0ThenA=MsgBox("是否添加前記錄?",vbYesNo+32,"添加記錄")IfA=TrueThenExeCutesql"insertinto收入項(xiàng)目values("'&Text1.Text&"')",Str_textMydb1.MoveLastCallDb1MsgBox”收入項(xiàng)目添加成功！”,vbOKOnly+64,""Text1.Text=""EndIfElseA=MsgBox("是否添加前記錄?”,vbYesNo+32,”添加記錄")IfA=TrueThenExeCutesql"insertinto支出項(xiàng)目values^"&Text1.Text&"')",Str_textMydb2.MoveLast

CallDb2MsgBox"支出項(xiàng)目添加成功！",vbOKOnly+64,""Textl.Text=""EndIfEndIfEndSub4.4“日常收入”的添加、修改、刪除功能的實(shí)現(xiàn)首先在編輯框內(nèi)添加所需要的信息，然后點(diǎn)擊“添加”按鈕，會(huì)將該記錄天機(jī)到后臺(tái)數(shù)據(jù)庫(kù)，并且顯示在編輯框上面的MSHFlexGrid控件中；在MSHFlexGrid中選中一天記錄，就會(huì)在下面的編輯框內(nèi)顯示該條記錄，用戶可通過(guò)修改記錄，然后點(diǎn)擊“修改”按鈕，就會(huì)將修改的記錄保存到數(shù)據(jù)庫(kù)和上面MSHFlexGrid控件中，程序截圖如下ft日常收入人員：|V]備■注:日常收入部分程序代碼如下：添加修改刪除關(guān)閉DimMydbAsNewADODB.Recordset添加修改刪除關(guān)閉DimStr_textAsString

PrivateSubcmd_edit_Click()，"修改”按鈕OnErrorResumeNextDimAA=MsgBox("是否修改當(dāng)前記錄？",vbYesNo+32,"添加記錄")IfA=vbYesThenExeCutesql"Update收入Set日期='"&Format(DTPicker1.Value,"yyyy-mm-dd")&"',方式="'&Combo1.Text&"',金額="&txt_money.Text&",來(lái)源='"&txt_intake.Text&"',人員='"&Combo3.Text&"'，備注='"&txt_mome.Text&"'Wherekey="&txt_note.Text&"",Str_textCallDbMsgBox”數(shù)據(jù)修改成功！”,vbOKOnly+64,”成功"EndIfEndSubPublicFunctionDb()?“Db”函數(shù)，MSHFlexGridl顯示Mydb的內(nèi)容SetMydb=ExeCutesql("select*from收入orderbykey",Str_text)SetMSHFlexGridl.DataSource=MydbEndFunctionPrivateSubMSHFlexGrid1_Click()'將選中的記錄顯示到編輯框內(nèi)OnErrorResumeNextDTPickerl.Value=MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,1)Combol.Text=MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,2)txt_moneyText=MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,3)Combo2.Text=MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,4)

txt_intake.Text=MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,5)Combo3.Text=MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,6)txt_mome.Text=MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,7)txt_note.Text=MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,8)EndSub4.5“實(shí)用查詢”功能的實(shí)現(xiàn)該部分主要實(shí)現(xiàn)日常收支的查詢，查詢可分四種方式的查詢：按時(shí)間查詢，按方式查詢，按金額查詢，按項(xiàng)目查詢，當(dāng)用戶查詢數(shù)據(jù)時(shí)，只需在該項(xiàng)前面的的復(fù)選框內(nèi)打上勾號(hào)即可，然后點(diǎn)擊“查詢”按鈕，就會(huì)在|日常支出]卜面的|日常支出]曰常收入ZII元ZII元I2環(huán)按方式廠按金額日期方式金額項(xiàng)目來(lái)源人員備注m“ff常0收入〃中按日期查詢的程序，代碼如下：全家2011-01-05現(xiàn)金1000工資&司11廠按I頁(yè)目DimMydbAsNewADODB.RecordsetPrivateSubChk_date1_Click()‘激活按日期進(jìn)行查詢IfChk_date1.Value=1Then4|Chk_mode1.Value=0二Chk_money1.Value=0杏詢關(guān)閉

Chk_project1.Value=0EndIfEndSubPrivateSubCommand1_Click()IfChk_date.Value=1ThenCallCriqiEndIfEndSubPrivateFunctionCriqi()'按日期查詢的函數(shù)Riqi=Format(CDate(DTPicker1.Value),"yyyy-mm-dd")Riqi1=Format(CDate(DTPicker2.Value),"yyyy-mm-dd")SetMydb=ExeCutesql("select*from收入where日期between#"&Riqi&"#"&"and"&"#"&Riqi1&"#",Str_text)SetMSHFlexGrid1.DataSource=MydbEndFunction4.6“每月明細(xì)”功能的實(shí)現(xiàn)通過(guò)該功能可以實(shí)現(xiàn)每月收支情況的統(tǒng)計(jì)，包括總支出金額、總收入金額和兩者的差額，還可查看其他月份的收支情況。部分截圖如下：'本月收入情只丫本月支出情況〕[本月收入：1000日期方式金額項(xiàng)目來(lái)源人員奇注^011-01-05現(xiàn)金1LILILI工資袤司11

“本月收支情況”的部分程序代碼如下：DimMydbAsNewADODB.RecordsetDimMydblAsNewADODB.RecordsetPrivateSubForm_Activate()OnErrorResumeNextDimA,B,CAsIntegerDimDAsStringDimYear1,Month1,Riqi,Riqi1,Riqi3,Riqi4SetMydb=ExeCutesql("select*from收入where日期between'"&Cdate1&"'and'"&Cdate2&"'","")SetMSHFlexGrid1.DataSource=Mydb‘顯示本月的收入情況SetMydb1=ExeCutesql("select*from支出where日期between'"&Cdate1&"'and'"&Cdate2&"'”,"")SetMSHFlexGrid2.DataSource=Mydb1'顯示本月的支出情況EndSub4.7“收支統(tǒng)計(jì)''功能的實(shí)現(xiàn)該功能主用是統(tǒng)計(jì)所有的收入和支出，并給出總金額。截圖如下:該功能主用是統(tǒng)計(jì)所有的收入和支出，并給出總金額。截圖如下:DimMydbAsNewADODB.RecordsetDimMydblAsNewADODB.RecordsetDimMoneyAsNewADODB.RecordsetDimMoney1AsNewADODB.RecordsetPrivateSubForm_Load()OnErrorResumeNextDimA,BAsSingleSetMydb=ExeCutesql("select*from收入","")SetMSHFlexGridl.DataSource=Mydb'顯示所有的收入條目SetMoney=ExeCutesql("selectsum(金額)from收入","")A=MoneyFields(0)Label1.Caption="共收入"&A&"元"，統(tǒng)計(jì)總金額EndSub4.8“工具箱''功能的實(shí)現(xiàn)該部分的實(shí)現(xiàn)主要利用一個(gè)Shell函數(shù)，通過(guò)Shell函數(shù)來(lái)調(diào)用計(jì)算器和記事本：其程序代碼如下：PrivateSubjsb_Click()，調(diào)用記事本Shell"notepad",vbNormalFocusEndSubPrivateSubjsq_Click()，調(diào)用計(jì)算器Shell"calc",vbNormalFocusEndSub4.9系統(tǒng)測(cè)試1、程序調(diào)試（以“添加家庭成員”子功能為例）（1）用正常的數(shù)據(jù)測(cè)試分別在編輯框內(nèi)添加內(nèi)容分別為“hehe”，“呵呵”，“1988/08/08”，13553,然后點(diǎn)擊“添加”按鈕，提示已成功添加。（2）用錯(cuò)誤數(shù)據(jù)進(jìn)行測(cè)試日常生活中，手機(jī)號(hào)一般全為數(shù)字，若輸入字母或其他不合法的字符后，程序就應(yīng)該報(bào)錯(cuò)。依次添加“heihei”，“happy”，“1988/08/08”,rr,點(diǎn)擊“添加”，程序不會(huì)報(bào)錯(cuò)，這說(shuō)明源代碼修要修改。解決措施：在程序中添加如下代碼，來(lái)避免此情況發(fā)生。IfIsNumeric（Text3.Text）=FalseThenMsgBox"手機(jī)號(hào)應(yīng)為數(shù)字。若沒(méi)有手機(jī)，請(qǐng)?zhí)顚?！",48,"提示"Text3.SetFocusExitSubEndIf在運(yùn)行后，如在輸入上述數(shù)據(jù)，就會(huì)報(bào)錯(cuò)“手機(jī)號(hào)應(yīng)為數(shù)字”：[手機(jī)號(hào)應(yīng)為數(shù)字.肴沒(méi)有手機(jī)r請(qǐng)埴寫0!?確.正（3）再添加成員信息時(shí)，所添加的信息必須完全，以保證一條記錄的完整性和價(jià)值性。在編輯欄內(nèi)不添加任何內(nèi)容，程序因給予信息不完全的提示。但點(diǎn)擊“添加”按鈕后不報(bào)錯(cuò)，需要對(duì)程序進(jìn)行改進(jìn)。添加如下代碼：IfTextl.Text=""OrText2.Text=""OrText3.Text=""ThenMsgBox"您填寫的信息上不完全，請(qǐng)完善！",48,"提示"Textl.SetFocusExitSubEndIf由此保證所輸入信息的完整性。若沒(méi)填寫內(nèi)容就會(huì)報(bào)錯(cuò)：測(cè)試操作錯(cuò)誤時(shí)是否報(bào)錯(cuò)。在信息編輯框內(nèi)填滿內(nèi)容，點(diǎn)擊“添加”后，后將信息添加到數(shù)據(jù)庫(kù)，但若是再點(diǎn)擊“添加”后，程序沒(méi)報(bào)錯(cuò)。解決措施：在程序內(nèi)添加代碼，如下DimCount2AsNewADODB.RecordsetSetCount2=ExeCutesql("select*from成員where姓名='"&Text2.Text&"'",Str_text)IfCount2.RecordCount>0ThenMsgBox"對(duì)不起，該成員已存在！",48,"提示”ExitSubEndIf經(jīng)過(guò)此語(yǔ)句的處理就會(huì)避免重復(fù)記錄的添加，增強(qiáng)系統(tǒng)的容錯(cuò)性。2、功能調(diào)試按F5運(yùn)行程序，進(jìn)入登錄界面，輸入正確的用戶名和密碼，進(jìn)入到系統(tǒng)的主界面。在分調(diào)中，首要進(jìn)行調(diào)試的系統(tǒng)的主界面。依次點(diǎn)擊菜單欄中的每一項(xiàng)，檢查系統(tǒng)是否能按要求彈出相應(yīng)的子系統(tǒng)界面。在點(diǎn)擊“統(tǒng)計(jì)分析”菜單下的“收支統(tǒng)計(jì)”時(shí)，程序沒(méi)用反應(yīng)。解決措施：找到主窗體frm_main，右鍵點(diǎn)擊“查看代碼”，發(fā)現(xiàn)該菜單沒(méi)有寫相應(yīng)的程序，主窗體中添加如下代碼：PrivateSubmnu_bg_tj_Click()frm_sztj.Show0,frm_main'參數(shù)，讓frm_main為主窗體打開多個(gè)子窗體EndSub再運(yùn)行程序即可彈出該子系統(tǒng)。在逐一測(cè)試每個(gè)子系統(tǒng)是，發(fā)現(xiàn)“實(shí)用查詢”模塊下“按日期查詢”不能按規(guī)定好的日期顯示所查詢到的記錄，在“MSHFlexGridl”沒(méi)有可顯示內(nèi)容：(截圖)解決措施：查看代碼，并參考其他程序代碼，發(fā)現(xiàn)按日期查詢的代碼有問(wèn)題。原代碼：Riqi=Format(CDate(DTPicker1.Value),"yyyy-mm-dd")Riqil=Format(CDate(DTPicker2.Value),"yyyy-mm-dd")SetMydb=ExeCutesql("select*from收入where日期between?Riqi5and?Riqi1',Str_text)(*)SetMSHFlexGridl.DataSource=Mydb*標(biāo)記的語(yǔ)句格式不正確，正確代碼如下：Riqi=Format(CDate(DTPicker1.Value),"yyyy-mm-dd")Riqil=Format(CDate(DTPicker2.Value),"yyyy-mm-dd")SetMydb=ExeCutesql("select*from收入where日期between#"&Riqi&"#"&"and"&"#"&Riqi1&"#",Str_text)SetMSHFlexGrid1.DataSource=Mydb5.總結(jié)在家庭財(cái)務(wù)小助手（又稱家庭財(cái)務(wù)管理系統(tǒng)）規(guī)劃、分析、設(shè)計(jì)、實(shí)施的過(guò)程中，我負(fù)責(zé)的主要是程序設(shè)計(jì)、運(yùn)行、調(diào)試等方面的內(nèi)容。通過(guò)本次的系統(tǒng)的開發(fā)，從中學(xué)到了很多新知識(shí)。對(duì)VB6.0和Access2003的理解和應(yīng)用更進(jìn)了一步。在程序設(shè)計(jì)過(guò)程中，由于吸取了上次的課程設(shè)計(jì)中失敗的經(jīng)驗(yàn)，本次在程序設(shè)計(jì)中，特別注重了程序的容錯(cuò)性，一般不會(huì)再出現(xiàn)上次那種輸入不合法的內(nèi)容后，整個(gè)系統(tǒng)就會(huì)崩潰，在一定程度上增強(qiáng)系統(tǒng)的可靠性。另一方面，增強(qiáng)了系統(tǒng)的易用性，使軟件的用戶界面人性化，更方便用戶的使用。整個(gè)系統(tǒng)的設(shè)計(jì)主要采用的開發(fā)工具主要是VB6.0和Access2003，用ADO技術(shù)來(lái)訪問(wèn)數(shù)據(jù)庫(kù)和操作數(shù)據(jù)庫(kù)。不得不說(shuō)，徹底的掌握這種技術(shù)比較難，有時(shí)一天都開發(fā)不出一個(gè)項(xiàng)目，但是隨著技術(shù)的逐漸掌握，后面的開發(fā)也水到渠成。通過(guò)本次系統(tǒng)的程序設(shè)計(jì)，真的學(xué)到了很多東西：一、在用VB6.0開發(fā)系統(tǒng)過(guò)程中，學(xué)會(huì)了使用模塊來(lái)進(jìn)行軟件的開發(fā)，模塊化開發(fā)用很多好處，簡(jiǎn)化了代碼，提高了系統(tǒng)的運(yùn)行效率。二、其實(shí)在編寫程序的代碼時(shí)，真正處理符合要求的數(shù)據(jù)的代碼是比較少的，不少部分的程序代碼主要用來(lái)容錯(cuò)性檢驗(yàn)和各種可能出現(xiàn)的錯(cuò)誤、異常的處理，提高系統(tǒng)的容錯(cuò)性和易用性，不輕易讓系統(tǒng)崩潰，三、學(xué)會(huì)了在程序設(shè)計(jì)中使用函數(shù)來(lái)簡(jiǎn)化代碼，通過(guò)各種函數(shù)來(lái)完成系統(tǒng)中一些重復(fù)的工作，提高系統(tǒng)的運(yùn)行效率。四、學(xué)會(huì)用自己周圍的資源來(lái)解決自己在編程過(guò)程中遇到的問(wèn)題。在編程過(guò)程，自己一個(gè)人對(duì)著計(jì)算機(jī)編程，運(yùn)行、調(diào)試中錯(cuò)誤是不可避免的，有的錯(cuò)誤、異常通過(guò)查書、上網(wǎng)查資料一般都可以解決，但也有那種一整天都找不出的錯(cuò)在哪的錯(cuò)誤，就學(xué)著使用其他技術(shù)來(lái)實(shí)現(xiàn)系統(tǒng)所要求的功能。這個(gè)過(guò)程有點(diǎn)苦，但通過(guò)自己的努力解決后，真的很高興，也有一種小小的成就感。五、增強(qiáng)了我的把握細(xì)節(jié)的能力。程序設(shè)計(jì)對(duì)細(xì)節(jié)有要求，如果有一點(diǎn)不注意，程序就會(huì)報(bào)錯(cuò)，其原因有可能是一個(gè)符號(hào)、一條語(yǔ)句、一個(gè)空格。只有在程序設(shè)計(jì)過(guò)程中，把握好每一個(gè)細(xì)節(jié)，才能使程序更好的運(yùn)行，減少錯(cuò)誤的發(fā)生。六、增強(qiáng)了團(tuán)隊(duì)協(xié)作能力，在開發(fā)中，遇到了很多問(wèn)題，技術(shù)上、系統(tǒng)的整體實(shí)施中，組內(nèi)成員給了不少幫助，通過(guò)團(tuán)隊(duì)的努力，才使得“家庭財(cái)務(wù)小助手”能比較順利的開發(fā)出來(lái)。***為期十周的管理信息系統(tǒng)課就這樣結(jié)束了，說(shuō)心里話，對(duì)于課堂上的內(nèi)容，確實(shí)顯得枯燥了些，一堂課聽下來(lái)，可能當(dāng)時(shí)有點(diǎn)印象，可是很快新的知識(shí)就淹沒(méi)了舊的知識(shí)，唯有考試前的那一周，我覺(jué)得在這門課上，才有了一個(gè)整體清晰的把握，背誦有的時(shí)候真的可以加深對(duì)理論知識(shí)的理解。課程設(shè)計(jì)工作是對(duì)我們所學(xué)理論知識(shí)應(yīng)用情況的一個(gè)檢驗(yàn)，理論應(yīng)用于實(shí)踐似乎總會(huì)遇到各種各樣讓人很頭疼的問(wèn)題