家庭理財(cái)管理系統(tǒng)數(shù)據(jù)庫課設(shè)(參考版)
2025-05-18 08:03本頁面
【正文】 系統(tǒng)的管理員可以修改普通用戶的信息，而普通用戶只能修改自己的信息。 在 對 基本信息，理財(cái)信息，數(shù)據(jù)統(tǒng)計(jì) 進(jìn)行管理時，如 添加，修改，刪除相關(guān)的信息時滿足數(shù)據(jù)庫的完整性約束。 進(jìn)入系統(tǒng)后可以對 基本信息，理財(cái)信息，數(shù)據(jù)統(tǒng)計(jì)進(jìn)行管理。如果修改自身用戶名，則更新CurUser 對象 If OriUser = And Trim(txtUserName) OriUser Then = Trim(txtUserName) () End If MsgBox 修改成功 End If End With Unload Me End Sub 七 、 結(jié)果分析 在運(yùn)行此數(shù)據(jù)庫時，能夠按照預(yù)先設(shè)計(jì)的方式進(jìn)行。設(shè)置用戶類型 If Format(, ) = admin Then lblUserType = 系統(tǒng)管理員 Else lblUserType = 普通用戶 End If End Sub ? 編輯用戶信息 Private Sub Cmd_OK_Click() 39。讀取當(dāng)前用戶數(shù)據(jù) () 39。刷新用戶名列表框 DataList1_Click End Sub Private Sub DataList1_Click() 39。將變量 Modify 設(shè)置為 True，表示當(dāng)前狀態(tài)為修改已有數(shù)據(jù) .Modify = True 39。把當(dāng)前用戶的數(shù)據(jù)賦值到FrmUserEdit 窗體的相關(guān)位置 With FrmUserEdit .OriUser = .txtUserName = .txtPass = .txtPass2 = 39。如果月份為 12，則結(jié)束日期為下一年度 1月 1 日 StrDate2 = Trim(Val() + 1) + 0101 Else StrDate2 = Trim() + + Trim( + 1) + 01 End If StrSch = And = + StrDate1 + And + StrDate2 + 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No6 沈陽理工大學(xué) ? 家庭資產(chǎn)統(tǒng)計(jì)： 代碼： Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub Form_Load() = True = False = 1 = 1 , , N0, 家庭總資產(chǎn) N0, 4, N1, 銀 行 總 存 款 共計(jì) + Trim((1)) + 元 N0, 4, N2, 現(xiàn) 金 總 額 共計(jì) + Trim((0)) + 元 N0, 4, N3, 收 入 總 額 共計(jì) + Trim((0)) + 元 N0, 4, N4, 支 出 總 額 共計(jì) + Trim((1)) + 元 (2).Selected = True End Sub 6 用戶管理模塊： ? 用戶管理： 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No1 沈陽理工大學(xué) rivate Sub Cmd_Modi_Click() 39。 MsgBox TmpSource = Conn = TmpSource Set = Adodc1 (0).Width = 1600 (1).Width = 2021 End Sub ? 銀行交易統(tǒng)計(jì)： Private Sub DataRefresh() Dim StrSch As String Dim TmpSource As String Dim StrDate1 As String Dim StrDate2 As String If 0 Then 39。如果月份大于 0，則開始日期為本月 1 日 StrDate1 = Trim() + + Trim() + 01 If = 12 Then 39。說明 (10).Width = 0 39。定期月份 (8).Width = 1000 39。交易金額 (6).Width = 1000 39。賬號 (4).Width = 1000 39。銀行名稱 (2).Width = 1000 39。)) AS 交易類型 , _ + AS 定期月份 , AS 實(shí)際利息 , AS 說明 , _ + From BankOper o,Banks b,Members m _ + Where = And = + StrSch _ 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No4 沈陽理工大學(xué) + Order By Desc = Conn = TmpSource Set = Adodc1 (0).Width = 0 39。,39。,IIF(=1,39。 End If End If TmpSource = Select , AS 銀行名稱 , AS 交易人姓名 , AS 賬號 , _ + AS 交易日期 , AS 交易金額 , _ + IIF(=0,39。判斷是否選中“全部”，如果沒有則提取不同的查詢條件 If = 1 Then StrSch = Else If Len(Trim(())) 0 Then StrSch = And = + () End If If Len(Trim(())) 0 Then StrSch = StrSch + And = + () End If If Len(Trim(())) 0 Then StrSch = StrSch + And =39。Flag End Sub ? 銀行交易信息管理 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No3 沈陽理工大學(xué) 代碼與日常收支信息編輯窗體類似 ? 銀行交易信息管理 主要代碼： 39。使用人 (7).Width = 1200 39。收支日期 (5).Width = 1200 39。分類名稱 (3).Width = 1600 39。編號 (1).Width = 2100 39。) AS 收支類型 , _ + AS 分類名稱 , AS 賬號 , AS 收支日期 , _ + AS 收支金額 ,
試題試卷相關(guān)推薦
鄂ICP備17016276號-1