微軟新一代的應用開發(fā)工具Visual Studio2008發(fā)布快一個月了，大家也迫不及待的開始去體驗Visual Studio2008的新功能，尤其是廣大的VB愛好者們更是在不斷的探索新版本所具有的新的特性，Visual Studio2008當中添加了一些處理新事件的機制。其中Visual Studio2008對于數據庫的操作也更加兼容和簡單，VB.net2008中增加了新的模板，本文將詳細介紹在VB.net2008中套用登錄窗體界面以及用代碼操作數據庫的實例，對于VB.net2008數據庫編程初學者來說是一個很好的學習資料。
本文的編程環(huán)境是Microsoft Visual Studio 2008簡體中文正式版，數據庫使用的是ACCESS。我們首先需要創(chuàng)建一個名為data.mdb的數據庫（提示：請在C盤新建Database文件夾然后放入data.mdb，如：C:\Database\data.mdb）在數據庫中新建<登錄>表輸入字段的名稱：Name和Password 如圖1
圖：在數據庫中新建<登錄>表輸入字段的名稱：Name和Password
在數據庫中添加你所要輸入的用戶名(Name)與密碼（Password），如下圖所示：
圖：在數據庫中添加你所要輸入的用戶名(Name)與密碼（Password）
好了我們的數據庫已經創(chuàng)建完成了，接下來該啟動我們的開發(fā)工具VS2008了。
首先打開 Visual Studio2008。在文件 (File) 菜單上，單擊新建項目 (New Project)。 在新建項目 (New Project) 對話框的模板 (Templates) 窗格中，單擊 Windows 應用程序(Windows Application)。單擊確定 (OK)。
在Form1窗體中添加一個Label1控件在Text屬性中輸入：”恭喜您已經成功完成驗證，登錄成功！”這是為了方便以后的演示。如圖3
圖：在Form1窗體中添加一個Label1控件在Text屬性中輸入：”恭喜您已經成功完成驗證，登錄成功！”
我們知道VS2008已經為我們定制了相應的登錄驗證界面窗體了，這樣我們就不需要再去創(chuàng)建一個窗體，而直接使用微軟為我們做好的窗體界面吧。選擇<項目>--<添加Windows窗體>--選擇(登陸窗體)即可。如圖4
圖：選擇<項目>--<添加Windows窗體>--選擇(登陸窗體)
創(chuàng)建完成后可看到漂亮的登錄界面，默認窗體名稱為：LoginForm1。我們需要雙擊窗體進入代碼視圖，進行聲明。圖5
圖：雙擊窗體進入代碼視圖，進行聲明
在Public Class LoginForm1事件中輸入相應代碼：
Dim Conn As OleDb.OleDbConnection
Dim Cmd As OleDb.OleDbCommand
Dim Rd As OleDb.OleDbDataReader
Dim SQL As String
Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim Database = "Data Source=C:\Database\data.mdb"
隨后回到LoginForm1界面雙擊（確定）按鈕進入代碼視圖，在 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click中輸入：
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Conn = New OleDb.OleDbConnection(Provider & ";" & Database)
Conn.Open()
SQL = "Select * From 登錄 Where Name='" & UsernameTextBox.Text & "' And Password='" & PasswordTextBox.Text & "'"
Cmd = New OleDb.OleDbCommand(SQL, Conn)
Rd = Cmd.ExecuteReader()
If Rd.Read() Then
Dim form1 As New Form1
form1.Show()
Me.Hide()
Else
MessageBox.Show("密碼或用戶名錯誤!", "錯誤提示!", MessageBoxButtons.OK, MessageBoxIcon.Error)
UsernameTextBox.Text = ""
PasswordTextBox.Text = ""
UsernameTextBox.Focus()
End If
Rd.Close()
Conn.Close()
End Sub
最后代碼如圖所示
圖：最后代碼
好了基本完成工作了，我們還需要設置WindowsApplication屬性，設置的目的是為了程序在開始時先啟動LoginForm1窗體界面（也就是登錄窗體界面了）選擇<項目>---< WindowsApplication屬性> 啟動窗體設置為LoginForm1如圖7
圖：啟動窗體設置為LoginForm1
好了，基本已經完成。我們先運行一下程序吧，輸入你起先在數據庫中輸入好的用戶名和密碼，然后點擊確定，如果輸入正確你將看到Form1界面如圖8，圖9所示
圖：輸入你起先在數據庫中輸入好的用戶名和密碼
圖：提示成功
如你的密碼或者用戶名輸入不正確的話，將出現以下對話框圖10
圖：提示錯誤
