frmlogin.frm

储存系统

VERSION 5.00
Begin VB.Form frmLogin 
   BorderStyle     =   0  'None
   Caption         =   "用户登陆"
   ClientHeight    =   5985
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7500
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmLogin.frx":0000
   LinkTopic       =   "Form1"
   Picture         =   "frmLogin.frx":08CA
   ScaleHeight     =   5985
   ScaleWidth      =   7500
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Left            =   1680
      Top             =   1320
   End
   Begin VB.CommandButton cmdTC 
      Caption         =   "退出(&X)"
      Height          =   345
      Left            =   6480
      TabIndex        =   3
      Top             =   5280
      Width           =   855
   End
   Begin VB.CommandButton cmdDL 
      Caption         =   "登陆(&O)"
      Height          =   345
      Left            =   5520
      TabIndex        =   0
      Top             =   5280
      Width           =   855
   End
   Begin VB.TextBox txtPass 
      ForeColor       =   &H00000000&
      Height          =   345
      IMEMode         =   3  'DISABLE
      Left            =   4080
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   5280
      Width           =   1335
   End
   Begin VB.ComboBox Combo1 
      ForeColor       =   &H00000000&
      Height          =   345
      Left            =   2160
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   5280
      Width           =   1335
   End
   Begin VB.Shape Shape1 
      Height          =   495
      Left            =   120
      Top             =   5160
      Width           =   855
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "密 码"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   3600
      TabIndex        =   5
      Top             =   5320
      Width           =   495
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "用户名"
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   1440
      TabIndex        =   4
      Top             =   5325
      Width           =   615
   End
End
Attribute VB_Name = "frmLogin"
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 cmdDL_Click()
If Me.Combo1.Text = "" Then
  MsgBox "请选择登陆用户！", 48, "错误提示"
  Exit Sub
End If
Call OpenConn
SQL = "select * from 系统用户表 where Czy='" & Me.Combo1.Text & "'"
rs.Open SQL, cn, 1, 1
 If zhuan(txtPass.Text) = IIf(Trim(IsNull(rs.Fields("pass"))), "", Trim(rs.Fields("pass"))) Then
       gCzy = rs.Fields("czy")
       gCzyqx = rs.Fields("czyqx")
       Call CloseConn
       MDIfrm.Show

       Unload Me
    Else
       MsgBox "密码错误！", 48, "错误提示"
    End If
End Sub

Private Sub cmdTC_Click()
End
End Sub

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

Private Sub Form_Load()
Me.Shape1.Top = Me.Top '外边框
Me.Shape1.Left = Me.Left
Me.Shape1.Width = Me.ScaleWidth
Me.Shape1.Height = Me.ScaleHeight
'---------------------------------------------
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
'--------------------------------------------
Call OpenConn
SQL = "select czy from 系统用户表"
rs.Open SQL, cn, 1, 1
    Do While Not rs.EOF
        Me.Combo1.AddItem rs!czy
        rs.MoveNext
    Loop
Call CloseConn
End Sub

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