想用VB做一个登陆界面如何和access相连接?

作者&投稿:承哑 (若有异议请与网页底部的电邮联系)
~ 1、首先在部件-控件里找到MicrosoftADODataControl6.0,打勾,然后在窗体上添加Adodc1。
2.添加两个文本输入框text1,text2,分别用来接收用户输入用户名和密码。
3、在Adodc1控件的属性窗口中单击Connectionstring右侧的…按钮,打开ADO的属性页,选择“使用连接字符串”,单击“生成”按钮,打开数据链接属性对话框,在“提供程序”页中选择MicrosoftJet4.0OLEDBProvider,单击“下一步”,在“连接”页中,输入数据库名称XXXX.mdb(前提是将数据库文件和工程文件保存在同一目录下),单击“测试连接”,如果连接成功,单击“确定”即可。
4、将以下代码添加到登录按钮:
PrivateSubCommand1_Click()
Adodc1.RecordSource="select*from数据表名称whereusername='"&Text1.Text&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"没有这个用户,请重新输入正确的用户名",,"错误提示"
Else
IfText2.Text=Adodc1.Recordset.Fields("password")Then
MsgBox"登录成功!",,"错误提示"
Else
MsgBox"你的密码错误,请输入正确的用户密码!",,"错误提示"
EndIf
EndIf
EndSub


在vb中如何实现登录界面在运行后第一个出现
如果主界面是frmMain,登录界面是frmLogin(假设还有一个按钮cmd),则FrmMain的Activate过程中,写入 if lcase(frmlogin.cmd.caption)="待定" then frmLogin.Show frmMain.Hide end if 这样运行后,先呈现的是登录界面,然后登录界面处理完成后,将cmd的caption改掉(一定要改掉,不然会死循环的),再...

如何用VB做一个网吧登录界面,接管XP的登录窗口。用其它什么语言能开发...
这里最麻烦的是需要联系收银台 你必须写一个数据库 前台输入任意的账号和密码(或者前台点击开卡根据日期 数据库自动生成账号和密码) 成为一个 条目 该条目进入数据库 等待登陆计时 前台把账号密码给客户 客户登陆 客户端联系数据库 搜索 发现拥有对应条目(账号密码正确)进入客户机系统 而数据...

我编了一个vb的登陆界面,代码如下,不管我输入什么,总显示“用户名不存在...
Text1.Text = ""Text2.Text = ""Text1.SetFocus Else Form2.Show Unload Me End If End If End Sub 补充一句:做登录系统时,不要明确提示用户是用户名错误还是密码错误,要笼统地提示“用户名或密码错误”,这样别人想用猜测的方法破解你的登录系统时就无法知道究竟是哪个错误了,增加了猜测的...

vb如何做一个登录界面。
Private Declare Function icePub_checkLoginInfo Lib "icePubDll.dll" (ByVal strUserId As String, ByVal strPassword As String, ByVal strTitle As String) As Integer Dim a2 As Integer a2 = icePub_checkLoginInfo("admin", "112233", "请登录")If a2 = 0 Then MsgBox "验证成功"Else ...

求vb登陆界面代码,登陆成功进入新界面,求代码,最好带解释,谢谢,_百度知...
登录界面(form1)一个窗口,主界面(form2)一个窗口。启动窗口设置为登录窗口,然后在登录窗口的Form_Activate事件代码里加入 me.hide form2.show 在主窗口(form2)的Form_Activate的事件代码里加入 unload form1

VB中,如果登录界面的用户名称是jenny,密码是12345,点确定按钮就进入一个...
登陆界面为form1,加一个Text1,输入用户名,text2,输入密码,一个按钮,用来登陆,进入的主界面为form2,代码如下 Private sub command1_click()if text1.text="jenny" and text2.text="12345" then form2.show else msgbox ("用户名不存在或密码错误!")end if end sub ...

求VB登陆界面详细代码
'登陆成功 ' userName = Trim(Me.txtUser)Unload Me Form1.Show ' Call Sound("Login")Else MsgBox "密码错误!", vbCritical, "错误"Me.txtPwd.SetFocus Me.txtPwd.SelStart = 0 Me.txtPwd.SelLength = Len(Me.txtPwd)End If GoTo ExitSub ExitSub:intTryTimes = intTryTimes + ...

