vb家庭理財管理系統(tǒng)

1、.,家庭理財管理,本系統(tǒng)模塊 1 登錄系統(tǒng)（密碼管理） 2 系統(tǒng)管理(窗體，代碼) 3 退出系統(tǒng),.,2021/4/6,總體結(jié)構(gòu),.,2021/4/6,一.舉例 新建一個窗口，窗口的下部有3個命令按鈕，其中左邊按鈕中標(biāo)有“謝謝”，中間按鈕中標(biāo)有“你好”，右邊按鈕中標(biāo)有“結(jié)束程序”。當(dāng)鼠標(biāo)單擊左邊按鈕時，屏幕上顯示問候語“謝謝”，當(dāng)鼠標(biāo)單擊中間按鈕時，屏幕上顯示問候語“你好”，當(dāng)鼠標(biāo)單擊右邊按鈕時，結(jié)束程序。屏幕上顯示的問候語通過標(biāo)簽label來實現(xiàn) 。如圖,.,2021/4/6,二.基本操作 首先啟動VB6.0，新建一個VB應(yīng)用程序；然后在控件箱中拖入三個命令按鈕，一個標(biāo)簽；再用鼠標(biāo)拖動排列三

2、個命令按鈕在窗口的底部，拖動標(biāo)簽在窗口的中間部位；再選中左邊的命令按鈕，在屬性窗口中修改命令按鈕的Caption屬性為“謝謝”，同樣修改其它命令按鈕的Caption屬性為“你好”、“結(jié)束程序”。修改標(biāo)簽的屬性為空；最后在三個命令按鈕中編寫代碼實現(xiàn)程序的功能。,.,2021/4/6,一、建立用戶界面,.,2021/4/6,二、設(shè)置控件屬性,.,2021/4/6,三、編寫代碼,.,2021/4/6,四、保存和運行程序 保存,運行,.,2021/4/6,VB語言通過事件來觸發(fā)執(zhí)行相應(yīng)的事件過程，這就是事件驅(qū)動。 所謂事件，就是對操作對象（比如窗體，控件等）進(jìn)行操作（比如鼠標(biāo)單擊），從而產(chǎn)生的相應(yīng)的響

3、應(yīng)。 VB的主要特點： 1可視化編程 2事件驅(qū)動 3面向?qū)ο?4數(shù)據(jù)庫管理功能 5結(jié)構(gòu)化程序設(shè)計語言,.,2021/4/6,三 從簡單到復(fù)雜,本課程設(shè)計包含的窗體：,.,2021/4/6,1 登錄系統(tǒng),1.1界面如圖：,.,2021/4/6,1 登錄系統(tǒng),1.2 添加屬性修改caption 1.3 添加按鈕button 1.4 添加編輯框textbox 1.5 添加代碼 Dim Mydb As New ADODB.Recordset Dim Mydb1 As New ADODB.Recordset Dim Str_text As String Private Sub Command1_Clic

4、k() On Error Resume Next Static I As Integer 記數(shù)器 Static L As Integer 記數(shù)器 Dim Str_name As String Dim Str_password As String Dim Str_username As String Dim Str_userpassword As String Dim Remainday As Long Str_name = txt_name.Text Str_password = txt_password.Text Set Mydb = ExeCutesql(select user from

5、user1 where user= & Str_name & , Str_text),.,2021/4/6,If Mydb.EOF Then MsgBox 你輸入的用戶名不存在，請重新輸入！, vbOKOnly + 32, 注意 L = L + 1 txt_name.SetFocus If L = 4 Then MsgBox 你四次輸入用戶名都沒有正確，如果你只是純屬玩耍，請不要再繼續(xù)嘗試，本系統(tǒng)主人將會追究你刑事責(zé)任！, vbOKOnly + 48, 注意 End End If Exit Sub Else Set Mydb1 = ExeCutesql(select user,pass fro

6、m user1 where user= & Str_name & , Str_text) Str_username = Trim(Mydb1.Fields(0) Str_userpassword = Trim(Mydb1.Fields(1) If Trim(Str_password) = Str_userpassword Then frm_main.Show Mydb.Close Mydb1.Close Set Mydb = Nothing Set Mydb1 = Nothing Unload Me Else MsgBox 你輸入的密碼錯誤，請重新輸入！, vbOKOnly + 32, 注意

7、I = I + 1 txt_password.SetFocus If I = 2 Then MsgBox 密碼兩次都不正確，本系統(tǒng)將關(guān)閉,警察將跟蹤你調(diào)查！, vbOKOnly + 48, 注意 End End If Exit Sub End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub txt_name_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then txt_password.SetFocus End Sub Private Sub txt_password_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End Sub Private Sub txt_name_LostFocus() Cname = txt_name.Text