登录论坛 | 注册会员 设为首页 | 收藏本站
当前位置 : 首页>软件学院>数据库>ACCESS>正文
 
VB.net2008与ACCESS创建登录程序

http://www.dbit.cn 2008-4-25 12:49:34  来源:eNet  编辑:叶子
 
  微软新一代的应用开发工具Visual Studio2008发布快一个月了,大家也迫不及待的开始去体验Visual Studio2008的新功能,尤其是广大的VB爱好者们更是在不断的探索新版本所具有的新的特性,Visual Studio2008当中添加了一些处理新事件的机制。其中Visual Studio2008对于数据库的操作也更加兼容和简单,VB.net2008中增加了新的模板,本文将详细介绍在VB.net2008中套用登录窗体界面以及用代码操作数据库的实例,对于VB.net2008数据库编程初学者来说是一个很好的学习资料。

  本文的编程环境是Microsoft Visual Studio 2008简体中文正式版,数据库使用的是ACCESS。我们首先需要创建一个名为data.mdb的数据库(提示:请在C盘新建Database文件夹然后放入data.mdb,如:C:\Database\data.mdb)在数据库中新建<登录>表输入字段的名称:Name和Password 如图1

VB.net2008与ACCESS创建登录程序
图:在数据库中新建<登录>表输入字段的名称:Name和Password

  在数据库中添加你所要输入的用户名(Name)与密码(Password),如下图所示:

VB.net2008与ACCESS创建登录程序
图:在数据库中添加你所要输入的用户名(Name)与密码(Password)

  好了我们的数据库已经创建完成了,接下来该启动我们的开发工具VS2008了。

  首先打开 Visual Studio2008。在文件 (File) 菜单上,单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中,单击 Windows 应用程序(Windows Application)。单击确定 (OK)。

  在Form1窗体中添加一个Label1控件在Text属性中输入:”恭喜您已经成功完成验证,登录成功!”这是为了方便以后的演示。如图3

VB.net2008与ACCESS创建登录程序
图:在Form1窗体中添加一个Label1控件在Text属性中输入:”恭喜您已经成功完成验证,登录成功!”

我们知道VS2008已经为我们定制了相应的登录验证界面窗体了,这样我们就不需要再去创建一个窗体,而直接使用微软为我们做好的窗体界面吧。选择<项目>--<添加Windows窗体>--选择(登陆窗体)即可。如图4

VB.net2008与ACCESS创建登录程序(2)
图:选择<项目>--<添加Windows窗体>--选择(登陆窗体)

  创建完成后可看到漂亮的登录界面,默认窗体名称为:LoginForm1。我们需要双击窗体进入代码视图,进行声明。图5

VB.net2008与ACCESS创建登录程序(2)
图:双击窗体进入代码视图,进行声明

在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


  最后代码如图所示

VB.net2008与ACCESS创建登录程序(2)
图:最后代码

好了基本完成工作了,我们还需要设置WindowsApplication属性,设置的目的是为了程序在开始时先启动LoginForm1窗体界面(也就是登录窗体界面了)选择<项目>---< WindowsApplication属性> 启动窗体设置为LoginForm1如图7

VB.net2008与ACCESS创建登录程序(3)
图:启动窗体设置为LoginForm1

  好了,基本已经完成。我们先运行一下程序吧,输入你起先在数据库中输入好的用户名和密码,然后点击确定,如果输入正确你将看到Form1界面如图8,图9所示

VB.net2008与ACCESS创建登录程序(3)
图:输入你起先在数据库中输入好的用户名和密码

VB.net2008与ACCESS创建登录程序(3)
图:提示成功

  如你的密码或者用户名输入不正确的话,将出现以下对话框图10

VB.net2008与ACCESS创建登录程序(3)
图:提示错误

本新闻共2页,当前在第1页  1  2  

 
收藏】【打印】【进入论坛
  相关文章:

·asp将access数据导出为excel电子表的方法
·长期使用中型Access数据库的一点经验
·Access数据库与Excel工作簿巧转换 
·关于Access数据库4种安全方式
·如何把ACCESS转成SQL数据库

 
 
 
 
最新文章

中关村艳照门女主角详记录高清组图 
大连护士门大尺度艳照高清组图
iPhone女孩微博爆红 最宝贵东西换iPhon
团购鼻祖Groupon中国揭秘:快与慢的商业
Spil Games发布新的品牌形象
1800配置一台主机 不要显示器
反恐精英之父内维尔:改变电脑游戏销售
团购网站黎明之前:中国市场惨烈厮杀不
联想V360笔记本模特写真
爱国者第四代移动硬盘将面市、低电压保

 
推荐文章
1
2
3
4
5
6
7
8
9
10
iPhone女孩微博爆红 最宝贵东西换
大连护士门大尺度艳照高清组图
中关村艳照门女主角详记录高清组
苹果员工中毒门
宫如敏不雅照疯传 看张馨予韩一菲
深耕市场 永续经营——专访百脑汇
优派专业电子书 让您回家旅途多姿
揭晓百万大奖三星bada魅力绽放中
大明龙权“江湖英雄会”全国PK大
永恒之塔校园达人挑战赛完美落幕
八卦图解 More>>
iPhone女孩微博爆红 最宝贵东西换 大连护士门大尺度艳照高清组图
中关村艳照门女主角详记录高清组 宫如敏不雅照疯传 看张馨予韩一菲