📄 frmshowstu.frm
字号:
Height = 285
Index = 5
Left = 7200
TabIndex = 39
Top = 600
Width = 1695
End
Begin VB.Label Label10
Caption = "第一志愿"
Height = 255
Index = 0
Left = 240
TabIndex = 50
Top = 240
Width = 735
End
Begin VB.Label Label10
Caption = "第二志愿"
Height = 255
Index = 1
Left = 3240
TabIndex = 49
Top = 240
Width = 735
End
Begin VB.Label Label10
Caption = "第三志愿"
Height = 255
Index = 3
Left = 6240
TabIndex = 48
Top = 240
Width = 735
End
Begin VB.Label Label10
Caption = "本校院系1"
Height = 255
Index = 4
Left = 240
TabIndex = 47
Top = 600
Width = 855
End
Begin VB.Label Label10
Caption = "本校院系2"
Height = 255
Index = 5
Left = 3240
TabIndex = 46
Top = 600
Width = 855
End
Begin VB.Label Label10
Caption = "本校院系3"
Height = 255
Index = 6
Left = 6240
TabIndex = 45
Top = 600
Width = 855
End
End
Begin VB.Frame Frame4
Caption = "考生个人简历"
Height = 975
Left = 0
TabIndex = 29
Top = 3360
Width = 9135
Begin VB.TextBox Text10
Height = 285
Index = 0
Left = 1200
TabIndex = 33
Top = 240
Width = 1695
End
Begin VB.TextBox Text10
Height = 285
Index = 1
Left = 4680
TabIndex = 32
Top = 240
Width = 4215
End
Begin VB.TextBox Text10
Height = 285
Index = 2
Left = 1200
TabIndex = 31
Top = 600
Width = 1695
End
Begin VB.TextBox Text10
Height = 285
Index = 3
Left = 4680
TabIndex = 30
Top = 600
Width = 4215
End
Begin VB.Label Label11
Caption = "毕业学校"
Height = 255
Index = 0
Left = 240
TabIndex = 37
Top = 240
Width = 975
End
Begin VB.Label Label11
Caption = "毕业学校所在地"
Height = 255
Index = 1
Left = 3240
TabIndex = 36
Top = 240
Width = 1455
End
Begin VB.Label Label11
Caption = "毕业时间"
Height = 255
Index = 2
Left = 240
TabIndex = 35
Top = 600
Width = 975
End
Begin VB.Label Label11
Caption = "曾 获 奖 励"
Height = 255
Index = 3
Left = 3240
TabIndex = 34
Top = 600
Width = 1455
End
End
Begin VB.Frame Frame5
Caption = "考生亲属关系"
Height = 1815
Left = 0
TabIndex = 0
Top = 4440
Width = 9135
Begin VB.TextBox Text11
Height = 285
Index = 0
Left = 1320
TabIndex = 14
Top = 240
Width = 855
End
Begin VB.TextBox Text11
Height = 285
Index = 1
Left = 2880
TabIndex = 13
Top = 240
Width = 975
End
Begin VB.TextBox Text11
Height = 285
Index = 2
Left = 5520
TabIndex = 12
Top = 240
Width = 1695
End
Begin VB.TextBox Text11
Height = 285
Index = 4
Left = 1320
TabIndex = 11
Top = 600
Width = 3615
End
Begin VB.TextBox Text11
Height = 285
Index = 5
Left = 5880
TabIndex = 10
Top = 600
Width = 735
End
Begin VB.TextBox Text11
Height = 285
Index = 6
Left = 7440
TabIndex = 9
Top = 600
Width = 1455
End
Begin VB.TextBox Text11
Height = 285
Index = 3
Left = 8040
TabIndex = 8
Top = 240
Width = 855
End
Begin VB.TextBox Text11
Height = 285
Index = 7
Left = 1320
TabIndex = 7
Top = 960
Width = 855
End
Begin VB.TextBox Text11
Height = 285
Index = 8
Left = 2880
TabIndex = 6
Top = 960
Width = 975
End
Begin VB.TextBox Text11
Height = 285
Index = 9
Left = 5520
TabIndex = 5
Top = 960
Width = 1695
End
Begin VB.TextBox Text11
Height = 285
Index = 11
Left = 1320
TabIndex = 4
Top = 1320
Width = 3615
End
Begin VB.TextBox Text11
Height = 285
Index = 12
Left = 5880
TabIndex = 3
Top = 1320
Width = 735
End
Begin VB.TextBox Text11
Height = 285
Index = 13
Left = 7440
TabIndex = 2
Top = 1320
Width = 1455
End
Begin VB.TextBox Text11
Height = 285
Index = 10
Left = 8040
TabIndex = 1
Top = 960
Width = 855
End
Begin VB.Label Label12
Caption = "与本人关系"
Height = 255
Index = 0
Left = 240
TabIndex = 28
Top = 240
Width = 975
End
Begin VB.Label Label12
Caption = "姓名"
Height = 255
Index = 1
Left = 2400
TabIndex = 27
Top = 240
Width = 615
End
Begin VB.Label Label12
Caption = "工作及工作单位"
Height = 255
Index = 2
Left = 4080
TabIndex = 26
Top = 240
Width = 1335
End
Begin VB.Label Label12
Caption = "电话"
Height = 255
Index = 3
Left = 7440
TabIndex = 25
Top = 240
Width = 495
End
Begin VB.Label Label12
Caption = "通讯地址"
Height = 255
Index = 4
Left = 240
TabIndex = 24
Top = 600
Width = 975
End
Begin VB.Label Label12
Caption = "邮编"
Height = 255
Index = 5
Left = 5160
TabIndex = 23
Top = 600
Width = 495
End
Begin VB.Label Label12
Caption = "备注"
Height = 255
Index = 6
Left = 6840
TabIndex = 22
Top = 600
Width = 495
End
Begin VB.Label Label12
Caption = "与本人关系"
Height = 255
Index = 7
Left = 240
TabIndex = 21
Top = 960
Width = 975
End
Begin VB.Label Label12
Caption = "姓名"
Height = 255
Index = 8
Left = 2400
TabIndex = 20
Top = 960
Width = 615
End
Begin VB.Label Label12
Caption = "工作及工作单位"
Height = 255
Index = 9
Left = 4080
TabIndex = 19
Top = 960
Width = 1335
End
Begin VB.Label Label12
Caption = "电话"
Height = 255
Index = 10
Left = 7440
TabIndex = 18
Top = 960
Width = 495
End
Begin VB.Label Label12
Caption = "通讯地址"
Height = 255
Index = 11
Left = 240
TabIndex = 17
Top = 1320
Width = 975
End
Begin VB.Label Label12
Caption = "邮编"
Height = 255
Index = 12
Left = 5160
TabIndex = 16
Top = 1320
Width = 495
End
Begin VB.Label Label12
Caption = "备注"
Height = 255
Index = 13
Left = 6840
TabIndex = 15
Top = 1320
Width = 495
End
End
Begin VB.Label Label9
Caption = "Label9"
Height = 255
Index = 3
Left = 6120
TabIndex = 82
Top = 1920
Width = 495
End
End
Attribute VB_Name = "frmShowStu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义多个ADODB.Recordset窗体范围内变量
Dim rs_Stu As New ADODB.Recordset
Dim rs_Grade As New ADODB.Recordset
Dim rs_Wish As New ADODB.Recordset
Dim rs_Study As New ADODB.Recordset
Dim rs_Relation As New ADODB.Recordset
Dim rs_Admit As New ADODB.Recordset '用于打开已录取考生表
Dim rs_check0 As New ADODB.Recordset
Dim rs_check As New ADODB.Recordset '用于检测是否已招满
Dim rs_check2 As New ADODB.Recordset '用于检测是否已招满
Private Sub cmdAdmit_Click()
'先判断是否填入了录取院系信息
If txtDept.Text = "" Then
MsgBox "请输入录取院系信息！", vbOKOnly + vbInformation, "注意"
Exit Sub
End If
'检测该考生是否已被录取
Dim sqlCheck0 As String
sqlCheck0 = "select * from 已录取考生表 where 准考证号=" & Text1(0).Text
rs_check0.Open sqlCheck0, conn, adOpenStatic, adLockOptimistic
If rs_check0.EOF = False Then
MsgBox "该生已被录取过，不能再录取！", vbOKOnly + vbInformation, ""
rs_check0.Close
Exit Sub
End If
rs_check0.Close
'检测招生计划表中该院系在该省招生名额是否已满
'先求招生计划中该院系在该省招生名额
Dim sqlCheck As String
sqlCheck = "select * from 招生计划表 where 院系= '" & txtDept.Text _
& "' and 省份='" & Text1(5) & "'"
rs_check.CursorLocation = adUseClient
rs_check.Open sqlCheck, conn, adOpenStatic, adLockOptimistic
'如果该院系在该省不招生，则提示用户并退出
If rs_check.EOF = True Then
MsgBox "对不起，该院系在该省不招生！", vbOKOnly + vbInformation, "注意"
rs_check.Close
Exit Sub
End If
Dim sumPlan As Integer
sumPlan = rs_check.Fields(2) '招生计划中该院系在该省招生名额
rs_check.Close
'再求已录取考生表中该院系在该省已录取人数
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -