【正文】 塊、報(bào)表輸出模塊、報(bào)表統(tǒng)計(jì)模塊[2]。菜單的每一項(xiàng)可下拉出下一級子菜單。(2)彈出式菜單功能①家庭軟件：查看家庭電子鐘。查看日歷，包括Month的月份選擇、Year的年份選擇、OK和Cancel日歷。④網(wǎng)絡(luò)服務(wù)：打開家庭上網(wǎng)，包括轉(zhuǎn)接網(wǎng)頁、返回頁面、停止連接頁面等。在系統(tǒng)的開發(fā)過程中，盡量注意模塊的高內(nèi)聚、低耦合，使得系統(tǒng)的整體性能提高，并且也有利于投入使用后系統(tǒng)維護(hù)。系統(tǒng)主要業(yè)務(wù)分析，如圖22所示。③合理的模塊布局，在應(yīng)用系統(tǒng)設(shè)計(jì)中，獨(dú)立的各個(gè)模塊間集成在一個(gè)平臺中，使各模塊間的耦合性較低，方便系統(tǒng)運(yùn)行，提高系統(tǒng)安全性。④源程序可讀性原則：為了方便于其他設(shè)計(jì)，維護(hù)人員讀懂代碼或以后的代碼修改，軟件升級維護(hù)，盡可能做好代碼注釋工作。②智能化程度高、操作靈活、方便。⑥提供日常的家庭打印。(2)確定每一模塊使用的數(shù)據(jù)結(jié)構(gòu)。系統(tǒng)設(shè)計(jì)要根據(jù)系統(tǒng)分析報(bào)告中的系統(tǒng)邏輯模型綜合考慮各種約束，利用一切可用的技術(shù)手段和方法進(jìn)行何種具體設(shè)計(jì)，確定新系統(tǒng)在實(shí)施方案，解決“系統(tǒng)怎么做”的問題。人及界面設(shè)計(jì)的關(guān)鍵是使人和計(jì)算機(jī)之間能夠準(zhǔn)確地交流信息。這樣設(shè)計(jì)出來的程序不易出錯(cuò)，而且易于維護(hù)。以前的Visual Basic版本只能打開一個(gè)應(yīng)用，而引入了窗體之后，則可以在一個(gè)窗體下面引入多個(gè)應(yīng)用。(3)在出現(xiàn)的對話框中輸入要保存的工作區(qū)名。 應(yīng)用對象是用來標(biāo)識應(yīng)用、進(jìn)入應(yīng)用的入口點(diǎn)。 Visual ，來控制應(yīng)用在啟動(dòng)、終止及出現(xiàn)系統(tǒng)錯(cuò)誤時(shí)應(yīng)執(zhí)行的操作。本系統(tǒng)建立桌面單機(jī)的數(shù)據(jù)庫應(yīng)用程序Microsoft Access| version MDB數(shù)據(jù)庫。圖35 數(shù)據(jù)庫添加索引(3)數(shù)據(jù)庫維護(hù)在建立好的數(shù)據(jù)庫表以后，利用可視化數(shù)據(jù)管理器對數(shù)據(jù)庫進(jìn)行維護(hù)，如圖36數(shù)據(jù)庫維護(hù)所示。如果刪除記錄集的最后一條記錄39。如果想忽略錯(cuò)誤，注釋掉下一行代碼39。這將顯示當(dāng)前記錄位置39。必須設(shè)置 Index 屬性39。當(dāng)下面的動(dòng)作發(fā)生時(shí)，調(diào)用這個(gè)事件Select Case ActionCase vbDataActionMoveFirstCase vbDataActionMovePreviousCase vbDataActionMoveNextCase vbDataActionMoveLastCase vbDataActionAddNewCase vbDataActionUpdateCase vbDataActionDeleteCase vbDataActionFindCase vbDataActionBookmarkCase vbDataActionCloseEnd Select = vbHourglassEnd Sub(5)數(shù)據(jù)庫存儲存儲方式：主機(jī)數(shù)據(jù)庫采用鏈?zhǔn)酱鎯?，每條記錄的長度為174Byte。(2)軟件接口：本模塊程序所使用的數(shù)據(jù)庫來源于主機(jī)數(shù)據(jù)庫，所以數(shù)據(jù)庫系統(tǒng)與主機(jī)數(shù)據(jù)庫相同。開始是否正確輸入登錄密碼主界面NY圖39 登錄界面流程圖用戶登陸界面，在進(jìn)入系統(tǒng)前，做用戶身份驗(yàn)證，以防止非法用戶的登陸。家庭軟件模塊如圖311所示。圖314 家庭繪圖器(4)家庭打印機(jī)家庭打印機(jī)如圖315所示。圖318 日歷家庭娛樂模塊如圖319所示。圖322 家庭相冊網(wǎng)絡(luò)服務(wù)模塊如圖323所示。圖326 家庭收支簿 I/O設(shè)計(jì) 輸出是系統(tǒng)實(shí)施的結(jié)果和目的，在設(shè)計(jì)工作中必須根據(jù)管理上的要求先確定輸出，然后再按照輸出的要求組織數(shù)據(jù)的輸入和處理。因系統(tǒng)輸入量不大，鍵盤出入數(shù)據(jù)就滿足要求。②核對密碼數(shù)據(jù)與系統(tǒng)用戶設(shè)置的存根記錄。Visual ，具有強(qiáng)大的功能和廣泛的用戶，是比較流行的數(shù)據(jù)庫應(yīng)用前端開發(fā)工具,可應(yīng)于開發(fā)非常專業(yè)的Windows、Web和企業(yè)級應(yīng)用程序。系統(tǒng)后臺數(shù)據(jù)庫使用Access，當(dāng)Access安裝完畢之后，就可以創(chuàng)建數(shù)據(jù)庫，并在該數(shù)據(jù)庫中創(chuàng)建本系統(tǒng)所屬的數(shù)據(jù)表。(2)數(shù)據(jù)跟蹤：完成菜單項(xiàng)測試后，我又對系統(tǒng)內(nèi)的每一個(gè)數(shù)據(jù)進(jìn)行了跟蹤，例如：在通訊錄管理模塊中，我首先對基本信息進(jìn)行設(shè)定，然后在添加通訊錄信息，隨時(shí)觀察兩個(gè)模塊之間是否有沖突產(chǎn)生，配合得是否正確，再然后瀏覽通訊錄信息進(jìn)行驗(yàn)證，說明該功能完全正常，對其它的功能模塊也進(jìn)行了類似的設(shè)置。(3)系統(tǒng)的維護(hù)本系統(tǒng)是個(gè)較復(fù)雜的人機(jī)系統(tǒng)，由于系統(tǒng)外部環(huán)境與內(nèi)部因素的變化，不斷影響系統(tǒng)的運(yùn)行，同時(shí)需要系統(tǒng)不斷地適應(yīng)這些變化，不斷地完善系統(tǒng)，從而提高系統(tǒng)運(yùn)行的效率與服務(wù)水平，這就需要自始至終進(jìn)行系統(tǒng)的維護(hù)工作。④ 硬件的維護(hù)：指的是對系統(tǒng)所使用的設(shè)備進(jìn)行維護(hù)?；叵脒@段日子的經(jīng)歷和感受，我感慨萬千，在這次畢業(yè)設(shè)計(jì)的過程中，我擁有了無數(shù)難忘的回憶和收獲。日后必補(bǔ)充對Access數(shù)據(jù)庫強(qiáng)大功能的學(xué)習(xí)。本系統(tǒng)有待改善的地方有：①各模塊的耦合性太低，耦合性是程序結(jié)構(gòu)中各個(gè)模塊之間相互關(guān)聯(lián)的度量。改進(jìn)方案：①將家庭財(cái)務(wù)模塊做成多個(gè)模塊的集成，取代excel表進(jìn)行登賬，設(shè)計(jì)成家庭財(cái)務(wù)管理系統(tǒng)，實(shí)現(xiàn)界面登賬，自動(dòng)匯總，各財(cái)務(wù)模塊通過數(shù)據(jù)流貫穿為一體。已經(jīng)在10多個(gè)家庭進(jìn)行試驗(yàn)，功能會逐漸完善，滿足家庭對事務(wù)進(jìn)行規(guī)范化的信息管理，在信息化的今天，發(fā)展前景很好。[4]劉韜，駱娟：《Visual Basic 》[M]，人民郵電出版社2002年版。[8]劉亞，王芬：《家庭財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)》[J]，《福建電腦》2006年第1期。定義EXCEL類Dim xlBook As 39。判斷EXCEL是否打開Set xlApp = CreateObject() 39。打開EXCEL工作表 39。由VB關(guān)閉EXCEL (xlAutoClose) 39。釋放EXCEL對象EndEnd Sub家庭打印機(jī)模塊代碼Option ExplicitPrivate Sub cmdClose_Click()39。39。 Get filename. Allow user to cancel.39。If err = 0 ThentxtFile = .FilenameEnd IfEnd WithEnd SubPrivate Sub cmdPrint_Click()Dim Submit As StringDim prn As Printer39。Submit = UCase(Trim(txtFile))If Not IsFile(Submit) ThenMsgBox Can39。 Submit file to spooler after extracting name.39。 No point in proceeding if not.39。 Fill bo box with available printers, and39。 Next prn39。39。Automatically loads the URLs in the textbox39。history file and loads it into the WebBrowser.39。file and loads it into the second WebBrowser.On Error GoTo NoBackTwoExit SubNoBackTwo:MsgBox There is no Page to go back to!End SubPrivate Sub cmdForward_Click()39。This event takes the first WebBrowser to the39。Home Url set in Microsoft IE.End SubPrivate Sub cmdHome2_Click()39。URL Entered into the first text box. End SubPrivate Sub cmdNavigateTwo_Click()39。This event Refreshes WebBrowser2.End SubPrivate Sub cmdSearch_Click()39。WebBrowser2.On Error GoTo NoSearchTwoExit SubNoSearchTwo:MsgBox There is no search page to loadEnd SubPrivate Sub cmdStop_Click()39。more of the HTML document.End SubPrivate Sub Form_Load()39。Greg Perry Sams Teach Yourself VB6 in 24 hrs. = ( ) / 2 = ( ) / 2Navigate_TextEnd SubPrivate Sub mnuExit_Click()39。When you double click the Text box, it clears39。還有特別感謝珠海用友的開發(fā)總監(jiān)肖海華工程師對我的指導(dǎo)和幫助，促使我順利開展系統(tǒng)設(shè)計(jì)，此外還向我提供了很多關(guān)于VB編程技術(shù)的優(yōu)秀文章，這些對我完成畢業(yè)設(shè)計(jì)起了至關(guān)重要的作用。我相信，本次畢業(yè)設(shè)計(jì)為家庭事務(wù)管理系統(tǒng)搭下了一個(gè)框架，以后我一定在此基礎(chǔ)上不斷進(jìn)行完善。什么是奮斗？奮斗就是每天很難，可一年一年卻越來