当前位置:七道奇文章资讯数据防范Access防范
日期:2012-03-16 17:32:00  来源:本站整理

VB用Access数据库成立用户登录[Access防范]

赞助商链接



  本文“VB用Access数据库成立用户登录[Access防范]”是由七道奇为您精心收集,来源于网络转载,文章版权归文章作者所有,本站不对其观点以及内容做任何评价,请读者自行判断,以下是其具体内容:

  VB用Access数据库成立用户登录

  工具/原料

  VB用Access数据库成立用户登录问题是VB学习的一个基本要求,下面介绍一下基本的计划思绪和代码.

  步骤/办法

  1、利用Access数据库成立用户登录,首先必须设置数据库,为了使大家简单理解,这里仅仅设置用户登录表:(数据库是A.Mdb,登录表是:A1)

  表1、A1数据表构造

  表2、A1数据表数据

  2、数据库衔接:

  在程序中要衔接数据库,才能利用数据表,所以必须衔接数据库,数据库衔接对比简单,关键是程序中必须增添引用,增添办法是点击【工程】-【引用】在对话框挑选“Microsoft DAO 3.6 Object Library”和“Microsoft ActiveX Data Objects 2.6 Library”,将它们勾选,然后点击【肯定】,这样就增添了数据库的引用了.

  接下来在程序中增添一个模块(注意,不是类模块),模块名称为 Module1 在模块中编写下面的代码:

  Public db As New ADODB.Connection '声明数据库衔接对象

  Public RS As New ADODB.Recordset '声明将来就对象

  Public Sub SJK(db) '衔接数据库历程

  db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);dbQ=" & App.Path & "\A.mdb"

  db.Open

  End Sub

  由于是在模块中声明和成立历程的,因此这些声明的变量和历程是程序同享的,也就是在程序的全部界面都可以调用变量和 SJK 历程.

  3、用户登录界面的计划:增添一个窗体,改正窗体的名称为“登录”,改正窗体的 Caption 属性为“用户登录”,改正 Width 属性为8550,改正 Height 属性为5130,改正 StartUpPosition 属性为 2-屏幕中央,改正 MaxButton 属性为 Fales,最后将图片增添到 Picture 属性中,好了窗体属性基本设置完成,下面在窗体增添一下需求的控件.在左边的《工具栏》挑选增添二个TextBox 控件,辨别是Text1和Text2,增添二个CommandButton 控件,辨别是Command1和Command2,增添4个Label控件,辨别是Label1(0)、Label1(1)、Label1(2)、 Label1(3),计划好后的界面以下:

  至于控件的有关属性,请自行设置.

  4、窗体代码窗口的有关代码清单

  Dim strSQL As String '定义一个字符串变量

  Private Sub Command1_Click()

  If Text1.Text = "" Then

  MsgBox "用户名不能为空!!请输入用户名!", 16, "错误!"

  Exit Sub

  End If

  If Text2.Text = "" Then

  MsgBox "用户密码不能为空!!请输入用户密码!", 16, "错误!"

  Exit Sub

  End If

  Call SJK(db) '调用数据库衔接

  strSQL = "Select * form A1 where MC='" & Text1.Text & "'" '数据表衔接字符串

  RS.Open strSQL, db, 2, 2 '翻开数据表

  If RS.EOF = True Then '用户名错误

  MsgBox "没有这个用户!!请查抄后重新输入!", 16, "错误!"

  RS.Close

  Set RS = Nothing

  db.Close

  Set db = Nothing

  Exit Sub

  Else

  If Not RS!MM = Text2.Text Then '用户密码错误

  MsgBox "用户密码错误!!请查抄后重新输入!", 16, "错误!"

  RS.Close

  Set RS = Nothing

  db.Close

  Set db = Nothing

  Exit Sub

  Else '登录成功

  '假若有必要,在这里可以增添系统共有变量存储登录人的一些信息

  Unload Me '关闭登录窗口

  某某系统主页面.Show '转到用户进入的界面

  End If

  End If

  RS.Close

  Set RS = Nothing

  db.Close

  Set db = Nothing

  End Sub

  Private Sub Command2_Click()

  End '退出系统

  End Sub

  Private Sub Form_Load()

  For I = 0 To 3

  Label1(I).BackStyle = 0 '使标签透明

  Next I

  End Sub

  是不是很简单!!


  以上是“VB用Access数据库成立用户登录[Access防范]”的内容,如果你对以上该文章内容感兴趣,你可以看看七道奇为您推荐以下文章:
  • VB用Access数据库成立用户登录
  • 本文地址: 与您的QQ/BBS好友分享!
    • 好的评价 如果您觉得此文章好,就请您
        0%(0)
    • 差的评价 如果您觉得此文章差,就请您
        0%(0)

    文章评论评论内容只代表网友观点,与本站立场无关!

       评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
    Copyright © 2020-2021 www.233122.com. All Rights Reserved .