frmsystemlock.frm

企业人事管理系统完美版源代码

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{3A6644DE-3402-11D9-9DE7-C33FAA87690A}#1.0#0"; "WinXPCEngine.ocx"
Begin VB.Form FrmSystemLock 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "锁定系统"
   ClientHeight    =   2580
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3750
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   2580
   ScaleWidth      =   3750
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin WinXPC_Engine.WindowsXPC WinXPSystemLock 
      Left            =   0
      Top             =   0
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
      Common_Dialog   =   0   'False
   End
   Begin VB.CommandButton CmdUnlock 
      Caption         =   "解除锁定"
      Default         =   -1  'True
      Height          =   375
      Left            =   2040
      TabIndex        =   0
      Top             =   1680
      Width           =   1575
   End
   Begin VB.TextBox TxtPassword 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      IMEMode         =   3  'DISABLE
      Left            =   1560
      MaxLength       =   10
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   1155
      Width           =   1815
   End
   Begin VB.TextBox TxtUserName 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   1560
      MaxLength       =   15
      TabIndex        =   1
      Top             =   795
      Width           =   1815
   End
   Begin VB.Timer TmrMoveText2 
      Interval        =   1
      Left            =   480
      Top             =   0
   End
   Begin VB.Timer TmrMoveText1 
      Interval        =   1
      Left            =   0
      Top             =   0
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   6
      Top             =   2205
      Width           =   3750
      _ExtentX        =   6615
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   6562
         EndProperty
      EndProperty
   End
   Begin VB.Label LblPassword 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "管理员口令："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   360
      TabIndex        =   5
      Top             =   1200
      Width           =   1170
   End
   Begin VB.Label LblUserName 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "管理员密码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   360
      TabIndex        =   4
      Top             =   840
      Width           =   1170
   End
   Begin VB.Label LblLockMove 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "系统已锁定"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   960
      TabIndex        =   3
      Top             =   120
      Width           =   1800
   End
End
Attribute VB_Name = "FrmSystemLock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdUnlock_Click()
'Dim StrSQL As String
'If Trim(TxtUserName.Text) <> Empty And Trim(TxtPassWord.Text) <> Empty Then       '//用户名与密码是否为空
'    StrSQL = "select 用户名称,用户口令 from 管理用户 where 用户名称= '" & Trim(TxtUserName.Text) & "'and 用户口令 ='" & Trim(TxtPassWord.Text) & "'"
'        RsUnlock.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText    '//打开记录集
'    If RsUnlock.RecordCount = 0 Then     '//判断记录集记录条数是否为0
'        MsgBox "用户名域密码错误", vbExclamation + vbOKOnly, "解锁失败"
'        RsUnlock.Close        '//关闭记录集
'    Else
'        RsUnlock.Close
'        Unload Me
'    End If
'Else
'    MsgBox "用户名密码不能为空", vbExclamation + vbOKOnly, "解锁失败"
'End If
If Trim(TxtUserName.Text) = "" Or Trim(TxtPassWord.Text) = "" Then       '//用户名与密码是否为空
    MsgBox "用户名密码不能为空", vbExclamation + vbOKOnly, "解锁失败"
Else
    If Trim(TxtUserName.Text) <> UserName Or Trim(TxtPassWord.Text) <> PassWord Then
        MsgBox "用户名域密码错误", vbExclamation + vbOKOnly, "解锁失败"
    Else
    Unload Me
    Frmmdimain.Show
    End If
End If
End Sub

Private Sub Form_Load()
WinXPSystemLock.InitSubClassing
End Sub

Private Sub TmrMoveText1_Timer()
'//移动LblLockMove
LblLockMove.Move LblLockMove.Left + 20
End Sub

Private Sub TmrMoveText2_Timer()
'//移动LblLockMpve
If LblLockMove.Left + LblLockMove.Width >= Me.Width + LblLockMove.Width Then
    LblLockMove.Move -1500
End If
End Sub