版權(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ì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 藥理學(xué)知識(shí)培訓(xùn)課件
- 論文寫(xiě)作指南
- 2025年度餐飲加盟連鎖經(jīng)營(yíng)合作協(xié)議書(shū)3篇
- 2025年度廣告?zhèn)髅讲鸹锖贤瑓f(xié)議4篇
- 專業(yè)藝術(shù)教師勞務(wù)合作合同(2024版)一
- 二零二四醫(yī)院護(hù)士勞動(dòng)合同范本:護(hù)理危機(jī)管理與責(zé)任界定3篇
- 2025年茶山茶葉采摘與加工承包經(jīng)營(yíng)合同4篇
- 2025年度快遞快遞業(yè)務(wù)市場(chǎng)營(yíng)銷承包合同3篇
- 2025年度餐飲行業(yè)節(jié)能減排合作協(xié)議范本3篇
- 2025年度情侶忠誠(chéng)保障不分手協(xié)議書(shū)電子版下載3篇
- 直播帶貨助農(nóng)現(xiàn)狀及發(fā)展對(duì)策研究-以抖音直播為例(開(kāi)題)
- 腰椎間盤(pán)突出疑難病例討論
- 《光伏發(fā)電工程工程量清單計(jì)價(jià)規(guī)范》
- 2023-2024學(xué)年度人教版四年級(jí)語(yǔ)文上冊(cè)寒假作業(yè)
- (完整版)保證藥品信息來(lái)源合法、真實(shí)、安全的管理措施、情況說(shuō)明及相關(guān)證明
- 營(yíng)銷專員績(jī)效考核指標(biāo)
- 陜西麟游風(fēng)電吊裝方案專家論證版
- 供應(yīng)商審核培訓(xùn)教程
- 【盒馬鮮生生鮮類產(chǎn)品配送服務(wù)問(wèn)題及優(yōu)化建議分析10000字(論文)】
- 肝硬化心衰患者的護(hù)理查房課件
- 2023年四川省樂(lè)山市中考數(shù)學(xué)試卷
評(píng)論
0/150
提交評(píng)論