End
End If
End SubEnd ClassEnd Namespace
vb.net做登录页面你测试一下吧 。
用vb.net做一个系统的登录界面，如何与access相连接？Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Application.StartupPath()"汽车出租管理系统.mdb"Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection(str)
Try
con.Open()
Dim b As String = "Select * FromTable1 Where 用户名='"UsernameTextBox.Text"' And 密码 = '"PasswordTextBox.Text"' "And 是否管理员 = '"True "'"
Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(b, con)
Dim dr As SqlClient.SqlDataReader
dr = sqlcmd.ExecuteReader
If dr.Read = True Then'判断一条记录为真
Form1.Show()
Me.Hide()
Else
MessageBox.Show("输入信息有误！", "提示")
PasswordTextBox.Text = ""
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
关于vb.net做登录页面和用vb编写登录界面代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读

• 

  2018-06-08
• 

  捷豹15款进口xe哪款发动机 捷豹XE的发动机参数
• 

  卡萨帝什么品牌 卡萨帝的成立时间
• 

  普洛菲斯触摸屏,proface触摸屏从显示单元断
• 

  水培巴西木的根 巴西木水培生根方法是什么
• 

  什么是姓名权,姓名权主要包括哪些内容 姓名权主要有哪些
• 

  lol盒子手机版安卓,下载播放lol盒子然后解压安装
• 

  .cgd文件是什么文件,为什么删不掉?cgd的缩写代表什么
• 

  个人小投资创业项目 小本创业项目有哪些
• 

  客服生气怎么发泄 如何客服生气，客服生气了怎么办
• 

  博世壁挂炉e9故障消除,壁挂炉显示E9什么意思？
• 

  电影《八佰》豆瓣评分8.3分,你觉得是高了还是低了？
• 

  外公和外孙女的关系叫什么，姥爷与外孙女的关系怎么写范文
• 

  精彩的ppt演讲视频 如何演讲ppt技巧视频，ppt演讲视频
• 

  如何给戴尔服务器添加硬盘？ 戴尔服务器怎么样加硬盘
• 

  NER依存关系模型（原理，建模及代码实现）
• 

  关于微笑的名人名言
• 

  emo是什么意思抑郁颓废的意思 用来表达自己的情绪
• 

  立春时节，如何健康咬春
• 

  腈纶毛线多少钱一斤，晴绒毛线图片及价格

• 包含postgresql连接失败的词条
• 成都gis保温罩定做，成都gis保温罩定做厂家
• erp指物料管理系统对吗，erp物料管理系统的功能
• 没撬棍怎么拆电脑电池，没有撬片怎么拆电脑
• linux重启nfs命令 linux 启动nfs
• 手机什么软件可以做ppt，手机什么软件可以做四维图
• 团队竞技游戏手机画面设置，团队竞技怎么切换视角
• 游戏开发物语最强，游戏开发物语最强8人用不用转职
• python直线检测函数 python判断点在直线的哪一侧