|
|
#2
qq1722008-07-08 10:08
错误 1 未声明名称“Conn”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 12 9 WindowsApplication1
错误 2 未声明名称“Provider”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 12 42 WindowsApplication1 错误 3 未声明名称“Database”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 12 59 WindowsApplication1 错误 4 未声明名称“Conn”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 13 9 WindowsApplication1 错误 5 “System.Data.Sql”是一个命名空间,不能用作表达式。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 15 9 WindowsApplication1 错误 6 未声明名称“Cmd”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 16 9 WindowsApplication1 错误 7 “System.Data.Sql”是一个命名空间,不能用作表达式。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 16 38 WindowsApplication1 错误 8 未声明名称“Conn”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 16 43 WindowsApplication1 错误 9 未声明名称“Rd”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 18 9 WindowsApplication1 错误 10 未声明名称“Cmd”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 18 14 WindowsApplication1 错误 11 未声明名称“Rd”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 19 12 WindowsApplication1 错误 12 未声明名称“Rd”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 30 9 WindowsApplication1 错误 13 未声明名称“Conn”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 31 9 WindowsApplication1 错误 14 语法错误。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 33 1 WindowsApplication1 错误 15 “End Sub”前面必须是匹配的“Sub”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 34 5 WindowsApplication1 警告 16 未使用的局部变量:“Conn”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 41 13 WindowsApplication1 警告 17 未使用的局部变量:“Cmd”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 42 13 WindowsApplication1 警告 18 未使用的局部变量:“Rd”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 43 13 WindowsApplication1 警告 19 未使用的局部变量:“SQL”。 C:\Documents and Settings\lz\Local Settings\Application Data\Temporary Projects\WindowsApplication1\LoginForm1.vb 44 13 WindowsApplication1 [[it] 本帖最后由 qq172 于 2008-7-8 10:17 编辑 [/it]] |
本文的编程环境是Microsoft Visual Studio 2008简体中文正式版,数据库使用的是ACCESS。我们首先需要创建一个名为data.mdb的数据库(提示:请在C盘新建Database文件夹然后放入data.mdb,如:C:\Database\data.mdb)在数据库中新建<登录>表输入字段的名称:Name和Password 如图1
首先打开 Visual Studio2008。在文件 (File) 菜单上,单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中,单击 Windows 应用程序(Windows Application)。单击确定 (OK)。
在Form1窗体中添加一个Label1控件在Text属性中输入:”恭喜您已经成功完成验证,登录成功!”这是为了方便以后的演示。如图3
在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
好了,基本已经完成。我们先运行一下程序吧,输入你起先在数据库中输入好的用户名和密码,然后点击确定,如果输入正确你将看到Form1界面如图8,图9所示
[[it] 本帖最后由 qq172 于 2008-7-8 10:06 编辑 [/it]]