form1.frm

运动会成绩统计系统。运动员的添加

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "用户验证"
   ClientHeight    =   2730
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   2730
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2760
      TabIndex        =   6
      Top             =   2160
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   240
      TabIndex        =   5
      Top             =   2160
      Width           =   1455
   End
   Begin VB.TextBox txtpassword 
      Height          =   495
      IMEMode         =   3  'DISABLE
      Left            =   1440
      PasswordChar    =   "*"
      TabIndex        =   4
      Top             =   1440
      Width           =   2895
   End
   Begin VB.TextBox txtname 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1440
      TabIndex        =   3
      Top             =   720
      Width           =   2895
   End
   Begin VB.Label Label3 
      Caption         =   "密码"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   1440
      Width           =   1095
   End
   Begin VB.Label Label2 
      Caption         =   "用户名"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   840
      Width           =   1095
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "欢迎使用运动会管理系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   4215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
'运行时自动检测错误，检测到则到ErrMsg标号处做相应的处理On Error GoTo ErrMsg
Dim sql As String '定义一个保存SQL语句的变量
'到Login 表中查询是否有符合条件的记录存在
'使用的是Select Count(*) From ...返回值是一个大于等于0的整数
'Dim answer As Integer
sql = "Select Count(*) From password4119 Where Name4119='" & Trim(txtname.Text) & "'"
sql = sql & " And Password4119='" & Trim(txtpassword.Text) & "'"
Set adors = adocon.Execute(sql)
If adors(0) = 0 Then
   MsgBox "您输入的用户名或密码有误，请更正！", vbOKOnly + vbExclamation, "系统提示"
   txtname.SetFocus
   Exit Sub
End If
'If txtname.Text = a And txtpassword.Text = a Then
   'answer = MsgBox("您的账号进入系统后会有操作限制，是否进入？", vbOKCancel + vbExclamation, "系统提示")
  ' If answer = 1 Then
      'Unload Me
      'MDIForm1.Show
  ' End If
'End If
Unload Me
MsgBox "这是由何亮、王超开发的运动会成绩管理系统。谢谢您的使用！", vbOKOnly, "您好"
'通过身份验证后卸载登录窗体
'Unload Me
'显示系统界面，可以进入系统操作
MDIForm1.Show

'错误处理
ErrMsg:
  If Err.Number <> 0 Then
    MsgBox Err.Number & Err.Description, vbOKOnly + vbCritical, "出错提示"
    Exit Sub
  End If
End Sub



Private Sub Command2_Click()
If MsgBox("您真的要退出本系统的使用吗？", vbYesNo + vbQuestion, "退出询问") = vbYes Then
   '把记录集从内存中清除
   Set adors = Nothing
   '断开与数据库的连接
   adocon.Close
   '把连接变量从内存中清除
   Set adocon = Nothing
   '从内存中卸载登录窗体，终止程序的执行
   Unload Me
End If

End Sub

Private Sub Form_Load()
On Error GoTo ErrMsg

'清空文本框
txtname.Text = ""
txtpassword.Text = ""

'调用模块中的ConnectDB过程连接数据库，可以把连接模块直接写在这里
Call ConnectDB

'错误处理功能
ErrMsg:
  If Err.Number <> 0 Then
    MsgBox Err.Number & Err.Description, vbOKOnly + vbCritical, "出错提示"
    Exit Sub
  End If
End Sub

Private Sub txtname_Change()
Cls
txtname.SetFocus

End Sub