精华内容
下载资源
问答
  • 如何用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登陆界面代码!复制到vb中即可使用。让初学者一看就懂,此代码直接连接数据库的,非常适合初学者和高级学者。
  • vb登录界面编写

    千次阅读 2019-05-12 16:27:29
    VB 登录界面编写 登录界面展示(此篇只有登录代码) 登录代码 Private Sub Command1_Click() 'command1是登录的按钮 Dim no,np, np,np, i%, j%, b%, p% b = 0 p = 0 If Text1.text = “” Then 'text1是用户名的...

    VB 登录界面编写

    登录界面展示(此篇只有登录代码)
    登录界面展示
    登录代码
    Private Sub Command1_Click() 'command1是登录的按钮
    Dim no , n p , np ,np, i%, j%, b%, p%
    b = 0
    p = 0
    If Text1.text = “” Then 'text1是用户名的label
    MsgBox (“请先输入用户名!”)
    Text1.SetFocus
    End If
    If Text2.text = “” And Text1.text <> “” Then 'text2是密码的label
    MsgBox (“请输入密码!”)
    Text2.SetFocus
    End If
    If Text1.text <> “” And Text2.text <> “” Then
    b = 1
    End If

    If b = 1 Then
    Open “” & App.Path & “\save.txt” For Input As #1 '打开存储用户名及密码的文件夹并使用相对路径 app.path
    j = 0
    Do While Not EOF(1)
    Input #1, no
    If Text1.text = no Then
    j = 1
    Exit Do
    End If
    Loop
    If j = 0 Then
    MsgBox (“您还不是已注册用户,请先注册!”)
    Text1.text = “”
    Text2.text = “”
    Else
    p = 1
    End If
    Close #1
    Else
    End If

    If p = 1 Then
    Open “” & App.Path & “\pipei.txt” For Input As #1
    i = 0
    Do While Not EOF(1)
    Input #1, np
    If Text1.text + Text2.text = np Then
    i = 1
    Form2.Show
    Unload Me
    Exit Do
    End If
    Loop
    If i = 0 Then
    MsgBox (“密码错误!”)
    Text2.text = “”
    End If
    Close #1
    Else
    End If
    End Sub

    Private Sub Command2_Click()
    Label5.Caption = “”
    Form3.Show
    Unload Me
    End Sub

    Private Sub Form_Load() //设置各个label、command、text的大小
    Label1.Left = (Me.ScaleWidth - Label1.Width) \ 2
    Label2.Left = (Me.ScaleWidth - 0.8 * Label3.Width) \ 2
    Label3.Left = (Me.ScaleWidth - Label3.Width) \ 2
    Command1.Left = (Me.ScaleWidth - 2.5 * Command1.Width) \ 2
    Command2.Left = (Me.ScaleWidth + 0.5 * Command2.Width) \ 2
    Text1.Left = (Me.ScaleWidth - Text2.Width + 500) \ 2
    Label5.Left = Text1.Left + 400
    Label4.Left = Label2.Left
    Text2.Left = Text1.Left
    Label7.Left = (Me.ScaleWidth - Label1.Width) \ 2
    End Sub

    Sub Text1_KeyPress(KeyAscii As Integer)
    Dim f%
    f = 0
    If KeyAscii = 13 Then
    If IsNumeric(Text1) Then
    Text1.text = “”
    MsgBox (“用户名中不得包含数字!”)
    Text1.SetFocus
    f = 1
    End If
    If f = 0 And Text1.text = “” Then
    Text1.text = “”
    MsgBox (“请输入用户名!”)
    End If
    If f = 0 And Text1.text <> “” Then
    Text2.SetFocus
    End If
    End If
    End Sub
    Private Sub Text1_LostFocus()
    If IsNumeric(Text1) Then
    Text1.text = “”
    MsgBox (“用户名中不得包含数字!”)
    Text2.SetFocus
    End If
    End Sub

    Private Sub Text2_GotFocus()
    If Text1.text = “” Then
    Text1.text = “”
    MsgBox (“请输入用户名!”)
    End If
    Label5.Caption = “密码的长度不得超过8位!”
    Text2.Locked = False
    Text2.PasswordChar = “*”
    End Sub
    Private Sub Text2_LostFocus()
    If Text1.text = “” Then
    MsgBox (“密码错误!”)
    Text2.text = “”
    End If
    End Sub

    Private Sub Timer1_Timer() //界面展示上有个闹钟按键 可以显示当前时间
    Timer1.Interval = 1000

    **label7.Caption =now()**
    

    End Sub

    展开全文
  • 基于VB车辆管理系统

    2019-03-19 22:35:23
    1. 程序采用VB(开发语言) + Access(数据库) 开发。 2. 快速找车、车型参数、车型对比、用户管理、我的信息、系统帮助 六大模块。 3. 快速找车查询条件有(车型、级别、排量、价格区间) 支持复合查询,修改,添加...
  • vb登录代码

    2019-05-06 14:50:54
    vb连接数据库登录窗口,可连接最新版access
  • 学生信息管理系统(vb)源代码学生信息管理系统(vb)源代码学生信息管理系统(vb)源代码学生信息管理系统(vb)源代码学生信息管理系统(vb)源代码学生信息管理系统(vb)源代码学生信息管理系统(vb)源代码
  • Vb实现OA系统登录界面

    2021-05-07 05:57:33
    摘要:VB源码,界面编程,登录助手 使用vb程序给自己oa系统做了个简单的登录程序,程序编译及运行需要XPEngine.ocx控件,产生XP风格的窗体界面。也可称为是一个登录助手。
  • 摘要 图书馆管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的...本系统分用户登录、图书查询、借还图书,系统管理等四大功能模块。其中图书查询功能分为模糊查询、直接查询、多条件查询;系统管理则包括
  • 本套工资管理系统功能都挺实用,可实现员工工资资料录入、工资查询、用户管理、系统登录、数据备份与恢复、报表相关操作、工资数据修改、统计部门员工工资情况、参照数据管理、员工资料管理、员工花名册等。...
  • 简单的VB登录窗体

    2021-05-18 06:24:06
    摘要:VB源码,界面编程,登录窗体 向VB6初学者共享一个简单的VB登录窗体制作实例,在编写中小型信息系统的时候,这是个必不可少的小模块哦,本源码演示了用户点击“登录”窗口到判断登录信息、最后给出登录提示的全部...
  • 内容索引:VB源码,系统相关,用户名 VB监测系统登录的用户,并列出这些信息,本程序仅适用于只适用于Win NT/2000。
  • VB+MSSQL登录系统

    2014-03-18 22:29:12
    可以供大家参考的!登录系统
  • VB制作的一个登录系统 比较简单易懂 有源代码 代码里有注释 适合新手
  • 命名规范,注释详细,能看出整体思路和学习过程,且能顺利运行,若有疑问,欢迎来我的博客(http://blog.csdn.net/sun15732621550)进行交流~
  • vb,access数据库登录实例源代码.
  • vb的窗体设计,对于制作比较交单的窗体的设计的开发有一定的帮助,毕竟这个事用数据库的东东。
  • 3、可以设置,修改,增加教师信息,也可以批量增加教师信息,批量增加的教师姓名都是教师编号,可以教师登录后台后自己修改姓名等信息 4、可以设置,修改,增加班级信息,但是班级必须隶属于某个院系,有班级后才...
  • VB源码 系统登录

    2013-04-14 10:25:33
    VB源码 系统登录,相互学习,请大家多多指点。
  • VB基于Access数据库开发编写的企业人事管理系统,可适用于公司、厂矿等企业使用,登录初始用户Admin,密码为空!数据库密码为:cjw123456,程序包括一些统计信息,可查询、登记员工信息,进行工资核算等功能,非常...
  • VB6.0公司人事信息管理系统完整源码,功能模块:系统登录及帐号修改;基本信息维护、员工考勤管理、工作评价管理、工资管理等,每个模块中有很多子功能,可满足一般性公司、企业的人事管理,数据库为了移植方便,...
  • 一款由VB6.0结合SQLServer2000数据库编写的产品销售管理系统,源代码比较完整,截图为登录界面。SQL2000数据库脚本文件在SQL目录里。这款销售系统已开发的功能有:产品信息录入、产品管理、查询与打印,金额汇总、...
  • 内容索引:VB源码,数据库应用,管理系统 小天使VB图片管理系统,使用Access数据库,用了不少的用户控件和方法类,源代码及目录结构都比较规范,界面使用了控件,系统可以完成借书、还书、职工录入、书籍管理、图书...
  • 系统登录,系统登录是和数据库连接的登录,输入用户名和口令(VB6.0源代码编写)
  • 这是一个学生信息管理系统分为教师与学生登录管理系统
  • 基于操作员和管理员不同权限,分别打开不同的窗口。
  • 像QQ一样,记住用户名和密码。
  • VB6.0社区医疗保险管理系统,窗体设计方面使用了VsMenu64.ocx控件。这套系统的功能如下:  系统管理(增加用户、修改密码)  名单管理(新增、删除、修改、查询)  数据库管理(数据库备份、恢复)  ...
  • 可选择登录类型的VB登录程序,就是登录的类型可以根据开发者的提供,让用户自己切换选择,比如本实例中,当用户登录前可选择是上班签到或是下班签到,选择后,进入的系统可能会不一样,当然类似的切换功能我们平时见...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 12,743
精华内容 5,097
关键字:

vb做登录系统