frmlock.frm

企业人事管理系统,有考勤,人员管理等功能,值得研究,也是我付费弄来的,绝对超值

VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form frmLock 
   BorderStyle     =   0  'None
   Caption         =   "窗体被锁定"
   ClientHeight    =   2790
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2790
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox txtPWD 
      Height          =   300
      IMEMode         =   3  'DISABLE
      Left            =   1560
      MaxLength       =   50
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   1560
      Width           =   2895
   End
   Begin VB.TextBox txtUser 
      Height          =   300
      IMEMode         =   3  'DISABLE
      Left            =   1560
      MaxLength       =   50
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   1080
      Width           =   2895
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FF8080&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   975
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   4815
      TabIndex        =   0
      Top             =   0
      Width           =   4815
      Begin VB.Image Image1 
         Height          =   720
         Left            =   360
         Picture         =   "frmLock.frx":0000
         Stretch         =   -1  'True
         Top             =   120
         Width           =   840
      End
      Begin VB.Label Label3 
         Appearance      =   0  'Flat
         BackColor       =   &H00FF8080&
         Caption         =   "企业人事管理系统"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   615
         Left            =   1800
         TabIndex        =   1
         Top             =   360
         Width           =   2535
      End
   End
   Begin VB.Timer Timer1 
      Interval        =   20
      Left            =   480
      Top             =   2280
   End
   Begin MSForms.CommandButton CommandButton1 
      Default         =   -1  'True
      Height          =   375
      Left            =   2400
      TabIndex        =   6
      Top             =   2280
      Width           =   2055
      Caption         =   "解除锁定"
      PicturePosition =   327683
      Size            =   "3625;661"
      Picture         =   "frmLock.frx":0442
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin VB.Label Label2 
      Caption         =   "密  码："
      Height          =   255
      Left            =   600
      TabIndex        =   5
      Top             =   1560
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "用户名："
      Height          =   255
      Left            =   600
      TabIndex        =   4
      Top             =   1200
      Width           =   735
   End
   Begin VB.Line Line3 
      BorderColor     =   &H8000000C&
      Index           =   0
      X1              =   240
      X2              =   4500
      Y1              =   2160
      Y2              =   2160
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000005&
      Index           =   0
      X1              =   225
      X2              =   4500
      Y1              =   2190
      Y2              =   2190
   End
End
Attribute VB_Name = "frmLock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer


Private Sub cmdCancel_Click()
  Unload Me
End Sub



Private Sub CommandButton1_Click()
  If Trim(txtPWD.Text = m_UP) Then
     Unload Me
     frmTray.mnuTrayExit.Enabled = True
  End If
   
End Sub

Private Sub Form_Load()
 bOk = False
 iTm = 1
 Call DarkMe(Me, 0)
 i = 0
 
 txtUser.Text = m_UN
 txtUser.Enabled = False
End Sub

Private Sub Label3_Click()

End Sub

Private Sub Timer1_Timer()
   If i < 250 Then
   i = i + 5
   Else
   i = 255
   End If
   Call DarkMe(Me, i)
   Me.refresh
   
End Sub