password.frm

一套收银系统

VERSION 5.00
Object = "{899348F9-A53A-4D9E-9438-F97F0E81E2DB}#1.0#0"; "LVbuttons.ocx"
Begin VB.Form Password 
   BackColor       =   &H00E0E0E0&
   Caption         =   "Log In"
   ClientHeight    =   3690
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3360
   ControlBox      =   0   'False
   FillColor       =   &H80000004&
   ForeColor       =   &H80000004&
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   3690
   ScaleWidth      =   3360
   StartUpPosition =   2  'CenterScreen
   Begin VB.ListBox txtUserName 
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1815
      Left            =   150
      TabIndex        =   0
      Top             =   600
      Width           =   3075
   End
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   2790
      Top             =   3720
   End
   Begin VB.TextBox txtDay 
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      IMEMode         =   3  'DISABLE
      Left            =   2070
      Locked          =   -1  'True
      TabIndex        =   3
      Top             =   150
      Width           =   1140
   End
   Begin VB.TextBox txtTime 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      IMEMode         =   3  'DISABLE
      Left            =   150
      Locked          =   -1  'True
      TabIndex        =   2
      Top             =   150
      Width           =   1140
   End
   Begin VB.TextBox txtpassword 
      BeginProperty Font 
         Name            =   "Webdings"
         Size            =   8.25
         Charset         =   2
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000002&
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   150
      PasswordChar    =   "