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

　　

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