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