📄 modstudent.frm
字号:
Top = 560
Width = 1095
End
Begin VB.Label Label3
Caption = "登录密码："
Height = 375
Left = 6720
TabIndex = 31
Top = 555
Width = 1095
End
Begin VB.Label Label4
Caption = "性别："
Height = 375
Left = 360
TabIndex = 30
Top = 1130
Width = 975
End
Begin VB.Label Label5
Caption = "出生日期："
Height = 255
Left = 3240
TabIndex = 29
Top = 1160
Width = 975
End
Begin VB.Label Label6
Caption = "入学日期："
Height = 375
Left = 6720
TabIndex = 28
Top = 1200
Width = 1215
End
Begin VB.Label Label7
Caption = "联系电话："
Height = 255
Left = 6720
TabIndex = 27
Top = 2235
Width = 1215
End
Begin VB.Label Label8
Caption = "籍贯："
Height = 375
Left = 360
TabIndex = 26
Top = 2210
Width = 975
End
Begin VB.Label Label9
Caption = "学制："
Height = 375
Left = 360
TabIndex = 25
Top = 1720
Width = 975
End
Begin VB.Label Label10
Caption = "政治面目："
Height = 255
Left = 3240
TabIndex = 24
Top = 1720
Width = 1335
End
Begin VB.Label Label11
Caption = "家庭住址："
Height = 375
Left = 360
TabIndex = 23
Top = 2800
Width = 1695
End
Begin VB.Label Label14
Caption = "备注信息："
Height = 495
Left = 360
TabIndex = 22
Top = 3600
Width = 1935
End
Begin VB.Label Label15
Caption = "民族："
Height = 375
Left = 6720
TabIndex = 21
Top = 1725
Width = 1095
End
Begin VB.Label Label13
Caption = "培养方式："
Height = 255
Left = 3240
TabIndex = 20
Top = 2210
Width = 1095
End
Begin VB.Label Label12
Caption = "宿舍地址："
Height = 495
Left = 5280
TabIndex = 19
Top = 2805
Width = 1095
End
Begin VB.Label Label16
Caption = "年"
Height = 255
Left = 2520
TabIndex = 18
Top = 1720
Width = 495
End
End
Begin VB.Label Label17
Caption = " "
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1095
Left = 8400
TabIndex = 48
Top = 5520
Width = 2655
End
End
Attribute VB_Name = "modStudent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim MRC As ADODB.Recordset
Dim myBookmark As Variant
Dim mcclean, IsValid, BACK As Boolean
Public DeptID, MajorID As Integer
Public StudentID As String
Public Sub dataClear()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
Text4.Text = ""
Text5.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Text8.Text = ""
Text7.Text = ""
Combo6.Text = ""
Text6.Text = ""
RichTextBox1.Text = ""
RichTextBox2.Text = ""
RichTextBox3.Text = ""
Combo4.Text = ""
Combo5.Text = ""
Frame2.Enabled = False
Frame3.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
End Sub
Public Sub viewData()
Dim txtSQL As String
Dim MsgText As String
Dim QUE As ADODB.Recordset
Text1.Text = MRC.Fields(0)
StudentID = Text1.Text
Text2.Text = MRC.Fields(1)
Text3.Text = MRC.Fields(2)
Combo1.Text = MRC.Fields(3)
Text4.Text = MRC.Fields(4)
Text5.Text = MRC.Fields(5)
Combo2.Text = MRC.Fields(6)
Combo3.Text = MRC.Fields(7)
Text8.Text = MRC.Fields(10)
Text7.Text = MRC.Fields(11)
Combo6.Text = MRC.Fields(12)
Text6.Text = MRC.Fields(13)
RichTextBox1.Text = MRC.Fields(14)
RichTextBox2.Text = MRC.Fields(15)
RichTextBox3.Text = MRC.Fields(16)
txtSQL = "SELECT NationalityName FROM NATIONALITY WHERE NationalityID=" & Text8.Text & ""
Set QUE = ExecuteSQL(txtSQL, MsgText)
Combo4.Text = QUE.Fields(0).Value
txtSQL = "SELECT HomeTownName FROM HOMETOWN WHERE HomeTownID='" & Text7.Text & "'"
Set QUE = ExecuteSQL(txtSQL, MsgText)
Combo5.Text = QUE.Fields(0).Value
End Sub
Private Sub Calendar1_Click()
Text4.Text = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Calendar2_Click()
Text5.Text = Calendar2.Value
Calendar2.Visible = False
End Sub
Private Sub cmd1_Click()
Calendar1.Visible = True
End Sub
Private Sub cmd2_Click()
Calendar2.Visible = True
End Sub
Private Sub Combo5_Click()
Dim txtSQL As String
Dim MsgText As String
Dim QUE As ADODB.Recordset
txtSQL = "SELECT HomeTownID FROM HOMETOWN WHERE HomeTownName='" & Combo5.Text & "'"
Set QUE = ExecuteSQL(txtSQL, MsgText)
Text7.Text = QUE.Fields(0).Value
End Sub
Private Sub Combo4_Click()
Dim txtSQL As String
Dim MsgText As String
Dim QUE As ADODB.Recordset
txtSQL = "SELECT NationalityID FROM NATIONALITY WHERE NationalityName='" & Combo4.Text & "'"
Set QUE = ExecuteSQL(txtSQL, MsgText)
Text8.Text = QUE.Fields(0).Value
End Sub
Private Sub Command5_Click()
IsValid = True
End Sub
Private Sub Command6_Click()
Dim DelSQL As String
Dim DelMsg As String
Dim DEL As ADODB.Recordset
Dim insSQL As String
Dim InsMsg As String
Dim INS As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim QUE As ADODB.Recordset
If Not (IsValid) Then
MsgBox "请先请先点击[修改信息]按钮！", vbOKOnly + vbExclamation, "学籍管理系统"
Else
If Not (Testtxt(Text1) And Testtxt(Text2) And Testtxt(Text3) And Testtxt(Text4) And Testtxt(Text5) And Testtxt(Text6) And Testtxt(Combo1) And Testtxt(Combo2) And Testtxt(Combo3) And Testtxt(Text8) And Testtxt(Text7) And Testtxt(Combo6) And Testtxt(RichTextBox1) And Testtxt(RichTextBox2)) Then
MsgBox "请填写完整学生信息！", vbOKOnly + vbExclamation, "学籍管理系统"
Exit Sub
End If
If Not IsDate(Text4) Then
MsgBox "日期的输入的格式为（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"
Text4.SetFocus
Text4.Text = ""
Exit Sub
End If
If Not IsDate(Text5) Then
MsgBox "日期的输入的格式为（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"
Text5.SetFocus
Text5.Text = ""
Exit Sub
End If
DelSQL = "DELETE FROM STUDENTINFO WHERE StudentID='" & StudentID & "'"
Set DEL = ExecuteSQL(DelSQL, DelMsg)
txtSQL = "SELECT * FROM STUDENTINFO WHERE StudentID='" & Text1.Text & "'"
Set QUE = ExecuteSQL(txtSQL, MsgText)
If Not (QUE.EOF) Then
MsgBox "数据库中已经存在学生编号为[" & Text1.Text & "]的记录，请查证后重新填写！", vbOKOnly + vbExclamation, "学籍管理系统"
Text1.Text = ""
Exit Sub
End If
If (RichTextBox3.Text = "") Then
RichTextBox3.Text = " "
End If
insSQL = "INSERT INTO STUDENTINFO VALUES('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Combo1.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Combo2.Text & "','" & Combo3.Text & "'," & MajorID & "," & DeptID & "," & Text8.Text & "," & Text7.Text & ",'" & Combo6.Text & "','" & Text6.Text & "','" & RichTextBox1.Text & "','" & RichTextBox2.Text & "','" & RichTextBox3.Text & "')"
Set INS = ExecuteSQL(insSQL, InsMsg)
If (InsMsg = "INSERT query successful") Then
MsgBox "数据修改完毕！", vbOKOnly + vbInformation, "学籍管理系统"
End If
End If
txtSQL = "SELECT * FROM STUDENTINFO WHERE DeptID=" & DeptID & " AND MajorID=" & MajorID & ""
Set MRC = ExecuteSQL(txtSQL, MsgText)
IsValid = False
End Sub
Private Sub Command7_Click()
Dim txtSQL As String
Dim MsgText As String
txtSQL = "SELECT * FROM STUDENTINFO WHERE DeptID=" & DeptID & " AND MajorID=" & MajorID & ""
Set MRC = ExecuteSQL(txtSQL, MsgText)
Call Me.viewData
IsValid = False
End Sub
Private Sub Command8_Click()
Dim DelSQL As String
Dim DelMsg As String
Dim DEL As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim SEL As ADODB.Recordset
str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
If (vbOK) Then
DelSQL = "DELETE FROM STUDENTINFO WHERE StudentID='" & Text1.Text & "'"
Set DEL = ExecuteSQL(DelSQL, DelMsg)
txtSQL = "SELECT * FROM STUDENTINFO WHERE DeptID=" & DeptID & " AND MajorID=" & MajorID & ""
Set SEL = ExecuteSQL(txtSQL, MsgText)
If (SEL.EOF) Then
Call dataClear
MsgBox "表中没有数据！", vbOKOnly + vbExclamation, "学籍管理系统"
Else
MRC.MoveNext
If (MRC.EOF) Then
MRC.MoveFirst
End If
End If
End If
End Sub
Private Sub Command9_Click()
If (BACK) Then
Unload Me
getMajor.Show
Else
Unload Me
Unload getMajor
End If
End Sub
Private Sub Form_Load()
Dim txtSQL As String
Dim MsgText As String
Dim txtSQL1 As String
Dim Msgtext1 As String
Dim txtSQL2 As String
Dim Msgtext2 As String
Dim mrcA As ADODB.Recordset
Me.Move (frmMain.ScaleWidth - Me.Width) / 2, (frmMain.ScaleHeight - Me.Height) / 2
Me.Caption = "修改（" & getMajor.Combo2.Text & "——" & getMajor.Combo1.Text & "）学生信息"
Label17.Caption = "浏览[" & getMajor.Combo2.Text & "——" & getMajor.Combo1.Text & "]学生信息，并可以对学生信息进行删除和修改操作"
txtSQL = "SELECT MAJOR.MajorID,DEPARTMENT.DeptID FROM MAJOR,DEPARTMENT WHERE DEPARTMENT.DeptID=MAJOR.DeptID AND DEPARTMENT.DeptName='" & getMajor.Combo2.Text & "' AND MAJOR.MajorName='" & getMajor.Combo1.Text & "'"
Set mrcA = ExecuteSQL(txtSQL, MsgText)
MajorID = mrcA.Fields(0).Value
DeptID = mrcA.Fields(1).Value
txtSQL1 = "SELECT NationalityName FROM NATIONALITY"
Call Module1.DataList(txtSQL1, Combo4)
txtSQL2 = "SELECT HomeTownName FROM HOMETOWN"
Call Module1.DataList(txtSQL2, Combo5)
txtSQL = "SELECT * FROM STUDENTINFO WHERE DeptID=" & DeptID & " AND MajorID=" & MajorID & ""
Set MRC = ExecuteSQL(txtSQL, MsgText)
If Not MRC.EOF Then
MRC.MoveFirst
Call viewData
mcbookmark = MRC.Bookmark
mcclean = True
IsValid = False
Else
MsgBox "表中没有数据！", vbOKOnly + vbExclamation, "学籍管理系统"
Call dataClear
BACK = True
End If
End Sub
Private Sub Command1_Click()
MRC.MoveFirst
Call viewData
End Sub
Private Sub Command2_Click()
MRC.MovePrevious
If MRC.BOF Then
MsgBox "该记录为第一条记录！", vbOKOnly + vbExclamation, "学籍管理系统"
MRC.MoveLast
End If
Call viewData
End Sub
Private Sub Command3_Click()
MRC.MoveNext
If MRC.EOF Then
MsgBox "该记录为最后一条记录！", vbOKOnly + vbExclamation, "学籍管理系统"
MRC.MoveFirst
End If
Call viewData
End Sub
Private Sub Command4_Click()
MRC.MoveLast
Call viewData
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -