frmlogin.frm

VB写的通过串口与考勤机连接通讯的程序

VERSION 5.00
Begin VB.Form frmLogin 
   BackColor       =   &H00FFC0C0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "友好登陆"
   ClientHeight    =   2370
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4560
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2370
   ScaleWidth      =   4560
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdCancel 
      Caption         =   "退 出"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2640
      TabIndex        =   3
      Top             =   1800
      Width           =   855
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确 定"
      Default         =   -1  'True
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   2
      Top             =   1800
      Width           =   855
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFC0C0&
      Height          =   1215
      Left            =   480
      TabIndex        =   0
      Top             =   480
      Width           =   3375
      Begin VB.TextBox txtName 
         BackColor       =   &H00C0FFFF&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   1560
         MaxLength       =   10
         TabIndex        =   5
         Top             =   195
         Width           =   1455
      End
      Begin VB.TextBox txtPassword 
         BackColor       =   &H00C0FFFF&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         HelpContextID   =   10
         IMEMode         =   3  'DISABLE
         Left            =   1560
         PasswordChar    =   "*"
         TabIndex        =   1
         Top             =   720
         Width           =   1455
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "用户姓名："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   240
         Left            =   360
         TabIndex        =   6
         Top             =   240
         Width           =   1200
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "密    码："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   240
         Left            =   360
         TabIndex        =   4
         Top             =   765
         Width           =   1200
      End
   End
   Begin VB.Image Im1 
      Height          =   480
      Left            =   3960
      Picture         =   "frmLogin.frx":0000
      Top             =   1200
      Width           =   480
   End
   Begin VB.Image Im2 
      Height          =   480
      Left            =   3960
      Picture         =   "frmLogin.frx":0442
      Top             =   1200
      Width           =   480
   End
   Begin VB.Image Im3 
      Height          =   480
      Left            =   3960
      Picture         =   "frmLogin.frx":0884
      Top             =   1200
      Width           =   480
   End
   Begin VB.Image Im4 
      Height          =   480
      Left            =   3960
      Picture         =   "frmLogin.frx":0CC6
      Top             =   1200
      Width           =   480
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "欢迎您使用蓝牙考勤系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Left            =   360
      TabIndex        =   7
      Top             =   120
      Width           =   3375
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim I As Integer




Private Sub cmdCancel_Click()

adoCon.Close
Set adoCon = Nothing
Set adoRs = Nothing
End
End Sub


Private Sub cmdOk_Click()


Select Case I
Case 0
  Im1.Visible = True
  Im2.Visible = False
  Im3.Visible = False
  Im4.Visible = False
Case 1
  Im2.Visible = True
  Im1.Visible = False
  Im3.Visible = False
  Im4.Visible = False
Case 2
  Im4.Visible = True
  Im2.Visible = False
  Im3.Visible = False
  Im1.Visible = False
Case 3
  End
End Select

Set adoRs = adoCon.Execute("select * from Login where Name='" & Trim(txtName) & "'and Password='" & Trim(txtPassword.Text) & "'")
If adoRs.EOF Then
   MsgBox "用户名和密码有误！", vbOKOnly + vbExclamation, "系统提示"
   
   I = I + 1
   Exit Sub
Else
  Select Case Trim(adoRs!Quanxian)
    Case "查询"
      lNum = 0
    Case "修改"
      lNum = 1
    
    Case "管理员"
      lNum = 2
    End Select
  Im3.Visible = True
 
  Unload Me
  ChuShi = True
  frmSystem.Show
  
End If
End Sub


Private Sub Form_Load()

 lNum = 0
 Im1.Visible = True
 Im2.Visible = False
 Im3.Visible = False
 Im4.Visible = False
 I = 0
 txtName.Text = ""
 txtPassword.Text = ""
Set adoRs = adoCon.Execute("select * from sysobjects where name='Login' and type='U'")
If adoRs.EOF Then
   MsgBox "登陆表不存在,请与管理员联系!", vbOKOnly + vbExclamation, "系统提示"
   Unload Me
   Exit Sub
 End If

End Sub