【導(dǎo)讀】的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起。數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。序功能完備,易使用等特點(diǎn)。但一直以來(lái)人們使用傳統(tǒng)人工的方式管理戶(hù)籍檔案，這種管理方式存在著許多缺。率,也是公安部門(mén)的科學(xué)化、正規(guī)化管理的體現(xiàn)。加貼近信息電子化處理，從而降低了人工勞動(dòng)并增加了信息的準(zhǔn)確性。小型C/S系統(tǒng)，目的是為了提高工作效率及管理水平。為了在以用戶(hù)為中心的市場(chǎng)競(jìng)爭(zhēng)中獲勝，各單位必須對(duì)不斷變化的市場(chǎng)。些中小型企業(yè)為了提高自身的工作效率，以適應(yīng)市場(chǎng)的需要，都實(shí)現(xiàn)了辦公自動(dòng)化。本課題是由公安部戶(hù)籍管理部提出的，為其內(nèi)務(wù)部門(mén)使用，理措施起到積極作用?？蛻?hù)/服務(wù)器體系的框架由三部分組成：客戶(hù)機(jī)、服務(wù)器和中間件。是執(zhí)行用戶(hù)一方的應(yīng)用程序，提供面向?qū)ο蟮挠脩?hù)界面。中間件是支持客戶(hù)/服務(wù)器進(jìn)行對(duì)話(huà)，實(shí)施分布式應(yīng)用的各種軟件。主要承擔(dān)兩方面的功能：一是連接功能，二是管理功能。

　　

【正文】 私奉獻(xiàn)！感謝你們的悉心教導(dǎo)！感謝你們的點(diǎn)點(diǎn)滴滴！ 第 六 章 主要參考文獻(xiàn) Visual Basic 程序設(shè)計(jì) 作者： 譚浩強(qiáng) 薛淑斌 袁 玫 編著 出版社： 清華大學(xué) 出版社 Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)與開(kāi)發(fā) 作者： 李春葆 張植民 編著 出版社 :清華大學(xué) 出版社 Visual Basic 課程設(shè)計(jì)與系統(tǒng)開(kāi)發(fā)案例 作者： 伍俊良 主編 出版社 :清華大學(xué)出版社 Visual Basic 程序設(shè)計(jì) 作者： 杭國(guó)英 主編 出版社 :機(jī)械工業(yè)出版社 Access 2020 項(xiàng)目案例導(dǎo)航 作者： 鄭小玲 王學(xué)軍 編著 出版社： 科學(xué) 出版社 出版日期 :2020年 7月 第 七 章 附 錄 7 第 33頁(yè) 用戶(hù)登錄主界面及代碼： Option Explicit Private Sub Commcancel_Click() 數(shù)據(jù)庫(kù) 登錄信息 戶(hù)籍管理 查詢(xún)修改 報(bào)表統(tǒng)計(jì) 登錄處理 合法用戶(hù) 信息反饋 主界面信息 7 第 34頁(yè) End End Sub Private Sub Commok_Click() 39。聲明變量 Dim username As String Dim password As String Dim local_db As String Dim n As New Dim rst As New If = Then MsgBox 請(qǐng)輸入用戶(hù)名 , , 警告 Else If = Then MsgBox 請(qǐng)輸入密碼 , , 警告 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ù)庫(kù) username = Trim() password = 39。檢查用戶(hù)名是否正確 local_db = select 用戶(hù)名 from 用戶(hù)表 + _ where 用戶(hù)表 .用戶(hù)名 = + 39。 + _ username + 39。 local_db, n If Not ( And ) Then 39。檢查密碼是否正確 local_db = select 密碼 from 用戶(hù)表 + _ where 用戶(hù)表 .用戶(hù)名 = + 39。 + _ username + 39。and + _ 用戶(hù)表 .密碼 = + 39。 + password + 39。 local_db, n If Not ( And ) Then userid = Unload frmdl 39。判斷登陸用戶(hù)是否為 admin If username = admin Then 7 第 35頁(yè) = True 39。激活主窗口系統(tǒng)菜單 Else = False End If 39。顯示版本窗口 Else MsgBox 您輸入的密碼不正確，請(qǐng)重新輸入！ , , 警告 = End If Else MsgBox 系統(tǒng)中無(wú)此用戶(hù) , , 警告 = End If End If End Sub Private Sub Form_Load() End Sub Private Sub Timer1_Timer() End Sub 系統(tǒng)主界面及代碼： 7 第 36頁(yè) Private Sub adduser_Click() 39。增加用戶(hù) = False = False = False = False = False = False = False GetStatus 添加用戶(hù) End Sub Private Sub allh_Click() = False = False = False = False = False = False = False 7 第 37頁(yè) GetStatus 戶(hù)口列表 End Sub Private Sub allp_Click() = False = False = False = False = False = False = False GetStatus 人口列表 End Sub Private Sub chaxun_Click() GetStatus 查詢(xún)修改信息 End Sub Private Sub chuhao_Click() = False = False = False = False = False = False = False GetStatus 查詢(xún)戶(hù)號(hào) End Sub Private Sub chuhome_Click() = False = False = False = False = False = False = False 7 第 38頁(yè) GetStatus 遷出戶(hù)口 End Sub Private Sub chupeople_Click() = False = False = False = False = False = False = False GetStatus 遷出人口 End Sub Private Sub Command1_Click() = False = False = False = False = False = False = False = False = False = False = False = False = GetStatus 添加、遷入戶(hù)口 End Sub Private Sub Command2_Click() = False = False = False = False = False = False = False GetStatus 添加、遷入人口 End Sub 7 第 39頁(yè) Private Sub Command3_Click() = False = False = False = False = False = False = False GetStatus 查詢(xún)住址 End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() Beep = False GetStatus 退出系統(tǒng) End Sub Private Sub czhuzhi_Click() = False = False = False = False = False = False = False GetStatus 查詢(xún)住址 End Sub Private Sub del_Click() 39。刪除用戶(hù) = False = False = False = False = False 7 第 40頁(yè) = False = False GetStatus 刪除用戶(hù) End Sub Private Sub exit_Click() 39。退出 Beep = False GetStatus 退出系統(tǒng) End Sub Private Sub guanli_Click() GetStatus 對(duì)戶(hù)籍進(jìn)行管理 End Sub Private Sub hbaobiao_Click() GetStatus 戶(hù)口報(bào)表 End Sub Private Sub hxinxi_Click() = False = False = False = False = False = False = False GetStatus 查詢(xún)修改戶(hù)信息 End Sub Private Sub mfy_Click() 39。修改用戶(hù) = False = False = False = False = False 7 第 41頁(yè) = False = False G