VB设计一个登陆(注册)界面
将以下代码复制到Form1.frm中,然后用vb打开Form1.frm。’代码开始 VERSION 5.00 Begin VB.Form Form1 Caption = "Form1"ClientHeight = 1260 ClientLeft = 60 ClientTop = 345 ClientWidth = 4065 LinkTopic = "Form1"ScaleHeight = 1260 ScaleWidth = 4065 StartUpPosition = 3 '窗口缺省 Begi...

用vb做一个登录的界面时,老是提示from子句语法错误,对象“refresh”的...
user 是保留字,要改一下SQL语句:Adodc1.RecordSource = "select * from [user]"

vb做一个登录界面,密码错误三次后退出,但是我做完之后输入错误3次依 ...
解决办法有两个:1,把a声明为模块级变量。2,在这个过程里做成实现3次循环的结构。要理解,通过控件,可视化编程,通过事件驱动,把循环简化成顺序结构了。可以这样理解,你每单击一次按钮,都在重复相同的程序。

乌拉特中旗13418216747: 想用VB做一个登陆界面如何和access相连接?
常常灯盏: 1、首先在部件-控件里找到Microsoft ADO DataControl 6.0,打勾,然后在窗体上添加Adodc1. 2. 添加两个文本输入框text1,text2,分别用来接收用户输入用户名和密码. 3、在Adodc1控件的属性窗口中单击Connectionstring右侧的…按钮,打...

乌拉特中旗13418216747: 像这个登录界面怎么用vb和access数据库编写,求大神指教!!! -
常常灯盏: 1)窗体上插入3个标签,2个文本框,14个按钮,1个隐藏的复选框,设置密码框的输入掩码为密码2)通过文本框的获得焦点事件设置隐藏复选框的值,以根据复选框的值确定当前被激活的是哪个文本框 Private Sub Text0_GotFocus() Me.Check...

乌拉特中旗13418216747: 用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" ...

乌拉特中旗13418216747: vb登陆界面连接ACCESS数据库 -
常常灯盏: 例:数据库名:user;表名:account;字段u_id,u_name,u_pass;界面:txtuname[用户名文本框],txtpass[用户口令文本框];程序主界面frmmain.frm. '------------验证登录代码------------ dim conn as new adodb.connection dim rs as new adodb....

乌拉特中旗13418216747: 用VB设计一个登陆界面,急!!!
常常灯盏: 用VB新建一个工程,在窗体Form1上画两个label控件,一个是Label1一个是Label2,把Label1的Caption属性设为“用户名”,Label2的Caption属性设为“密码”,然后分别在这俩Label右边各画一个textbox控件,一个叫Text1,一个叫Text2,把...

乌拉特中旗13418216747: 用VB做一个登陆界面
常常灯盏: Dim Rs As New ADODB.Recordset, Con As New ADODB.Connection Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() '设置全局变量为 false '不提示失败的登录 LoginSucceeded = False End End Sub Private Sub cmdOK...

乌拉特中旗13418216747: vb中如何设计登录界面怎么连接数据库 -
常常灯盏: (1)新建数据库并命名为denglu,在该数据库中新建表User1,表包含的列为“ID,username,pwd”.(2)设计登录界面Frmlogin,以及登录成功后要显示的界面Form2,并连接到数据库,使包含在数据库中的合法用户能成功登录该程序,而不合法用户则无法进入程序.

乌拉特中旗13418216747: VB制作登陆界面 -
常常灯盏: 首先添加microsoft DAO 3.6 Object Library Public db As DAO.Database Dim rs As Recordset Set db = OpenDatabase("数据库路径", True, False, "数据库密码") Set rs = db.OpenRecordset("select * from table1 where 帐号='" & ...

乌拉特中旗13418216747: 用VB做一个软件界面,怎么实现从登陆界面到主界面的衔接啊? -
常常灯盏: 比如登录界面是Form1,主界面是Form2,那么当在Form1中已经确认用户身份允许使用软件时,可以这样:Form2.ShowUnload Me也就是显示主界面,与此同时关闭登陆...

乌拉特中旗13418216747: 如何用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...

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网