登录代码: Option Explicit Dim yonghu As String Dim mima As String Private Sub cmdOK_Click() '检查正确的密码 If txtPassword = mima And txtUserName = yonghu Then '...
和上面的人差不多。他的比较准确。 dim texpassword as String texpassword="mypassword" if Trim(passtext.Text)<>texpassword then MsgBox "密码错误" else MsgBox"密码正确" End If
和你说一下思路吧!源文件在另一电脑上(没上网) 一、看你是以什么方式联到数据库的。 二、如果联到数据库当中去了，就有一张帐号表（帐号、密码字段） 三、在text.text当中输入帐号，然后再数据库中查询这个帐号（如果有，检查密码是否正确。如果不正确报错，退出。如果正确则装入主界面 ）
调用函数或语句
如果仅仅是连接部分的话，你可以这样写： Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb" 这句代码打开了D盘中的Main.mdb这个数据库。Connection.Open方法的第一个参数是连接代码，它将传递给系统...
****是MASK决定，对应的TEXT属性的值还是输入的原始字符
请问你说的权限是操作功能权限还是数据库操作权限？
系统没有安装vb，只能给你描述一下 过程。 --进入： 首先判断 输入用户名是否存在 “用户信息表” select * from “用户信息表” where user=?? if user=?? and password=?? then 进入... 执行 insert into “用户信息表”(临时...
您好，新浪账户登陆 修改密码即可
登录代码: Option Explicit Dim yonghu As String Dim mima As String Private Sub cmdOK_Click() '检查正确的密码 If txtPassword = mima And txtUserName = yonghu Then '...
写个程序设置屏蔽
