程序設(shè)計(jì)項(xiàng)目教學(xué)《用戶登錄系統(tǒng)》

1、項(xiàng)目：用戶登錄系統(tǒng)項(xiàng)目目標(biāo)：本項(xiàng)目主要介紹如何使用 MsgBox函數(shù)和語句；MDI窗體的使用；控件屬 性的設(shè)置方法；隨機(jī)函數(shù)的使用。項(xiàng)目主要知識點(diǎn)：1、MsgBoxag數(shù)和語句的使用Msgbox函數(shù)的格式Msgbox語句2、參數(shù)傳遞址傳傳值多窗體的使用加載窗體顯示窗體隱藏窗體卸載窗體項(xiàng)目實(shí)施步驟：第一步：掌握相關(guān)基礎(chǔ)知識第二步：界面設(shè)計(jì)窗體設(shè)計(jì)控件屬性設(shè)置第三步：程序設(shè)計(jì)第四步：編程初步第五步：程序代碼第六步：運(yùn)行程序，優(yōu)化程序保存項(xiàng)目工程第1步：項(xiàng)目知識1、MsgBox函數(shù)和語句Msgbox函數(shù)的格式：格式： MsgBox(msg ,type ,title ,helpfile,context

2、 ) 功能：在屏幕上顯示一個消息對話框，根據(jù)選擇，確定其后的操作。該函數(shù)有5個參數(shù)，除第一個參數(shù)外，其余參數(shù)都是可選的。各參數(shù)的含義 如下：msg是一個字符串，其長度不能超過1024個字符，如果超過，則多余的字符被截掉。該字符串的內(nèi)容將在MsgBox函數(shù)產(chǎn)生的對話框內(nèi)顯示。當(dāng)字 符串在一行內(nèi)顯示不完時，將自動換行，當(dāng)然也可以用 “Chr$(13)+Chr$(10) ” 強(qiáng)制換行。Type：是一個整數(shù)值或符號常量，用來控制在對話框內(nèi)顯示的按鈕、圖標(biāo) 的種類及數(shù)量。該參數(shù)的值由4類數(shù)值相加產(chǎn)生，這4類數(shù)值或符號常量 分別表示按鈕的類型、顯示圖標(biāo)的種類活動按鈕的位置及強(qiáng)制返回，如表 6-1所示。符號

3、常量值作 用vbOKOnly0只顯示“確 定”按鈕vbOKCancel1顯示“確定” 及“取消”按 鈕vbAbortRetryIgnore2顯示“終 止”、“重 試”及“忽 略”按鈕vbYesNoCancel3顯示“是”、“否”及“取 消"按鈕vbYesNo4顯示“是”及 “否”按鈕vbRetryCancel5顯示“重試” 及“取消”按鈕vbCritical16vbQuestion32vbExclamation48vbInformation64上述表中的數(shù)值分為4類，其作用分別為： 數(shù)值05:對話框內(nèi)命令按鈕的類型和數(shù)量。按鈕共有7種，即確認(rèn)、取消、終止、重試、忽略、是、否。每個數(shù)值

4、表示一種組合方式。 數(shù)值16、32、48、64:指定對話框所顯示的圖標(biāo)。共有 4種，其中16指 定暫停(X) ； 32表示疑問(?) ; 48通常用于警告；64用于顯示提示信息 (i)。例如：16=0+16+0 顯示“確定”按鈕、“暫?！眻D標(biāo)，默認(rèn)按鈕為“確 定" 35=3+32+0 顯示“是"、“否”、“取消” 3個按鈕，顯示“ ？”圖 標(biāo)，默認(rèn)活動按鈕為“是”50=2+48+0 顯示“終止”、“重試”、“忽略” 3個按鈕，顯示“一圖 標(biāo)默認(rèn)活動按鈕為“終止”每種數(shù)值都有相同的符號常量，其作用與數(shù)值相同。使用符號常量可以提高 程序的可讀性。上面4類數(shù)值是type參數(shù)較為常

5、用的數(shù)值。除這4類數(shù)值外， type參數(shù)還可以取其他幾種值，這些數(shù)值是不常用的。title :是一個字符串，用來顯示對話框的標(biāo)題。helpfile,contextMsgBox函數(shù)的5個參數(shù)中，只有第一個參數(shù) msg是必需的，其他參數(shù)均可忽 略。如果省略第二個參數(shù)type(默認(rèn)值為0)，則對話框內(nèi)只顯示一個“確定” 命令按鈕，并把該按鈕設(shè)置為活動按鈕，不顯示任何圖標(biāo)。如果省略第三個 參數(shù)title ,則對話框的標(biāo)題為當(dāng)前工程的名稱，如果希望標(biāo)題欄中沒有任 何內(nèi)容，則應(yīng)把title 參數(shù)置為空字符串。MsgBox函數(shù)的返回值是一個整數(shù)，這個整數(shù)與所選擇的命令按鈕有關(guān)，如前 所述,MsgBox函數(shù)所

