用VB編寫一個簡單的登錄程式

虛無飄渺

我們都知道，在進入Windows作業系統時會出現一個登錄對話方塊，要求用戶輸入密碼後才能進入Windows。我們用VB也可以編寫這樣的登錄視窗，其具體方法如下：
　　介面設計：
　　打開“VB6.0”，出現“新建工程”對話方塊，選擇“標準EXE”單擊“打開”即可新建一個工程。新建一個工程後，VB自動生成了一個表單，其默認的名稱是Form1，且顯示的標題也是Form1，顯然與我們要編寫的程式不符。我們可以更改這些設置，方法是：點擊Form1表單，在右邊的屬性視窗中（如圖1）的“名稱”後輸入“Denglu”（在後面講的Denglu就是指的這個表單），在“Caption”後輸入“登錄視窗”。表單設置好後，我們便可以將控制項放置到這個表單中去了。
　　“登錄視窗”中主要用到的是TextBox(文本框)控制項，該控制項主要是用於接收用戶輸入的文字並顯示出來。在該程式中我們便可以使用TextBox控制項接收用戶輸入的資訊來判斷是否是合法的用戶。另外，我們還將用到Label（標籤）控制項及CommandButton（命令按鈕）控制項。Label控制項用來顯示“用戶名”及“密碼”標題；CommandButton控制項用來設計“確定”及“取消”按鈕。下面我們將這些控制項放置到表單中：在工具箱中選擇“Label”控制項（如圖2），在表單中拖動滑鼠直到一定的大小，然後在屬性視窗中的“Caption”屬性後為輸入“用戶名”，然後在其下方再拖動一個Label控制項，將Caption的值改為“密碼：”；在工具箱中選擇“TextBox”控制項（如圖3），在“用戶名”後拖動一個TextBox控制項，用同樣的方法在“密碼：”後拖動一個TextBox控制項，然後在“屬性視窗”中將Text的值改為空（即刪除默認的Text1），為了不顯示出用戶輸入的密碼，我們將第二個TextBox控制項的PasswordChar屬性設置為＊（如圖5），這樣在用戶輸入密碼時顯示的就是＊了；在工具箱中選擇“CommandButton”控制項（如圖4），將其拖動到表單的下方（一共兩個），分別設置其Caption屬性為“確定”和“取消”。調整好這些控制項的位置（如圖6）後即可完成介面的設計。
　　程式碼：
　　該程式的主要目的是要判斷輸入的用戶名是否合法，所以我們首先編寫判斷用戶名的程式碼。雙擊“確定”按鈕，添加如下的程式碼：（黑體部分為系統自動生成的代碼，楷體為注釋）
　　Private Sub Command1_Click()
　　′判斷是否輸入了用戶名
　　If Text1.Text=″″ Then　′如果Text1為空，即沒有輸入用戶
　　　MsgBox ″請輸入用戶名！″,vbOKOnly＋vbCritical,″錯誤″
　　　Exit Sub　′退出這個過程
　　Else　′如果輸入了用戶名
　　　If Text1.Text=″軟體世界″ And Text2.Text=″12345″ Then　′如果輸入的用戶名是″軟體世界″且密碼為″12345″
　　　　MsgBox ″你是合法用戶，歡迎進入！″,vbOKOnly＋vbInformation,″歡迎進入″
　　　Else　′如果不是″軟體世界″或密碼不是″12345″
　　　　MsgBox ″用戶名或密碼錯誤！″,vbOKOnly＋vbCritical,″錯誤″
　　　　Text1.Text=″″
　　　　Text2.Text=″″　′清空Text1及Text2控制項中的文本內容，讓用戶重新輸入
　　　End If
　　End If
　　End Sub
　　在這一段代碼中，我們使用了If…Then…Else…End If。這是一個條件判斷語句，If Text1.Text=″″ Then這句代碼則是判斷Text1是否為空，如果為空，這個條件就成立，則執行Then後的語句，如果Text1不為空，則這個條件不成立，程式將會跳到Else處，執行Else後的語句。
　　程式測試：
　　現在我們可以單擊“F5”鍵來運行這個程式，看看其運行效果。直接單擊“確定”按鈕，將會彈出一個對話方塊（如圖7）；在“用戶名”後輸入“軟體世界”，“密碼：”後輸入“12345”，再單擊“確定”按鈕，此時便會出現一個“歡迎進行”的資訊框（如圖8）。怎麼樣，一個屬於自己的“登錄視窗”就製作好了。
　　但這個程式目前還只能判斷在程式中已設置好了的用戶名及密碼，沒有靈活性，你可以發揮你的聰明才智，使其能夠判斷多個合法的用戶及密碼。

來源：香港IT網

29676078

哦~
這是不是再家個資料庫更完整