家庭理財(cái)管理系統(tǒng)數(shù)據(jù)庫(kù)課設(shè)(編輯修改稿)
2025-06-19 08:03 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 Adodc1 (0).Width = 1000 (1).Width = 2400 (2).Width = 1200 (3).Width = 2400 End Sub 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No1 沈陽(yáng)理工大學(xué) ? 設(shè)計(jì)收入類(lèi)型窗體 Private OriId As Long 39。類(lèi)型編號(hào) Private OriTypeName As String 39。原來(lái)的類(lèi)型名稱(chēng) 39。類(lèi)型分類(lèi)編號(hào)， 0收入類(lèi)型 ； 1支出類(lèi)型 Public nFlag As Integer Private Sub Cmd_Add_Click() 39。添加類(lèi)型名稱(chēng)，先判斷域是否為空 If Len(Trim(txtName)) = 0 Then MsgBox (請(qǐng)輸入類(lèi)型名稱(chēng) ) Exit Sub End If 39。判斷數(shù)據(jù)庫(kù)中是否已經(jīng)存在此類(lèi)型名稱(chēng) If (Trim(txtName), nFlag) = True Then MsgBox (已經(jīng)存在此類(lèi)型名稱(chēng) 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 (請(qǐng)選擇記錄 ) Exit Sub End If 39。 確定刪除 If MsgBox(是否確定要?jiǎng)h除 , vbYesNo, 請(qǐng)確認(rèn) ) = vbNo Then Exit Sub End If 39。 刪除類(lèi)型 (Val()) MsgBox 刪除成功 DataRefresh 39。刷新 DataList1 End Sub Private Sub Cmd_Exit_Click() Unload Me End Sub Private Sub Cmd_Modi_Click() 39。修改類(lèi)型名稱(chēng) If Len(Trim()) MsgBox (請(qǐng)選擇記錄 ) Exit Sub End If 39。判斷新的名稱(chēng)是否和原來(lái)的相同 If Trim(txtName) = OriTypeName Then Exit Sub End If 39。判斷新的名稱(chēng)是否已經(jīng)存在 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No2 沈陽(yáng)理工大學(xué) If (Trim(txtName), nTypeId) = True Then MsgBox (已經(jīng)存在此類(lèi)型名稱(chēng) Exit Sub End If 39。更新名稱(chēng) = Trim(txtName) (OriId) MsgBox 修改成功 DataRefresh 39。刷新類(lèi)型列表 End Sub ? 設(shè)計(jì)支出類(lèi)型窗體： 支出類(lèi)型信息管理同上， nFLAG 的值為 1 ? 設(shè)計(jì)家庭成員信息窗體 ： 代碼 與銀行信息編輯類(lèi)似。 ? 家庭成員信息管理： 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No2 沈陽(yáng)理工大學(xué) 主要 代碼如下： Private Sub Form_Load() DataRefresh End Sub 39。刷新數(shù)據(jù) Private Sub DataRefresh() Dim TmpSource As String TmpSource = Select MemId,MemName AS 姓名 ,Sex AS 性別 ,Birth AS 出生日期 , _ + Mobile AS 手機(jī) ,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 理財(cái)信息管理模塊： ? 日常收支信息窗體： 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 請(qǐng)輸入收支日期 Exit Sub End If If Len(Trim(txtSum)) = 0 Then MsgBox 請(qǐng)輸入收支金額 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請(qǐng)選擇使用人 Exit Sub End If 39。當(dāng)交易類(lèi)型為取款（ 1）時(shí)，選擇帳戶(hù)信息后，需要判斷是否此賬號(hào)金額是否足夠 If (Trim(())) 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No2 沈陽(yáng)理工大學(xué) And Val(txtSum) _ And = 1 Then MsgBox 帳戶(hù)余額不足，請(qǐng)重新選擇收支帳戶(hù) .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。根據(jù)選擇的收支類(lèi)型讀取對(duì)應(yīng)的類(lèi)別信息 = Conn = Select * From Types Where Flag= _ + Trim() + Order By TypeId Set = Ado_Type = TypeName = TypeId End Sub = AccountNo End Sub ? 日常收支信息管理： 主要 代碼 . 39。刷新數(shù)據(jù) Private Sub DataRef
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1