家庭理財管理系統數據庫課設(編輯修改稿)

　

【文章內容簡介】 Adodc1 (0).Width = 1000 (1).Width = 2400 (2).Width = 1200 (3).Width = 2400 End Sub 沈陽理工大學課程設計專用紙 No1 沈陽理工大學 ? 設計收入類型窗體 Private OriId As Long 39。類型編號 Private OriTypeName As String 39。原來的類型名稱 39。類型分類編號， 0收入類型 ； 1支出類型 Public nFlag As Integer Private Sub Cmd_Add_Click() 39。添加類型名稱，先判斷域是否為空 If Len(Trim(txtName)) = 0 Then MsgBox (請輸入類型名稱 ) Exit Sub End If 39。判斷數據庫中是否已經存在此類型名稱 If (Trim(txtName), nFlag) = True 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。 確定刪除 If MsgBox(是否確定要刪除 , vbYesNo, 請確認 ) = vbNo Then Exit Sub End If 39。 刪除類型 (Val()) MsgBox 刪除成功 DataRefresh 39。刷新 DataList1 End Sub Private Sub Cmd_Exit_Click() Unload Me End Sub Private Sub Cmd_Modi_Click() 39。修改類型名稱 If Len(Trim()) MsgBox (請選擇記錄 ) Exit Sub End If 39。判斷新的名稱是否和原來的相同 If Trim(txtName) = OriTypeName Then Exit Sub End If 39。判斷新的名稱是否已經存在 沈陽理工大學課程設計專用紙 No2 沈陽理工大學 If (Trim(txtName), nTypeId) = True Then MsgBox (已經存在此類型名稱 Exit Sub End If 39。更新名稱 = Trim(txtName) (OriId) MsgBox 修改成功 DataRefresh 39。刷新類型列表 End Sub ? 設計支出類型窗體： 支出類型信息管理同上， nFLAG 的值為 1 ? 設計家庭成員信息窗體 ： 代碼 與銀行信息編輯類似。 ? 家庭成員信息管理： 沈陽理工大學課程設計專用紙 No2 沈陽理工大學 主要 代碼如下： Private Sub Form_Load() DataRefresh End Sub 39。刷新數據 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 = 1800 4 理財信息管理模塊： ? 日常收支信息窗體： Public OriLId As Long Public Modify As Boolean Public OldSum As Double 39。記錄原始收支金額 Public DSum As Double 39。差值 If Len(Trim(txtDate)) = 0 Then MsgBox 請輸入收支日期 Exit Sub End If If Len(Trim(txtSum)) = 0 Then MsgBox 請輸入收支金額 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請選擇使用人 Exit Sub End If 39。當交易類型為取款（ 1）時，選擇帳戶信息后，需要判斷是否此賬號金額是否足夠 If (Trim(())) 沈陽理工大學課程設計專用紙 No2 沈陽理工大學 And Val(txtSum) _ And = 1 Then MsgBox 帳戶余額不足，請重新選擇收支帳戶 .Insert MsgBox 添加成功 Else .Update (OriLId) MsgBox 修改成功 End If End With Trim(), 1, 0 DSum End If Unload Me End Sub Private Sub cob_Flag_Click() 39。根據選擇的收支類型讀取對應的類別信息 = Conn = Select * From Types Where Flag= _ + Trim() + Order By TypeId Set = Ado_Type = TypeName = TypeId End Sub = AccountNo End Sub ? 日常收支信息管理： 主要 代碼 . 39。刷新數據 Private Sub DataRef