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

1、家庭理財(cái)管理,2021/1/9,總體結(jié)構(gòu),2021/1/9,一.舉例 新建一個(gè)窗口，窗口的下部有3個(gè)命令按鈕，其中左邊按鈕中標(biāo)有“謝謝”，中間按鈕中標(biāo)有“你好”，右邊按鈕中標(biāo)有“結(jié)束程序”。當(dāng)鼠標(biāo)單擊左邊按鈕時(shí)，屏幕上顯示問(wèn)候語(yǔ)“謝謝”，當(dāng)鼠標(biāo)單擊中間按鈕時(shí)，屏幕上顯示問(wèn)候語(yǔ)“你好”，當(dāng)鼠標(biāo)單擊右邊按鈕時(shí)，結(jié)束程序。屏幕上顯示的問(wèn)候語(yǔ)通過(guò)標(biāo)簽label來(lái)實(shí)現(xiàn) 。如圖,2021/1/9,二.基本操作 首先啟動(dòng)VB6.0，新建一個(gè)VB應(yīng)用程序；然后在控件箱中拖入三個(gè)命令按鈕，一個(gè)標(biāo)簽；再用鼠標(biāo)拖動(dòng)排列三個(gè)命令按鈕在窗口的底部，拖動(dòng)標(biāo)簽在窗口的中間部位；再選中左邊的命令按鈕，在屬性窗口中修改命令按鈕

2、的Caption屬性為“謝謝”，同樣修改其它命令按鈕的Caption屬性為“你好”、“結(jié)束程序”。修改標(biāo)簽的屬性為空；最后在三個(gè)命令按鈕中編寫代碼實(shí)現(xiàn)程序的功能,2021/1/9,一、建立用戶界面,2021/1/9,二、設(shè)置控件屬性,2021/1/9,三、編寫代碼,2021/1/9,四、保存和運(yùn)行程序 保存,運(yùn)行,2021/1/9,VB語(yǔ)言通過(guò)事件來(lái)觸發(fā)執(zhí)行相應(yīng)的事件過(guò)程，這就是事件驅(qū)動(dòng)。 所謂事件，就是對(duì)操作對(duì)象（比如窗體，控件等）進(jìn)行操作（比如鼠標(biāo)單擊），從而產(chǎn)生的相應(yīng)的響應(yīng)。 VB的主要特點(diǎn)： 1可視化編程 2事件驅(qū)動(dòng) 3面向?qū)ο?4數(shù)據(jù)庫(kù)管理功能 5結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言,2021/1/9

3、,三 從簡(jiǎn)單到復(fù)雜,本課程設(shè)計(jì)包含的窗體,2021/1/9,1 登錄系統(tǒng),1.1界面如圖,2021/1/9,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_Click() On Error Resume Next Static I As Integer 記數(shù)器 Static L As Intege

4、r 記數(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 user1 where user= & Str_name & , Str_text,2021/1/9,If Mydb.EOF Then

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

6、.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 你輸入的密碼錯(cuò)誤，請(qǐng)重新輸入！, vbOKOnly + 32, 注意 I = I + 1 txt_password.SetFocus If I = 2 Then MsgBox 密碼兩次都不正確，本系統(tǒng)將關(guān)閉,警

7、察將跟蹤你調(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