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

　　

【正文】 tatus 遷出人列表 End Sub Private Sub qingall_Click() = 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 添加或遷入戶口界面設計 此功能是在主界面第一個下拉菜單下的功能，主要是對戶號，戶別，戶主姓名，家庭地址，遷入時間，何地遷入，遷出日期，到何地點等等進行設置 次功能用到了 ，文本框，標簽等控件進行了設計，實現(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 查詢戶 號窗體設計 用這個功能可以對戶主的戶號進行查詢，只要輸入身份證號碼就可以查詢了 ,如果用戶輸入錯誤的身份證號碼系統(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 人口表 .與戶主關系 = + 39。 + hz + 39。 local_db, n If And Then MsgBox 無此身份證號，或不是戶主身份證號 , , 警告 = Else = ret(戶號 ) End If End If End Sub 備份數(shù)據(jù)庫設計 可以對 ACCESS數(shù)據(jù)庫進行備份，操作員操作之后有很多數(shù)據(jù)需要存檔，用此功能即可對錄入的內容進行保存，以方便下次操作時調用 實現(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 1 原文已完。下文為附加文檔，如不需要，下載后可以編輯刪除，謝謝！ 施工組織設計 本施工組織設計是本著“一流的質量、一流的工期、科學管理”來進 行編制的。編制時，我公司技術發(fā)展部、質檢科以及項目部經過精心研究、合理組織、充分利用先進工藝，特制定本施工組織設計。 一、 工程概況： 西夏建材城生活區(qū) 2 30住宅樓位于銀川市新市區(qū) ，橡膠廠對面。 本工程由寧夏燕寶房地產開發(fā)有限公司開發(fā)，銀川市規(guī)劃建筑設計院設計。 本工程耐火等級二級，屋面防水等級三級，地震防烈度為 8度，設計使用年限 50 年。 本工程建筑面積 :27樓 。30樓 m2。室內地坪177。 以絕對標高 m 為準，總長 27樓 ； 30樓 m?？倢?27樓 ； 30樓 m。設計室外地坪至檐口高度 00m，呈長方形布置，東西向，三個單元。 本工程設計屋面為坡屋面防水采用防水涂料。外墻水泥砂漿抹面，外刷淺灰色墻漆。內墻面除衛(wèi)生間 200 300 瓷磚，高到頂外，其余均水泥砂槳罩面，刮二遍膩子；樓梯間內墻采用 50 2 厚膠粉聚苯顆粒保溫。地面除衛(wèi)生間 200 200 防滑地磚，樓梯間 50 厚細石砼 1： 1 水泥砂漿壓光外，其余均采用 50 厚豆石砼毛地面。樓梯間單元門采用樓宇對講門，臥室門、衛(wèi)生間門采用木門，進戶門采用保溫防盜門。本工程窗均采 用塑鋼單框雙玻窗，開啟窗均加紗扇。本工程設計為節(jié)能型住宅，外墻均貼保溫板。 本工程設計為磚混結構，共六層。基礎采用 C30 鋼筋砼條形基礎，上砌 MU30 毛石基礎，砂漿采用 M10 水泥砂漿。一、二、三、四層墻體采用 M10 混合砂漿砌筑 MU15 多孔磚；五層以上采用 混合砂漿砌筑 MU15 多孔磚。 本工程結構中使用主要材料：鋼材： I 級鋼， II 級鋼；砼：基礎墊層 C10，基礎底板、地圈梁、基礎構造柱均采用 C30，其余均 C20。 本工程設計給水管采用 PPR 塑料管，熱熔連接；排水管采用UPVC 硬聚氯乙烯管，粘接；給水管道安裝除立管及安裝 IC 卡水表的管段明設計外，其余均暗設。 本工程設計采暖為鋼制高頻焊翅片管散熱器。 本工程設計照明電源采用 BV－ 銅芯線，插座電源等采用BV－ 4 銅芯線；除客廳為吸頂燈外，其余均采用座燈。 二、 施工部署及進度計劃 工期安排 本工程合同計劃開工日期： 2021 年 8 月 21 日，竣工日期：2021 年 7 月 10 日，合同工期 315 天。計劃 2021 年 9 月 15 日前 3 完成基礎工程， 2021 年 12 月 30 日完成主體結構工程， 2021 年 6月 20 日完成裝修工種 ，安裝工程穿插進行，于 2021 年 7 月 1 日前完成。具體進度計劃詳見附圖－ 1（施工進度計劃）。 施工順序 ⑴ 基礎工程 工程定位線（驗線）→挖坑→釬探（驗坑）→砂礫墊層的施工→基礎砼墊層→刷環(huán)保瀝青 →基礎放線（預檢）→砼條形基礎→刷環(huán)保瀝青 →毛石基礎的砌筑→構造柱砼→地圈梁→地溝→回填工。 ⑵ 結構工程 結構定位放線（預檢）→構造柱鋼筋綁扎、定位（隱檢）→磚墻砌筑（＋ 50cm 線找平、預檢）→柱梁、頂板支模（預檢）→梁板鋼筋綁扎（隱檢、開盤申請）→砼 澆筑→下一層結構定位放線→重復上述施工工序直至頂。 ⑶ 內裝修工程 門窗框安裝→室內墻面抹灰→樓地面→門窗安裝、油漆→五金安裝、內部清理→通水通電、竣工。 ⑷ 外裝修工程 外裝修工程遵循先上