frmlogins.frm

用VB实现连接oracle817数据月报数输入并统计

VERSION 5.00
Begin VB.Form frmLoginS 
   AutoRedraw      =   -1  'True
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "考试系统登录"
   ClientHeight    =   1935
   ClientLeft      =   6855
   ClientTop       =   6255
   ClientWidth     =   5175
   ControlBox      =   0   'False
   DrawStyle       =   1  'Dash
   Icon            =   "frmLoginS.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1143.262
   ScaleMode       =   0  'User
   ScaleWidth      =   4859.044
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox txtUN 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   1920
      TabIndex        =   1
      Top             =   240
      Width           =   2445
   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          =   390
      Left            =   600
      TabIndex        =   4
      Top             =   1380
      Width           =   1140
   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          =   390
      Left            =   2880
      TabIndex        =   5
      Top             =   1380
      Width           =   1140
   End
   Begin VB.TextBox txtPwd 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      IMEMode         =   3  'DISABLE
      Left            =   1920
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   765
      Width           =   2445
   End
   Begin VB.Label lblLabels 
      Caption         =   "用户代号(&U):"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Index           =   0
      Left            =   240
      TabIndex        =   0
      Top             =   375
      Width           =   1680
   End
   Begin VB.Label lblLabels 
      Caption         =   "用户密码(&P):"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Index           =   1
      Left            =   225
      TabIndex        =   2
      Top             =   900
      Width           =   1680
   End
End
Attribute VB_Name = "frmLoginS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
    '设置全局变量为 false
    '不提示失败的登录
    LoginSucceeded = False
    End
End Sub

'检查正确的密码
Private Sub cmdOK_Click()
Dim passwd As String

passwd = txtPwd.Text
      
      If StrComp(gOper.passwd, passwd, 1) = 0 Then
         Unload frmLoginS
         frm_lrsj.Show vbModal
         LoginSucceeded = True
      Else
         MsgBox "无效的用户或密码，请重试!", , "登录"
         txtPwd.SetFocus
         SendKeys "{Home}+{End}"
      End If
   
End Sub

Private Sub txtPwd_KeyDown(KeyCode As Integer, Shift As Integer)
Dim passwd As String

If KeyCode = vbKeyReturn Then

passwd = txtPwd.Text
      
      If StrComp(gOper.passwd, passwd, 1) = 0 Then
         Unload frmLoginS
         frm_lrsj.Show vbModal
         LoginSucceeded = True
      Else
         MsgBox "无效的用户或密码，请重试!", , "登录"
         txtPwd.SetFocus
         SendKeys "{Home}+{End}"
      End If
End If

End Sub

Private Sub txtUN_GotFocus()
 cmdOK.Default = False
 cmdOK.Enabled = False
    
 txtUN.SelStart = 0
 txtUN.SelLength = Len(txtUN.Text)
End Sub

Private Sub txtUN_KeyDown(KeyCode As Integer, Shift As Integer)

Dim iPos As Long
Dim sDm As String

On Error GoTo errHandle

If KeyCode = vbKeyReturn Then
    If txtUN.Text = "" Then
      SM "请输入用户代号"
      Exit Sub
    End If
    
    iPos = InStr(txtUN.Text, ":")
    
    If iPos = 0 Then
        sDm = UCase(Trim(txtUN.Text))
    Else
        sDm = UCase(Mid(Trim(txtUN.Text), 1, iPos - 1))
    End If
    If InStr(sDm, "'") <> 0 Then
        MsgBox "用户名称不能输入'", vbOKOnly + vbInformation, "提示"
        txtUN.SetFocus
        Exit Sub
    End If
    
    gOper.CZYDH = Trim(sDm)
    UID = gOper.CZYDH
    
    
      If fGetUser(gOper) Then
        If fGetBmxx(gCzyBmdm) Then
         txtUN.Text = gOper.CZYDH & ":" & gOper.CZYMC
         cmdOK.Enabled = True
         cmdOK.Default = True
         txtPwd.SetFocus
        End If
      Else
        
        cmdOK.Enabled = False
        cmdOK.Default = False
      End If

End If
Exit Sub

errHandle:
   SM "登录财务月报系统失败！"
   Exit Sub
End Sub