微軟新一代的應(yīng)用開(kāi)發(fā)工具Visual Studio2008發(fā)布快一個(gè)月了，大家也迫不及待的開(kāi)始去體驗(yàn)Visual Studio2008的新功能，尤其是廣大的VB愛(ài)好者們更是在不斷的探索新版本所具有的新的特性，Visual Studio2008當(dāng)中添加了一些處理新事件的機(jī)制。其中Visual Studio2008對(duì)于數(shù)據(jù)庫(kù)的操作也更加兼容和簡(jiǎn)單，VB.net2008中增加了新的模板，本文將詳細(xì)介紹在VB.net2008中套用登錄窗體界面以及用代碼操作數(shù)據(jù)庫(kù)的實(shí)例，對(duì)于VB.net2008數(shù)據(jù)庫(kù)編程初學(xué)者來(lái)說(shuō)是一個(gè)很好的學(xué)習(xí)資料。
本文的編程環(huán)境是Microsoft Visual Studio 2008簡(jiǎn)體中文正式版，數(shù)據(jù)庫(kù)使用的是ACCESS。我們首先需要?jiǎng)?chuàng)建一個(gè)名為data.mdb的數(shù)據(jù)庫(kù)（提示：請(qǐng)?jiān)贑盤新建Database文件夾然后放入data.mdb，如：C:\Database\data.mdb）在數(shù)據(jù)庫(kù)中新建<登錄>表輸入字段的名稱：Name和Password 如圖1
圖：在數(shù)據(jù)庫(kù)中新建<登錄>表輸入字段的名稱：Name和Password
在數(shù)據(jù)庫(kù)中添加你所要輸入的用戶名(Name)與密碼（Password），如下圖所示：
圖：在數(shù)據(jù)庫(kù)中添加你所要輸入的用戶名(Name)與密碼（Password）
好了我們的數(shù)據(jù)庫(kù)已經(jīng)創(chuàng)建完成了，接下來(lái)該啟動(dòng)我們的開(kāi)發(fā)工具VS2008了。
首先打開(kāi) Visual Studio2008。在文件 (File) 菜單上，單擊新建項(xiàng)目 (New Project)。 在新建項(xiàng)目 (New Project) 對(duì)話框的模板 (Templates) 窗格中，單擊 Windows 應(yīng)用程序(Windows Application)。單擊確定 (OK)。
在Form1窗體中添加一個(gè)Label1控件在Text屬性中輸入：”恭喜您已經(jīng)成功完成驗(yàn)證，登錄成功！”這是為了方便以后的演示。如圖3
圖：在Form1窗體中添加一個(gè)Label1控件在Text屬性中輸入：”恭喜您已經(jīng)成功完成驗(yàn)證，登錄成功！”
我們知道VS2008已經(jīng)為我們定制了相應(yīng)的登錄驗(yàn)證界面窗體了，這樣我們就不需要再去創(chuàng)建一個(gè)窗體，而直接使用微軟為我們做好的窗體界面吧。選擇<項(xiàng)目>--<添加Windows窗體>--選擇(登陸窗體)即可。如圖4
圖：選擇<項(xiàng)目>--<添加Windows窗體>--選擇(登陸窗體)
創(chuàng)建完成后可看到漂亮的登錄界面，默認(rèn)窗體名稱為：LoginForm1。我們需要雙擊窗體進(jìn)入代碼視圖，進(jìn)行聲明。圖5
圖：雙擊窗體進(jìn)入代碼視圖，進(jìn)行聲明
在Public Class LoginForm1事件中輸入相應(yīng)代碼：
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界面雙擊（確定）按鈕進(jìn)入代碼視圖，在 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("密碼或用戶名錯(cuò)誤!", "錯(cuò)誤提示!", MessageBoxButtons.OK, MessageBoxIcon.Error)
UsernameTextBox.Text = ""
PasswordTextBox.Text = ""
UsernameTextBox.Focus()
End If
Rd.Close()
Conn.Close()
End Sub
最后代碼如圖所示
圖：最后代碼
好了基本完成工作了，我們還需要設(shè)置WindowsApplication屬性，設(shè)置的目的是為了程序在開(kāi)始時(shí)先啟動(dòng)LoginForm1窗體界面（也就是登錄窗體界面了）選擇<項(xiàng)目>---< WindowsApplication屬性> 啟動(dòng)窗體設(shè)置為L(zhǎng)oginForm1如圖7
圖：?jiǎn)?dòng)窗體設(shè)置為L(zhǎng)oginForm1
好了，基本已經(jīng)完成。我們先運(yùn)行一下程序吧，輸入你起先在數(shù)據(jù)庫(kù)中輸入好的用戶名和密碼，然后點(diǎn)擊確定，如果輸入正確你將看到Form1界面如圖8，圖9所示
圖：輸入你起先在數(shù)據(jù)庫(kù)中輸入好的用戶名和密碼
圖：提示成功
如你的密碼或者用戶名輸入不正確的話，將出現(xiàn)以下對(duì)話框圖10
圖：提示錯(cuò)誤
本新聞共
2頁(yè),當(dāng)前在第
1頁(yè)
1 2 
