www.pudn.com > cjg2.rar > frmTestLogon.frm
VERSION 5.00
Begin VB.Form TestLogon
BorderStyle = 1 'Fixed Single
Caption = "自测考试系统客户端登录"
ClientHeight = 3630
ClientLeft = 45
ClientTop = 330
ClientWidth = 5970
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3630
ScaleWidth = 5970
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox txtIP
Height = 300
Left = 2460
MaxLength = 15
TabIndex = 0
Top = 1740
Width = 1935
End
Begin VB.CommandButton cmdExit
Cancel = -1 'True
Caption = "退出"
Height = 315
Left = 3060
TabIndex = 4
Top = 3000
Width = 795
End
Begin VB.CommandButton cmdOk
Caption = "确定"
Default = -1 'True
Height = 315
Left = 2115
TabIndex = 3
Top = 3000
Width = 795
End
Begin VB.TextBox txtCode
Height = 300
Left = 2460
MaxLength = 8
TabIndex = 2
Top = 2520
Width = 1935
End
Begin VB.TextBox txtNum
Height = 300
Left = 2460
MaxLength = 8
TabIndex = 1
Top = 2130
Width = 1935
End
Begin VB.Label lblNews
AutoSize = -1 'True
Height = 180
Left = 1575
TabIndex = 10
Top = 1455
Width = 90
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "服务器IP："
Height = 180
Left = 1575
TabIndex = 9
Top = 1800
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "准考证号："
Height = 180
Left = 1575
TabIndex = 8
Top = 2580
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "考生学号："
Height = 180
Left = 1575
TabIndex = 7
Top = 2190
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = $"frmTestLogon.frx":0000
Height = 720
Left = 780
TabIndex = 6
Top = 615
Width = 4410
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "请注意以下事项："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 780
TabIndex = 5
Top = 315
Width = 1560
End
End
Attribute VB_Name = "TestLogon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdExit_Click()
If MsgBox("退出自测考试系统？", vbQuestion + vbYesNo, "自测考试系统") = vbYes Then
Unload Me
End If
End Sub
Private Sub cmdOk_Click()
Dim objStuLogInfo As New Recordset, objCn As New Connection, strSQL$
On Error GoTo DealError
'检验是否输入考试服务器IP地址
If Not txtIP Like "###.###.###.###" Then
MsgBox "请输入有效的考试服务器IP地址！", vbCritical, "自测考试系统登录"
txtIP.SetFocus
txtIP.SelStart = 0
txtIP.SelLength = Len(txtIP)
Exit Sub
End If
'检验是否输入学号
If Trim(txtNum) = "" Then
MsgBox "请输入学号！", vbCritical, "自测考试系统登录"
txtNum = ""
txtNum.SetFocus
Exit Sub
End If
'检验是否输入准考证号
If Trim(txtCode) = "" Then
MsgBox "请输入准考证号！", vbCritical, "自测考试系统登录"
txtCode = ""
txtCode.SetFocus
Exit Sub
End If
TestServerIP = txtIP
lblNews = "正在连接考试服务器，请等待………"
With objCn '建立数据库联接
.Provider = "SQLOLEDB"
.ConnectionString = "User ID=sa;PWD=123;Server=" & txtIP & _
";Initial Catalog=自测考试"
.Open
End With
'访问数据库获得学生登录信息
With objStuLogInfo
.CursorLocation = adUseClient '指定使用客户端游标
.Open "SELECT 学号,考号,缺考 FROM 学生信息", objCn '获取管理员登录信息
End With
With objStuLogInfo '检验学号和准考证号的合法性
If .RecordCount > 0 Then
.MoveFirst
.Find "学号='" & Trim(txtNum) & "'"
If .EOF Then
MsgBox "学号输入错误，请修改！", vbCritical, "自测考试系统登录"
txtNum.SetFocus
txtNum.SelStart = 0
txtNum.SelLength = Len(txtNum)
ElseIf .Fields("考号") <> Trim(txtCode) Then
MsgBox "准考证号输入错误，请修改！", vbCritical, "自测考试系统登录"
txtCode.SetFocus
txtCode.SelStart = 0
txtCode.SelLength = Len(txtCode)
ElseIf .Fields("缺考") = False Then
MsgBox "你已经登录或结束考试，不允许重复登录！", vbCritical, "自测考试系统登录"
Else
StudentNum = Trim(txtNum)
StudentCode = Trim(txtCode)
DoTest.Caption = "学号：" & Trim(txtNum) & " 准考证号：" & Trim(txtCode)
'修改缺考记录
strSQL = "update 学生信息 set 缺考=0 where 学号='" & StudentNum & "'"
objCn.Execute strSQL
Unload Me '关闭登录窗口
DoTest.Show '显示考试窗口
End If
End If
End With
Set objCn = Nothing
Set objStuLogInfo = Nothing
lblNews = ""
Exit Sub
DealError:
If Err.Number = -2147467259 Then
MsgBox "考试服务器IP地址错误！", vbCritical, "自测考试系统登录"
txtIP.SetFocus
txtIP.SelStart = 0
txtIP.SelLength = Len(txtIP)
Else
MsgBox "程序运行出错：" & Err.Description, vbCritical, "自测考试系统登录"
End If
Set objCn = Nothing
Set objStuLogInfo = Nothing
lblNews = ""
End Sub
Private Sub Form_Load()
End Sub