程序設計項目教學《用戶登錄系統》

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

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

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

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

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

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

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

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

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

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

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

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

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

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