frmlogin.frm

来自「VB下的航空公司信息管理系统.关键词: 航空公司管理系统」· FRM 代码 · 共 151 行

VERSION 5.00
Begin VB.Form frmLogin 
   BorderStyle     =   0  'None
   ClientHeight    =   2910
   ClientLeft      =   -15
   ClientTop       =   0
   ClientWidth     =   3900
   Icon            =   "frmLogin.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2910
   ScaleWidth      =   3900
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Tag             =   "Login"
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   360
      Left            =   2100
      TabIndex        =   5
      Tag             =   "Cancel"
      Top             =   2304
      Width           =   1140
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&Q)"
      Default         =   -1  'True
      Height          =   360
      Left            =   492
      TabIndex        =   4
      Tag             =   "OK"
      Top             =   2304
      Width           =   1140
   End
   Begin VB.TextBox TxtPWD 
      Height          =   288
      IMEMode         =   3  'DISABLE
      Left            =   1560
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1812
      Width           =   2064
   End
   Begin VB.TextBox TxtName 
      Height          =   288
      Left            =   1548
      TabIndex        =   3
      Top             =   1416
      Width           =   2064
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "航空公司管理信息系统"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000001&
      Height          =   972
      Left            =   480
      TabIndex        =   6
      Top             =   120
      Width           =   3132
   End
   Begin VB.Label lblLabels 
      Caption         =   "密  码:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   1
      Left            =   348
      TabIndex        =   0
      Tag             =   "&Password:"
      Top             =   1824
      Width           =   1080
   End
   Begin VB.Label lblLabels 
      Caption         =   "用户名:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Index           =   0
      Left            =   348
      TabIndex        =   2
      Tag             =   "&User Name:"
      Top             =   1440
      Width           =   1080
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim clsm As ClsMain
Public frm_show As Boolean


Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub Cmdok_Click()
    Dim strSQL As String        '查询的SQL语句
    strSQL = "select * from UserValidate where (UserName='" & Trim(TxtName.Text) & _
             "')and (UserPWD='" & Trim(TxtPWD.Text) & "')"
    If clsm.QueryEmpInfo(strSQL) = True Then
        If clsm.g_DBRct.BOF = False And clsm.g_DBRct.EOF = False Then
            '如果登陆成功，关闭本窗口，显示员工信息窗口
            Unload Me
            frm_show = True
        Else
            '登陆不成功，关闭窗口，结束程序
            x = MsgBox("输入的用户名称或者口令非法，请注意输入的大小写敏感，重新输入吗？", vbYesNo, "非法的用户口令")
            If x = 6 Then
                TxtName.SetFocus
            End If
            If x = 7 Then
                Unload Me
            End If
        End If
    End If
End Sub
Private Sub Form_Load()
    Set clsm = New ClsMain
    If clsm.ConnectToServer() = False Then Unload Me
    TxtName.Text = "Administrator"
End Sub