登录.frm

vb开发的房屋管理系统

VERSION 5.00
Begin VB.Form 登录 
   BackColor       =   &H8000000A&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "登录"
   ClientHeight    =   3960
   ClientLeft      =   4545
   ClientTop       =   2250
   ClientWidth     =   5400
   FillColor       =   &H00FFFFFF&
   ForeColor       =   &H8000000E&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "登录.frx":0000
   ScaleHeight     =   3960
   ScaleWidth      =   5400
   Begin VB.ComboBox cmbname 
      Height          =   300
      Left            =   1920
      TabIndex        =   6
      Top             =   1080
      Width           =   1935
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Default         =   -1  'True
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   600
      TabIndex        =   5
      Top             =   2880
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H8000000A&
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3240
      TabIndex        =   4
      Top             =   2880
      Width           =   1455
   End
   Begin VB.TextBox txtpwd 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1920
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   1800
      Width           =   1935
   End
   Begin VB.Label Label3 
      BackColor       =   &H8000000A&
      BackStyle       =   0  'Transparent
      Caption         =   "登  录"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004000&
      Height          =   375
      Left            =   2160
      TabIndex        =   3
      Top             =   360
      Width           =   1095
   End
   Begin VB.Label Label2 
      BackColor       =   &H8000000A&
      BackStyle       =   0  'Transparent
      Caption         =   "密 码"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004000&
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   1800
      Width           =   855
   End
   Begin VB.Label Label1 
      BackColor       =   &H8000000A&
      BackStyle       =   0  'Transparent
      Caption         =   "用户名"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004000&
      Height          =   375
      Left            =   720
      TabIndex        =   0
      Top             =   1080
      Width           =   1095
   End
End
Attribute VB_Name = "登录"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim cnt As Integer
Dim sql As String
Dim strconn As String
Dim rs As New ADODB.Recordset
Dim namess As String

Private Sub Command1_Click()

Dim lens As Integer
'namess = cmbname.Text
namess = cmbname.Text
namess = Trim(namess)
  If Trim(cmbname.Text) = "" Then
   MsgBox "没有这个用户", vbOKOnly + vbExclamation, "提示"
   cmbname.SetFocus
  Else
    sql = "select * from 密码表 where 用户名 = '" & namess & " ' "
    rs.Open sql, conn, adOpenKeyset, adLockPessimistic
      If rs.EOF = True Then
      
       MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
       cmbname.SetFocus
       
      Else
       If Trim(rs.Fields(1)) = Trim(txtpwd.Text) Then
       Unload Me
      管理员界面.Show
       rs.Close
       Exit Sub
     Else
       MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
       txtpwd.SetFocus
       End If
       End If
      End If
     cnt = cnt + 1
      If cnt = 3 Then
       MsgBox " 你输入密码错误次数太多!", vbExclamation, ""
        Unload Me
      End If
      rs.Close
      
End Sub

Private Sub Command2_Click()
主界面.Show
Unload Me
End Sub

Private Sub Form_Load()
Dim uname As String
  strconn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=xiaodan"
      conn.Open strconn
  sql = "select * from 密码表"
  rs.Open sql, conn, adOpenKeyset, adLockOptimistic
   If rs.EOF = False Then
     Do While rs.EOF = False
        cmbname.AddItem (rs.Fields(0))
        rs.MoveNext
     Loop
     cmbname.ListIndex = 0
     End If
     rs.Close
     cnt = 0
End Sub

Private Sub Text2_Change()

End Sub