家庭理財管理系統(tǒng)數(shù)據(jù)庫課設(shè)(存儲版)
【正文】 () Unload Me End Sub Private Sub Form_Load() = True = False = 1 = 1 , , N0, 家庭總資產(chǎn) N0, 4, N1, 銀 行 總 存 款 共計 + Trim((1)) + 元 N0, 4, N2, 現(xiàn) 金 總 額 共計 + Trim((0)) + 元 N0, 4, N3, 收 入 總 額 共計 + Trim((0)) + 元 N0, 4, N4, 支 出 總 額 共計 + Trim((1)) + 元 (2).Selected = True End Sub 6 用戶管理模塊： ? 用戶管理： 沈陽理工大學(xué)課程設(shè)計專用紙 No1 沈陽理工大學(xué) rivate Sub Cmd_Modi_Click() 39。讀取當(dāng)前用戶數(shù)據(jù) () 39。 在 對 基本信息，理財信息，數(shù)據(jù)統(tǒng)計 進行管理時，如 添加，修改，刪除相關(guān)的信息時滿足數(shù)據(jù)庫的完整性約束。 進入系統(tǒng)后可以對 基本信息，理財信息，數(shù)據(jù)統(tǒng)計進行管理。刷新用戶名列表框 DataList1_Click End Sub Private Sub DataList1_Click() 39。 MsgBox TmpSource = Conn = TmpSource Set = Adodc1 (0).Width = 1600 (1).Width = 2021 End Sub ? 銀行交易統(tǒng)計： Private Sub DataRefresh() Dim StrSch As String Dim TmpSource As String Dim StrDate1 As String Dim StrDate2 As String If 0 Then 39。交易金額 (6).Width = 1000 39。,39。Flag End Sub ? 銀行交易信息管理 沈陽理工大學(xué)課程設(shè)計專用紙 No3 沈陽理工大學(xué) 代碼與日常收支信息編輯窗體類似 ? 銀行交易信息管理 主要代碼： 39。編號 (1).Width = 2100 39。判斷是否選中“全部”，如果沒有則提取不同的查詢條件 If = 1 Then StrSch = Else If 0 Then 沈陽理工大學(xué)課程設(shè)計專用紙 No2 沈陽理工大學(xué) StrSch = And = + Trim() End If If Len(Trim(())) 0 Then StrSch = StrSch + And = + () End If If Len(Trim()) 0 Then StrDate = Format(, yyyymmdd) StrSch = AND =39。 ? 家庭成員信息管理： 沈陽理工大學(xué)課程設(shè)計專用紙 No2 沈陽理工大學(xué) 主要 代碼如下： Private Sub Form_Load() DataRefresh End Sub 39。 確定刪除 If MsgBox(是否確定要刪除 , vbYesNo, 請確認(rèn) ) = vbNo Then Exit Sub End If 39。% + Trim(txtBName) + %39。關(guān)閉自己 Unload Me End Sub 系統(tǒng)主界面 其主要代碼如下： Private Sub m_User_Click() If username = admin Then Else MsgBox 您無此權(quán)限 End If End Sub 沈陽理工大學(xué)課程設(shè)計專用紙 No2 沈陽理工大學(xué) 基本信息管理 模塊： ? 銀行信息編輯窗體： Public OriBId As Long Public Modify As Boolean Private Sub Cmd_Cancel_Click() Unload Me End Sub Private Sub Cmd_OK_Click() If Len(Trim(txtBName)) = 0 Then MsgBox 請輸入銀行全稱 Exit Sub End If With MyBank .BankName = Trim(txtBName) .BShort = Trim(txtShort) .Place = Trim(txtPlace) If Modify = False Then .Insert MsgBox 添加成功 Else .Update (OriBId) MsgBox 修改成功 End If End With Unload Me End Sub ? 銀行信息管理界面 沈陽理工大學(xué)課程設(shè)計專用紙 No1 沈陽理工大學(xué) Private Sub Cmd_Add_Click() = False 1 39。 二、需求分析 家庭理財管理系統(tǒng)是家庭理財?shù)暮脦褪?，包括基本信息管理，理財管理和?shù)據(jù)統(tǒng)計等主要功能，具體功能如下： ● 基本信息的添加、修 改、刪除和查詢。 ……………………………… ..…………… .……… 7 建立關(guān)系圖 ………………………………… ..………… ..… ..…… .... .9 六 、 界面設(shè)計與代碼（用 VB 作為 開發(fā)工具 ） …… ....…… .… …… ..… .… ....10 登陸界面 ………………………………… ..…………… ..…… ...… .. .10 系統(tǒng)主界面。 沈陽理工大學(xué)課程設(shè)計專用紙 No3 沈陽理工大學(xué) 用戶管理關(guān)系圖如下： 系統(tǒng)總體設(shè)計圖如下 ： 家庭理財管理系統(tǒng) 基本信息管理 銀行信息管理 收入類型管理 支出類型管理 家庭理財管理 數(shù)據(jù)統(tǒng)計管理 系統(tǒng)用戶管理 家庭成員館管理 用戶信息管理 修改自身密碼 家庭理財管理
試題試卷相關(guān)推薦
鄂ICP備17016276號-1