guanliyuandenglu.frm

用于河南省主体功能区区划的一个小地理信息系统

VERSION 5.00
Begin VB.Form guanliyuandenglu 
   BackColor       =   &H80000013&
   Caption         =   "管理员登陆入口"
   ClientHeight    =   1860
   ClientLeft      =   4845
   ClientTop       =   4035
   ClientWidth     =   4995
   LinkTopic       =   "Form1"
   ScaleHeight     =   1860
   ScaleWidth      =   4995
   Begin VB.CommandButton Cmdexit 
      Caption         =   "取  消"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2760
      TabIndex        =   5
      Top             =   1320
      Width           =   1455
   End
   Begin VB.CommandButton Cmdok 
      Caption         =   "登  陆"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   4
      Top             =   1320
      Width           =   1455
   End
   Begin VB.TextBox password 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   2640
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   720
      Width           =   1815
   End
   Begin VB.ComboBox master 
      Height          =   300
      Left            =   2640
      TabIndex        =   2
      Top             =   240
      Width           =   1815
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackColor       =   &H80000016&
      Caption         =   "密      码:"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   720
      TabIndex        =   1
      Top             =   720
      Width           =   1575
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H80000016&
      Caption         =   "管理员姓名:"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   720
      TabIndex        =   0
      Top             =   240
      Width           =   1575
   End
End
Attribute VB_Name = "guanliyuandenglu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim TIM As Integer
Dim mydb As Database
Dim myrs As dao.Recordset
Dim sql As String

Private Sub Cmdexit_Click()
Unload Me

End Sub

Private Sub Cmdok_Click()
Dim MESSAGE As String
If master.Text <> "" Then
  Set mydb = DBEngine.Workspaces(0).OpenDatabase(App.path & "\kfgl.mdb")
  Set myrs = mydb.OpenRecordset("qxsz", dbOpenDynaset)
  myrs.FindFirst "操作员 = " + Chr(34) + master.Text + Chr(34) + ""
     If myrs.NoMatch Then
          MsgBox ("无此操作员!")
  Else
    If password.Text = myrs.Fields("密码") Then
       MsgBox "系统登陆成功!"
       frmmain.DatabaseManger.Enabled = True
                
       guanliyuandenglu.Hide
    Else
       If TIM = 3 Then
          MESSAGE = MsgBox("密码输入错误,请向系统管理员查询!", 0, "")
          If MESSAGE = vbOK Then End
      End If
      MsgBox ("密码错误,请重新输入密码!")
      TIM = TIM + 1
      password.SetFocus
    End If
   End If
  End If
End Sub

Private Sub Form_Activate()
'On Error Resume Next
Set mydb = DBEngine.Workspaces(0).OpenDatabase(App.path & "\kfgl.mdb")
sql = "select 操作员 from qxsz"
Set myrs = mydb.OpenRecordset("qxsz", dbOpenDynaset)
If myrs.EOF = False Then myrs.MoveLast
If myrs.BOF = False Then myrs.MoveFirst
For i = 0 To myrs.RecordCount - 1
 master.AddItem (myrs.Fields(0))
 myrs.MoveNext
 Next i
If master.ListCount > 0 Then master.ListIndex = 0
myrs.Close
mydb.Close
master.SetFocus
End Sub

Private Sub master_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyReturn Then
     password.SetFocus
  End If

End Sub

Private Sub password_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyReturn Then
     Cmdok.Visible = True
     Cmdok.SetFocus
  End If
  If KeyCode = vbKeyDown Then
     Cmdok.Visible = True
     Cmdok.SetFocus
  End If
  If KeyCode = vbKeyUp Then
     master.SetFocus
  End If
  
End Sub