如图，用VB做一个登陆器，用户信息在SQL2000数据库中，服务器IP：127.0.0.1，服务器名：AA
进企业管理器里面 先用Windows验证进去 在进到安全里面找到SA用户进行右键点击属性 在进行修改密码
你有没有数据库服务器？比如sql2000.如果你装的有MSDE数据库的话,sql2000版本正常运行任务栏有显示，中间有绿色的箭头。应该先设置管家婆的服务器数据库连接参数，在里面添加数据库服务器名称（或者IP本机IP就是你写的127.0.0.1），在断开网线单机版的时候最好添加服务器名称（数据库服务器名称默认安装名称就是你的计算机名），SA密码，在登录客户端的时候也添加服务器名称。
这是用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的时候设置密码,没有密码的话password=就可以了
Adodc1.RecordSource = "select * from CC"
Adodc1.Refresh
End Sub
以上的代码是连接数据库并打开表的代码
Private Sub Command1_Click() '这是点击登陆按钮的代码
If Trim$(Text1.Text) = "" Then
MsgBox "帐号不能空", , ""
Exit Sub
End If
If Trim$(Text2.Text) = "" Then
MsgBox "密码不能空", , ""
Exit Sub
End If
Adodc1.Refresh
Do While Adodc1.Recordset.EOF = False
If Adodc1.Recordset("useID") = Text1.Text And Adodc1.Recordset("usePw") = Text2.Text Then
'帐号和密码正确时的代码..........
Exit Sub
End If
Adodc1.Recordset.MoveNext
Loop
MsgBox "帐号或密码不正确"
End Sub
'大概是这样了
用VB编写一个考勤登记表
Dim Late As Integer, Aarly As Integer, Absenteeism As Integer, AskLeave As Integer, Total As IntegerPrivate Sub Command1_Click() Dim AttendanceCase As String If Option1.Value Then Late = Late + 1: AttendanceCase = Option1.Caption If Option2.Value Then Aarly = Aarly +...
如何用VB做一个网吧登录界面,接管XP的登录窗口。用其它什么语言能开发...
首先 你应该尝试一下 破解版的网吧收费软件 万象 PUBWIN 都可以试试 思路就是在 开机启动项里添加一个客户端进程 进程打开后会全屏 强制窗口在所有程序窗口前 输入正确的用户名和密码后 进程会关闭 关闭时调用下一个进程 该进程提供结账 下机 这里最麻烦的是需要联系收银台 你必须写一个数据...
想用VB做个登陆窗口,要请求有验证码,验证码怎么做??
Dim b, i, num As Integer, a As String a = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" i = Int(Rnd * 51) + 1 b = Mid(a, i, 2) num = Int(Rnd * 99) If num < 10 Then Print b & num & 0 Else Print b & num End If 给你做个参考，实际验证码比这个要...
我想用VB做一个账号密码登录,要链接Access里面的账号密码表,求代码
Option Explicit Dim pnum As IntegerPrivate Sub XPButton1_Click() On Error GoTo finish '防错代码，防止意外而导致的退出 sql = "select * from 用户管理 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'" cn.ConnectionString = "Provider=Microsoft...
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设计登陆窗体的源码和步骤
新建一个类模块，添加如下代码 Public g_Conn As Connection Public g_UserName As String Public g_ShowDate As Date Sub Main()Dim msg As String On Error Resume Next 'msg = ConnectToDatabase("数据库名")msg = ConnectToSQLServer("localhost", "数据库名", "sa", "")If msg <> "...
这是VB中做一个登陆界面的代码,提示子程序或函数未定义
Dim mystrDataRecord, UName, PWord As String 这一句放在最外面。CloseData 这个子程序在哪里？你仿佛没有这个子程序。
vb怎么制作一个登录班级选举系统
VB编写一个可以注册帐号的登录系统步骤：1）1）首先需要用数据库软件（如ACCESS软件）建立一个数据库，新建几个表，用以记录帐号密码的表、登录日志表和其他与此有关的所需要的表等。2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。3）然后在FORM1窗体中添加ADO...
我用vb设计一个登录系统,用到一个command控件,两个text文本框,数据库...
这样吧，假设你的数据库文件名叫"real.mdb"，且你在引用中引用了正确的项 文本框为Name1,Pass1，按钮为Command1 在类模块中加入如下变量定义 Public conn As ADODB.Connection '数据库连接 Public res As ADODB.Recordset '记录集 在类模块中加入如下代码 Function oc() '打开连接 Set conn =...
VB做一个登录提示框
因为先执行了上面的else了、所以显示错误、、、但是下面还是能显示form2、、、你想想是吗？If Combo1 = "[吧主]空白君" And Text2.Text = "4571" Then Form2.Show Else If Combo1 = "[吧务]控君" And Text2.Text = "123456" Then Form2.Show Else MsgBox "密码错误", 16, "提示"End...
延浦安万： 进入VB6.0软件,双击“标准EXE”显示的页面如图.预设正确的用户名和密码为aaa和abc123.先从控件栏选择标签控件在form1窗体的相应位置画两个大小适合的标签,再从控件栏选择文本框控件在form1窗体的相应位置画两个大小适合的文...
裕华区13811898161： 用VB做一个登陆界面 用户名 密码 验证码 点确定按钮跳转到一个界面 - ？
延浦安万： Private Sub Command1_Click() If text3.Text = mYZ Then xxx Else xxx End If End Sub Private Function mYZ() mYZ = xxx End Function
裕华区13811898161： 用vb做系统的一个登录界面,要求用户输入的用户信息与数据库中的信息 - ？
延浦安万： 创建一个窗体,然后方式三个输入控件,下面函数中的变量就是要输入,其中sDBName可以不需输入,默认为master:SQLServer服务器名用户名密码Public Function MSSQLServer(ByVal sDBName As String) As String MSSQLServer = ＂Driver...
裕华区13811898161： 用VB制作一个简易的网页登陆器 - ？
延浦安万： 你是直接在VB中加载登录窗口进行登录,还是在浏览器中做插件进行登录? 在VB中进行登录: '函数功能: 登陆网页 '输入参数: WB:webbrower控件,sURL:网址,OverTime:超时时间,UserName:用户名,UserPWD:用户密码,...
裕华区13811898161： 如何用VB做一个用户登录界面 要连接数据库吗? 求大神请教 有界面最好了 大神 大神 急........ - ？
延浦安万： 登录功能无非是要把输入的信息与正确的信息对比,相同则允许登录,否则就禁止登录并给出提示.所谓“正确的信息”,当然是事先保存在某个地方.除了用数据库保存信息以外,少量的文本信息可以用纯文本文件保存,用程序可以直接读写,有时候这种方法比用数据库更方便灵活.
裕华区13811898161： 如何用VB编一个登陆器 - ？
延浦安万： 其实用不着什么数据库,不用数据库一样可以编写出来,但是就是麻烦点 if text1.text = ＂abc＂ and text2.text = ＂cba＂ then 同上 写二十遍 abc与cba 为用户名与密码 就OK了 如果想使用可以修改和创建账户的话,那就的使用数据库了
裕华区13811898161： 用VB做登陆系统,如何在显示出来的窗体获取用户信息 - ？
延浦安万： 你在第一个窗体的Unload里加上往第二个窗体写信息的语句就行了~ 比如这个写在Form1的代码里Private Sub Form_Unload(Cancel As Integer) Form2.Text1.Text = Text1.Text End Sub当Form1关闭时,Form2的Text1里显示的就是Form1的Text1里的信息. 这样应该可以了吧~
裕华区13811898161： VB制作网站登陆器 - ？
延浦安万： 第一行代码的意思是你的帐户名不能为空,否则不能链接到网址 第二行代码的意思是你的密码不能为空,否则不能链接到网址 第三行代码的意思是定义一个字符串,第四行代码的意思是把帐户名和密码转换成数据库查询语句 第五行代码的意思是如果帐户名和密码都正确,就链接网址
裕华区13811898161： 用VB编写一个登陆界面(急!!) - ？
延浦安万： vb6加窗体选登录对话框cmdOK_Click 代码改dim cnn as new adodb.connectioncnn.open strcnn dim rs as new adodb.recordsetrs.open ＂select pwd from tbuser where username = ...
裕华区13811898161： VB写一个用户登录程序 - ？
延浦安万： 将焦点移到txtpassword文本框上.