6、顯示白對話框有7種命令按鈕，返回值與這7種按鈕相對應(yīng)，分別為17的整數(shù)，如表6-2所示返回值操 作符號常量1選“確定”按鈕vbOk2選“取消”按鈕vbCancel3選“終止”按鈕vbAbort4選“重試”按鈕vbRetry5選“忽略”按鈕vbIgnore6選“是"按鈕vbYes7選“否”按鈕vbNo2、MsgBoxiS句格式：MsgBox Msg$,type% ,title$ ,helpfile,context 功能：在屏幕上顯示一個消息框。說明：各參數(shù)的含義及作用與 MsgBox函數(shù)相同,由于MsgBox®句沒有返回值, 因而常用于較簡單的信息顯示。參數(shù)傳遞參數(shù)傳遞的方法

7、有兩種： 傳址和傳值。 在通過地址方式進(jìn)行參數(shù)傳遞時， 數(shù)組也可以作為過程的參數(shù)。1、傳址在調(diào)用一個過程時， 如果是用傳址方式進(jìn)行參數(shù)傳遞， 則會將實(shí)參的內(nèi)存地址傳遞給形參， 即讓形參和實(shí)參使用相同的內(nèi)存單元。 因此， 在被調(diào)用的過程中對形參的任何操作都變成了對相應(yīng)實(shí)參的操作，實(shí)參的值就會隨形參的改變而改變。2、傳值按傳值方式傳遞參數(shù)時， 系統(tǒng)將實(shí)參的值復(fù)制給形參， 形參與參數(shù)使用不同的內(nèi)存單元。 因此， 被調(diào)過程對形參的操作是在形參自己的存儲單元中進(jìn)行的， 實(shí)參的值不會隨形參的改變而改變。 當(dāng)過程調(diào)用結(jié)束時， 這些形參所占用的存儲單元也同時被釋放。因此在過程中對形參的任何操作都不會影響到實(shí)參

8、。傳值不使默認(rèn)的參數(shù)傳遞方式。要使用傳值方式時，必須在形參前加“ ByVal ”關(guān)鍵字。使用傳值方式， 可以減少過程間的關(guān)聯(lián)， 從而增加程序的可靠性， 減少程序的調(diào)試難度。3、傳址與傳值的區(qū)別最主要的區(qū)別是：對形參的操作是否會對實(shí)參產(chǎn)生影響。傳址時，實(shí)參和形參共用一個內(nèi)存單元，對形參的操作等同于對實(shí)參操作。傳值時，實(shí)參和形參使用不同內(nèi)存單元，對形參的操作不會對實(shí)參操作。形式上的區(qū)別是：在形參前是否有關(guān)鍵字“ ByVal”使用傳址時，無需在形參前加任何關(guān)鍵字。使用傳值時，需要在形參前加關(guān)鍵字“ ByVal” 。3、多窗體的使用1、加載窗體加載窗體使用 Load 語句。格式： Load 窗體名功能

9、：加載窗體到內(nèi)存。說明： 加載窗體只是將這個窗體對象裝入內(nèi)存， 但并不顯示這個窗體對象。 此語旬只是需要在初始化時加載所有的窗體并在以后需要他們的時候顯示。當(dāng)VB加載窗體時，先把窗體的各屬性設(shè)置為初始值，再執(zhí)行Load 事件。顯示窗體顯示一個窗體就要把它的 Visible 屬性設(shè)置為 True 。顯示一個窗體還可以用窗體對象的Show方法。格式： 窗體名 . Show功能：將窗體顯示在屏幕上。說明：如果在調(diào)用一個窗體的Show方法時，指定的窗體尚未加載，VB將自動裝載該窗體。隱藏窗體把一個窗體的 Visible 屬性設(shè)置為 False 或使用它的 Hide 方法，就可以把窗體隱藏。格式： 窗體

10、名 . Hide功能：將窗體隱藏起來。說明：隱藏窗體并不把窗體從內(nèi)存中卸載，只是變得不可見。在使用 Visible 屬性或Hide方法隱藏窗體時，如果窗體尚未加載，則VB會加載該窗體，但不會 讓它顯示出來。卸載窗體窗體用完后可以卸載窗體，要用 Unload語句。Unload語句的語法格式與Load 語句相同。格式：UnLoad窗體名功能：將窗體從內(nèi)存中卸載下來。說明：當(dāng)卸載一個窗體時它的子窗體也會被卸載。第2步：登錄窗體的設(shè)計(jì)任務(wù)一：界面設(shè)計(jì)所需控件：標(biāo)簽（Label）,文本框（TextBox）,圖像框（ImageBoX）,命令按鈕， 框架（Frame）等。說明：、所有標(biāo)簽的 AutoSize

