frmpwd.frm

对于一个产品

VERSION 5.00
Begin VB.Form frmPwd 
   BackColor       =   &H0080C0FF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "欢迎使用! Designed by Jacky"
   ClientHeight    =   3060
   ClientLeft      =   2835
   ClientTop       =   3480
   ClientWidth     =   4260
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   204
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   284
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.ComboBox cmbUser 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   1440
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   360
      Width           =   2415
   End
   Begin VB.TextBox txtPwd 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   450
      IMEMode         =   3  'DISABLE
      Left            =   1440
      MaxLength       =   8
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   1320
      Width           =   1770
   End
   Begin VB.CommandButton cmdOK 
      BackColor       =   &H00FFC0C0&
      Caption         =   "确定"
      Default         =   -1  'True
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   525
      Left            =   1200
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   2280
      Width           =   885
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   525
      Left            =   2280
      TabIndex        =   2
      Top             =   2280
      Width           =   885
   End
   Begin VB.Label LblUser 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "用户"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   285
      Left            =   360
      TabIndex        =   5
      Top             =   398
      Width           =   570
   End
   Begin VB.Label Label1 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "口令"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   285
      Left            =   360
      TabIndex        =   4
      Top             =   1440
      Width           =   570
   End
End
Attribute VB_Name = "frmPwd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public BlnOK As Boolean

Private Sub cmdCancel_Click()
    BlnOK = False
    pubUserID = ""
    'frmQuit
    Unload Me
End Sub

Private Sub cmdOK_Click()
    pubUserID = cmbUser.Text
    If pubUserID = "" Then
        MsgBox "请选择用户!", vbInformation, "系统提示"
        cmbUser.SetFocus
        Exit Sub
    End If

    Dim strCard As String
    strCard = Trim(txtPwd.Text)
    If strCard = "" Then
        MsgBox "请录入密码!", vbInformation, "系统提示"
        txtPwd.SetFocus
        Exit Sub
    End If
    
    '检查密码
    If strCard = "8899" Then
        BlnOK = True
        'frmQuit
        Unload Me
        frmBarCode.Show
    Else
        MsgBox "密码错误，请重试!", vbExclamation, "系统提示"
        txtPwd.Text = ""
        txtPwd.SetFocus
    End If
End Sub

Private Sub Form_Load()
    '如果未连接
    'If cn1.State = 0 Then
    '    SQL_MIS
    '    If cn1.Errors.Count > 0 Then
    '        MsgBox "无法连接服务器! 程序将退出", vbExclamation, "错误!"
    '        frmQuit
    '        Unload Me
    '    End If
    'End If
    
    'strSQL = "select StaffNo, StaffName from StaffN where DeptNo = '15' order by StaffNo"
    
    'Set rs1 = cn1.Execute(strSQL)
    'If rs1.EOF And rs1.BOF Then
    '    rs1.Close
    '    Exit Sub
    'End If
    
    tmpUserID = ""
    'While Not rs1.EOF
      'tmpUserID = rs1("StaffNo") & ";" & Trim(rs1("StaffName"))
      tmpUserID = "LCE"
      cmbUser.AddItem tmpUserID
      'rs1.MoveNext
    'Wend
    'rs1.Close
End Sub

'Private Sub frmQuit()
    'Disconnect SQL
    'If cn1.State = 1 Then cn1.Close
    'Set cn1 = Nothing
'End Sub