家庭理財管理系統(tǒng)數(shù)據(jù)庫課設-在線瀏覽
2025-07-17 08:03本頁面
【正文】 ） 銀行交易信息表（記錄編號，銀行編號，家庭成員編號，交易日期，賬號，交易金額，定期存款月份，利息，備注信息，交易類型） 沈陽理工大學課程設計專用紙 No7 沈陽理工大學 五 、 數(shù)據(jù)庫實施與維護 建立數(shù)據(jù)庫 打開 Access 2021，建立數(shù)據(jù)庫： FM 添加數(shù)據(jù)表 在 FM 數(shù)據(jù)庫中，添加表 如圖所示 建立相應的表： 用戶表 ： 沈陽理工大學課程設計專用紙 No1 沈陽理工大學 銀行信息 表 ： 日常支出信息表 銀行賬號信息表： 家庭成員信息 表 ： 銀行交易信息表： 基本信息表： 沈陽理工大學課程設計專用紙 No2 沈陽理工大學 建立關系圖 沈陽理工大學課程設計專用紙 No2 沈陽理工大學 六 、 界面設計與代碼（用 VB 作為界面設計語言） 登錄界面 其主要代碼如下： Private Sub Cmd_Cancel_Click() End End Sub Private Sub Cmd_OK_Click() Dim j As Single 39。判斷用戶是否存在 If (NameKey) = False Then MsgBox 用戶名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 DBapi_Disconnect End Else Exit Sub End If End If 39。 登錄成功，將當前用戶的信息保存在CurUser 中 () 39。刷新數(shù)據(jù) DataRefresh End Sub Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub Cmd_Del_Click() If = True Then MsgBox 請選擇記錄 Exit Sub End If 39。確認刪除 If MsgBox(是否確定要刪除銀行信息？ , vbYesNo, 請確認 ) = vbNo Then Exit Sub End If 39。刷新數(shù)據(jù) DataRefresh End Sub Private Sub Cmd_Modi_Click() If = True Then MsgBox 請選擇記錄 Exit Sub End If = True (0) = Trim((1)) = Trim((2)) = Trim((3)) 1 39。刷新數(shù)據(jù) Private Sub DataRefresh() Dim strSearch As String Dim TmpSource As String strSearch = If Len(Trim(txtBName)) 0 Then strSearch = Where BankName Like 39。 End If TmpSource = Select BankId AS 銀行編號 ,BankName AS 銀行全稱 ,BShort AS 簡稱 ,Place AS 所在地址 _ + From Banks + strSearch + Order By BankId = Conn = TmpSource Set = Adodc1 (0).Width = 1000 (1).Width = 2400 (2).Width = 1200 (3).Width = 2400 End Sub 沈陽理工大學課程設計專用紙 No1 沈陽理工大學 ? 設計收入類型窗體 Private OriId As Long 39。原來的類型名稱 39。添加類型名稱，先判斷域是否為空 If Len(Trim(txtName)) = 0 Then MsgBox (請輸入類型名稱 ) Exit Sub End If 39。插入新記錄 With MyType .TypeName = Trim(txtName) .Flag = nFlag .Insert MsgBox 添加成功 End With DataRefresh End Sub Private Sub Cmd_Del_Click() If Len(Trim()) MsgBox (請選擇記錄 ) Exit Sub End If 39。 刪除類型 (Val()) MsgBox 刪除成功 DataRefresh 39。修改類型名稱 If Len(Trim()) MsgBox (請選擇記錄 ) Exit Sub End If 39。判斷新的名稱是否已經(jīng)存在 沈陽理工大學課程設計專用紙 No2 沈陽理工大學 If (Trim(txtName), nTypeId) = True Then MsgBox (已經(jīng)存在此類型名稱 Exit Sub End If 39。刷新類型列表 End Sub ? 設計支出類型窗體： 支出類型信息管理同上， nFLAG 的值為 1 ? 設計家庭成員信息窗體 ： 代碼 與銀行信息編輯類似。刷新數(shù)據(jù) Private Sub DataRefresh() Dim TmpSource As String TmpSource = Select MemId,MemName AS 姓名 ,Sex AS 性別 ,Birth AS 出生日期 , _ + Mobile AS 手機 ,Job AS 工作單位 From Members Order By MemId = Conn = TmpSource Set = Adodc1 (0).Width = 0 (1).Width = 1000 (2).Width = 600 (3).Width = 1200 (4).Width = 1200 (5).Width = 18
試題試卷相關推薦
鄂ICP備17016276號-1