11、屬性設(shè)為True、密碼輸入框的 PasswordChar屬性：*、其他各控件屬性根據(jù)需要設(shè)置參考界面如圖6-1所示：任務(wù)二：程序設(shè)計(jì)1、產(chǎn)生驗(yàn)證碼的語句為：Private Sub Form_Load（） RandomizeDim x As Longx = Int(90000 * Rnd(0) + 10000Label4.Caption = xEnd Sub提示：Randomize語句的使用方法：當(dāng)一個應(yīng)用程序不斷地重復(fù)使用隨機(jī)函數(shù)時， 同一序列的隨機(jī)數(shù)反復(fù)出現(xiàn)， 用Randomize語句，重復(fù)執(zhí)行程序，每次產(chǎn)生的隨機(jī)數(shù)可以不同。Randomize語句的格式如下：Randomize(x)這里的

12、x 是一整型數(shù)，它是隨機(jī)數(shù)發(fā)生器的“種子數(shù)” ，可以省略。用Rnd()函數(shù)可以產(chǎn)生01之間的單精度隨機(jī)數(shù)。用 Int(x) 函數(shù)求不大于自變量x 的最大整數(shù)。如 Int(1000) 表示求不大于1000的最大整數(shù)。2、 “登錄”按鈕的程序設(shè)計(jì)(該部分程序由學(xué)生自行設(shè)計(jì))需要注意以下幾點(diǎn)：“用戶名”和“密碼”不能為空，如果為空，應(yīng)該用MsgBo斕示問題，并允許返回登錄窗體進(jìn)行添加。“用戶名”或“密碼”必須同時成立，單擊“登錄”按鈕才能顯示登錄成功。如果“用戶名”或“密碼”錯誤，則顯示出錯信息(用MsgBoXI示問題)，并允許返回登錄窗體修改。如果連續(xù)三次出現(xiàn)“用戶名”或“密碼”錯誤則認(rèn)為是非法登

13、錄，拒絕登錄。如果“驗(yàn)證碼”輸入框?yàn)榭?，則提示錯誤問題并允許添加。3、 “注冊”命令按鈕的程序設(shè)計(jì)為：Private Sub Command3_Click()Form2.ShowForm1.HideEnd Sub提示：在集成開發(fā)環(huán)境中，使用“工程、添加窗體”菜單，就可以在一個工程中使用多個窗體。 被設(shè)置為啟動對象的窗體在程序運(yùn)行之初會被自動加載和顯示， 但是只能在工程屬性中設(shè)置一個窗體模塊為啟動對象。 當(dāng)啟動對象是SubMain 過程時，要顯示窗體或當(dāng)顯示一個窗體后再顯示其他的窗體， 就要考慮窗體的加載、 顯示、隱藏和卸載問題。4、 “退出”按鈕程序自行設(shè)計(jì)第三步：注冊窗體的設(shè)計(jì)任務(wù)一：界面設(shè)

14、計(jì)所需控件：標(biāo)簽( Label ) ，文本框(TextBox) ，圖像框(ImageBox) ，命令按鈕，框架(Frame),單選按鈕(OptionButton ),組合框(ComboBoX 等。說明：所有標(biāo)簽的 AutoSize 屬性設(shè)為 True兩個密碼輸入框的 PasswordChar屬性：*組合框里根據(jù)實(shí)際情況輸入幾項(xiàng)（如：寵物的名字等） 單選按鈕的標(biāo)題分別為男和女其他控件的屬性根據(jù)需要設(shè)置6-4操作附：添加窗體的方法如圖6-4所示:在工程資源管理器中單擊鼠標(biāo)右鍵，然后按照圖其他界面操作參照圖6-5所示:1 .將驗(yàn)證碼圖片隨機(jī)裝入圖像框的語句參照第 1步當(dāng)中的裝載語句。2 .“提交”命令按鈕的程序設(shè)計(jì)（該部分由師生共同完成）需要注意以下幾點(diǎn)： 凡是帶“*”的項(xiàng)目如果為空，則提示錯誤（用 MsgBo斕示），并允許返回注冊 窗體添加。如果兩次密碼不一致，則顯示錯誤信息（用 MsgBoXS示），然后自動清空。等待 重新輸入。3 .“重填”命令按鈕就是將所有的文本框清空。4 .如果注冊信息符合要求則顯示注冊成功窗體所用語句為：Form3.ShowForm2.Hide第四步：登錄成功窗體設(shè)計(jì)任務(wù)一：界面設(shè)計(jì)參照圖6-6所示任務(wù)二：程序設(shè)計(jì)1、參數(shù)傳遞語句為：Private Sub Form_Load（）Labell.Caption = Fo