精华内容
下载资源
问答
  • vb卡发的简单用户登陆界面,只有简单的代码,界面也没有优化
  • 满意答案haofg5022013.11.28采纳率:56%等级:12已帮助:9741人给你一个VB链接数据库的代码第一步:工程--microsoft activex data objects2.8 library '引用这个第二步:就是下面的代码 复制进去,注意你的SQL有没有...

    满意答案

    02ae427d08e371d7e90d5b995e828d6d.png

    haofg502

    2013.11.28

    02ae427d08e371d7e90d5b995e828d6d.png

    采纳率:56%    等级:12

    已帮助:9741人

    给你一个VB链接数据库的代码

    第一步:工程--microsoft activex data objects2.8 library '引用这个

    第二步:就是下面的代码 复制进去,注意你的SQL有没有密码这些,自己配置好

    Public Sub ConnData()

    Ip_Addess = "127.0.0.1"

    Set conn = New ADODB.Connection

    SQLServerName = Ip_Addess & ",1433" '服务器名称或IP地址

    SQLDBUserName = "sa" '数据库帐号

    SQLDBPassword = "13515239593" '数据库密码

    SQLDBName = "441698" '数据库名称

    conn.Open "Provider=sqloledb;user id=" & SQLDBUserName & ";password=" & SQLDBPassword & ";initial catalog=" & SQLDBName & ";data source=" & SQLServerName & ";"

    End Sub

    第三:打开数据是 直接这样调用

    idinfo.Open sqlstr, conn, adOpenForwardOnly, adLockReadOnly

    备注:上面的代码我一般都是这样写的个人爱好:rs.open sql,conn,3,3

    10分享举报

    展开全文
  • PassWord$, UserLevel$ Public LoginYn As Boolean Public Rtn&, ErrPass& Sub Main() MsgTitle = "数据库登录练习" '项目名称赋值给变量 MsgTitle '禁止两次运行本程序 If App.PrevInstance Then Call MsgBox(...

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

    '**************************************** Module1.bas 模块代码

    '工程 上面按下右键 工程1属性 设定以 Main 启动

    Option Explicit

    Public Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long

    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long

    Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

    Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

    Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

    Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

    Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

    Public CONN As New ADODB.Connection '定义数据连接字符串

    Public RS As New ADODB.Recordset '定义记录集

    Public Const WS_EX_LAYERED = &H80000

    Public Const GWL_EXSTYLE = (-20)

    Public Const LWA_ALPHA = &H2

    Public Const LWA_COLORKEY = &H1

    Public Const vbKeyAlt = vbKeyMenu

    Public AppDisk$, DataDisk$, DB$, MsgTitle$, UserName$, PassWord$, UserLevel$

    Public LoginYn As Boolean

    Public Rtn&, ErrPass&

    Sub Main()

    MsgTitle = "数据库登录练习" '项目名称赋值给变量 MsgTitle

    '禁止两次运行本程序

    If App.PrevInstance Then Call MsgBox("对不起本程序已在运行中, 不得重复加载!!", vbCritical, MsgTitle): End

    AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") '本地路径赋值给变量AppDisk

    DataDisk = AppDisk & "Data\" '将本地路径下的DATA文件夹赋值给变量DataDisk

    If Dir(DataDisk, vbDirectory) = "" Then MkDir DataDisk '如果DataDisk变量指定的文件夹不存在则创建它

    MainForm.Show '运行主程序MainForm

    Log.Show '运行登录程序Log

    End Sub

    '以搜索关键字词在数据库某个表,某个字段查找 返回真或假的副程序

    Public Function SearchDATA(TMPRS As Object, SchZD As String, SchData As String) As Boolean

    On Error Resume Next

    SearchDATA = False '初始查找变量 SearchDATA为 假

    TMPRS.MoveFirst '查找到之后 记录移到第一笔

    TMPRS.Find SchZD & " = " & Chr(39) & SchData & Chr(39)

    If Not TMPRS.EOF Then SearchDATA = True '如果查找到 则 SearchDATA函数返回 真

    End Function

    Public Sub RoundWin(Tform As Object, WW&, HH&) '创建圆角窗体的副程序

    Dim W&, H&

    On Error Resume Next

    W = Tform.Width \ Screen.TwipsPerPixelX '将窗体的宽度除以屏幕每个像素点的值(15) 转换为像素,带入变量W

    H = Tform.Height \ Screen.TwipsPerPixelY '将窗体的高度除以屏幕每个像素点的值(15) 转换为像素,带入变量H

    SetWindowRgn Tform.hwnd, CreateRoundRectRgn(0, 0, W, H, WW, HH), True '以带进之参数WW与HH创建窗体圆角

    Tform.Move (Screen.Width - Tform.Width) \ 2, (Screen.Height - Tform.Height) \ 2 '窗体居于屏幕中心

    End Sub

    Public Sub CleanAll() '结束程序退出的副程序

    On Error Resume Next

    '关闭所有打开的窗体并释放对象

    Dim TmpFrm As Form

    For Each TmpFrm In Forms

    Unload TmpFrm

    Set TmpFrm = Nothing

    Next

    End '结束程序退出

    End Sub

    展开全文
  • 本文主要说明如何利用VB结合数据库制作出系统登录界面。(效果如图一)(图一)该实例主要分为三大部分。一、数据库的创建:①:在vb中选择“外界程序”\“可视化数据管理器”,新建数据库,并且保存到程序文件目录下② ...

    本文主要说明如何利用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+access的用户登录界面设计,很值得学习
  • 以下是模块 :: Public con As New Connection '定义数据连接,公共变量 Public coon, coom As String Public str As Currency Sub main() ChDir ... 请登录后再发表评论! ◆◆ 修改失败,请稍后尝试

    ba61073b883c003cad734688ae62736d.png

    以下是模块 ::

    Public con As New Connection '定义数据连接,公共变量

    Public coon, coom As String

    Public str As Currency

    Sub main()

    ChDir App.Path '转换相对路径

    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xx.mdb;Persist Security Info=False"

    '定义数据库连接,xx为数据库名

    con.CursorLocation = adUseClient '以客户端的方式打开

    con.Open  ' 打开连接

    frm_学校上报表.Show'这个是登陆窗体名

    End Sub

    以 下为登陆窗体代码:

    Dim rec As New Recordset

    Dim rs As New Recordset

    Private Sub Command1_Click()

    If (Text1.Text = "") Or (Text2.Text = "") Then

    MsgBox "用户名和密码不能为空!", vbOKOnly, "错误"

    Exit Sub

    End If

    coon = Text1.Text

    coom = Text2.Text

    sql = "select * from dl where gly='" + coon + "' and mm='" + coom + "'"  gly是登陆表里的用户名字段..mm为表里的密码字段..

    Set rs = con.Execute(sql)

    If rs.EOF Then

    MsgBox "用户名和密码错误!", vbOKOnly, "错误"

    Text1.Text = ""

    Text2.Text = ""

    Text1.SetFocus

    Exit Sub

    Else

    Unload Me

    frmmain.Show

    End If

    End Sub

    你参考一下吧

    也可以在加个权限字段...用判断..if 。。。then....不为超级管理员的不让进入系统..重要部分

    --------------------------签名档----------------------

    http://www.huaianyingyuan.com  http://www.0517kk.com

    http://www.8meinv.com   http://www.huaianyingyuan.com/bbs/

    http://fengxiong.tbwtb.com  http://qudou.tbwtb.com

    http://dianshiju.haqvod.com

    http://quban.tbwtb.com    http://www.haqvod.com

    http://dsj.haqvod.com

    http://www.tbwtb.com    http://jianfei.tbwtb.com

    http://www.huaianseo.com http://zuixin.haqvod.com

    ◆◆

    评论读取中....

    请登录后再发表评论!

    ◆◆

    修改失败,请稍后尝试

    展开全文
  • 以下VB代码是我在做软件登录界面时的主要实现部分,其中对用户的登录次数进行了限制。代码中的Record 是数据库的记录集对象,其对数据库的链接是通过调用另外的一个模块来完成的. //定义静态变量用于统计用户的...
  • 我要做一个VB+SQL的图书管理系统,但是在用户登录窗口处被卡住了,求各位大虾们帮帮忙!界面上只用输入用户名和密码,数据库是tsglxt_Data,表名为user,表中用户名是userName,密码是passwo...我要做一个VB+SQL的图书管理...
  • & myreader("姓名").ToString.Trim & ")" Me.Close() FormMain.MenuStrip1.Visible = True FormMain.ToolStrip1.Visible = True If myreader("激活状态").ToString.Trim = "0" Then MsgBox("检测到该用户首次登录,...
  • PassWord$, UserLevel$ Public LoginYn As Boolean Public Rtn&, ErrPass& Sub Main() MsgTitle = "数据库登录练习" '项目名称赋值给变量 MsgTitle '禁止两次运行本程序 If App.PrevInstance Then Call MsgBox(...
  • 窗体界面设计简单的上机登录很简单,它首先需要在vb.net中新建项目,添加一个windows窗体应用程序。对于窗口界面的设计,主要根据用户的需求来做,用户至上嘛,在这里我就做了个简单的界面,主要以实现它的功能为主...
  • PassWord$, UserLevel$ Public LoginYn As Boolean Public Rtn&, ErrPass& Sub Main() MsgTitle = "数据库登录练习" '项目名称赋值给变量 MsgTitle '禁止两次运行本程序 If App.PrevInstance Then Call MsgBox(...
  • PassWord$, UserLevel$ Public LoginYn As Boolean Public Rtn&, ErrPass& Sub Main() MsgTitle = "数据库登录练习" '项目名称赋值给变量 MsgTitle '禁止两次运行本程序 If App.PrevInstance Then Call MsgBox(...
  • 图书管理登录界面   2 btncancel Button 取消   3 btndenglu Button 登录   4 lblbiaoti Label 图书管理系统   5 lblID Label 账号   6 lblpass Label 密码...
  • vb.net登录页面

    2018-06-29 10:13:22
    vb.net制作用户登录界面的思路和大致的代码,调试通过
  • VB.Net用户登录窗口设计

    千次阅读 2018-03-03 15:36:00
    基于mssql的vb.net窗体软件,一般在开始的时候需要设置登录窗口,只有在验证用户名+密码匹配的情况下,系统才会调出main界面以供使用。 具体的业务逻辑如下: 业务步骤处理如下: 1、首先新增窗体Login.vb, 并...
  • 界面清晰美观大方,菜单内容丰富容明了,适于初学者课程设计,还附有课程设计报告。
  • 例如,我们在登录界面输入用户名和密码后,可以在主界面显示欢迎用户的标语。 关键技术 如果需要在多个模块中公用一个变量,那么需要利用到标准模块。在标准模块顶部中用public关键词定义的变量,则可以在全局使用...
  • 一、 实验目标 1、 熟悉窗体及常用控件Label、...1、 设计一个用户登录界面,根本内容如下,外观可自由设计,尽量用你们学到的知识,设计出漂亮的界面;   Form2.Print "欢迎来到这里..."   2) 单
  • 后来连接数增加到上百个(800)左右,现在运行时偶尔会出现一个奇怪现象,一个用户登录时,登录后的界面竟然是另一个用户的(该用户多半是当前在线的),但是一旦进行某些操作后,比如查询、刷新等,就会恢复正常。...
  • 我的代码是连接到SQL数据库,输入用户密码,点登录,然后打开下一个界面,现在数据库是连上了,但IF语句无效,直接走ELSE,菜鸟一个,高手帮我改改~(这段代码原来连的是ACCESS数据源...我的代码是连接到SQL数据库,...
  • MsgBox "用户不存在,请重新输入!", vbOKOnly + vbExclamation, "错误" Text1 = "" Text1.SetFocus Else If Trim(rs_login.fields(1)) = Trim(Text2) Then rs_login.Close Unload Me Form2.Show ...
  • vb.net版三层登录

    热门讨论 2016-02-29 09:12:30
    2.UI实例化一个实体,并把界面数据创给实体,调用BLL的UserLogin方法。 3.实例化DAL层的DAO类,调用D层的SelectUser方法并判断用户是否存在 4.创建打开数据连接;把user清空,如果数据库中有要找的数据就把这些...
  • 假如:你的登录页面做的非常的不好看,而且用户登录的时间还长。这个会大大的影响到用户后面的功能体验,所以登录功能担任的非常重要的角色。 目录 界面: 流程图: 功能代码: 模块: 获取计算机名称:: ...
  • VB.NET版“三层登录”实例

    千次阅读 热门讨论 2013-03-05 17:46:22
    学习三层学习近一个月了,对于这块知识的学习,下面我已近期要做的项目机房收费系统的登录界面为例,检验一下我的三层学习:  实现功能:利用三层架构实现简单的用户登录,对于登录成功的用户要添加工作记录。  ...
  • 工作中有时需要对发出的Excel文件进行加密操作,避免文件中重要信息被不相关的人员获取。...今天我给大家分享一个高级点的,设置用户窗体登录界面。效果如下:怎么样,相对于自带的加密功能,是不是逼格...
  • vbvb.net事件机制

    千次阅读 2013-06-25 12:35:17
    学习java事件前,回顾了下vb6和vb.net的事件...比如在某登录界面中,单击一个按钮,系统会验证用户的用户名和密码是否正确。用户单击按钮后,按钮(事件源)发出了单击事件,产生了自己被单击的消息给窗体,窗体(事

空空如也

空空如也

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

vb用户登录界面