【導(dǎo)讀】能完成人口、戶口信息的管理，戶籍基本情況的查詢，報表統(tǒng)計等功。要求設(shè)計合理，功能實用，性能良好。1)通過需求分析，能夠較清楚地了解社區(qū)戶籍管理的基本要求及工作流程。2)學(xué)習(xí)和掌握VisualBasic和Access2021的使用。3)學(xué)習(xí)和了解信息系統(tǒng)的一般原理和設(shè)計方法。5)根據(jù)所做的開發(fā)工作，按學(xué)校有關(guān)要求完成畢業(yè)設(shè)計論文的撰寫。1)嚴格遵守學(xué)校和學(xué)院有關(guān)畢業(yè)設(shè)計的各項規(guī)章制度。該生對待畢業(yè)設(shè)計工作積極主動，認真負責(zé)，勇于創(chuàng)新。

　　

【正文】 路，使很多復(fù)雜的問題簡單化。 在剛拿到“戶籍管理系統(tǒng)”這個課題之初，我根本不知從何入手。于是我認真閱讀 了軟件工程的教材和陳建明老師的課件，嚴格按照 可行性研究、需求分析、概要設(shè)計、詳細設(shè)計、編碼、測試等過程 逐步推進，在老師和同學(xué)的幫助下最終順利的完成了系統(tǒng)開發(fā)的任務(wù)。同時也 深刻理解了軟件生命期五個階段的重要性。在系統(tǒng)開發(fā)之前，我對軟件開發(fā)一直存在誤解，以為軟件開發(fā)的過程主要就是編寫代碼的過程。直至親身經(jīng)歷后才真正理解到需求分析才是軟件開發(fā)中最重要的環(huán)節(jié)，沒有詳細、完善的需求分析，所制作出得軟件必定是失敗的，不能被用戶、被市場所接受的。 總結(jié)這次畢業(yè)設(shè)計，我對計算機軟件開發(fā)有以下幾點感受： 1）要系統(tǒng)的分析問題 ，學(xué)會將一個問題分解、細化； 2）不能忽視細節(jié)，軟件開發(fā)過程需要一個嚴謹?shù)膽B(tài)度，任何一個細節(jié)的疏忽，都可能到時軟件開發(fā)的失??； 3）重視數(shù)據(jù)庫的建表，優(yōu)秀的數(shù)據(jù)庫能給程序的運行速度帶來質(zhì)的改變； 4）要遵循軟件開發(fā)本身的規(guī)律和善于吸收已有的經(jīng)驗； 5）要善于利用資源，特別是善于利用網(wǎng)絡(luò)資源，能夠為你節(jié)約時間，解決開發(fā)過程中的很多難題。 由于時間 短、工作學(xué)習(xí)兼顧 和能力 有限的關(guān)系，我此次設(shè)計的“戶籍管理系統(tǒng)”還存在不少問題需要進一步改進： 1）查詢功能不夠強大，缺少模糊查詢的功能； 2）報表功能略顯單薄，如果可 以自定義報表更加理想； 3）用戶權(quán)限劃分仍然比較粗糙 4） Access 數(shù)據(jù)庫不夠強大，若改為 SQL Server 更利于數(shù)據(jù)安全、可靠。 蘇州大學(xué)計算機科學(xué)與技術(shù)學(xué)院專升本畢業(yè)設(shè)計論文 第 31 頁 致 謝 本畢業(yè)設(shè)計及論文是在我的導(dǎo)師陳建明副教授的親切關(guān)懷和悉心指導(dǎo)下完成的。他嚴肅的科學(xué)態(tài)度，嚴謹?shù)闹螌W(xué)精神，精益求精的工作作風(fēng)，深深地感染和激勵著我。從課題的選擇到項目的最終完成，陳老師都始終給予我細心的指導(dǎo)和不懈的支持，在此謹向陳老師致以誠摯的謝意和崇高的敬意。 同時，感謝三年來教授過我的蘇大計算機科學(xué)學(xué)院的每一位老師，是你們放棄了雙休日的休息，不論嚴寒酷暑， 傳授我們知識；感謝我的班主任陸偉中老師，感謝您為我們付出的心血。 另外，還要感謝同班的各位同學(xué)，特別是謝江同學(xué)，感謝你們?nèi)陙碓趯W(xué)習(xí)和生活上的關(guān)心和幫助。 蘇州大學(xué)計算機科學(xué)與技術(shù)學(xué)院專升本畢業(yè)設(shè)計論文 第 32 頁 參考文獻 [1] 史濟民，軟件工程 —— 原理、方法與應(yīng)用，高等教育出版社， 2021 [2] 譚浩強， Visual Basic 程序設(shè)計教程（第二版），清華大學(xué)出版社， 2021 [3] 劉文濤， Visual Basic＋ Access 數(shù)據(jù)庫開發(fā)與實例，清華大學(xué)出版社， 2021 [4] 沈祥玖， VB 程序設(shè)計，高等教育出版社， 2021 [5] 盧湘鴻， Access 數(shù)據(jù)庫技術(shù)應(yīng)用，清華大學(xué)出版社， 2021 蘇州大學(xué)計算機科學(xué)與技術(shù)學(xué)院專升本畢業(yè)設(shè)計論文 第 33 頁 附錄 A 程序代碼（部分） （ 1）登錄界面“確定”按鈕 Private Sub Commok_Click() Dim username As String Dim password As String Dim local_db As String Dim n As New Dim rst As New If = Then MsgBox 請輸入用戶名 , , 警告 Else If = Then MsgBox 請輸入密碼 , , 警告 End If End If If And Then Set n = New Set rst = New Provider=。Data Source= + amp。 \data\ + 。Persist Security Info=False。 39。連接數(shù)據(jù)庫 username = Trim() password = 39。檢查用戶名是否正確 local_db = select 用戶名 from 用戶表 + _ where 用戶表 .用戶名 = + 39。 + _ username + 39。 local_db, n If Not ( And ) Then 39。檢查密碼是否正確 local_db = select 密碼 from 用戶表 + _ where 用戶表 .用戶名 = + 39。 + _ 蘇州大學(xué)計算機科學(xué)與技術(shù)學(xué)院專升本畢業(yè)設(shè)計論文 第 34 頁 username + 39。and + _ 用戶表 .密碼 = + 39。 + password + 39。 local_db, n If Not ( And ) Then userid = Unload frmdl 39。判斷登陸用戶是否為 admin If username = admin Then = True 39。激活主窗口系統(tǒng)菜單 = True = True Else = False = False = False End If 39。顯示版本窗口 Else MsgBox 您輸入的密碼不正確，請重新輸入！ , , 警告 = End If Else MsgBox 系統(tǒng)中無此用戶 , , 警告 = End If End If End Sub （ 2）戶口登記表“下一步”按鈕 Private Sub Command3_Click() 39。檢查項目是否為空 Dim thuhao As String If = Then MsgBox 請輸入戶號前綴 蘇州大學(xué)計算機科學(xué)與技術(shù)學(xué)院專升本畢業(yè)設(shè)計論文 第 35 頁 Else thuhao = Trim() amp。 amp。 Set n = New Set ret = New Provider=。Data Source= + amp。 \data\ + 。Persist Security Info=False。 39。檢查戶號是否重復(fù) local_db = select 戶主姓名 from 戶口表 + _ where 戶口表 .戶號 = + 39。 + thuhao + 39。 local_db, n If Not ( And ) Then MsgBox 此戶號已存在，點擊確定后系統(tǒng)會自動生成新的戶號尾數(shù) , , 警告 Unload frmhome Else If = Then MsgBox 請選擇戶別 , , 警告 Else If = Then MsgBox 請輸入戶主姓名 , , 警告 Else If = Then MsgBox 請輸入家庭住址 , , 警告 Else If = True And = Then MsgBox 請輸入由何地遷入 , , 警告 End If End If End If End If End If End If 39。不含遷入信息時判定 蘇州大學(xué)計算機科學(xué)與技術(shù)學(xué)院專升本畢業(yè)設(shè)計論文 第 36 頁 If = False Then If And And And Then tyhuhao1 = Trim() tyhuhao2 = = tyhuhao1 = tyhuhao2 = Trim() End If 39。含遷入信息時判定 Else If And And And _ And Then tyhuhao1 = Trim() tyhuhao2 = = tyhuhao1 = tyhuhao2 = Trim() End If End If End Sub （ 3）遷 出人口驗證 界面 ，“進入”按鈕 Private Sub Command2_Click() Dim tidcard As String Dim n As New Dim ret As New Dim local_db As String tidcard = Trim() If = Then MsgBox 請輸入要遷出人員的身份證號 , , 警告 Else 蘇州大學(xué)計算機科學(xué)與技術(shù)學(xué)院專升本畢業(yè)設(shè)計論文 第 37 頁 Set n = New Set ret = New Provider=。Data Source= + amp。 \data\ + 。Persist Security Info=False。 local_db = select 姓名 from 人遷出表 + _ where 人遷出表 .身份證號 = + 39。 + tidcard + 39。 local_db, n If Not ( And ) Then MsgBox 此人已遷出，要查詢此人信息請使用查詢菜單中的相應(yīng)功能 , 警告 Unload frmqcr = 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 Else Dim th As String th = 戶主 Set ret = New local_db = select 姓名 from 人口表 + _ where 人口表 .身份證號 = + 39。 + tidcard + 39。 and + 與戶主關(guān)系 = + 39。 + th + 39。 local_db, n 蘇州大學(xué)計算機科學(xué)與技術(shù)學(xué)院專升本畢業(yè)設(shè)計論文 第 38 頁 If Not ( And ) Then MsgBox 此人為戶主，不能遷出，請注銷此戶籍后辦理新戶 , , 警告 = Else Set ret = New local_db = select * from 人口表 + _ where 人口表 .身份證號 = + 39。 + tidcard + 39。 local_db, n If And Then MsgBox 無此身份證號，請重新輸入 = Else Dim d1 As String = ret(戶號 ) = ret(姓名 ) = ret(與戶主關(guān)系 ) = ret(身份證號 ) = ret(性別 ) = ret(民族 ) = ret(籍貫 ) d1 = ret(出生日期 ) = Mid(d1, 1, 4) = Mid(d1, 5, 2) = Mid(d1, 7, 2) = ret(出生地 ) = ret(文化程度 ) = ret(婚姻狀況 ) = ret(職業(yè) ) = ret(工作單位 ) = ret(遷入日期 ) = ret(何地遷入 ) Unload frmqcr 蘇州大學(xué)計算機科學(xué)與技術(shù)學(xué)院專升本畢業(yè)設(shè)計論文 第 39 頁 End If End If End If End If End Sub （ 4）查詢?nèi)丝诮缑妗安樵儭卑粹o Private Sub Command2_Click() Dim tidcard As String Dim n As New Dim ret As New Dim local_db As String tidcard = Trim() If = Then MsgBox 請輸入要查詢?nèi)藛T的身份證號 , , 警告 Else Set n = New Set ret = New Provider=。Data Source= + amp。 \data\ + 。Persist Security Info=False。 local_db = select * from 人遷出表 + _ where 人遷出表 .身份證號 = + 39。 + tidcard + 39。 local_db, n If Not ( And ) Then = ret(遷出日期 ) = ret(遷往何地 ) = False = True = False = True = True = True = True = True = True = False = False 蘇州大學(xué)計算機科學(xué)與技術(shù)學(xué)院專升本畢業(yè)設(shè)計論文 第 40 頁 flag = 1 End If Set ret = New local_db = select * from 人口表 + _ where 人口表 .身份證號 = + 39。 + tidc