vb課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告大學(xué)生日常支出管理系統(tǒng)

1、實(shí)驗(yàn)題目：大學(xué)生日常支出管理系統(tǒng)姓 名： 孟凡超 學(xué) 號(hào)： 09114115 指導(dǎo)老師： 王紅玲 VB 程序設(shè)計(jì)試驗(yàn)報(bào)告 程序設(shè)計(jì)試驗(yàn)報(bào)告為了保證效果，在每個(gè)窗體的 Form_Resize()過(guò)程中寫(xiě)入語(yǔ)句“Me.WindowState = 2” ，以保證每次打開(kāi)都是最大化顯示。當(dāng)用戶單擊 Toolbar 上的按鈕觸發(fā)打開(kāi)相應(yīng)窗口時(shí)，都會(huì)先關(guān)閉其他窗

2、口，使 MDI 窗體中始終都只有一個(gè)窗體處于打開(kāi)狀態(tài)，使得程序窗口不至混亂。在借貸功能上，為防止用戶誤輸入，在還款日期的輸入上，先檢測(cè)日期是否大于當(dāng)前日期，如不大于，則提示用戶重新輸入。具體設(shè)計(jì) 具體設(shè)計(jì)登錄窗口 登錄窗口Private Sub Command1_Click() Data1.Refresh If txt_pass = Data1.Recordset.Fields(0).Value Then '判斷密碼是否正確

3、MsgBox “歡迎回來(lái)！“, vbOKOnly, “登陸成功！“ mdi_main.Toolbar.Enabled = True '工具欄可用 txt_pass.Visible = False '隱藏登錄按鈕 Command1.Visible = False Else MsgBox “密碼錯(cuò)誤??！“, vbOKOnly, “錯(cuò)

4、誤“ End If End Sub賬目總覽： 賬目總覽：Dim str_jd As String Dim str_sz As StringPrivate Sub sz() '定義顯示收支的過(guò)程 Dim int_count As Integer Dim int_income As Integer Dim int_pay As Integer Dim int_charge As Inte