【正文】 模塊提供依據(jù)?！? 隨著網(wǎng)絡(luò)技術(shù)的出現(xiàn)，管理信息系統(tǒng)又有了新的必恭必敬，基于網(wǎng)絡(luò)的管理信息系統(tǒng)不斷出現(xiàn)，管理信息系統(tǒng)的概念模型也發(fā)生了相應(yīng)的變化，許多學者對管理信息系 統(tǒng)給出了新的定義。例如，管理信息系統(tǒng)可以處理企業(yè)產(chǎn)生經(jīng)營活動的全過程，可以解決組織中數(shù)據(jù)處理效率問題，也可以解決財務(wù)管理決策過程等。如辦公自動化（ OA）、電子商務(wù)（ EC）、專家系統(tǒng)（ ES）、計算機集成制造系統(tǒng)（ CIMS）。 B、開發(fā)初步的原型系統(tǒng)。 ③原型法的優(yōu)缺點 原型法的優(yōu)點是開發(fā)周期短，費用較少，同時可以較有效地避免因開發(fā)者和用戶的認識隔閡所產(chǎn)生的失敗，其缺點是系統(tǒng)的開發(fā)缺乏統(tǒng)一的規(guī)劃和開發(fā)標準，難以對系統(tǒng)的開發(fā)過程加以控制。 B、分析對象之間的聯(lián)系和相互之間所傳遞的信息，由此構(gòu) 造客觀世界（企業(yè)）所對應(yīng)的信息管理系統(tǒng)的模型。 （ 2）提出新系統(tǒng)的人員并不都是系統(tǒng)研究人員，有些人對于的功能和處理數(shù)據(jù)的方法沒有明確的認識。 7 ③技術(shù)可行性分析： 技術(shù)可行性分析是根據(jù)新系統(tǒng)的目標來衡量是否具備所需要的技術(shù)，包括系統(tǒng)開發(fā)人員數(shù)量和水平，硬件方面，軟件方面及其它應(yīng)用技術(shù)。 （ 3）軟件資源 軟件資源的可行性分析主要考慮以下幾點是否滿足用戶的要求： ①操作系統(tǒng)的選擇； ②編譯系統(tǒng)的選擇； ③數(shù)據(jù)庫管理系統(tǒng)的選擇； ④高級編程語言的選擇； ⑤漢字處理系統(tǒng)的選擇； ⑥應(yīng)用軟件包的選擇。理財信息包括日常收支信息、銀行往來信息和銀行賬戶信息。系統(tǒng)管理員用戶為 Admin，普通用戶為 Users，由程序設(shè)計人員手動地銀行信息管理 收入類型管理 支出類型管理 系統(tǒng)用戶管理 家庭理財管理 日常收支管理 銀行往來管理 基本信息管理 數(shù)據(jù)統(tǒng)計管理 日常收支統(tǒng)計 銀行交易統(tǒng)計 家庭資產(chǎn)統(tǒng)計 家庭成員管理 家庭理財管理系統(tǒng) 用戶信息管理 銀行賬戶管理 修改自身密碼 9 添加到數(shù)據(jù)庫中，它們的默認密碼均為 111111。如果需要對普通用戶進行管理，則使用 Admin 用戶登錄；否則建議使用 Users 用戶登錄。在 理財 信息管理模塊中可以對日常收入信息、銀行交易信息和銀行帳戶信息進行添加、修改、刪除和查看等操作。 在 數(shù)據(jù)統(tǒng)計管理模塊中，可以對日常收支、銀行交易和家庭資產(chǎn)等信息進行統(tǒng)計。 與其他開發(fā)工具相比， Visual Basic 具有簡單易學、靈活方便和易于擴充等特點，越來越多地被用作客戶 /服務(wù)器（ Client/Server，簡稱為 C/S）應(yīng)用程序的前端開發(fā)工具，與后端的開發(fā)工具 Access 數(shù)據(jù)庫結(jié)合，能夠提供一個高性能的管理信息系統(tǒng)解決方案因為本系統(tǒng)是單機版的數(shù)據(jù)庫應(yīng)用系統(tǒng)，所以采用 Visual Basic 作為開發(fā)工具， Access 作為后臺數(shù)據(jù)庫。 表 2 表 Banks 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) `說明 1 Bankld 自動編號 銀行編號，主鍵 2 BankName 文本，長度100 銀行名稱 3 Bshort 文本，長度 50 簡稱 4 Place 文本，長度200 地點 家庭成員信息表 Members 表 Members 用來保存家庭成員信息，結(jié)構(gòu)如表 3 所示。 第六章 系統(tǒng)詳細設(shè)計 登錄窗體和系統(tǒng)主界面設(shè)計 當系統(tǒng)運行時，首先打開登錄窗體，只有有權(quán)限的用戶才能進行系統(tǒng)。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。 ? 如果 Try_times 大于或等于 3，則退出系統(tǒng)。 當選擇“退出系統(tǒng)”菜單項時觸發(fā) mn_Click 事件，代碼如下： Private Sub mn_Exit_Click() DBapi_Disconnect End End Sub 基本信息管理模塊設(shè)計 基本信息管理模塊包括 銀行信息 管理、 收入類型 管理 和支出類型 管理。 表 11 設(shè)置窗體中主要控件的屬性 對象名 屬性 屬性值 /說明 txtName 用于輸入查詢條件 CmdSearch Caption 查詢 DataGrid1 用于顯示銀行信息 20 Adodc 為 DataGrid1控件提供數(shù)據(jù)源 Cmd_Add Caption 添加 Cmd_Modi Caption 修改 Cmd_Del Caption 刪除 Cmd_Back Caption 返回 下面介紹窗體中的主要代碼 DataRefresh 過程 DataRefresh 過程是在 Adodc 控件的結(jié)果集發(fā)生改變時，刷新 DataGrid 控件中的數(shù)據(jù)，對應(yīng)的代碼如下： Private Sub DataRefresh() Dim strSearch As String Dim TmpSource As String strSearch = If Len(Trim(txtBName)) 0 Then strSearch = Where BankName Like 39。刷新數(shù)據(jù) DataRefresh End Sub 收入類型設(shè)置窗體 收入類型設(shè)置窗體的名稱為 FrmTypes，窗體中包含的控件及其屬性如表 12所示。設(shè)置列表綁定字段 End Sub Cmd_Add_Click 過程 在文本框中輸入新的類型名稱，單 擊“ 添加 ”按鈕時觸發(fā) Cmd_Add_Click 事件，代碼如下： Private Sub Cmd_Add_Click() 39。 設(shè)計日常收支信息管理窗體 日常收支信息管理窗體的名稱為 FrmListMan，窗體布局如圖 12 所示。 用戶管理模塊設(shè)計 30 用戶管理模塊包括用戶管理和修改密碼等功能。相信本 家庭理財 管理系統(tǒng)是一套 家庭 在日常管理中必不可少的管理軟件，通過開發(fā)這個系統(tǒng)，我掌握了的項本過程，了解了的基本知識鞏固了我對 Visual Basic 的學習，但在這次畢業(yè)設(shè)計中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學會了設(shè)計系統(tǒng)的思維方法，以及與同學們之間相互幫助的精神。 33 參考文獻 [1] Visual Basic 使用指南 ， Bob Reselman , Richard Peasley , Wayne Pruchniak，電子工業(yè)出版社 [2] Visual Basic 中文版控件大全 ， Microsoft， 電子工業(yè)出版社 [3] 中文 Access 2021 24 學時教程 ， Craig Eddy ， Timothy Buchanan 機械工業(yè)出版社 [4] 肖春蓮 . 合同管理系統(tǒng)設(shè)計 . 有色冶金設(shè)計與研究 .2021,(3),5060,64 [5] 劉祟欣 , 張 建 新 . 合 同 管 理 信 息 系 統(tǒng) . 計算機 .1997,(6),3132,37 [6] 黃華 ,付鋒 ,陳軒 . Visual Basic 在高校教務(wù)管理系統(tǒng)中的應(yīng)用 . 計算機與現(xiàn)代化 .2021,(2),7983 [7] [美 ]Evangelous Petroutsos． Visual Basic 6 從入門到精通[M].北京：電子工業(yè)出版社， 1999． 1． [8] 新思維創(chuàng)作室． Visual Basic 編程 [M].北京，人民郵電出版社． 1998． 12． [9] 何斌，等． Visual Basic 應(yīng)用指南 [M].北京：人民郵電出版社， 1998， 12． [10] 安嘉瑩 ,章韻 . 企業(yè)進口設(shè)備合同管理信息系統(tǒng) . 南京郵電學院學報 . 1996,(12),8690 [11] 李微 . 數(shù)據(jù) 庫軟件在我院 技術(shù)合同管理 中的應(yīng)用 . 糧食 和食品工業(yè) . 2021,(3),3740 [12] 朱成彪 ,楊紅杰 . 銷售合同管理系統(tǒng)的設(shè)計與研究 . 嘉 興學院學報 . 2021,(5)， 4445， 63 附錄：部分窗體源代碼 用戶管理窗體代碼 Private Sub Cmd_Add_Click() With FrmUserEdit .txtUserName = .txtPass = .txtPass2 = .Show 1 End With 34 DataList1_Click End Sub Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub Cmd_Del_Click() 39。如果當前用戶為 Admin，則不能修改用戶名 If Format(, ) = admin Then . = False End If 39。判斷輸入的用戶名和密碼是否符合標準 If Trim(txtUserName) = Then 37 MsgBox 請輸入用戶名 Exit Sub End If If Len(txtPass) 6 Then MsgBox 密碼長度不能小于 6 = 0 = Len(txtPass2) Exit Sub End If If txtPass txtPass2 Then MsgBox 密碼和確認密碼不相同，請重新確認 = 0 = Len(txtPass2) Exit Sub End If 39。如果月份大于 0，則 開始日期為本月 1 日 StrDate1 = Trim() + + Trim() + 01 43 If = 12 Then 39。確認刪除 If MsgBox(是否確定要刪除帳戶信息？ , vbYesNo, 請確認 ) = vbNo Then Exit Sub End If 39。載入銀行信息 = Conn = Select * From Banks Order By BankId Set = Ado_Bank = BankName = BankId 39。刷新數(shù)據(jù) DataRefresh End Sub Private Sub Cmd_Modi_Click() If = True Then MsgBox 請選擇記錄 Exit Sub End If = True 46 = Trim((0)) = Trim((1)) = Trim((2)) = Trim((3)) = Trim((4)) = (5) = (5) = (7) = (8) = (10) 39。 MsgBox TmpSource = Conn = TmpSource Set = Adodc1 (0).Width = 1600 (1).Width = 1800 (2).Width = 1600 End Sub 銀行往來 管理 窗體代碼 Private Sub Check1_Click() 44 39。如果是插入新的用戶，則必須進行判斷；如果是修改已有的用戶，則當用戶名被修改時進行判斷 With MyUser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(txtUserName) = True Then MsgBox 用戶名已經(jīng)存在，請重新輸入 = 0 = Len(txtUse