vb家庭理財(cái)管理系統(tǒng)_第1頁(yè)
vb家庭理財(cái)管理系統(tǒng)_第2頁(yè)
vb家庭理財(cái)管理系統(tǒng)_第3頁(yè)
vb家庭理財(cái)管理系統(tǒng)_第4頁(yè)
vb家庭理財(cái)管理系統(tǒng)_第5頁(yè)
已閱讀5頁(yè),還剩11頁(yè)未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

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è)命令按鈕中編寫(xiě)代碼實(shí)現(xiàn)程序的功能,2021/1/9,一、建立用戶界面,2021/1/9,二、設(shè)置控件屬性,2021/1/9,三、編寫(xiě)代碼,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

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論