load.frm

实用条码转换系统下载

VERSION 5.00
Begin VB.Form load 
   Caption         =   "金字塔条码转换系统"
   ClientHeight    =   2700
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5835
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "load.frx":0000
   ScaleHeight     =   2700
   ScaleWidth      =   5835
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Text2 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   2400
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   720
      Width           =   2055
   End
   Begin VB.TextBox Text1 
      Height          =   390
      Left            =   2400
      TabIndex        =   0
      Top             =   120
      Width           =   2055
   End
End
Attribute VB_Name = "load"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   If Text1.Text <> "xiao" Then
      a = MsgBox("Unacceptable User!", 5 + 48, "Please Rwrite!")
      If a = 4 Then
         Text1.Text = ""
         Text1.SetFocus
      Else
         End
      End If
   Else
      Text2.Enabled = True
      Text2.SetFocus
      Text2.Text = ""
   End If
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text2.Text <> "zhong" Then
        b = MsgBox("Wrong password!", 5 + 48, "PleaseRewrite!")
        If b = 4 Then
            Text2.Text = ""
            Text2.SetFocus
        Else
            End
        End If
    Else
        system.Show
        
        Unload load
    End If
End If

End Sub

Private Sub Text1_LostFocus()
 If Text1.Text <> "xiao" Then
      a = MsgBox("Unacceptable User!", 5 + 48, "Please Rwrite!")
      If a = 4 Then
         Text1.SetFocus
         Text1.Text = ""
      Else
         End
      End If
   Else
      Text2.Enabled = True
      Text2.SetFocus
      Text2.Text = ""
   End If
End Sub