【正文】 it Sub End If 39。設(shè)置用戶名 lblUserName = 39。如果月份為 12，則結(jié)束日期為下一年度1 月 1 日 StrDate2 = Trim(Val() + 1) + 0101 Else StrDate2 = Trim() + + Trim( + 1) + 01 End If StrSch = And = + StrDate1 + And + StrDate2 + Else StrDate1 = Trim() + 0101 StrDate2 = Trim() + 1231 StrSch = And = + StrDate1 + And = + StrDate2 + End If TmpSource = Select AS 收支分類 ,SUM() AS 收支金額 _ + From InOutList l,Types t Where = + StrSch _ + Group By , Order By 39。刷新數(shù)據(jù) DataRefresh End Sub Private Sub Cmd_Back_Click() 45 Unload Me End Sub Private Sub Cmd_Del_Click() If = True Then MsgBox 請選擇記錄 Exit Sub End If 39。刷新記錄 DataRefresh 47 End Sub Private Sub dco_Type_Click(Area As Integer) 39。刷新數(shù)據(jù) DataRefresh End Sub Private Sub dco_Bank_Click(Area As Integer) 39。 If = 0 Then = True = True = True Else = = False = = False = = False End If 39。如果修改自身用戶名，則更新 CurUser 對象 If OriUser = And Trim(txtUserName) OriUser Then = Trim(txtUserName) () End If MsgBox 修改成功 End If End With Unload Me End Sub 日常收支統(tǒng)計窗體代碼 Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub cob_Month_Click() DataRefresh End Sub Private Sub cob_Year_Click() DataRefresh End Sub Private Sub Form_Load() 39 Dim StrDate As String StrDate = Str(Year(Date)) Str(Year(Date) 1), 0 Str(Year(Date)), 1 Str(Year(Date) + 1), 2 = 1 , 0 1, 1 2, 2 3, 3 4, 4 5, 5 6, 6 7, 7 8, 8 9, 9 10, 10 11, 11 12, 12 = Month(Date) DataRefresh End Sub Private Sub DataRefresh() Dim StrSch As String Dim TmpSource As String Dim StrDate1 As String Dim StrDate2 As String If 0 Then 39。如果沒有選擇用戶名，則返回 If = Then Exit Sub End If 36 39。刪除當(dāng)前用戶 () MsgBox 刪除成功 39。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對于我以 后 的工作和學(xué)習(xí)都有一種巨大的幫助， 在此 感謝他耐心的輔導(dǎo)。因此，該系統(tǒng)必然會存在一些缺陷和不足。 28 數(shù)據(jù)統(tǒng)計管理模塊設(shè)計 數(shù)據(jù)統(tǒng)計管理模塊包括日常收支統(tǒng)計、銀行交易統(tǒng)計和家庭資產(chǎn)等功能。 家庭成員信息編輯窗體 家庭成員信息編輯窗體的名稱為 FrmMemberEdit，窗體的布局如圖 9所示。設(shè)置連接字符串 = Conn 39。刷新數(shù)據(jù) DataRefresh End Sub Cmd_Del_Click 過程 當(dāng)用戶單 擊“ 刪除 ”按鈕時觸發(fā) Cmd_Del_Click 事件，代碼如下： Private Sub Cmd_Del_Click() If = True Then MsgBox 請選擇記錄 Exit Sub End If 39。在 窗體 FrmBankMan 中，使用DataGrid 和 Adodc 控件來顯示銀行信息數(shù)據(jù)。本系統(tǒng)中主窗體名為 FrmMain。 ? 調(diào)用 ()函數(shù)，判斷當(dāng)臆用戶名是否存在。 表 9 設(shè)計登錄窗體的屬性 窗體屬性 設(shè)置值 具體說明 名稱 Ｆ rmLogin 設(shè)置窗體名稱 BorderStyle 1Fixed Single 設(shè)置窗體的邊框?qū)傩? Caption 身份驗證 窗體的標題條文本 15 ControlBox False 取消控制按鈕，防止用戶通過控制按鈕關(guān)閉對話框 StartUpPosition 2屏幕中心 設(shè)置窗體彈出時，位置在屏幕中心 登錄窗體中控件的屬性如表 10 所示。 表 6 表 Amount 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) `說明 1 AccountNo 文本，長度 50 記錄編號，主鍵 2 Atype 文本，長度 50 帳戶類型。下面分別介紹這些表的結(jié)構(gòu)。如果 3次輸入的用戶名和密碼都無法與數(shù)據(jù)庫中的數(shù)據(jù)匹配，則強制退出系統(tǒng)。銀行交易信息包括銀行名稱、交易類型、交易日期、銀行帳號、交易金額等內(nèi)容。 在本系統(tǒng)中，應(yīng)該首先增加基本信息，之后才能增加 理財 信息。 運行系統(tǒng)后，首先會看到 登錄窗體，對用戶的身份進行認證。 圖 1 家庭理財 管理系統(tǒng)功能模塊圖 在功能模塊示意圖的樹狀結(jié)構(gòu)中，每一個葉結(jié)點都是一個最小的功能模塊。 系統(tǒng)需求分析 ? 基本信息的添加、修改、刪除和查詢。 （ 1）技術(shù)支持： 首先根據(jù)新系統(tǒng)的目標，考慮目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)。 、可靠性分析概述 可靠性分析是在用戶的要求和系統(tǒng)調(diào)研的基礎(chǔ)上進行的，對新系統(tǒng)的開發(fā)從社會、技術(shù)、經(jīng)濟、管理等方面進行分析，并得出新系統(tǒng)的開發(fā)工作可行、不可行、需要修改、追加投資、暫緩開發(fā)、分步實施等方案和結(jié)論，最后完成可行性分析。 面向?qū)ο蠓ǖ闹饕秉c與原型法一樣，因此這種方法也不適用于開發(fā)大的、 6 復(fù) 雜的系統(tǒng)。 面向?qū)ο笫腔趩栴}對象的自底向上的一種系統(tǒng)開發(fā)方法。將建造好的原型系統(tǒng)交給用戶，并投入試運行，用戶將使用過程中發(fā)現(xiàn)的問題一一記錄下來，并與開發(fā)人員進行交流。 ①原型法的基本思想 首選根據(jù)用戶的要求，由用戶和開發(fā)者共同確定系統(tǒng)的基本要求和主要功能，利用系統(tǒng)快速生成工具，建立一個系統(tǒng)模型。 (3)預(yù)測功能： 通過運用一定的數(shù)學(xué)方法和預(yù)測模型，對過去的數(shù)據(jù)進行分析，就可能對未來可能發(fā)生的情況進行預(yù)測，為高級管理人員進行管理決策提供依據(jù)。計算機不斷地與最終用戶進行 著信息的交換，但在對數(shù)據(jù)的加工處理過程中又需要人的適當(dāng)干預(yù)。 (2)作者的主要 任務(wù) 本人獨立完成了此課題的研究與開發(fā)，包括調(diào)研、分析、設(shè)計、編碼、測 試、文檔編寫等內(nèi)容。我想計算機的作用就是輔助 人們完成那些煩瑣的體力勞動和腦力勞動，使人們從勞動中解脫出來， 今天我所設(shè)計的《 家庭理財 管理系統(tǒng)》就是 可以有效地管理 家庭的收入和開支。 在當(dāng)今的社會，可以說是信息技術(shù)的發(fā)展 時代，在社會的方方面面無不涉及到各種信息的處理。后臺數(shù)據(jù)庫使用 Access，前臺開發(fā)工具使用Visual Basic。它將促進整個社會的發(fā)展。 3 基本信息包括銀行信息管理、收入分類管理和支出分類管理等。它能提供信息支持企業(yè)或組織的運行、管理和決策功能。 （ 3）管理信息系統(tǒng)可以解決企業(yè)或組織所面臨的問題。 目前，管理信息系統(tǒng)的應(yīng)用已經(jīng)非常廣泛，隨著計算機技術(shù)、網(wǎng)絡(luò)技術(shù)和通信技術(shù)的發(fā)展，管理信息系統(tǒng)的功能也日趨完善，并朝著智能化、網(wǎng)絡(luò)化、集成化等方向發(fā)展。由用戶提出對新系統(tǒng)的基本要求，如功能、基本界面形式、所需的數(shù)據(jù)、應(yīng)用范圍、運行環(huán)境等，開發(fā)者根據(jù)這些信息估算出開 5 發(fā)該系統(tǒng)所需的費用，并建立簡明的系統(tǒng)模型。對用戶滿意的原型系統(tǒng)進行進一步的開發(fā)，不斷補充、完善，最終形成一個適用的管理信息系統(tǒng)。 ①面對對象法的開發(fā)過程 面對對象法的開發(fā)過程一般分為四個階段： A、認識客觀世界（如一個企業(yè)）中的對象以及行為，分別獨立設(shè)計各個對象的實體。 （ 1）明確用戶的要求，以根據(jù)調(diào)查結(jié)果進行可行性分析，確認系統(tǒng)的開發(fā)是否可行。 ②社 會可行性分析： 社會可行性分析主要是指管理信息系統(tǒng)的開發(fā)是否符合國家法律、下策，是否能夠與社會大系統(tǒng)實現(xiàn)良好的對接。對硬件資源進行可行性分析時主要考慮計算機的主機內(nèi)存、類型、功能、聯(lián)網(wǎng)能力、安全保護措施以及輸入 /輸出設(shè)備，外存儲器和聯(lián)網(wǎng)數(shù)據(jù)通信設(shè)備的配置、功能、效率等指標是否符合系統(tǒng)方案設(shè)計要求，同時還要考慮計算機的性能 /價格比。 ? 理財信息的添加、修改、刪除和查詢。在系統(tǒng)初始化時，有兩個默認的用戶。 第 1 個過程決定用戶能否進行系統(tǒng)，第 2 個過程根據(jù)用戶的類型決定用戶的操作權(quán)限。 添加基本信息后，就可以添加 理財 信息了。在添加銀行帳戶信息時，需要選擇帳戶類型、開戶銀行和開戶人等內(nèi)容。 例如，開發(fā) C/S（客戶 /服務(wù)器）結(jié)構(gòu)的應(yīng)用程序時，前臺開發(fā)語言通常可以選擇 Visual Basic、 Visual C++、 Delphi 和 Power Builder 等；如果開發(fā)網(wǎng)絡(luò)應(yīng)用程序， 則需要選擇一個網(wǎng)絡(luò)數(shù)據(jù)庫開發(fā)系統(tǒng)，如 Access、 Oracle 和 IBM DB2 等；如果開發(fā)單機應(yīng)用程序，則只要選擇一個小型數(shù)據(jù)庫系統(tǒng)就可以了，例如 Access。 O 表示收入類型； 1 表示支出類型 銀行信息表 Banks 表 Banks 用來保存銀行信息，結(jié)構(gòu)如表 2 所示。 主鍵表 主鍵字段 相關(guān)表 外鍵字段 Types Typeld InOutList Typeld Members Memld InOutList Memld Account AccountNo InOutList Ano Banks Bankld Account Bid 14 Members Memld Account Memld Banks Bankld BankOper Bid Members Memld BankOper Memld Account AccountNo BankOper Ano 在系統(tǒng)菜單中選擇“工具” /“關(guān)系”，打開關(guān)系窗口，將數(shù)據(jù)庫中所有表都添加到關(guān)系窗口中。判斷用戶是否存在 If (NameKey) = False 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。如果密碼不同，要求用戶重新輸入，同時將計數(shù)變量 Try_times 加 1。如果不能通過身份驗證，則不能進行系統(tǒng)。 窗體中主要控件的屬性如表 11所示。刪除銀行信 息 ((0)) MsgBox 成功刪除 39。設(shè)置列表中顯示字段 = TypeId 39。 設(shè)計日常收支信息編輯窗體 日常收支信息編輯窗體的名稱為 FrmListEdit，窗體布局如圖 11 所示。 29 設(shè)計家庭資金統(tǒng)計窗體