用vb设计一个用户登录界面
VB的一个用户登录实例
添加一个TEXTBOX控件,即文本框控件,(name)属性设置为txtpassword,passwordChar属性设置为 属性在右侧设置
vb用户怎么登录界面?用户登陆的代码是多少?
vb登陆程序源代码\\x0d\\x0a\\x0d\\x0a你可以这样做建一个模块在里面输入下列\\x0d\\x0aPublic conn As ADODB.Connection\\x0d\\x0aSub main()\\x0d\\x0a Set conn = New ADODB.Connection\\x0d\\x0a conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _\\x...
我想用VB做一个账号密码登录,要链接Access里面的账号密码表,求代码_百 ...
当次数超过3次,系统会自动保护退出 pnum = pnum + 1 MsgBox "用户名或密码错误!", vbInformation, "错误次数:" & pnum rs.Close cn.Close Text1.Text = "" Text2.Text = "" Text1.SetFocus Exit Sub Else MsgBox "用户名或密码错误超过三次,系统会自动退...
vb怎么制作一个登录班级选举系统
VB编写一个可以注册帐号的登录系统步骤:1)1)首先需要用数据库软件(如ACCESS软件)建立一个数据库,新建几个表,用以记录帐号密码的表、登录日志表和其他与此有关的所需要的表等。2)VB新建数据工程,此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。3)然后在FORM1窗体中添加ADO...
关于VB设计中一个用户登录界面的代码
我好像看出来一点问题,,,Adodc1.Recordset.Fields(1).Value对应是应该是数据库里的“密码”这个字段。而你是用Adodc1.Recordset.Fields(1).Value <> Combo1.Text 进行比较,肯定是比不来出什么正确的结果的,它俩天生就不相等。所以程序会继续向下运行。用户名应该 对应Adodc1.Recordset.Fields(0)....
用VB设计一个登陆界面,急!!!
设计一个登录界面,要求如下:如果未填写用户名和密码信息,要求弹出消息框进行提示。正确的用户名和密码都是admin,如果输入正确,则弹出消息框提示;如果输入错误,也弹出提示,并且如果输入出现错误达到3次,则关闭窗口。这是题目,很急!!!... 展开 爱露露的桃子 | 浏览2221 次 |举报 我有更好的答案推荐于...
VB 程序实例:设计登录程序,用户名(rain)和密码(345)匹配则进入下一个...
接着设计用户跳转的页面(可自己设计)欢迎界面 然后,回到form1,鼠标左键双击确定按钮,进入代码窗口,输入:If Text1.Text = "rain" And Text2.Text = "345" Then Me.Hide Form2.Show Else Msgbox "用户名称或密码错误",vbCritical, "提示"Text1.Text = ""Text2.Text = ""End If 代码...
想用VB做一个登陆界面如何和access相连接?
1、首先在部件-控件里找到MicrosoftADODataControl6.0,打勾,然后在窗体上添加Adodc1。2.添加两个文本输入框text1,text2,分别用来接收用户输入用户名和密码。3、在Adodc1控件的属性窗口中单击Connectionstring右侧的…按钮,打开ADO的属性页,选择“使用连接字符串”,单击“生成”按钮,打开数据链接属性...
如图,用VB做一个登陆器,用户信息在SQL2000数据库中,服务器IP:127.0.0....
这是用Adodc控件连接数据库的示例 Private Sub Form_Load()'这是窗体开始运行的代码 Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=SQL的密码;Initial Catalog=BB;Data Source=127.0.0.1" '这里password=SQL的密码意思是输入你安装SQl的时候设置...
如何用VB做一个网吧登录界面,接管XP的登录窗口。用其它什么语言能开发...
首先 你应该尝试一下 破解版的网吧收费软件 万象 PUBWIN 都可以试试 思路就是在 开机启动项里添加一个客户端进程 进程打开后会全屏 强制窗口在所有程序窗口前 输入正确的用户名和密码后 进程会关闭 关闭时调用下一个进程 该进程提供结账 下机 这里最麻烦的是需要联系收银台 你必须写一个数据...
临海市理新回答: 用VB新建一个工程,在窗体Form1上画两个label控件,一个是Label1一个是Label2,把Label1的Caption属性设为“用户名”,Label2的Caption属性设为“密码”,然后分别在这俩Label右边各画一个textbox控件,一个叫Text1,一个叫Text2,把...
缑步19544941470问: 用VB设计一个登陆界面,急!!! - ?
临海市理新回答: Private Sub Command1_Click() Static i As Integer If Text1.Text = "" And Text2.Text = "" Then MsgBox "请输入用户名和密码", vbOKOnly, "提示" Text1.SetFocus Exit Sub End If If Text1.Text = "admin" And Text2.Text = "admin" ...
缑步19544941470问: 用VB写一个登陆界面 ?
临海市理新回答: Public conn As New SqlConnection("server=(local);database=student;Integrated ... Open Then conn.Close() End If 次用户名的话可以用SQL检查约束设置,弄一个触发器...
缑步19544941470问: VB的程序设计,设计一个登录窗体,并实现登录功能 - ?
临海市理新回答: 添加一个按钮“更改密码更改密码” 点一个弹出窗体,三个选项卡的三个文本框,先输入旧密码,旧密码不正确,错误对话框弹出,如果您,密码,旧密码着陆系统提供一个菜单项就行了有很多的方法来看待自己的生活习惯...... / a> 我这台机器没有安装VB不写代码
缑步19544941470问: 用VB设计一个登录界面 - ?
临海市理新回答: ''''''以下登录界面Dim t As Integer, s As Integer Private Sub Form_Load() t = 0 s = 10 Timer1.Interval = 1000 Timer1.Enabled = FalseEnd Sub Private Sub Command1_Click() '确定按钮 Timer1.Enabled = False s = 10 If Text1.Text"经理" Or ...
缑步19544941470问: 如何用VB设置一个登陆界面? - ?
临海市理新回答: Dim label(1) As label Dim WithEvents text2 As TextBox Dim WithEvents text1 As TextBox Dim WithEvents command1 As CommandButton Dim WithEvents command2 As CommandButton Private Sub Form_Load() Set label(0) = Me.Controls.Add...
缑步19544941470问: 用VB创建一个登陆界面,X - ?
临海市理新回答: 在窗体上再画出一个按钮也就是CommandButton控件双击那个按钮来到代码窗口,写上如下代码Private Sub Command1_Click()If txtName.text = "guest" and passwordchar.text = "...
缑步19544941470问: 求一个用vb程序设计的用户登陆界面代码 - ?
临海市理新回答: Private Sub Command1_Click() If Text1 = "" Or Text2 = "" Then MsgBox ("你的输入不完整,请重新输入") End End If End Sub
缑步19544941470问: vb语言写一个登入界面 - ?
临海市理新回答: '添加好控件,把代码复制到窗体模块可以了吧.'label1,Label2,Text1'Command1:确定,command2:重输 Private Sub Form_Load() Text1.PasswordChar = "*" Text1.MaxLength = 6 Command1.Enabled = False Command2.Visible = False ...
缑步19544941470问: VB语言..设计一个登陆界面....?
临海市理新回答: Dim x As Integer Private Sub Command1_Click() If Text1.Text = "admin" And Text2.Text = "admin" Then MsgBox "验证成功!" ElseIf x = 3 Then MsgBox "非法用户!" Else MsgBox "密码或账号错误!" x = x + 1 End If End Sub 有何不懂请问~ ^ _ ^