vb登录界面设计代码录入账号判断账号是否正确的的代码(vb用户登
VB编程登录代码,要求,只有输入账号和密码正确,并且选择角色正确,才会登录成功
if?text1.text="yjy"?and?text2.text="123"?and?combo1.text="教师"?then?
msgbox?"教师登录成功"
elseif?text1.text="xs"?and?text2.text="123"?and?combo1.text="学生"?then?
msgbox?"学生登录成功"
elseif?text1.text="admin"?and?text2.text="123"?and?combo1.text="管理员"?then?
msgbox?"管理员登录成功"
end?if
简单判断的话 如图所示 如果是对比数据库内容的话 将引号内的字符串 替换成 从数据库表字段取出的字符
账号字段内容赋值给变量a
比如 if text1.text=a and .....
VB6.0 怎样检测帐号密码是否正确?
提出保存的文件
用if语句判断
if user=user.text and ps=ps.text then
msgbox "账号或密码正确"
else
msgbox "账号或密码错误"
end if
VB登录界面的代码怎么写?输入用户名正确进入,输入错误提示登录错误。
登陆窗体:
Option?Explicit
????Dim?pnum?As?Integer
Private?Sub?Command1_Click()
????On?Error?GoTo?finish?'防错代码,防止意外而导致的退出
????sql?=?"select?*?from?用户管理?where?用户名='"??Text1.Text??"'?and?密码='"??Text2.Text??"'"
????cn.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="??App.Path??"\data\data.mdb;Persist?Security?Info=False"
????cn.Open
????rs.CursorLocation?=?adUseClient
????rs.Open?sql,?cn,?adOpenDynamic,?adLockOptimistic
????'以上使用最通用的方法来查询数据库中是否有匹配的记录
????If?rs.EOF?=?True?Then?'如果没有记录则说明用户或密码为错误的
????????If?pnum??2?Then?'pnum就是密码验证次数,当次数超过3次,系统会自动保护退出
????????????pnum?=?pnum?+?1
????????????MsgBox?"用户名或密码错误!",?vbInformation,?"错误次数:"??pnum
????????????rs.Close
????????????cn.Close
????????????Text1.Text?=?""
????????????Text2.Text?=?""
????????????Text1.SetFocus
????????????Exit?Sub
????????Else
????????????MsgBox?"用户名或密码错误超过三次,系统会自动退出",?vbInformation,?"提示"
????????????End
????????End?If
????Else
????????loginname?=?rs.Fields(0)
????????Form1.Show
????????rs.Close
????????cn.Close
????End?If
????Exit?Sub
finish:
????MsgBox?Err.Description
????rs.Close
????cn.Close
End?Sub
Private?Sub?Text2_KeyPress(KeyAscii?As?Integer)
????If?KeyAscii?=?13?Then?'获取按键,如果是回车就运行image_click按钮的内容
????????Call?Command1_Click
????End?If
End?Sub
Private?Sub?Text1_KeyPress(KeyAscii?As?Integer)
????If?KeyAscii?=?13?Then
????????Text2.SetFocus
????End?If
End?Sub
Private?Sub?Command2_Click()
????End
End?Sub
VB做登录界面,当正确输入帐户和密码,显示登录成功时怎样进入系统界面,如何写代码?在哪写?
弄一个登录的界面。
先新添加一个窗体,在这个窗体上放上你要的控件,比如放用户名呀,密码呀什么的。
然后右键点击你的VB右边的那个小窗口也就是导航窗口上的“工程1”(注,如果你已给你的工程取了名字,此处应该显示的是你取的名字),然后选择“工程项1属性”,这时会弹出一个对话框,里面有个“通用”选项卡,在这个界面里有个启动对象,把你刚建立的窗体设置在里里,然后点击确定,这时程序将可以从你刚建立的窗体启动,你只要在这个刚建立的窗体代码里写上验证密码的代码就可以了,如果密码错误就“end”,正确就"Load
你的主窗体"。