【正文】 境提供的 ADO控件，數(shù)據(jù)庫訪問方法，對 ACCESS中建立的關系數(shù)據(jù)庫簡單快捷的進行訪問。 ADO主要包括 Connection,Recordset和 Command三個對象 , 它們的主要功能如下： 比較而言： ODBC – （ Open Database Connectivity）是第一個使用 SQL訪問不同關系數(shù)據(jù)庫的數(shù)據(jù)訪問技術。 OLE DB – 隨著越來越多的數(shù)據(jù)以非關系型格式存儲，需要一種新的架構(gòu)來提供這種應用和數(shù)據(jù)源之間的無縫連接，基于 COM（ Component Object Model）的 OLE DB應運而生了。所以戶籍管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。這些優(yōu)點能夠極大地提高學校信息管理的效率 ,也是一個單位科學化、正規(guī)化管理 ,與世界接軌的重要條件。 ⑶ 原始數(shù)據(jù)修改簡單方便 ,支持多條件修改 ⑷ 方便的數(shù)據(jù)查詢，支持多條件查詢 。 系統(tǒng)功能的邏輯設計 本系統(tǒng)主要可以實現(xiàn)以下的管理功能：戶籍管理、查詢修改、報表統(tǒng)計、系統(tǒng)管理、數(shù)據(jù)庫管理等等。聲明變量 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=。 39。 local_db, n If Not ( And ) Then 39。 + password + 39。顯示版本窗口 Else MsgBox 您輸入的密碼不正確，請重新輸入！ , , 警告 = End If Else MsgBox 系統(tǒng)中無此用戶 , , 警告 = End If End If End Sub 主界面的設計 用戶成功輸入正確的用戶名和密碼之后，我們就可以進入家庭理財管理系統(tǒng)的主界面里了 ,主界面里有戶籍管理，查詢修改，報表統(tǒng)計，系統(tǒng)管理，數(shù)據(jù)庫管理等功能 主界面最上面部分是使用菜單控件實現(xiàn)的，菜單是 windows應用程序的重要組成部分，如果給窗體加上菜單，那么不但用戶使用起來更方便，而且我們的應用程序也看上去更專業(yè)化。刪除用戶 = False = False = False = False = False = False = False = False = False GetStatus 刪除用戶 End Sub Private Sub exit_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。連接數(shù)據(jù)庫 Provider=。 local_db = select 戶號 from 人口表 + _ where 人口表 .身份證號 = + 39。 local_db, n If And Then MsgBox 無此身 份證號，或不是戶主身份證號 , , 警告 = Else = ret(戶號 ) End If End If End Sub 備份數(shù)據(jù)庫設計 可以對 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。又如查詢數(shù)據(jù)表時，使用了 WHERE子句，但是數(shù)據(jù)類型不匹配，數(shù)據(jù)庫中字段類型為數(shù)字的值，卻使用了字符串去查詢，就會出現(xiàn)錯誤。 又如在 Select Case中， Case的條件是字符串，但是沒有加引號，就變成了 Case一個空變量。 結(jié)束語 家庭收支管理系統(tǒng)是一個比較復雜的課題，因為社會在發(fā)展，時代在進步，人們的需求也在不斷地發(fā)生變化， 計算機已經(jīng)成為我們學習和工作的得力助手，使 用 原 先 的管理方法越來越不適應現(xiàn)在社會的發(fā)展。雖然如此，通過這么幾個月的學習、思考、動手、調(diào)試，基本掌握了軟件開發(fā)的基本步驟。 專家系統(tǒng)（ ES）。我準備在以后的學習、工作中，承襲這幾個月鍛煉出來的精神，繼續(xù)深入地對該課題進行研究，并準備查閱大量的參考文獻，力爭將系統(tǒng)完善。 使用其可方便的管理家庭財務 ,借助該軟件提高工作效率，形成一種科學的管理體系。 系統(tǒng)的編譯和發(fā)行 3個工程的項目屬性在前面創(chuàng)建項目時均已設置完畢，由于在本系統(tǒng)中生成了名為 ，當 移植到其他機器使用時，需要先注冊此組件。比如在數(shù)據(jù)庫中，用戶名稱字符數(shù)量上限是 20個字符，而在程序中沒有對此進行判別，如果一個添加新商品時名字有 21個字符，那么在使用 SQL語句插入數(shù)據(jù)與記錄的時候就會出錯。 二、常見錯誤的避免 數(shù)據(jù)類型不匹配 數(shù)據(jù)類型的判斷錯誤，比如一個功能模塊，接受傳入的數(shù)據(jù)為 id，要求其值必須是正數(shù)。 + and 人口表 .與戶主關系 = + 39。 \data\ + 。初始化主窗口 = 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。退出系統(tǒng) End Sub Private Sub guanli_Click() GetStatus 對戶籍進行管理 End Sub Private Sub hbaobiao_Click() GetStatus 戶口報表 End Sub Private Sub homezx_Click() = False = False = False = False = False = False = False = False = False GetStatus 戶口注銷 End Sub Private Sub hxinxi_Click() = False = False = False = False = False = False = False = False = False GetStatus 查詢修改戶信息 End Sub Private Sub mfy_Click() 39。增加用戶 = False = False = False = False = False = False = False = False = False GetStatus 添加用戶 End Sub Private Sub allh_Click() = False = False = False = False = False = False = False = False = False GetStatus 戶口列表 End Sub Private Sub allp_Click() = False = False = False = False = False = False = False = False = False GetStatus 人口列表 End Sub Private Sub backupdb_Click() = False = False = False = False = False = False = False = False = False GetStatus 備份數(shù)據(jù)庫 End Sub Private Sub bdb_Click() GetStatus 數(shù)據(jù)庫管理 End Sub Private Sub card_Click() = False = False = False = False = False