【導讀】維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)。而對于后者則要求應用程序功能完備,容易使用等特點。系統(tǒng)可以完成對小區(qū)戶籍信息的瀏覽、查詢、添加、刪除、修改、報表以及。系統(tǒng)的核心是戶口和人口信息之間的聯(lián)系，每一個表的修改都將聯(lián)動。查詢功能也是系統(tǒng)的核心之一，在系統(tǒng)中即有戶口查詢，也有人口查詢和。了方便用戶使用。經(jīng)過分析,本系統(tǒng)采用MicrosoftOffice中的Access2021來設(shè)計數(shù)據(jù)庫，Micros. oft公司的VisualBasic工具開發(fā)系統(tǒng)。利用VisualBasic提供的各種面向?qū)ο蟮拈_發(fā)工。應用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成滿意的系統(tǒng)。論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。系統(tǒng)設(shè)計的重點、設(shè)計思想、難點技術(shù)和解決方案。域同樣也得到了飛速的發(fā)展。雖然派出所只是公安系統(tǒng)的基層單位，但是戶籍管理是一項瑣碎、復雜而

　　

【正文】 = False = False = False = False = False = False = False = False = False = False = False GetStatus 清空數(shù)據(jù)庫中的全部數(shù)據(jù) End Sub Private Sub qinghu_Click() = False = False = False = False = False = False = False = False = False = False = False GetStatus 清空數(shù)據(jù)庫中的戶籍數(shù)據(jù) End Sub Private Sub qinguser_Click() = False = False = False = False = False = False = False = False = False = False = False GetStatus 清空數(shù)據(jù)庫中的用戶數(shù)據(jù) End Sub Private Sub ruhome_Click() 39。遷入戶 = False = False = False = False = False = False = False = False = False = False = False = = False = False = False = False GetStatus 添加或遷入戶口 End Sub Private Sub rupeople_Click() = False = False = False = False = False = False = False = False = False GetStatus 添加或遷入人口 End Sub Private Sub rxinxi_Click() = False = False = False = False = False = False = False = False = False GetStatus 查詢修改人信息 End Sub Private Sub tongji_Click() GetStatus 報表與統(tǒng)計 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) End Sub Private Sub userlist_Click() = False = False = False = False = False = False = False = False = False GetStatus 用戶列表 End Sub Private Sub xitong_Click() GetStatus 對系統(tǒng)進行管理 End Sub 添加或遷入戶口界面設(shè)計 此功能是在主界面第一個下拉菜單下的功能，主要是對戶號，戶別，戶主姓名，家庭地址，遷入時間，何地遷入，遷出日期，到何地點等等進行設(shè)置 次功能用到了 ，文本框，標簽等控件進行了設(shè)計，實現(xiàn)具體代碼如下： Option Explicit Private Sub Command1_Click() Unload frmqchu 39。初始化主窗口 = True = True = True If userid = admin Then = True = False Else = False = False End If = True = True = True If userid = admin Then = True Else = False End If GetStatus 就緒 End Sub Private Sub Command2_Click() Unload frmqchu 39。初始化主窗口 = True = True = True If userid = admin Then = True = True Else = False = False End If = True = True = True If userid = admin Then = True Else = False End If GetStatus 就緒 End Sub Private Sub Command3_Click() Beep = False = False End Sub Private Sub Command4_Click() If = Then MsgBox 請輸入遷出到何地 , , 警告 Else Beep = False = False End If End Sub Private Sub Form_Load() = Date End Sub 查詢戶號窗體設(shè)計 用這個功能可以對戶主的戶號進行查詢，只要輸入身份證號碼就可以查詢了 ,如果用戶輸入錯誤的身份證號碼系統(tǒng)會提示： 無此身份證號，或不是戶主身份證號 代碼如下： Option Explicit Private Sub Command1_Click() Unload frmchuhao 39。初始化主窗口 = True = True = True If userid = admin Then = True = True Else = False = False End If = True = True = True If userid = admin Then = True Else = False End If GetStatus 就緒 End Sub Private Sub Command2_Click() Dim sf As String Dim hz As String Dim n As New Dim ret As New hz = 戶主 Dim local_db As String If = Then MsgBox 請輸入戶主身份證號 , , 警告 Else sf = Trim() 39。連接數(shù)據(jù)庫 Provider=。Data Source= + amp。 \data\ + 。Persist Security Info=False。 local_db = select 戶號 from 人口表 + _ where 人口表 .身份證號 = + 39。 + sf + 39。 + and 人口表 .與戶主關(guān)系 = + 39。 + hz + 39。 local_db, n If And Then MsgBox 無此身 份證號，或不是戶主身份證號 , , 警告 = Else = ret(戶號 ) End If End If End Sub 備份數(shù)據(jù)庫設(shè)計 可以對 ACCESS數(shù)據(jù)庫進行備份，操作員操作之后有很多數(shù)據(jù)需要存檔，用此功能即可對錄入的內(nèi)容進行保存，以方便下次操作時調(diào)用 實現(xiàn)代碼如下： Option Explicit Private Sub Command1_Click() = End Sub Private Sub Command2_Click() If = Then MsgBox 請先選擇數(shù)據(jù)庫文件 , , 警告 Else = End If End Sub Private Sub Command3_Click() Dim src As String Dim dst As String If = Then MsgBox 請選擇數(shù)據(jù)庫源文件 , , 警告 Else If = Then MsgBox 請選擇備份數(shù)據(jù)庫存放目錄 , , 警告 End If End If If And Then src = dst = FileCopy src, dst MsgBox 數(shù)據(jù)庫備份成功！ , , 提示 End If End Sub Private Sub Command4_Click() Unload frmbackup 39。初始化主窗口 = True = True = True If userid = admin Then = True = True Else = False = False End If = True = True = True If userid = admin Then = True Else = False End If GetStatus 就緒 End Sub 測試分析 一、 強制變量聲明 選擇菜單 [工具 ]— [選項 ]命令，打開“選項“對話框”，在“編輯器”屬性頁中，把“要求變量聲明”復選框選上，或者手工在每個文件的開頭加上關(guān)鍵字： option Explicit 這樣在編譯時會對沒有聲明的變量報錯，從而減少很多不必要的調(diào)試。 二、常見錯誤的避免 數(shù)據(jù)類型不匹配 數(shù)據(jù)類型的判斷錯誤，比如一個功能模塊，接受傳入的數(shù)據(jù)為 id，要求其值必須是正數(shù)。如果寫程序時傳入的是小 數(shù)，或者是非數(shù)字的字符串，那么程序?qū)霈F(xiàn)錯誤。又如查詢數(shù)據(jù)表時，使用了 WHERE子句，但是數(shù)據(jù)類型不匹配，數(shù)據(jù)庫中字段類型為數(shù)字的值，卻使用了字符串去查詢，就會出現(xiàn)錯誤。 數(shù)據(jù)與數(shù)據(jù)庫限制相沖突 數(shù)據(jù)與數(shù)據(jù)庫限制相沖突，可能是其值超過了數(shù)據(jù)庫的上限和下限。比如在數(shù)據(jù)庫中，用戶名稱字符數(shù)量上限是 20個字符，而在程序中沒有對此進行判別，如果一個添加新商品時名字有 21個字符，那么在使用 SQL語句插入數(shù)據(jù)與記錄的時候就會出錯。 變量聲明錯誤 最后是一些常識性錯誤，比如在 If… Else… End If過程中， 認為判斷只會執(zhí)行其中的一段代碼，于是在兩段中都使用了 Dim obj as clsMerch，事實上，編譯器在語法分析階段，是首先將一個函數(shù)內(nèi)聲明的全部變量都放符號表中，而不管這個變量的聲明是在這個函數(shù)的什么位置。 又如在 Select Case中， Case的條件是字符串，但是沒有加引號，就變成了 Case一個空變量。 資源的建立與釋放 在將類實例化時，必須使用 New關(guān)鍵字，未實例化類無法使用，例： 誤： Dim obj as clsMerch 正： Dim obj as clsMerch Set obj=New clsMerch 同理，在調(diào)用 Set obj=Nothing后，資源已經(jīng)釋放，無法再調(diào)用類內(nèi)的方法。 系統(tǒng)的編譯和發(fā)行 3個工程的項目屬性在前面創(chuàng)建項目時均已設(shè)置完畢，由于在本系統(tǒng)中生成了名為 ，當 移植到其他機器使用時，需要先注冊此組件。另外系統(tǒng)中默認的數(shù)據(jù)庫的路徑是與 DB文件夾，因 此當移植到其他機器時，這個路徑關(guān)系依然不能改變。 結(jié)束語 家庭收支管理系統(tǒng)是一個比較復雜的課題，因為社會在發(fā)展，時代在進步，人們的需求也在不斷地發(fā)生變化， 計算機已經(jīng)成為我們學習和工作的得力助手，使 用 原 先 的管理方法越來越不適應現(xiàn)在社會的發(fā)展。為了適應現(xiàn)代社會人們高度強烈的時間觀念， 家庭收支管理系統(tǒng) 軟件為 每一個家庭管理家庭財務(wù)帶來了極大的方便。 使用其可方便的管理家庭財務(wù) ,借助該軟件提高工作效率，形成一種科學的管理體系。 本人所開發(fā)的這個 家庭收支管理系統(tǒng) 也是有其局限性的，主要是由于本人工作十分繁忙沒有足 夠的時間，因而對問題的需求分析也就不是十分準確了。雖然如此，通過這么幾個月的學習、思考、動手、調(diào)試，基本掌握了軟件開發(fā)的基本步驟。 我通過此次畢業(yè)設(shè)計，增強了我對以前所學知識的融會貫通能力，極大地我對計算機的興趣和學好計算機的信心。我準備在以后的學習、工作中，承襲這幾個月鍛煉出來的精神，繼續(xù)深入地對該課題進行研究，并準備查閱大量的參考文獻，力爭將系統(tǒng)完善。 對管理信息系統(tǒng)的展望 管理信息系統(tǒng)從 60 年代開始，已經(jīng)經(jīng)歷了電子數(shù)據(jù)處理階段（ EDP），事務(wù)處理階段，管理信息系統(tǒng)階段（ MIS），隨著計算機技 術(shù)，數(shù)據(jù)處理技術(shù)及相關(guān)學科的迅猛發(fā)展，現(xiàn)在管理信息系統(tǒng)正朝著自適應、自學習的更高階段進軍。 專家系統(tǒng)（ ES）。 是通過對專家的知識的認識，模