家庭理財(cái)管理系統(tǒng)數(shù)據(jù)庫(kù)課設(shè)-免費(fèi)閱讀
【正文】 若是管理員的話，還可以對(duì)普通應(yīng)戶的信息進(jìn)行管理。如果沒有選擇用戶名，則返回 If = Then Exit Sub End If 39。如果 月份大于 0，則開始日期為本月 1 日 StrDate1 = Trim() + + Trim() + 01 If = 12 Then 39。交易類型 (7).Width = 1200 39。清戶 39。刷新數(shù)據(jù) Private Sub DataRefresh() Dim TmpSource As String Dim StrSch As String 39。收支類型 (2).Width = 1000 39。 + Trim(StrDate) + 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。 刪除類型 (Val()) MsgBox 刪除成功 DataRefresh 39。 End If TmpSource = Select BankId AS 銀行編號(hào) ,BankName AS 銀行全稱 ,BShort AS 簡(jiǎn)稱 ,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 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No1 沈陽(yáng)理工大學(xué) ? 設(shè)計(jì)收入類型窗體 Private OriId As Long 39。刷新數(shù)據(jù) DataRefresh End Sub Private Sub Cmd_Back_Click() Unload Me End Sub Private Sub Cmd_Del_Click() If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If 39。 ● 理財(cái)信息的添加、修改、刪除和查詢。 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No1 沈陽(yáng)理工大學(xué) 目 錄 一 、 課程設(shè)計(jì)的目的和意義 ……………… .……… .. … ...… ...… ..…… … .....… 2 二 、 需求分析 ……………… ..…… .……… ..…… ..……… ...……… .……… … ..3 三 、 概念結(jié)構(gòu)設(shè)計(jì)（ ER 圖） ………………… ..…… … .…………… .… … .… 5 四、邏輯結(jié)構(gòu)設(shè)計(jì) ……………………………………… … ……… ..……… … ..6 五 、 數(shù)據(jù)實(shí)施與維護(hù) ………………………… . .…… … .……………… ....… ....7 建立 相應(yīng)的表。 ● 數(shù)據(jù)統(tǒng)計(jì)模塊包括日常收支統(tǒng)計(jì)，銀行交易統(tǒng)計(jì)和家庭資產(chǎn)統(tǒng)計(jì)等功能。查找?guī)粜畔?Account 表是否存在此銀行編號(hào)，如果存在則 不允許刪除 If ((0)) Then MsgBox 帳戶信息中包含此銀行信息，不能刪除記錄 Exit Sub End If 39。類型編號(hào) Private OriTypeName As String 39。刷新 DataList1 End Sub Private Sub Cmd_Exit_Click() Unload Me End Sub Private Sub Cmd_Modi_Click() 39。記錄原始收支金額 Public DSum As Double 39。 End If End If TmpSource = Select , IIF(=0,39。分類名稱 (3).Width = 1600 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。)) AS 交易類型 , _ + AS 定期月份 , AS 實(shí)際利息 , AS 說明 , _ + From BankOper o,Banks b,Members m _ + Where = And = + StrSch _ 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No4 沈陽(yáng)理工大學(xué) + Order By Desc = Conn = TmpSource Set = Adodc1 (0).Width = 0 39。定期月份 (8).Width = 1000 39。如果月份為 12，則結(jié)束日期為下一年度 1月 1 日 StrDate2 = Trim(Val() + 1) + 0101 Else StrDate2 = Trim() + + Trim( + 1) + 01 End If StrSch = And = + StrDate1 + And + StrDate2 + 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No6 沈陽(yáng)理工大學(xué) ? 家庭資產(chǎn)統(tǒng)計(jì)： 代碼： Private Sub Cmd_Back_Click
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1