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

《vb家庭理財管理系統(tǒng).ppt》由會員分享，可在線閱讀，更多相關《vb家庭理財管理系統(tǒng).ppt（16頁珍藏版）》請在裝配圖網(wǎng)上搜索。

家庭理財管理 本系統(tǒng)模塊1登錄系統(tǒng) 密碼管理 2系統(tǒng)管理 窗體 代碼 3退出系統(tǒng) 2020 2 25 總體結構 2020 2 25 一 舉例新建一個窗口 窗口的下部有3個命令按鈕 其中左邊按鈕中標有 謝謝 中間按鈕中標有 你好 右邊按鈕中標有 結束程序 當鼠標單擊左邊按鈕時 屏幕上顯示問候語 謝謝 當鼠標單擊中間按鈕時 屏幕上顯示問候語 你好 當鼠標單擊右邊按鈕時 結束程序 屏幕上顯示的問候語通過標簽label來實現(xiàn) 如圖 2020 2 25 二 基本操作首先啟動VB6 0 新建一個VB應用程序 然后在控件箱中拖入三個命令按鈕 一個標簽 再用鼠標拖動排列三個命令按鈕在窗口的底部 拖動標簽在窗口的中間部位 再選中左邊的命令按鈕 在屬性窗口中修改命令按鈕的Caption屬性為 謝謝 同樣修改其它命令按鈕的Caption屬性為 你好 結束程序 修改標簽的屬性為空 最后在三個命令按鈕中編寫代碼實現(xiàn)程序的功能 2020 2 25 一 建立用戶界面 2020 2 25 二 設置控件屬性 2020 2 25 三 編寫代碼 2020 2 25 四 保存和運行程序保存 運行 2020 2 25 VB語言通過事件來觸發(fā)執(zhí)行相應的事件過程 這就是事件驅(qū)動 所謂事件 就是對操作對象 比如窗體 控件等 進行操作 比如鼠標單擊 從而產(chǎn)生的相應的響應 VB的主要特點 1 可視化編程2 事件驅(qū)動3 面向?qū)ο? 數(shù)據(jù)庫管理功能5 結構化程序設計語言 2020 2 25 三從簡單到復雜 本課程設計包含的窗體 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 你輸入的用戶名不存在 請重新輸入 vbOKOnly 32 注意 L L 1txt name SetFocusIfL 4ThenMsgBox 你四次輸入用戶名都沒有正確 如果你只是純屬玩耍 請不要再繼續(xù)嘗試 本系統(tǒng)主人將會追究你刑事責任 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 你輸入的密碼錯誤 請重新輸入 vbOKOnly 32 注意 I I 1txt password SetFocusIfI 2ThenMsgBox 密碼兩次都不正確 本系統(tǒng)將關閉 警察將跟蹤你調(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語言聯(lián)建數(shù)據(jù)庫4單步調(diào)試運行修改5總結提高 家庭理財管理系統(tǒng)程序一覽 2020 2 25 ThankYou That sAll