logon.frm

现金系统： 有直销奖金发放等功能

VERSION 5.00
Begin VB.Form logon 
   Caption         =   "logon"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton ex 
      Caption         =   "exit"
      Height          =   495
      Left            =   3120
      TabIndex        =   4
      Top             =   2160
      Width           =   1095
   End
   Begin VB.CommandButton ok 
      Caption         =   "enter"
      Height          =   495
      Left            =   600
      TabIndex        =   3
      Top             =   2160
      Width           =   1335
   End
   Begin VB.TextBox pas 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   2280
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1200
      Width           =   1815
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "Logon"
      Height          =   375
      Left            =   360
      TabIndex        =   2
      Top             =   480
      Width           =   4095
   End
   Begin VB.Label Label1 
      Caption         =   "password:"
      Height          =   255
      Left            =   1200
      TabIndex        =   0
      Top             =   1200
      Width           =   975
   End
End
Attribute VB_Name = "logon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private isThree

Private Sub ex_Click()
    End
End Sub

Private Sub ok_Click()
On Error GoTo Err_ok_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    If Trim(pas) <> "" Then
        If isThree = 3 Then
         MsgBox "Exceed 3 times,Exit"
       End
        End If
      isThree = isThree + 1
    If Trim(pas) = "tasly" Then
    
     MsgBox "the devoloper is zhou sijian chinese email: [e-mail]"
        main.Show
     Unload Me
       
   Else
     pas.SetFocus
     MsgBox "pls input the right password！"
     Exit Sub
     End If
   
    Else
        pas.SetFocus
        MsgBox "pls input password！"
        Exit Sub
    End If
    
Exit_ok_Click:
    Exit Sub

Err_ok_Click:
    MsgBox Err.Description
    Resume Exit_ok_Click
    
End Sub