家庭理財(cái)管理系統(tǒng)數(shù)據(jù)庫(kù)課設(shè)(已改無(wú)錯(cuò)字)
2023-06-26 08:03:57 本頁(yè)面
【正文】 resh() Dim TmpSource As String Dim StrSch As String Dim StrDate As String 39。設(shè)置查詢(xún)條件 39。判斷是否選中“全部”，如果沒(méi)有則提取不同的查詢(xún)條件 If = 1 Then StrSch = Else If 0 Then 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No2 沈陽(yáng)理工大學(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。 + Trim(StrDate) + 39。 End If End If TmpSource = Select , IIF(=0,39。收入 39。,39。支出 39。) AS 收支類(lèi)型 , _ + AS 分類(lèi)名稱(chēng) , AS 賬號(hào) , AS 收支日期 , _ + AS 收支金額 , AS 使用人 , AS 說(shuō)明 , _ + From InOutList l,Types t,Members m _ + Where = And = + StrSch _ + Order By Desc 39。MsgBox TmpSource = Conn = TmpSource Set = Adodc1 (0).Width = 0 39。編號(hào) (1).Width = 2100 39。收支類(lèi)型 (2).Width = 1000 39。分類(lèi)名稱(chēng) (3).Width = 1600 39。賬號(hào) (4).Width = 1000 39。收支日期 (5).Width = 1200 39。收支金額 (6).Width = 1000 39。使用人 (7).Width = 1200 39。說(shuō)明 (8).Width = 0 39。Flag End Sub ? 銀行交易信息管理 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No3 沈陽(yáng)理工大學(xué) 代碼與日常收支信息編輯窗體類(lèi)似 ? 銀行交易信息管理 主要代碼： 39。刷新數(shù)據(jù) Private Sub DataRefresh() Dim TmpSource As String Dim StrSch As String 39。判斷是否選中“全部”，如果沒(méi)有則提取不同的查詢(xún)條件 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。 + () + 39。 End If End If TmpSource = Select , AS 銀行名稱(chēng) , AS 交易人姓名 , AS 賬號(hào) , _ + AS 交易日期 , AS 交易金額 , _ + IIF(=0,39。存款 39。,IIF(=1,39。取款 39。,39。清戶(hù) 39。)) AS 交易類(lèi)型 , _ + AS 定期月份 , AS 實(shí)際利息 , AS 說(shuō)明 , _ + From BankOper o,Banks b,Members m _ + Where = And = + StrSch _ 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No4 沈陽(yáng)理工大學(xué) + Order By Desc = Conn = TmpSource Set = Adodc1 (0).Width = 0 39。編號(hào) (1).Width = 2100 39。銀行名稱(chēng) (2).Width = 1000 39。交易人 (3).Width = 1600 39。賬號(hào) (4).Width = 1000 39。交易日期 (5).Width = 1200 39。交易金額 (6).Width = 1000 39。交易類(lèi)型 (7).Width = 1200 39。定期月份 (8).Width = 1000 39。實(shí)際利息 (9).Width = 1200 39。說(shuō)明 (10).Width = 0 39。Flag End Sub 數(shù)據(jù)統(tǒng)計(jì)模塊管理： ? 日常收支統(tǒng)計(jì)： Private Sub DataRefresh() Dim StrSch As String Dim TmpSource As String Dim StrDate1 As String Dim StrDate2 As String If 0 Then 39。如果月份大于 0，則開(kāi)始日期為本月 1 日 StrDate1 = Trim() + + Trim() + 01 If = 12 Then 39。如果月份為 12，則結(jié)束日期為下一年度 1 月 1 日 StrDate2 = Trim(Val() + 1) + 0101 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專(zhuān)用紙 No5 沈陽(yáng)理工大學(xué) StrSch = And = + StrDate1 + And = + StrDate2 + End If TmpSource = Select AS 收支分類(lèi) ,SUM() AS 收支金額 _ + From InOutList l,Types t Where = + StrSch _ + Group By , Order By 39。 MsgBox TmpSource = Conn = TmpSource Set = Adodc1 (0).Width = 1600 (1).Width = 2021 End Sub ? 銀行交易統(tǒng)計(jì)： Private Sub DataRefresh() Dim StrSch As String Dim TmpSource As String Dim StrDate1 As String Di
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1