当前位置:编程学习 > VB >>

哪个教我做个登陆窗体,谢谢

哪个教我做个登陆窗体,谢谢 --------------------编程问答-------------------- 没有人会啊!一般的管理系统登陆窗体 --------------------编程问答-------------------- 你所谓的“登陆窗体”,和一般的窗体,有何本质区别?
不都是“窗体”吗?

一个不是问题的问题,发几个贴子。 BS!
--------------------编程问答-------------------- --------------------编程问答-------------------- Chen8013很感谢你!你有图片你现在有代码?请你把原代码发布出来 --------------------编程问答-------------------- 一帖多发。 --------------------编程问答-------------------- 一帖多发。 --------------------编程问答-------------------- 同意三楼的,不过,如果调用数据库,登陆用户名可能会很多,下拉框也许就不方便了,可以手写输入,还有从保密性考虑,也应该是手写输入,那样破解时,(首先要获得用户名再获得密码)呵呵 --------------------编程问答-------------------- 楼主不给分,是不是想给RMB --------------------编程问答-------------------- Chen8013很感谢你!你有图片你现在有代码?请你把原代码发布出来 --------------------编程问答-------------------- 随便找一本有关VB数据库编程的书就可以找到。
你最好把自己实践了后遇到的问题在这里求助。这些资料很好找的,不要太图方便!(Chen8013很感谢你!你有图片你现在有代码?请你把原代码发布出来) --------------------编程问答--------------------
引用 7 楼 zhufenghappy 的回复:
同意三楼的,不过,如果调用数据库,登陆用户名可能会很多,下拉框也许就不方便了,可以手写输入,还有从保密性考虑,也应该是手写输入,那样破解时,(首先要获得用户名再获得密码)呵呵

我这次做的也可以直接输入用户名的。
你要“保密”,把那个下拉列表换成文本框,让用户自己输入。还不简单?

你说的“手写输入”,不会是要求要用“手写板”来输入吧 ^_^

=============================================

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 ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,