frmpass.frm

本系统是一个报表分析查询系统

VERSION 5.00
Begin VB.Form frmPass 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   390
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4605
   LinkTopic       =   "Form1"
   ScaleHeight     =   390
   ScaleWidth      =   4605
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox frmPass 
      Appearance      =   0  'Flat
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   0
      PasswordChar    =   "*"
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   0
      Width           =   4575
   End
End
Attribute VB_Name = "frmPass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
 With frmPass
  .Left = 0
  .Top = 0
  .Width = Me.ScaleWidth
  .Height = Me.ScaleHeight
  .Text = ""
 End With
End Sub

Private Sub frmPass_Change()
 UserPass = frmPass.Text
End Sub

Private Sub frmPass_KeyDown(KeyCode As Integer, Shift As Integer)
 Select Case KeyCode
  Case 13
   Unload Me
  Case 27
   UserPass = ""
   Unload Me
 End Select
End Sub