vbAccelerator - Contents of code file: frmLogin.frm

VERSION 5.00
Begin VB.Form frmLogin 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Login"
   ClientHeight    =   3000
   ClientLeft      =   7755
   ClientTop       =   3855
   ClientWidth     =   4230
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3000
   ScaleWidth      =   4230
   ShowInTaskbar   =   0   'False
   Begin VB.CheckBox chkLowSecurity 
      Caption         =   "&Remember Me Next Time"
      Height          =   435
      Left            =   1320
      TabIndex        =   2
      Top             =   1740
      Width           =   2715
   End
   Begin VB.Frame fraSep 
      Height          =   75
      Index           =   1
      Left            =   0
      TabIndex        =   8
      Top             =   600
      Width           =   4695
   End
   Begin VB.Frame fraSep 
      Height          =   75
      Index           =   0
      Left            =   -300
      TabIndex        =   7
      Top             =   2340
      Width           =   4695
   End
   Begin VB.TextBox txtPassword 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1320
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1260
      Width           =   2715
   End
   Begin VB.TextBox txtUID 
      Height          =   375
      Left            =   1320
      TabIndex        =   0
      Top             =   780
      Width           =   2715
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   375
      Left            =   2820
      TabIndex        =   4
      Top             =   2520
      Width           =   1335
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   1380
      TabIndex        =   3
      Top             =   2520
      Width           =   1335
   End
   Begin VB.Label lblInfo 
      Caption         =   "Check the task bar and alt-tab list - this modal
       form really does get there!"
      Height          =   555
      Left            =   720
      TabIndex        =   9
      Top             =   60
      Width           =   3435
   End
   Begin VB.Image imgIcon 
      Height          =   480
      Left            =   120
      Picture         =   "frmLogin.frx":0000
      Top             =   60
      Width           =   480
   End
   Begin VB.Label lblPassword 
      Caption         =   "Password:"
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   1320
      Width           =   1095
   End
   Begin VB.Label lblUID 
      Caption         =   "User ID:"
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   840
      Width           =   1095
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private m_bCancel As Boolean
Private m_sUID As String
Private m_sPassword As String
Private m_bLowSecurity As Boolean
Private m_bLoaded As Boolean

Public Property Get Cancelled() As Boolean
   Cancelled = m_bCancel
End Property
Public Property Get UID() As String
   UID = m_sUID
End Property
Public Property Let UID(ByVal sUID As String)
   m_sUID = sUID
   If m_bLoaded Then
      txtUID.Text = sUID
   End If
End Property
Public Property Get Password() As String
   Password = m_sPassword
End Property
Public Property Get StoreDetails() As Boolean
   StoreDetails = m_bLowSecurity
End Property


Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
   m_sUID = Trim$(txtUID.Text)
   m_sPassword = Trim$(txtPassword.Text)
   m_bLowSecurity = (chkLowSecurity.Value = Checked)
   If LoginValidate(Me) Then
      m_bCancel = False
      Unload Me
   End If
End Sub

Private Sub Form_Initialize()
   ' SPM - Form_Initialize fired when object is being created,
   ' i.e. before hWnd created.
   HookAttach
   
   m_bCancel = True
End Sub

Private Sub Form_Load()
   ' SPM - Form_Load is fired *after* the window is created.
   ' Therefore we will already have set the style so there
   ' is no need for the hook anymore.
   HookDetach
      
   Set Me.Icon = imgIcon.Picture
   m_bLoaded = True
   UID = m_sUID
End Sub