VB\数据库--模拟系统登录界面

本文主要说明如何利用VB结合数据库制作出系统登录界面。（效果如图一）

（图一）

该实例主要分为三大部分。

一、数据库的创建：

①：在vb中选择“外界程序”“可视化数据管理器”，新建数据库，并且保存到程序文件目录下

② 在数据库窗口中单击右键，新建表。

③ 在“表结构”对话框表名称中输入“系统用户”，并且添加两个字段—“用户名密码”

④ 添加索引，名称为“用户名索引”，在可用字段列表中双击“用户名”添加到索引的字段中，最后生成表。

二、窗体设计

可参照图一，进行窗体的简单设计。

三、代码部分

在书写的时候一定要细心，否则将错误百出。

Option Explicit
Const maxlogtimes As Integer = 3

Private Sub cmdcancel_Click()

        Dim intresult As Integer
        
        intresult = MsgBox("你选择了推出系统登录，退出将不能启动管理系统！" & vbCrLf _
        & "是否真的退出？",vbYesNo,"登录验证")
        
        If intresult = vbYes Then End
    

End Sub

Private Function check_password(ByVal username As String,ByVal password As String) As Byte

	On Error GoTo gperror
      
	Dim objcn As New Connection,objrs As New Recordset,strcn As String
      
	Dim strsql As String
      
		objcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "实例2.mdb"
            
                objcn.Open
             
                strsql = "select 口令 from 系统用户 where 用户名='" & username & "'"
             
                Set objrs.ActiveConnection = objcn
             
                objrs.Open (strsql)
             
                If objrs.EOF Then
            
                	check_password = 0
                
        	Else
              
                	If password <> Trim(objrs.Fields("口令").Value) Then
               
                		check_password = 1
                    
                	Else
                    
                		check_password = 2
                     
                	End If
     
          	End If
          
        objcn.Close
             
             
        Set objrs = Nothing
        
        Set objcn = Nothing
        
        Exit Function
        
gperror:
        
        check_password = 255
        
        Set objrs = Nothing
        
        Set objcn = Nothing
        
End Function
 

Private Sub cmdok_Click()
 
        Static intlogtimes As Integer '保存用户请求登录次数
        
        Dim intchecked As Integer,strname As String,strpassword As String
        
        intlogtimes = intlogtimes + 1
        
        If intlogtimes > maxlogtimes Then
               
                '超过允许登录次数，显示提示信息
                
                MsgBox "你已经超过允许验证次数！" & vbCr _
                           & "应用程序将结束！",vbCritical,"登录验证"
                           
               End
                  
         
        Else
        
            strname = Trim(txtusername.Text)
            
            strpassword = Trim(txtpassword.Text)
            
            '检验用户名和口令的合法性
            
            Select Case check_password(strname,strpassword)
          
        
          Case 0
    
             MsgBox "<" & strname & _
             ">不是系统用户，请检查用户名输入是否正确！","登录验证"
             
               txtusername.SetFocus
               
               txtusername.SelStart = 0
               
               txtusername.SelLength = Len(txtusername)
               
          Case 1
             
               
                MsgBox "口令错误，请重新输入！","登录验证"
                
               txtpassword = ""
               
                txtpassword.SetFocus
                
        Case 2
               
                Unload Me
                
                 MsgBox "登录成功，将启动系统程序！",vbInformation,"登录验证"
                 
               
       
       Case Else
             
               MsgBox "登录验证未正常完场！，请重新运行登录程序," & vbCrLf
               
           
         End Select
           
          
      End If
           
  End Sub

今天是高中最后一天，祝你们考个好成绩！

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!