📄 frmstudent.frm
字号:
End
Begin MSDataListLib.DataCombo txtBanji
Height = 315
Left = 1080
TabIndex = 15
Top = 2640
Width = 2415
_ExtentX = 4260
_ExtentY = 582
_Version = 393216
Style = 2
Text = ""
End
Begin MSDataListLib.DataCombo txtZhuanye
Height = 315
Left = 1080
TabIndex = 14
Top = 2280
Width = 2415
_ExtentX = 4260
_ExtentY = 582
_Version = 393216
Style = 2
Text = ""
End
Begin VB.OptionButton OptW
Caption = "女"
Height = 255
Left = 1800
TabIndex = 13
Top = 1150
Width = 495
End
Begin VB.OptionButton OptM
Caption = "男"
Height = 255
Left = 1080
TabIndex = 12
Top = 1150
Width = 495
End
Begin VB.CommandButton cmdADD
Caption = "添 加"
Height = 375
Left = 9480
TabIndex = 11
Top = 3600
Width = 1215
End
Begin VB.TextBox txtUser_Info
Height = 1155
Index = 4
Left = 6720
TabIndex = 9
Top = 360
Width = 5415
End
Begin VB.TextBox txtUser_Info
Height = 320
Index = 3
Left = 1440
TabIndex = 8
Top = 3480
Width = 2775
End
Begin VB.TextBox txtUser_Info
Height = 320
Index = 2
Left = 1440
TabIndex = 7
Top = 3120
Width = 5175
End
Begin VB.TextBox txtUser_Info
Height = 320
Index = 1
Left = 1080
TabIndex = 6
Top = 720
Width = 2775
End
Begin VB.TextBox txtUser_Info
Height = 320
Index = 0
Left = 1080
TabIndex = 5
Top = 360
Width = 2775
End
Begin VB.Line Line2
BorderColor = &H00E0E0E0&
X1 = 6480
X2 = 12360
Y1 = 3360
Y2 = 3360
End
Begin VB.Label lbl2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注："
Height = 195
Left = 6120
TabIndex = 10
Top = 400
Width = 540
End
Begin VB.Label lbl1
BackStyle = 0 'Transparent
Caption = $"frmStudent.frx":03DC
Height = 3435
Left = 480
TabIndex = 4
Top = 400
Width = 1020
End
End
End
Begin VB.Line Line1
BorderColor = &H00404040&
X1 = 0
X2 = 12600
Y1 = 600
Y2 = 600
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "学 籍 管 理"
BeginProperty Font
Name = "黑体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 435
Left = 4560
TabIndex = 1
Top = 120
Width = 2520
End
End
Attribute VB_Name = "frmStudent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit
Dim miCount As Integer
Private conn As ADODB.Connection
Private rsXJ As ADODB.Recordset '学生学籍
Private rsZY As ADODB.Recordset '专业
Private rsBJ As ADODB.Recordset '班级
Private rsZZ As ADODB.Recordset
Private rs As ADODB.Recordset
Dim print_ID As Integer '打印设置位
Private Sub Check1_Click()
If Check1.Value Then
txtXJBj.Enabled = True
Else
txtXJBj.Text = ""
txtXJBj.Enabled = False
End If
End Sub
Private Sub checkDel_Click()
If checkDel.Value Then
txtXJdelBJ.Enabled = True
Else
txtXJdelBJ.Enabled = False
End If
End Sub
Private Sub cmdADD_Click()
For i = 0 To 2
If Trim(txtUser_Info(i).Text = "") Then
MsgBox "请输入完整的信息！", vbOKOnly + vbQuestion, "提示"
txtUser_Info(i).SetFocus
Exit Sub
End If
Next
If txtZhuanye.Text = "" Or txtBanji.Text = "" Then MsgBox "请选择学生专业和班级！", vbOKOnly + vbQuestion, "提示": Exit Sub
If txtMianmao.Text = "" Then MsgBox "请选择学生的政治面貌！", vbOKOnly + vbQuestion, "提示": txtMianmao.SetFocus: Exit Sub
If Not (OptM Or OptW) Then MsgBox "请选择学生的性别！", vbOKOnly + vbQuestion, "提示": Exit Sub
inputXS_info '写入学生信息到库
End Sub
Private Sub cmdExit_Click()
'rsZY.Close
'rsBJ.Close
Me.Hide
End Sub
Private Sub cmdPrintOK_Click()
Select Case print_ID
Case 0
If Trim(txtPrintNum.Text = "") Or Trim(txtPrintName.Text = "") Or Trim(txtPrintZhuanye.Text = "") Or Trim(txtPrintBj.Text = "") Then
MsgBox "请输入完整的信息！", vbOKOnly + vbQuestion, "提示"
End If
Case 1
If DataCombo1.Text = "" Then
MsgBox "请选择要打印的班级！", vbOKOnly + vbQuestion, "提示"
End If
Case 2
If DataCombo2.Text = "" Then
MsgBox "请选择要打印的专业！", vbOKOnly + vbQuestion, "提示"
End If
Case 3
On Error Resume Next
If Combo1.Text = "" Then
MsgBox "请选择要打印学生的政治面貌！", vbOKOnly + vbQuestion, "提示"
End If
End Select
print_Info '打印学生学籍
End Sub
Private Sub cmdXJchange_Click()
If cmdXJchange.Caption = "修改" Then
cmdXJchange.Caption = "确认修改"
For i = 0 To 4
TextChange(i).Enabled = True
Next
txtXJmianmao.Enabled = True
txtXJdate.Enabled = True
txtXJzhuanye.Enabled = True
txtXJbanji.Enabled = True
txtXJsex.Enabled = True
ChangeXJ_info '修改学生信息
Else
cmdXJchange.Caption = "修改"
For i = 0 To 4
TextChange(i).Enabled = False
Next
txtXJmianmao.Enabled = False
txtXJdate.Enabled = False
txtXJzhuanye.Enabled = False
txtXJbanji.Enabled = False
txtXJsex.Enabled = False
End If
End Sub
Private Sub cmdXJchangeT_Click()
cmdXJchange.Caption = "修改"
For i = 0 To 4
TextChange(i).Enabled = False
Next
txtXJmianmao.Enabled = False
txtXJdate.Enabled = False
txtXJzhuanye.Enabled = False
txtXJbanji.Enabled = False
txtXJsex.Enabled = False
End Sub
Private Sub cmdXJcls_Click()
On Error Resume Next
For i = 0 To 4
txtUser_Info(i).Text = ""
Next
OptM.Value = 0: OptW.Value = 0
txtMianmao.Text = ""
txtZhuanye.Text = ""
txtBanji.Text = ""
txtUser_Info(0).SetFocus
End Sub
Private Sub cmdXJdelExit_Click()
End Sub
Private Sub cmdXJdel_Click()
i = MsgBox("是否真的删除该学生学籍！", vbYesNo + vbQuestion, "提示")
If i = vbYes Then
rsXJ.Delete
rsXJ.MoveFirst
DataGrid3.Refresh
End If
End Sub
Private Sub cmdXJdelFind_Click()
If opt3.Value And Trim(txtXJdelNum.Text) = "" Then MsgBox "请输入学生学号！", vbOKOnly + vbInformation, "提示": Exit Sub
If Opt4.Value And Trim(txtXJdelName.Text) = "" Then MsgBox "请输入学生姓名！", vbOKOnly + vbInformation, "提示": Exit Sub
If checkDel.Value And txtXJdelBJ.Text = "" Then MsgBox "请选择班级信息！", vbOKOnly + vbInformation, "提示": Exit Sub
xjDelfind '查询
End Sub
Private Sub cmdXJfind_Click()
If opt1.Value And Trim(txtXueHao.Text = "") Then MsgBox "请输入学生学号！", vbOKOnly + vbInformation, "提示": txtXueHao.SetFocus: Exit Sub
If Opt2.Value And Trim(txtName.Text = "") Then MsgBox "请输入学生姓名！", vbOKOnly + vbInformation, "提示": txtName.SetFocus: Exit Sub
If Check1.Value And txtXJBj.Text = "" Then MsgBox "请选择班级！", vbOKOnly + vbInformation, "提示": txtXJBj.SetFocus: Exit Sub
xsXJfind_info '学籍查询模块
End Sub
Private Sub Command10_Click()
Set DataGrid2.DataSource = rsXJ
DataGrid2.Refresh
End Sub
Private Sub Command11_Click()
Set DataGrid3.DataSource = rsXJ
DataGrid3.Refresh
End Sub
Private Sub Command4_Click()
On Error Resume Next
i = MsgBox("是否清空所有历史记录?", vbYesNo + vbInformation, "提示")
If i = vbYes Then
rsZZ.MoveFirst
While Not rsZZ.EOF
rsZZ.Delete
rsZZ.MoveNext
Wend
End If
End Sub
Private Sub Command5_Click()
rsXJ.MovePrevious
If rsXJ.BOF Then
MsgBox "已经是第一条记录了！", vbOKOnly + vbInformation, "提示"
rsXJ.MoveFirst
End If
End Sub
Private Sub Command6_Click()
On Error Resume Next
rsXJ.Close
rsBJ.Close
rsZY.Close
conn.Close
Unload Me
End Sub
Private Sub Command7_Click()
On Error Resume Next
rsXJ.MoveNext
If rsXJ.EOF Then
MsgBox "已经是最后一条记录了！", vbOKOnly + vbInformation, "提示"
rsXJ.MoveLast
End If
End Sub
Private Sub Command8_Click()
rsXJ.MovePrevious
If rsXJ.BOF Then
MsgBox "已经是第一条记录了！", vbOKOnly + vbInformation, "提示"
rsXJ.MoveFirst
End If
End Sub
Private Sub Command9_Click()
On Error Resume Next
rsXJ.MoveNext
If rsXJ.EOF Then
MsgBox "已经是最后一条记录了！", vbOKOnly + vbInformation, "提示"
rsXJ.MoveLast
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -