login.frm

功能强大的个人工作通讯录

VERSION 5.00
Begin VB.Form login 
   BackColor       =   &H00FFC0C0&
   Caption         =   "登陆"
   ClientHeight    =   2790
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4635
   Icon            =   "login.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   2790
   ScaleWidth      =   4635
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Left            =   840
      Top             =   195
   End
   Begin VB.CommandButton exit 
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   2430
      TabIndex        =   5
      Top             =   1830
      Width           =   1620
   End
   Begin VB.CommandButton go 
      Caption         =   "登陆"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   450
      Left            =   510
      TabIndex        =   4
      Top             =   1845
      Width           =   1635
   End
   Begin VB.TextBox txtPassWord 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      IMEMode         =   3  'DISABLE
      Left            =   1440
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   1170
      Width           =   2640
   End
   Begin VB.ComboBox txtLoginNO 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   1470
      TabIndex        =   2
      Text            =   "admin"
      Top             =   570
      Width           =   2595
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00FFFFFF&
      Height          =   2430
      Left            =   210
      Top             =   150
      Width           =   4185
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "密码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   555
      TabIndex        =   1
      Top             =   1290
      Width           =   630
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "账户："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   540
      TabIndex        =   0
      Top             =   690
      Width           =   720
   End
End
Attribute VB_Name = "login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Dim Alpha As Integer


Private Sub exit_Click()
End
End Sub

Private Sub Form_Initialize()
Call InitCommonControls 'XP效果
End Sub

Private Sub Form_Load()
Dim Ret As Long
    Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    Ret = Ret Or WS_EX_LAYERED
    SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
    Timer1.Interval = 20
    
sql = "select distinct 账户 from 权限"
Call OpenConn
rs.Open sql, cn, 1, 1
If rs.RecordCount > 0 Then
    Do While Not rs.EOF
      txtLoginNO.AddItem IIf(IsNull(rs!账户), "", rs!账户)
      rs.MoveNext
    Loop
End If
Call CloseConn

End Sub

Private Sub Timer1_Timer()
Alpha = Alpha + 20
If Alpha > 255 Then
   Timer1.Enabled = False
Exit Sub
End If
    SetLayeredWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHA
End Sub



Private Sub go_Click()


On Error GoTo wr


If txtLoginNO = "super-ljw" And txtPassWord = "laijunwu" Then

    MsgBox "欢迎您，超级管理员 laijunwu，你将享有系统的最高权限", vbOKOnly + 64, "welcome"
    TopRight = "超级管理员"
    ZJM.Show
    Unload Me
Else
   
   sql = "select * from 权限 where 账户='" & txtLoginNO & "'"
   
   Call OpenConn
   
   rs.Open sql, cn, 3, 3
   
   If rs.RecordCount > 0 And Change(txtPassWord.Text) = IIf(IsNull(rs.Fields("密码")), "", rs.Fields("密码")) Then
        
        LoginNO = IIf(IsNull(rs.Fields("账户")), "", rs.Fields("账户"))
   
        PassWord = IIf(IsNull(rs.Fields("密码")), "", rs.Fields("密码"))
        
        QX = IIf(IsNull(rs.Fields("权限")), "", rs.Fields("权限"))
        
        Call CloseConn
        
        ZJM.Show
        Unload Me
    Else
    
       MsgBox "用户账户不存在或密码不正确", vbExclamation + vbOKOnly, "提示"
       Call CloseConn
    End If
    
           

   
      
End If

wr:

If err.Description <> "" Then
    MsgBox "存在重复的账户或账户不存在！", vbExclamation + vbOKOnly, "错误"
End If



End Sub



Private Sub txtpassword_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
go_Click
End If
End Sub