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

《vb家庭理財(cái)管理系統(tǒng).ppt》由會(huì)員分享，可在線閱讀，更多相關(guān)《vb家庭理財(cái)管理系統(tǒng).ppt（16頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

家庭理財(cái)管理 本系統(tǒng)模塊1登錄系統(tǒng) 密碼管理 2系統(tǒng)管理 窗體 代碼 3退出系統(tǒng) 2020 2 25 總體結(jié)構(gòu) 2020 2 25 一 舉例新建一個(gè)窗口 窗口的下部有3個(gè)命令按鈕 其中左邊按鈕中標(biāo)有 謝謝 中間按鈕中標(biāo)有 你好 右邊按鈕中標(biāo)有 結(jié)束程序 當(dāng)鼠標(biāo)單擊左邊按鈕時(shí) 屏幕上顯示問候語(yǔ) 謝謝 當(dāng)鼠標(biāo)單擊中間按鈕時(shí) 屏幕上顯示問候語(yǔ) 你好 當(dāng)鼠標(biāo)單擊右邊按鈕時(shí) 結(jié)束程序 屏幕上顯示的問候語(yǔ)通過標(biāo)簽label來(lái)實(shí)現(xiàn) 如圖 2020 2 25 二 基本操作首先啟動(dòng)VB6 0 新建一個(gè)VB應(yīng)用程序 然后在控件箱中拖入三個(gè)命令按鈕 一個(gè)標(biāo)簽 再用鼠標(biāo)拖動(dòng)排列三個(gè)命令按鈕在窗口的底部 拖動(dòng)標(biāo)簽在窗口的中間部位 再選中左邊的命令按鈕 在屬性窗口中修改命令按鈕的Caption屬性為 謝謝 同樣修改其它命令按鈕的Caption屬性為 你好 結(jié)束程序 修改標(biāo)簽的屬性為空 最后在三個(gè)命令按鈕中編寫代碼實(shí)現(xiàn)程序的功能 2020 2 25 一 建立用戶界面 2020 2 25 二 設(shè)置控件屬性 2020 2 25 三 編寫代碼 2020 2 25 四 保存和運(yùn)行程序保存 運(yùn)行 2020 2 25 VB語(yǔ)言通過事件來(lái)觸發(fā)執(zhí)行相應(yīng)的事件過程 這就是事件驅(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ū)ο? 數(shù)據(jù)庫(kù)管理功能5 結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言 2020 2 25 三從簡(jiǎn)單到復(fù)雜 本課程設(shè)計(jì)包含的窗體 2020 2 25 1登錄系統(tǒng) 1 1界面如圖 2020 2 25 1登錄系統(tǒng) 1 2添加屬性修改caption1 3添加按鈕button1 4添加編輯框textbox1 5添加代碼DimMydbAsNewADODB RecordsetDimMydb1AsNewADODB RecordsetDimStr textAsStringPrivateSubCommand1 Click OnErrorResumeNextStaticIAsInteger 記數(shù)器StaticLAsInteger 記數(shù)器DimStr nameAsStringDimStr passwordAsStringDimStr usernameAsStringDimStr userpasswordAsStringDimRemaindayAsLongStr name txt name TextStr password txt password TextSetMydb ExeCutesql selectuserfromuser1whereuser Str name Str text 2020 2 25 IfMydb EOFThenMsgBox 你輸入的用戶名不存在 請(qǐng)重新輸入 vbOKOnly 32 注意 L L 1txt name SetFocusIfL 4ThenMsgBox 你四次輸入用戶名都沒有正確 如果你只是純屬玩耍 請(qǐng)不要再繼續(xù)嘗試 本系統(tǒng)主人將會(huì)追究你刑事責(zé)任 vbOKOnly 48 注意 EndEndIfExitSubElseSetMydb1 ExeCutesql selectuser passfromuser1whereuser Str name Str text Str username Trim Mydb1 Fields 0 Str userpassword Trim Mydb1 Fields 1 IfTrim Str password Str userpasswordThenfrm main ShowMydb CloseMydb1 CloseSetMydb NothingSetMydb1 NothingUnloadMeElseMsgBox 你輸入的密碼錯(cuò)誤 請(qǐng)重新輸入 vbOKOnly 32 注意 I I 1txt password SetFocusIfI 2ThenMsgBox 密碼兩次都不正確 本系統(tǒng)將關(guān)閉 警察將跟蹤你調(diào)查 vbOKOnly 48 注意 EndEndIfExitSubEndIfEndIfEndSubPrivateSubCommand2 Click UnloadMeEndSubPrivateSubtxt name KeyDown KeyCodeAsInteger ShiftAsInteger IfKeyCode 13Thentxt password SetFocusEndSubPrivateSubtxt password KeyPress KeyAsciiAsInteger IfKeyAscii 13ThenCommand1 SetFocusEndSubPrivateSubtxt name LostFocus Cname txt name TextEndSub 2020 2 25 2其他窗體添加類比登陸系統(tǒng)3使用ADO控件利用sql語(yǔ)言聯(lián)建數(shù)據(jù)庫(kù)4單步調(diào)試運(yùn)行修改5總結(jié)提高 家庭理財(cái)管理系統(tǒng)程序一覽 2020 2 25 ThankYou That sAll