vb課程設(shè)計實驗報告大學(xué)生日常支出管理系統(tǒng)

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

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

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

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