家庭理財(cái)管理系統(tǒng)數(shù)據(jù)庫課設(shè)-文庫吧資料
2025-05-22 08:03本頁面
【正文】 AS 使用人 , AS 說明 , _ + From InOutList l,Types t,Members m _ + Where = And = + StrSch _ + Order By Desc 39。,39。 End If End If TmpSource = Select , IIF(=0,39。判斷是否選中“全部”，如果沒有則提取不同的查詢條件 If = 1 Then StrSch = Else If 0 Then 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 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。刷新數(shù)據(jù) Private Sub DataRefresh() Dim TmpSource As String Dim StrSch As String Dim StrDate As String 39。當(dāng)交易類型為取款（ 1）時(shí)，選擇帳戶信息后，需要判斷是否此賬號(hào)金額是否足夠 If (Trim(())) 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No2 沈陽理工大學(xué) And Val(txtSum) _ And = 1 Then MsgBox 帳戶余額不足，請(qǐng)重新選擇收支帳戶 .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。記錄原始收支金額 Public DSum As Double 39。 ? 家庭成員信息管理： 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No2 沈陽理工大學(xué) 主要 代碼如下： Private Sub Form_Load() DataRefresh End Sub 39。更新名稱 = Trim(txtName) (OriId) MsgBox 修改成功 DataRefresh 39。判斷新的名稱是否和原來的相同 If Trim(txtName) = OriTypeName Then Exit Sub End If 39。刷新 DataList1 End Sub Private Sub Cmd_Exit_Click() Unload Me End Sub Private Sub Cmd_Modi_Click() 39。 確定刪除 If MsgBox(是否確定要?jiǎng)h除 , vbYesNo, 請(qǐng)確認(rèn) ) = vbNo Then Exit Sub End If 39。判斷數(shù)據(jù)庫中是否已經(jīng)存在此類型名稱 If (Trim(txtName), nFlag) = True Then MsgBox (已經(jīng)存在此類型名稱 Exit Sub End If 39。類型分類編號(hào)， 0收入類型 ； 1支出類型 Public nFlag As Integer Private Sub Cmd_Add_Click() 39。類型編號(hào) Private OriTypeName As String 39。% + Trim(txtBName) + %39。刷新數(shù)據(jù) DataRefresh End Sub Private Sub Cmd_Search_Click() DataRefresh End Sub Private Sub Form_Load() DataRefresh End Sub 39。刪除銀行信息 ((0)) MsgBox 成功刪除 39。查找?guī)粜畔?Account 表是否存在此銀行編號(hào)，如果存在則 不允許刪除 If ((0)) Then MsgBox 帳戶信息中包含此銀行信息，不能刪除記錄 Exit Sub End If 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è)計(jì)專用紙 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 請(qǐng)輸入銀行全稱 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è)計(jì)專用紙 No1 沈陽理工大學(xué) Private Sub Cmd_Add_Click() = False 1 39。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯(cuò)誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgB
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1