精华内容
下载资源
问答
  • VB6做登录系统出错

    2016-02-14 19:27:18
    [color=#FF0000][b]有一个按钮(登录)[/b][/color] [color=#FF0000][b]当然还有一个Label1和一个Inet[/b][/color] Private Sub Command1_Click() Label1.Caption = Inet1.OpenURL(...
  • VB做的学生考试系统,自动生成学号、成绩,发布出来与大家共享,有不足之处请提出建设性意见建议,有不完整的后续补上。
  • vb.net管理系统的时候,后台的登录界面,可以分别判断用户名是否正确,密码是否正确。
  • 这个过程稍微有点麻烦,还是来回答一下吧问题的关键在于,如何实现VB与Access之间的链接,这里通过SQL语句来实现当然了,SQL语句也有很多包括检索(select)、排序检索(order by)、过滤(where)、插入(insert)等等........

    这个过程稍微有点麻烦,还是来回答一下吧

    问题的关键在于,如何实现VB与Access之间的链接,这里通过SQL语句来实现

    当然了,SQL语句也有很多包括检索(select)、排序检索(order by)、过滤(where)、插入(insert)等等......

    这个先不管,先来看看数据库

    数据库一看感觉很像excel,我们先新建一个表

    有三列,字段名分别是“ID”、“账户”、“密码”,在这里呢字段名可以是字母也可以是汉字(我是为了方便才用的汉字,不要学我)

    然后可以在下边添加信息(我这里已经添加了一条了),也可以在表名那右键进入“设计视图”去更改字段的更多信息。这些不是重点,不进行详述。

    这样一个简易的数据库就搭建好了,但要注意几点:①保存的时候要另存为保存成“.mdb”文件!原因好像是VB只兼容老版本的数据库格式。②数据库文件和vb的工程要保存在同一个文件夹里

    数据库搭建好后,回到VB,首先新建一个工程,接着,按顺序完成以下步骤:

    ①在“工程”-“引用”勾选“Mircrosoft ActiveX Data Object 2.5 Library”选项。

    ②在下图位置右键新建一个模块,双击模块进入代码输入窗口

    ③在代码窗输入以下代码(有地方需改动)

    Public gsConStr As String

    Public gcnCon As ADODB.Connection

    Public dataPath As String

    Public curDire As String

    Public curFile As String

    Public Const MainPassword As String = "000000"

    Public sql As String

    Public rstemp As ADODB.Recordset

    Sub main()

    Set gcnCon = New ADODB.Connection

    dataPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "我的2020.mdb" '修改相应的数据库名称

    gsConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dataPath & ";Persist Security Info=False"

    gcnCon.ConnectionString = gsConStr

    gcnCon.CursorLocation = adUseClient

    gcnCon.Open

    FrmDenglu.Show '修改相应的登陆窗体名称

    End Sub

    ④在“工程”-“属性”修改启动对象为“Sub Main”

    ⑤在登陆窗体上放上相应的控件(两文本框一按钮)

    ⑥进入代码编辑窗,输入以下代码(有地方需改动)

    Option Explicit

    Dim islogin As Boolean

    Private Sub Command1_Click()

    Dim x%

    sql = "select * from admin where 账户='" & Text1.Text & "' and 密码='" & Text2.Text & "'" 'SQL语句

    Set rstemp = gcnCon.Execute(sql) '执行SQL语句

    If Not rstemp.EOF Then '查找是否存在该账户及密码,如果存在

    islogin = True

    Unload Me

    FrmMain.Show '修改成相应主窗体,即登陆后想要见到的下一个窗体

    Else '如找不到所输入账户和密码

    x = MsgBox("用户名或密码错误!", 5, "提示")

    If x = 4 Then

    Text2.SetFocus

    Else

    End

    End If

    End If

    rstemp.Close

    End Sub

    ⑦保存,运行启动,查看代码是否有问题

    上面讲解的是一般系统登陆的方法,像题主所说的区分管理员和一般用户的方法有很多种,下面给两个解决方案:

    ①在数据库用户表中新建一个字段,用来存储登陆账户的身份信息,在登陆时拾取人员的身份信息,进行判断之后进入相应窗体。

    ②在数据库中,管理员和一般用户各一个表,在登陆界面多加两个组合的Option控件,让用户自行选择以什么身份进行登录,进行判断之后进入相应窗体。

    展开全文
  • Vb实现OA系统登录界面

    2012-08-09 11:15:12
    摘要:VB源码,界面编程,登录助手  使用vb程序给自己oa系统做了个简单的登录程序,程序编译及运行需要XPEngine.ocx控件,产生XP风格的窗体界面。也可称为是一个登录助手。
  • 摘要 图书馆管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的...本系统分用户登录、图书查询、借还图书,系统管理等四大功能模块。其中图书查询功能分为模糊查询、直接查询、多条件查询;系统管理则包括
  • VB编写的用户登录系统,是我同学的,感觉还不错,放上去和大家一起分享!!
  • vb.net机房收费系统系统登录

    千次阅读 热门讨论 2013-12-29 19:10:18
    这是第一次用vb.net写机房收费系统系统登录,用到了三层的知识,三天前当我正准备去着手做系统的时候,还不知道从那里下手,经过查资料,看博客自己也写出了一个登录的例子,通过这次能够了解了三层每一层的真正...

           这是第一次用vb.net写机房收费系统的系统登录,用到了三层的知识,三天前当我正准备去做着手做系统的时候,还不知道从那里下手,经过查资料,看博客自己也写出了一个登录的例子,通过这次能够了解了三层每一层的真正的含义,也为自己以后做机房收费系统做一个基础的开端

    'DAL层
    Imports System.Data.SqlClient
    Public Class LoginDAL
        Public Function LoginDALSelectUser(ByVal UserName As String) As Model.LoginModel
            '建立数据库连接字符串
            Dim LoginConn As New SqlClient.SqlConnection("server=yiqing-pc;database=charge_sys;user id=sa;password=******")
            '建立数据库命令字符串
            Dim LoginCmm As New SqlClient.SqlCommand("select userid ,pwd from user_info where userid='" & UserName & "'", LoginConn)
            '打开数据库
            LoginConn.Open()
            '定义一个数据库库读取方式
            Dim LoginReader As SqlDataReader
            '读取数据库中的内容
            LoginReader = LoginCmm.ExecuteReader
    
            Dim testUser As New Model.LoginModel
            If LoginReader.Read() Then
                testUser.userName = LoginReader.GetFieldValue(Of String)(0)
                testUser.passWord = Trim(LoginReader.GetFieldValue(Of String)(1))
    
                Return testUser
    
                LoginReader.Close()
                LoginConn.Close()
            Else
                Return Nothing
            End If
        End Function
    End Class
    

    'BLL层
    Public Class LoginBLL
        Public Shared Function isnullLoginBLL(ByVal UI_testUser As Model.LoginModel) As String
            Dim DAL_testUser As Model.LoginModel
            Dim BLL_user As New DAL.LoginDAL
    
            DAL_testUser = BLL_user.LoginDALSelectUser(UI_testUser.userName)
    
            '判断BLL_testUser.LoginDALSelectUser的返回值
            If DAL_testUser Is Nothing Then
                Return False
            End If
    
            If UI_testUser.passWord = DAL_testUser.passWord Then
                Return True
            Else
                Return False
            End If
        End Function
    End Class

     '系统登录UI层
        Private Sub BtnOk_Click(sender As Object, e As EventArgs) Handles BtnOk.Click
            '实例化一个ui层用到的实体类
            Dim UI_user As New Model.LoginModel
            '将输入的内容,赋给实例化对象
            UI_user.userName = txtUserName.Text
            UI_user.passWord = txtPassWord.Text
    
            '判断isnullLoginBLL(UI_user)的返回值
            If BLL.LoginBLL.isnullLoginBLL(UI_user) Then
                MsgBox("登录成功")
            Else
                MsgBox("登录失败")
            End If
    
        End Sub

    '实体层
    Public Class LoginModel
        Private MuserName As String
        Public Property userName() As String
            Get
                Return MuserName
            End Get
            Set(value As String)
                MuserName = value
            End Set
        End Property
    
        Private MpassWord As String
        Public Property passWord() As String
            Get
                Return MpassWord
            End Get
            Set(value As String)
                MpassWord = value
            End Set
        End Property
    End Class
    



    展开全文
  • 我要一个VB+SQL的图书管理系统,但是在用户登录窗口处被卡住了,求各位大虾们帮帮忙!界面上只用输入用户名和密码,数据库是tsglxt_Data,表名为user,表中用户名是userName,密码是passwo...我要一个VB+SQL的图书管理...

    我要做一个VB+SQL的图书管理系统,但是在用户登录窗口处被卡住了,求各位大虾们帮帮忙!界面上只用输入用户名和密码,数据库是tsglxt_Data,表名为user,表中用户名是userName,密码是passwo...

    我要做一个VB+SQL的图书管理系统,但是在用户登录窗口处被卡住了,求各位大虾们帮帮忙!

    界面上只用输入用户名和密码,数据库是tsglxt_Data,表名为user,表中用户名是userName,密码是password,窗口中输入用户名和密码的是两个文本框,分别命名为txtname和txtpsd.运行时要求是输入用户名和密码,然后检查数据库中是否有此用户名,再验证密码是否正确,正确则frmMain显示,只有三次登录机会!

    帮我写写这一部分的代码,最好要有注释!

    请大侠们帮帮忙,急用啊,采用后追加分!感激不尽!

    Dim conn As New ADODB.Connection

    Dim RS As ADODB.Recordset

    Dim SQlstr As String

    conn.Open "Provider=SQLOLEDB.1;Data Source=" & App.Path & "\data\tsjyxt_Data.mdf;Persist Security Info=False"

    SQlstr = "select * from user where userName='" & txtname.Text & "'"

    RS.Open SQlstr, conn, adOpenKeyset, adLockPessimistic

    If RS.EOF = True Then

    MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

    txtname.SetFocus

    Else '检验密码是否正确

    If Trim(RS.Fields("password")) = Trim(txtpsd.Text) Then

    Unload Me

    frmMain.Show

    Else

    MsgBox "密码不正确", vbOKOnly + vbExclamation, ""

    txtpsd.SetFocus

    End If

    End If

    展开

    展开全文
  • VB及ACCESS实现的超市管理系统,其中包括登录,员工,库存,销售,进货,供应商模块,还实现了权限管理功能。
  • vb做的人事管理系统

    2008-10-16 22:28:34
    自己的管理系统。其中登录界面用的是。ado对象操作。其他的连接是用的adodc1的控件连接。应该说是大家能看得懂的。连接数据库是用代码写的。还有数据库是access
  • - 之前的学生信息管理系统是改别人的代码。真是看着容易起来难呐!因为中间还隔了一个SQL书的学习,之前的问题基本都快忘了。还好朕有笔记~( ̄▽ ̄)~*今天自己敲代码,遇到的问题,应该说之前也遇到过,只不过造成...
    -

        之前的学生信息管理系统是改别人的代码。真是看着容易做起来难呐!因为中间还隔了一个SQL书的学习,之前的问题基本都快忘了。还好朕有笔记~( ̄▽ ̄)~*

    今天自己敲代码,遇到的问题,应该说之前也遇到过,只不过造成的原因不同,只能重新找解决办法。自己敲代码还是有很多好处的,起码能更了解各种问题的解决方式,注意到更多的细节。而且看别人的代码,即便解决了问题,在其他很多方面也只是一知半解。下面是我遇到的问题:

     

    1、访问数据库前重新配置ODBC数据源

     

    2、连接数据库 

     Dim cn As New ADODB.Connection  '连接数据库 

      Dim rst As New ADODB.Recordset   '创建数据集

     

        '连接数据库前重新配置ODBC

        cn.ConnectionString = "FileDSN=Logon.dsn;UID=sa;PWD=123 "   '连接数据库

     

    3、实时错误 3704 :对象关闭时,不允许操作

        这个可能只是没有打开数据库,打开数据库即可

     

    4、实时错误‘-2147217843 (80040e4d)’:用户‘sa’登录失败

     

    1、配置ODBC数据源时,登录名、密码、登录方式可能出现错误,重新配置数据源,信息与代码符合即可

         2、打开SQL Server ->安全性 ->登录名 ->sa ->状态 -> ‘登录’改为‘启用’

     

    5、实时错误‘3705’:对象打开时,不允许操作。

     strSQL = "select * from users where userId='" & txtUserName.Text & "'"

     Set rst = cn.Execute(strSQL) '执行查询语句

    将以上语句放到条件循环内部即可。若放在外面,则只读取表中第一个记录。

     

    转载于:https://www.cnblogs.com/hh0326/p/11341843.html

    展开全文
  • vb,sql的理财系统

    2010-05-20 15:55:14
    3)打开光盘中的"VB数据库开发实例解析"文件夹,将其中的"餐饮管理系统"文件夹考入机器内。 4)启动SQL Serve2000中的"企业管理器",然后建立一个名为"CYGLXT"的数据库。 5)执行SQL脚本。启动SQL Serve2000中的"SQL ...
  • 课设的 希望对那些初学者有些帮助 vb.net 开始有个登录 但是权限不是很好
  • 假如:你的登录页面的非常的不好看,而且用户登录的时间还长。这个会大大的影响到用户后面的功能体验,所以登录功能担任的非常重要的角色。 目录 界面: 流程图: 功能代码: 模块: 获取计算机名称:: ...
  • 系统能够实现课程查询,成绩查询,系统登录,打印成绩报表等功能,对用户权限的限制也有利用,程序界面美观。
  • 选课系统vb

    2012-07-15 12:18:14
    选课系统,主要实现教师登录,学生登录的有点简单了,包含数据库
  • vb做的宿舍管理系统,包括系统登录,退宿登记,舍长登记,学生评定,学生查询和修改,用户名和密码都是111
  • 今天用户登录的时候,智障了……--------------------------------------------------------------------------------- 友情提示: 登录的时候总提示密码错误, PrintIIf(Trim(rs.Fields("password"))=password,...
  • Dim dblink As New SqlCeConnection("Data Source=|DataDirectory|\人事管理系统.sdf") Dim selectstring As String selectstring = "SELECT password FROM 管理员 WHERE (usename = '" + TextBox1.Text + "')" ...
  • 窗体界面设计简单的上机登录很简单,它首先需要在vb.net中新建项目,添加一个windows窗体应用程序。对于窗口界面的设计,主要根据用户的需求来,用户至上嘛,在这里我就了个简单的界面,主要以实现它的功能为主...
  • 一个VB专业学生的课程设计作品,面向企业的商品进销存系统,基础功能都具备。登录密码:root 123.本进销存系统可完成数据查询、录入、浏览等,虽然功能不多,但要下来,用的VB知识和控件还真多。
  • VB6.0 办公用品管理系统,软件虽然界面简洁,但功能都很实用,而且还挺多的功能,可作为一个机构单位的办公用品管理,也可为商店的管理员使用。功能概况:基本信息设置、数据统计、系统管理、分类设置、部门设置、...
  • vb.net写机房收费系统

    2014-02-23 15:34:08
    这是第一次用vb.net写机房收费系统系统登录,用到了三层的知识,三天前当我正准备去着手做系统的时候,还不知道从那里下手,经过查资料,看博客自己也写出了一个登录的例子,通过这次能够了解了三层每一层的真正...
  • vb员工信息管理系统

    2012-05-11 23:41:28
    有用户登录界面、可以添加用户、修改密码、可以信息查询、查看、删除,修改等 很多信息、绝对满足毕业设计的要求、这是我自己
  • 程序开发软件: VB6.0中文企业版 数据库:access或sqlserver都支持 这里我用的sql2005数据库调试! 这个系统实现了用户登录 权限管理 图书信息添加,修改,删除,查询和导出excel打印! 麻雀虽小 五脏俱全
  • 程序开发软件: VB6.0中文企业版 数据库:access或sqlserver都支持 这里我用的sql2005数据库调试! 这个系统实现了用户登录 权限管理 图书信息添加,修改,删除,查询和导出excel打印!
  • 样品管理进销存系统 VB Access版,完整源码下载,对展会、博览会样品进行管理的一个进销存系统,方便工作人员对样品进行登记、出库、入库登记、样品查询、报表等...想做VB进销存系统的,这个源码是个挺好的参考范例。

空空如也

空空如也

1 2 3 4 5 ... 8
收藏数 155
精华内容 62
关键字:

vb做登录系统