frmlogin.frm

VB6.0编写的医院影像系统

VERSION 5.00
Begin VB.Form frmLogin 
   BackColor       =   &H80000004&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "用户登录"
   ClientHeight    =   3660
   ClientLeft      =   1545
   ClientTop       =   1335
   ClientWidth     =   5145
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3660
   ScaleWidth      =   5145
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdOk 
      BackColor       =   &H80000004&
      Caption         =   "确定(&O)"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1080
      MaskColor       =   &H00FFFFC0&
      TabIndex        =   6
      Top             =   2520
      Width           =   1215
   End
   Begin VB.CommandButton cmdCancel 
      BackColor       =   &H80000004&
      Caption         =   "取消(&C)"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2760
      MaskColor       =   &H00FFFFC0&
      TabIndex        =   5
      Top             =   2520
      Width           =   1215
   End
   Begin VB.TextBox txtPassWord 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      IMEMode         =   3  'DISABLE
      Left            =   2040
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1680
      Width           =   1935
   End
   Begin VB.TextBox txtClerkCode 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   2040
      TabIndex        =   0
      Top             =   1200
      Width           =   1935
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000004&
      Caption         =   "超声影像报告系统"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000001&
      Height          =   495
      Left            =   600
      TabIndex        =   4
      Top             =   360
      Width           =   3855
   End
   Begin VB.Label lblpassword 
      BackColor       =   &H80000004&
      Caption         =   "密  码"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   840
      TabIndex        =   3
      Top             =   1680
      Width           =   975
   End
   Begin VB.Label lbluser 
      BackColor       =   &H80000004&
      Caption         =   "用户名"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   840
      TabIndex        =   2
      Top             =   1200
      Width           =   1095
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Clerk As clsClerk

Private Sub cmdCancel_Click()
   
    GDB.Close
    Set GDB = Nothing
    Unload Me
 
End Sub

Private Sub cmdOK_Click()
Dim sClerkCode As String, sPassWord As String
Dim lRes As Long

    Set Clerk = New clsClerk
    
    sClerkCode = Trim(txtClerkCode.Text)
    sPassWord = Trim(txtPassWord.Text)
    
    If Trim(txtClerkCode) = "" Then
        MsgBox "请输入用户代码！", vbCritical + vbOKOnly, "系统提示"
        Exit Sub
    End If
    
    lRes = Clerk.CheckClerk(sClerkCode, sPassWord)
        

    If lRes = 1 Then
        MsgBox "用户不存在，请重新输入用户代码！", vbCritical + vbOKOnly, "请输入用户代码"
        txtClerkCode.SetFocus
        txtClerkCode.SelStart = 0
        txtClerkCode.SelLength = Len(txtClerkCode.Text)
    ElseIf lRes = 2 Then
        MsgBox "密码错误，请确认密码是否正确？", vbCritical + vbOKOnly, "请输入用户密码"
        txtPassWord.SetFocus
        txtPassWord.SelStart = 0
        txtPassWord.SelLength = Len(txtPassWord.Text)
    ElseIf lRes = 0 Then
        mdimain.Show
        Unload Me
    End If

   
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    
    If KeyCode = vbKeyEscape Then
            Call cmdCancel_Click
    End If

End Sub

Private Sub txtClerkCode_KeyDown(KeyCode As Integer, Shift As Integer)
    
    EnterToTab KeyCode
    
End Sub

Private Sub txtClerkCode_LostFocus()

    txtClerkCode.Text = Right(String(4, "0") + txtClerkCode.Text, 4)

End Sub

Private Sub txtPassWord_GotFocus()
    If Len(txtPassWord.Text) > 0 Then
        txtPassWord.SelStart = 0
        txtPassWord.SelLength = Len(txtPassWord.Text)
    End If
End Sub

Private Sub txtpassword_KeyDown(KeyCode As Integer, Shift As Integer)
    
    If KeyCode = vbKeyReturn Then
        Call cmdOK_Click
    End If
    
End Sub