login.frm

一个教师信息管理的Visual Basic源码

VERSION 5.00
Begin VB.Form frmLogin 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登录系统"
   ClientHeight    =   3660
   ClientLeft      =   2835
   ClientTop       =   3480
   ClientWidth     =   5055
   Icon            =   "Login.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2162.449
   ScaleMode       =   0  'User
   ScaleWidth      =   4746.371
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame fraLoginMode 
      Caption         =   "登录模式"
      Height          =   855
      Left            =   240
      TabIndex        =   6
      Top             =   2640
      Width           =   4575
      Begin VB.OptionButton optTDInfo 
         Caption         =   "管理日常信息(&D)"
         Height          =   255
         Left            =   2520
         TabIndex        =   8
         Top             =   360
         Value           =   -1  'True
         Width           =   1695
      End
      Begin VB.OptionButton optTBInfo 
         Caption         =   "管理基本信息(&B)"
         Height          =   255
         Left            =   480
         TabIndex        =   7
         Top             =   360
         Width           =   1695
      End
   End
   Begin VB.ComboBox cmbSrvName 
      Height          =   315
      ItemData        =   "Login.frx":030A
      Left            =   1200
      List            =   "Login.frx":0311
      TabIndex        =   1
      Text            =   "Combo1"
      Top             =   1020
      Width           =   2295
   End
   Begin VB.TextBox txtUserName 
      Height          =   345
      Left            =   1200
      TabIndex        =   3
      Text            =   "sa"
      Top             =   1560
      Width           =   2325
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "登录(&L)"
      Default         =   -1  'True
      Height          =   390
      Left            =   3735
      TabIndex        =   9
      Top             =   1200
      Width           =   1140
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "退出(&X)"
      Height          =   390
      Left            =   3720
      TabIndex        =   10
      Top             =   1800
      Width           =   1140
   End
   Begin VB.TextBox txtPassword 
      Height          =   345
      IMEMode         =   3  'DISABLE
      Left            =   1170
      PasswordChar    =   "*"
      TabIndex        =   5
      Top             =   2085
      Width           =   2325
   End
   Begin VB.Label Label1 
      Caption         =   "用户名(&U):"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   1560
      Width           =   855
   End
   Begin VB.Label lblSrvName 
      Caption         =   "服务器(&S):"
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   1080
      Width           =   855
   End
   Begin VB.Label lblTitle 
      Alignment       =   2  'Center
      Caption         =   "教师管理信息系统"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   24
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Index           =   0
      Left            =   360
      TabIndex        =   11
      Top             =   240
      Width           =   4215
   End
   Begin VB.Label lblLabels 
      Caption         =   "密    码(&P):"
      Height          =   255
      Index           =   5
      Left            =   240
      TabIndex        =   4
      Top             =   2100
      Width           =   855
   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 Sub cmdCancel_Click()
    End
End Sub

Private Sub cmdOK_Click()
    gbIsAdmin = False
    Dim strConnect As String
    Dim objDatabase As SQLDMO.Database
    strConnect = "driver={SQL Server};Server=" & cmbSrvName & ";DATABASE=tmis;UID=" & txtUserName & ";PWD=" & txtPassword & ";"
    
    '连接数据库
    ConnectToDb (strConnect)
    
    If gbLoginSucceeded Then
        Call objSQLServer.Connect(cmbSrvName.Text, txtUserName.Text, txtPassword.Text)

        If objSQLServer.Isdbcreator _
            Or objSQLServer.Issysadmin Then gbIsAdmin = True
            
        Set objDatabase = objSQLServer.Databases("tmis")
        If objDatabase.Isdb_accessadmin _
            Or objDatabase.Isdb_datawriter Then gbIsAdmin = True
            
        If optTBInfo.Value Then
            frmTeacherInf.Show
        Else
            frmDailyInf.Show
        End If
        Unload Me
    Else
        MsgBox "用户名或密码无效, 请再输入一次!", , "登录错误"
    End If
End Sub

Private Sub Form_Load()
    Dim intCount As Integer
    
    cmbSrvName = ""
    optTBInfo.Value = False
    optTDInfo.Value = True
    Set objNameList = objSQLApp.ListAvailableSQLServers()
    
    cmbSrvName.Clear
    For intCount = 1 To objNameList.Count
        Call cmbSrvName.AddItem(objNameList.Item(intCount))
    Next
    cmbSrvName.Text = cmbSrvName.List(0)
End Sub