精华内容
下载资源
问答
  • 2021-02-11 14:04:55

    本文主要说明如何利用VB结合数据库制作出系统登录界面。(效果如图一)

    (图一)

    该实例主要分为三大部分。

    一、数据库的创建:

    ①:在vb中选择“外界程序”\“可视化数据管理器”,新建数据库,并且保存到程序文件目录下

    ② 在数据库窗口中单击右键,新建表。

    ③ 在“表结构”对话框表名称中输入“系统用户”,并且添加两个字段—“用户名\密码”

    ④ 添加索引,名称为“用户名索引”,在可用字段列表中双击“用户名”添加到索引的字段中,最后生成表。

    二、窗体设计

    可参照图一,进行窗体的简单设计。

    三、代码部分

    在书写的时候一定要细心,否则将错误百出。

    Option Explicit

    Const maxlogtimes As Integer = 3

    Private Sub cmdcancel_Click()

    Dim intresult As Integer

    intresult = MsgBox("你选择了推出系统登录,退出将不能启动管理系统!" & vbCrLf _

    & "是否真的退出?",vbYesNo,"登录验证")

    If intresult = vbYes Then End

    End Sub

    Private Function check_password(ByVal username As String,ByVal password As String) As Byte

    On Error GoTo gperror

    Dim objcn As New Connection,objrs As New Recordset,strcn As String

    Dim strsql As String

    objcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\实例2.mdb"

    objcn.Open

    strsql = "select 口令 from 系统用户 where 用户名='" & username & "'"

    Set objrs.ActiveConnection = objcn

    objrs.Open (strsql)

    If objrs.EOF Then

    check_password = 0

    Else

    If password <> Trim(objrs.Fields("口令").Value) Then

    check_password = 1

    Else

    check_password = 2

    End If

    End If

    objcn.Close

    Set objrs = Nothing

    Set objcn = Nothing

    Exit Function

    gperror:

    check_password = 255

    Set objrs = Nothing

    Set objcn = Nothing

    End Function

    Private Sub cmdok_Click()

    Static intlogtimes As Integer '保存用户请求登录次数

    Dim intchecked As Integer,strname As String,strpassword As String

    intlogtimes = intlogtimes + 1

    If intlogtimes > maxlogtimes Then

    '超过允许登录次数,显示提示信息

    MsgBox "你已经超过允许验证次数!" & vbCr _

    & "应用程序将结束!",vbCritical,"登录验证"

    End

    Else

    strname = Trim(txtusername.Text)

    strpassword = Trim(txtpassword.Text)

    '检验用户名和口令的合法性

    Select Case check_password(strname,strpassword)

    Case 0

    MsgBox "

    ">不是系统用户,请检查用户名输入是否正确!","登录验证"

    txtusername.SetFocus

    txtusername.SelStart = 0

    txtusername.SelLength = Len(txtusername)

    Case 1

    MsgBox "口令错误,请重新输入!","登录验证"

    txtpassword = ""

    txtpassword.SetFocus

    Case 2

    Unload Me

    MsgBox "登录成功,将启动系统程序!",vbInformation,"登录验证"

    Case Else

    MsgBox "登录验证未正常完场!,请重新运行登录程序," & vbCrLf

    End Select

    End If

    End Sub

    今天是高中最后一天,祝你们考个好成绩!

    总结

    以上是编程之家为你收集整理的VB\数据库--模拟系统登录界面全部内容,希望文章能够帮你解决VB\数据库--模拟系统登录界面所遇到的程序开发问题。

    如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。

    本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。

    如您喜欢交流学习经验,点击链接加入交流1群:1065694478(已满)交流2群:163560250

    更多相关内容
  • VB答题系统制作教程
  • 用VB制作登录界面

    千次阅读 2021-06-30 21:00:33
    打开VB,新建标准EXE工程,如下图 调整窗口大小,把backcolor属性调整为&H00FFFF00&,然后把form1窗口编辑成如下图的样子。 (注意:label控件的autosize属性要设为true,密码text输入框的...
    label控件5个
    textbox控件2个
    commandbutton控件5个

     

    打开VB,新建标准EXE工程,如下图

    调整窗口大小,把backcolor属性调整为&H00FFFF00&,然后把form1窗口编辑成如下图的样子。

    (注意:label控件的autosize属性要设为true,密码text输入框的passwordchar属性为*)

    接着,添加一个窗口,把窗口布置成如下图:

    像刚才那样,在添加一个窗口,把窗口布置成如下图:

    外观布置完毕,开始编写代码:

    form1各控件代码:

    Private Sub Command1_Click()
    If Text1 = "admin" And Text2 = "skadmin" Then
    Form1.Hide
    Form2.Show
    Else
    Form1.Hide
    Form3.Show
    End If
    End Sub

    Private Sub Command2_Click()
    Text1 = ""
    Text2 = ""
    End Sub

    Private Sub Command3_Click()
    End
    End Sub
    form2各控件代码:

    Private Sub Command1_Click()
    End
    End Sub

    form3各控件代码:
    Private Sub Command1_Click()
    Form3.Hide
    Form1.Show
    Form1.Text1 = ""
    Form1.Text2 = ""
    End Sub
    整个程序就编写好了,按F5键运行吧!

    展开全文
  • 如何用VB6.0编写一个用户登录系统

    千次阅读 2020-02-21 18:57:08
    工具/原料电脑VB6.0软件(没有的就去去下载一个)方法/步骤    进入VB6.0软件,双击“标准EXE”显示的页面如图。预设正确的用户名和密码为cxywlq和701213。    先从控件栏选择标签控件在form1...

    工具/原料

    • 电脑

    • VB6.0软件(没有的就去去下载一个)

    方法/步骤

    1.     进入VB6.0软件,双击“标准EXE”显示的页面如图。预设正确的用户名和密码为cxywlq和701213。

      在这里插入图片描述

          先从控件栏选择标签控件在form1窗体的相应位置画两个大小合的标签,再从控件栏选择文本框控件在form1窗体的相应位置画两个大小适合的文本框,然后再从控件栏选择按钮控件在form1窗体的相应位置画两个大小适合的按钮。

      在这里插入图片描述
    2.     选中(单击即可)窗体Form1,在右边的属性栏将Caption属性值改为“用户登录”;选中标签Lable1将Caption属性值改为“用户名”,选中标签Lable2将Caption属性值改为“密码”,属;选中文本框Text1,将Text属性值置空,选中文本框Text2,将Text属性值置空且将PasswordChar属性值改为“*”;选中按钮Command1,将Caption属性值改为“登录”,选中按钮Command2,将Caption属性值改为“重新输入”。然后调整各控件位置和大小,使整个窗体更加美观。

      在这里插入图片描述
      在这里插入图片描述
    3.     在右边右键点击“窗体”,选中“添加”,点击“添加窗体”,如图在出现的窗口里双击“窗体”,添加一个form2窗体;用同样的方法再添加一个form3窗体。   

      在这里插入图片描述
    4. 在form2窗体各添加一个标签和按钮。在标签的Caption属性值改为“恭喜您,登录成功!”也可以通过Font属性更改字体;按钮的Caption属性值改为“注销”。在form3窗体各添加一个标签和按钮。在标签的Caption属性值改为“您的用户名或密码输入错误”也可以通过Font属性更改字体;按钮的Caption属性值改为“重新登录”。
      在这里插入图片描述

    在这里插入图片描述

    在这里插入图片描述

    在form1窗体里,双击“登录”按钮,弹出代码窗口,写上代码(在编写代码时系统会自动检查代码错误,但不是万能的哦,有些错误系统检查不出来)然后关闭代码窗口,代码会自动保存。
    我把代码也写下来,以方便新手们复制粘贴验证一下。

    Private Sub Command1_Click()

    If Text1 = "aaa" And Text2 = "abc123" Then

    Form1.Hide

    Form2.Show

    Else

    Form1.Hide

    Form3.Show

    End If

    End Sub

    • 7

          在form1窗体里,双击“重新输入”按钮,弹出代码窗口,写上代码,然后关闭代码窗口。

      Private Sub Command2_Click()

      Text1 = ""

      Text2 = ""

      End Sub

    • 8

      在form2窗体里,双击“返回”按钮,弹出代码窗口,写上代码,然后关闭代码窗口。

      Private Sub Command1_Click()

      Form2.Hide

      Form1.Show

      Form1.Text1 = ""

      Form1.Text2 = ""

      End Sub

    • 9

      在form3窗体里,双击“重新输入”按钮,弹出代码窗口,写上代码,然后关闭代码窗口。

      Private Sub Command1_Click()

      Form3.Hide

      Form1.Show

      Form1.Text1 = ""

      Form1.Text2 = ""

      End Sub

    • 10

      至此,我们完成了编程,调试一下以检验程序的正确性。一种可以右键“文件”,再点击“调试”,另一种是直接点击调试按钮。

    • 11

      调试正确后可以生成工程了。点击“文件”,在下拉选项中选择“生成工程1.EXE”项即可生成可执行的exe文件,如果该项是灰色的,则先保存,,关闭VB,再打开VB。如果还是灰色的,则可能是安装VB6.0软件被破坏了,建议重装VB6.0。

    展开全文
  • VB托盘菜单实例,使用自己的窗体制作系统托盘右键菜单,从及实现气泡提示功能,程序提供了在系统托盘添加图标,气泡弹窗,在托盘弹出右键菜单,窗体置前,拦截系统消息等功能。而且自制的窗体充当右键菜单,可以...
  • vb与access制作的管理系统,需要数据库技术的可以好好研究!
  • VB自动出题题库系统设计(源代码+系统).rar
  • 物流管理系统用VB制作),是一个非常不错的东东,这里向大家推荐。
  • 用VB,NET制作的图形界面绩效考核系统,功能强大。 有管理员用户和打分用户,管理员用户可以查看打分,打分用户可以打分并查看。 每个季度打分一次,时间和系统当前的时间一致。 用VB.NET程序将绩效考核结果写入...
  • 制作的该系统可以实现教师进行 对学生的成绩管理添加学生用户以及可以查询学生的成绩还实现学生用户 通过登录系统可以查询到自己的各科课程成绩以及修改自己的登录密码还有 的是教师用户和学生用户可以退出系统 该...
  • 大学生信息管理 成绩录入 排名 个人信息管理 登录管理
  • 当您登录进入该系统,有两种不同的权限级别:管理员和浏览者。系统管理员的用户名是系统规定好的,为system,其权限包括系统维护、成绩表浏览、编辑、删除。而浏览者不能进行系统维护,也不能编辑和删除成绩表。
  • VB简单库存管理系统

    2018-07-19 11:55:59
    VB.NET做的库存管理系统,涉及采购、销售、生产、盘点。包含库存流水
  • 内容索引:VB源码,界面编程,对话框 VB制作多用途可的对话框,一种是可以自动关闭的对话框,设定时间,到时无需手动关闭;第二是打开一个始终居中的对话框;第三个是自定义对话框中的字体,系统字体随你选择。
  • VB获取系统字体

    2021-05-18 02:16:51
    VB获取系统字体,枚举方式获得系统字体,在程序窗口中点击按钮即可将获取到的系统字体名称显示在左侧列表中,暂时没有其它的功能,制作一些字体软件的朋友们,可参考哦。 运行环境:Windows
  • 教你用VB制作DLL

    2013-06-15 23:38:27
    教你用VB制作DLL,从制作到使用,再到把DLL写入系统全套教程[必须解压才能看]</H1>
  • VB 制作进度条ProgressBar源码,类似WEB风格的网页加载条动画效果,可为VB编程者提供源码参考。
  • 一个vb制作的全功能人事档案管理系统,后台数据库SQL2000,附加数据库即可使用。
  • VB6.0制作可显示系统时间的窗口状态栏,状态栏属于工具栏的一种,主要用于显示程序运行时的状态以及一些相关的信息,例如,在状态栏中显示登录程序的用户名、显示鼠标的位置。本实例显示系统的当前日期待时间,是VB...
  • 摘要:VB源码,系统相关,Excel报表 VB制作Excel报表并自动汇总输出,使用Excel制作报表的范例,几乎都是单纯地把数据输出到Excel,对有多年Excel使用经验的人来说,一点也不切合实际,可以归类为『为技术而技术』。...
  • EXCEL_VBA制作员工考勤系统源码 适用环境:EXCEL2003/2007/2010 大家下载下来,可以设置断点调适运行代码,学习VBA的编程。 也可以直接使用,这个是员工考勤系统
  • 一套专业的VB专业管理系统-包含源代码,使用说明: 1.软件所涉及的数据库分为四张表。 lesson kecheng zhuanye class 四张表所有操作均可在本程序中进行。 2.程序功能:a.班级、学期、专业及自由组合的查询。...
  • 用VB开发的酒店管理系统,课程:软件公车,数据库开发应用都可以
  • 摘要:VB源码,系统相关,MAC,机器码 VB利用网卡MAC制作机器码,本程序利用了获取MAC的方法和十六进制的方法相结合制作独一无二的机器码,很多程序都是使用这种方法来订做收费软件,这是一个商业用户用到的【机器码】...
  • 用VB制作双色球

    2021-07-07 14:31:15
    所需控件 label控件 8个 line 1个 comboBox 1个 commonandbutton控件 2个 VB6.0 1个 Windows操作系统 Windows7
    所需控件
    label控件8个
    line1个
    comboBox1个
    commonandbutton控件2个
    VB6.01个
    Windows操作系统Windows7

    首先,打开VB6.0精简版,新建标准EXE工程。

    然后建立1个label控件,label1caption属性为“双色球选号器”,在label1下面画一个line,borderwidth属性为5,再建立8个label,Label2~label8是存放号码的控件。

    然后在label控件下面画一个comboBox,用了存放抽到的号码。

    再建立两个commonandbutton控件,caption属性分别为开始选号、退出。

    把界面设计好,如下图:

    界面设计完毕,下面编写代码:

    声明:Option Explicit

    代码:Private Sub Command1_Click()    '开始选号
       Dim q As Integer
       Dim a As Integer
       Dim b As Integer
       Dim c As Integer
       Dim d As Integer
       Dim e As Integer
       Dim f As Integer
       Dim g As Integer
      
       For q = 1 To 7
          Select Case q
             Case 1
                 Randomize (Time)
                 a = Int(Rnd * 33 + 1)
                 Label2.Caption = a
             
             Case 2
                Do
                   Randomize (Time)
                   b = Int(Rnd * 33 + 1)
                Loop Until b <> Label2.Caption
                Label3.Caption = b
                
              Case 3
                Do
                   Randomize (Time)
                   c = Int(Rnd * 33 + 1)
                Loop Until c <> Label2.Caption And c <> Label3.Caption
                Label4.Caption = c
                
               Case 4
                Do
                   Randomize (Time)
                   d = Int(Rnd * 33 + 1)
                Loop Until d <> Label2.Caption And d <> Label3.Caption And d <> Label4.Caption
                Label5.Caption = d
      
               Case 5
                Do
                   Randomize (Time)
                   e = Int(Rnd * 33 + 1)
                Loop Until e <> Label2.Caption And e <> Label3.Caption And e <> Label4.Caption And e <> Label5.Caption
                Label6.Caption = e
      
               Case 6
                Do
                   Randomize (Time)
                   f = Int(Rnd * 33 + 1)
                Loop Until f <> Label2.Caption And f <> Label3.Caption And f <> Label4.Caption And f <> Label5.Caption And f <> Label6.Caption
                Label7.Caption = f
      
      
               Case 7
                  Randomize (Time)
                  g = Int(Rnd * 16 + 1)
                  Label8.Caption = g
               Case Else
            End Select
         Next q
            
             Dim w  As Variant      '在组合框内添加选出的号码
                w = a & "  " & b & "  " & c & "  " & d & "  " & e & "  " & f & "--" & g
             Combo1.Text = w
             Combo1.AddItem w, 0
             
            
      
      
    End Sub

    Private Sub Command2_Click()    '退出
    End
    End Sub
    程序做好啦,快来试试吧!

    展开全文
  • VB6.0简易答题器

    2021-05-16 00:35:52
    摘要:VB源码,数据库应用,答题器 VisualBasic6.0简易答题系统VB简易答题器是帮朋友做的一个设计,一个简单的VB+TXT程序,朋友有个设计展,不得不说她们学的太浅了,数据库的不讲,所以我这个小软件也就放弃了采用...
  • 内容索引:VB源码,系统相关,光标 VB制作窗体的动画光标,将鼠标移到窗体上,会看到光标变了样子,下是默认的箭头光标,而是变成了一个小动物,而且还是有动画效果的光标,有意思吧,对VB高手来说,这可能是一个小...
  • 登陆界面的制作 要想做好一个完整的登陆界面就需要到数据库,因为它们是一个整体,少了任何一样都没法说是一个完整的程序,我现在的这个还是不算完整的,我现在还没有想好里面的内容需要添加一些什么,我本来是...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 16,462
精华内容 6,584
关键字:

如何用vb制作登录系统