哪个教我做个登陆窗体,谢谢
哪个教我做个登陆窗体,谢谢 --------------------编程问答-------------------- 没有人会啊!一般的管理系统登陆窗体 --------------------编程问答-------------------- 你所谓的“登陆窗体”,和一般的窗体,有何本质区别?不都是“窗体”吗?
一个不是问题的问题,发几个贴子。 BS!
--------------------编程问答-------------------- --------------------编程问答-------------------- Chen8013很感谢你!你有图片你现在有代码?请你把原代码发布出来 --------------------编程问答-------------------- 一帖多发。 --------------------编程问答-------------------- 一帖多发。 --------------------编程问答-------------------- 同意三楼的,不过,如果调用数据库,登陆用户名可能会很多,下拉框也许就不方便了,可以手写输入,还有从保密性考虑,也应该是手写输入,那样破解时,(首先要获得用户名再获得密码)呵呵 --------------------编程问答-------------------- 楼主不给分,是不是想给RMB --------------------编程问答-------------------- Chen8013很感谢你!你有图片你现在有代码?请你把原代码发布出来 --------------------编程问答-------------------- 随便找一本有关VB数据库编程的书就可以找到。
你最好把自己实践了后遇到的问题在这里求助。这些资料很好找的,不要太图方便!(Chen8013很感谢你!你有图片你现在有代码?请你把原代码发布出来) --------------------编程问答--------------------
我这次做的也可以直接输入用户名的。
你要“保密”,把那个下拉列表换成文本框,让用户自己输入。还不简单?
你说的“手写输入”,不会是要求要用“手写板”来输入吧 ^_^
=============================================
To LZ:
我的代码也没有什么实质性的东西。你根据你自己的要求,自己做一个就是了。
--------------------编程问答-------------------- 我希望做成带数据库的,你有图片和原代码就发出来 --------------------编程问答-------------------- 【CBM666 的密码登录 ADODB】
http://hi.baidu.com/cbm666/blog/item/f8f3605978c11b2b2934f0a3.html
【CBM666 的密码登录 ADODC】
http://hi.baidu.com/cbm666/blog/item/53008d108609f600203f2edf.html --------------------编程问答-------------------- 我希望做成带数据库的,你有图片和解释的,原代码就发出来 --------------------编程问答-------------------- Dim counts As Integer '//记录登录次数
Private Sub cmdEnter_Click()
Dim UserName As String '//存储用户名与密码
Dim Password As String
UserName = CStr(Trim(txtName.Text)) '//将文本框内的值赋给定义好的全局变量
Password = CStr(Trim(txtPwd.Text))
If UserName <> Empty And Password <> Empty Then '//用户名与密码是否为空
adoLogin.RecordSource = "select 用户名,用户密码,用户类型 from 管理用户 where 用户名= '" & UserName & "'and 用户密码 ='" & Password & "'"
adoLogin.Refresh
If adoLogin.Recordset.RecordCount <> 0 Then '//判断记录集记录条数是否为0
shenfen = Trim(adoLogin.Recordset.Fields("用户类型")) '//获得用户类型
adoLoginQ.RecordSource = "select * from 用户权限表 where 用户名='" + UserName + "'" '//登录用户的权限获得
adoLoginQ.Refresh
QxRs = Trim(adoLoginQ.Recordset.Fields("人事管理"))
QxGz = Trim(adoLoginQ.Recordset.Fields("工资管理"))
QxZh = Trim(adoLoginQ.Recordset.Fields("综合管理"))
QxXt = Trim(adoLoginQ.Recordset.Fields("系统管理"))
QxYh = Trim(adoLoginQ.Recordset.Fields("用户管理"))
adoLoginQ.Recordset.Close
adoLogin.Recordset.Close '//关闭记录集
Unload Me
FrmMain.Show '//显示主窗口
ElseIf counts < 2 Then
MsgBox "用户名或密码错误", vbExclamation + vbOKOnly, "登录失败"
adoLogin.Recordset.Close '//关闭记录集
counts = counts + 1
txtName.Text = ""
txtPwd.Text = ""
txtName.SetFocus
Else
MsgBox "密码错误超过三次,禁止登陆!", vbCritical, "警告"
Unload Me
End If
Else
MsgBox "用户名密码不能为空", vbExclamation + vbOKOnly, "登录失败"
txtName.SetFocus
End If
End Sub
Private Sub cmdExit_Click()
Dim myVal As String
Beep
myVal = MsgBox("确认退出系统吗?", vbYesNo + vbQuestion, "退出")
If myVal = vbYes Then
Unload Me
Else
txtName.SetFocus
End If
End Sub
Private Sub Form_Load()
WindowsXPC1.InitSubClassing
End Sub
Private Sub txtName_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
txtPwd.SetFocus
End If
If KeyCode = vbKeyDown Then
txtPwd.SetFocus
End If
End Sub
Private Sub txtPwd_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
cmdEnter.SetFocus
End If
If KeyCode = vbKeyDown Then
cmdEnter.SetFocus
End If
If KeyCode = vbKeyUp Then
txtName.SetFocus
End If
End Sub
--------------------编程问答-------------------- 楼主,若果有什么问题联系我!
代码中还有权限的检查,代码绝对正确,是我的毕业设计里的。 --------------------编程问答-------------------- 很感谢你 --------------------编程问答-------------------- 有简单的吗 --------------------编程问答-------------------- if text1.text="admin" and text2.text="admin" then
MsgBox "登陆成功"
else
MsgBox "用户名或密码错误"
end if
这个够简单吧! --------------------编程问答-------------------- 够简单但是密码只能错3次 --------------------编程问答-------------------- 不知道怎么回答你,其实代码不要很多,19楼的就可以 --------------------编程问答-------------------- 够简单但是密码只能错3次 --------------------编程问答-------------------- ElseIf counts < 2 Then 把2 改成100 就能错很多次了,
--------------------编程问答-------------------- 请你写完整代码?好吗 --------------------编程问答-------------------- 这里高手少啊! --------------------编程问答-------------------- f text1.text="admin" and text2.text="admin" then
MsgBox "登陆成功"
else
MsgBox "用户名或密码错误"
end if
这个够简单吧!但是密码只能错3次怎么编写
补充:VB , 基础类