frmstudent.frm

学生管理信息系统

Private Sub Form_Activate()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xs.mdb"
conn.Open

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "xsXJ", conn, 1, 1

Set rsXJ = New ADODB.Recordset                 '设置链接学生学籍
rsXJ.CursorLocation = adUseClient
rsXJ.Open "xsXJ", conn, 2, 2
Set DataGrid1.DataSource = rsXJ
DataGrid1.Refresh
Set DataGrid2.DataSource = rsXJ
DataGrid2.Refresh
Set DataGrid3.DataSource = rsXJ
DataGrid3.Refresh
Set DataGrid5.DataSource = rsXJ
DataGrid5.Refresh
Set rsZZ = New ADODB.Recordset
rsZZ.CursorLocation = adUseClient
rsZZ.Open "xtZZ", conn, 2, 2
Set DataGrid4.DataSource = rsZZ
DataGrid4.Refresh

Set rsZY = New ADODB.Recordset                '设置链接的专业
rsZY.CursorLocation = adUseClient
rsZY.Open "xsZY", conn, 1, 1
Set txtZhuanye.RowSource = rsZY
txtZhuanye.ListField = "专业名称"
Set txtXJzhuanye.RowSource = rsZY
txtXJzhuanye.ListField = "专业名称"
Set DataCombo2.RowSource = rsZY
DataCombo2.ListField = "专业名称"
Set txtPrintZhuanye.RowSource = rsZY
txtPrintZhuanye.ListField = "专业名称"

Set rsBJ = New ADODB.Recordset                 '设置链接的班级
rsBJ.CursorLocation = adUseClient
rsBJ.Open "xsBJ", conn, 1, 1
Set txtBanji.RowSource = rsBJ
txtBanji.ListField = "班级名称"
Set txtXJBj.RowSource = rsBJ
txtXJBj.ListField = "班级名称"
Set txtXJbanji.RowSource = rsBJ
txtXJbanji.ListField = "班级名称"
Set txtXJdelBJ.RowSource = rsBJ
txtXJdelBJ.ListField = "班级名称"
Set DataCombo1.RowSource = rsBJ
DataCombo1.ListField = "班级名称"
Set txtPrintBj.RowSource = rsBJ
txtPrintBj.ListField = "班级名称"

Set TextChange(0).DataSource = rsXJ '绑定字段
Set TextChange(1).DataSource = rsXJ
Set txtXJsex.DataSource = rsXJ
Set txtXJmianmao.DataSource = rsXJ
Set txtXJdate.DataSource = rsXJ
Set txtXJzhuanye.DataSource = rsXJ
Set txtXJbanji.DataSource = rsXJ
Set TextChange(2).DataSource = rsXJ
Set TextChange(3).DataSource = rsXJ
Set TextChange(4).DataSource = rsXJ
TextChange(0).DataField = "学号"
TextChange(1).DataField = "姓名"
txtXJsex.DataField = "性别"
txtXJmianmao.DataField = "政治面貌"
txtXJdate.DataField = "出生日期"
txtXJzhuanye.DataField = "专业"
txtXJbanji.DataField = "班级"
TextChange(2).DataField = "家庭地址"
TextChange(3).DataField = "联系方式"
TextChange(4).DataField = "备注"

For i = 0 To 9
  Set txtXJdelINFO(i).DataSource = rsXJ
Next
txtXJdelINFO(0).DataField = "学号"
txtXJdelINFO(1).DataField = "姓名"
txtXJdelINFO(2).DataField = "性别"
txtXJdelINFO(3).DataField = "政治面貌"
txtXJdelINFO(4).DataField = "出生日期"
txtXJdelINFO(5).DataField = "专业"
txtXJdelINFO(6).DataField = "班级"
txtXJdelINFO(7).DataField = "家庭地址"
txtXJdelINFO(8).DataField = "联系方式"
txtXJdelINFO(9).DataField = "备注"

End Sub

Sub inputXS_info()                          '添加学生学籍到库
 Dim txtSQL As String
  txtSQL = "select * from xsXJ where 学号='" & Trim(txtUser_Info(0).Text) & "'"
   Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open txtSQL, conn, 1, 1
    If rs.EOF = False Then
       MsgBox "数据库已经存在学号为：" & txtUser_Info(0).Text & " 的学生！请重新输入!", vbOKOnly, "警告"
       cmdXJcls_Click
       txtUser_Info(0).SetFocus
    Else
      rsXJ.AddNew
      rsXJ.Fields(0) = txtUser_Info(0).Text
      rsXJ.Fields(1) = txtUser_Info(1).Text
      If OptM Then
        rsXJ.Fields(2) = "男"
      Else
        rsXJ.Fields(2) = "女"
      End If
      rsXJ.Fields(3) = txtMianmao.Text
      rsXJ.Fields(4) = txtDate.Value
      rsXJ.Fields(5) = txtZhuanye.Text
      rsXJ.Fields(6) = txtBanji.Text
      rsXJ.Fields(7) = txtUser_Info(2).Text
      If Trim(txtUser_Info(3).Text = "") Then
        rsXJ.Fields(8) = "空"
      Else
        rsXJ.Fields(8) = txtUser_Info(3).Text
      End If
      If Trim(txtUser_Info(4).Text = "") Then
        rsXJ.Fields(9) = "空"
      Else
        rsXJ.Fields(9) = txtUser_Info(4).Text
      End If
      rsXJ.Update
      'Set DataGrid1.DataSource = rsXJ
      DataGrid1.Refresh
      MsgBox "学生学籍已经成功地加入到数据库!", vbOKOnly + vbInformation, "提示"
      cmdXJcls_Click
      txtUser_Info(0).SetFocus
   End If
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 On Error Resume Next
 rsXJ.Close
 rsBJ.Close
 rsZY.Close
 Me.Hide
End Sub

Private Sub opt1_Click()
If opt1.Value Then
  txtXueHao.Enabled = True
  txtXueHao.SetFocus
  txtName.Text = ""
  txtName.Enabled = False
End If
End Sub

Private Sub Opt2_Click()
If Opt2.Value Then
 txtName.Enabled = True
 txtName.SetFocus
 txtXueHao.Text = ""
 txtXueHao.Enabled = False
End If
End Sub

Sub ChangeXJ_info()         '修改学生学籍模块
 For i = 0 To 2
  If Trim(TextChange(i).Text = "") Then
  MsgBox "请输入完整的学生信息！", vbOKOnly + vbInformation, "提示"
  Exit Sub
  End If
 Next
 'If txtXJsex.Text = "" Then MsgBox "请选择学生性别！", vbOKOnly + vbInformation, "提示": txtXJsex.SetFocus: Exit Sub
 'If txtXJmianmao.Text = "" Then MsgBox "请选择学生的政治面貌！", vbOKOnly + vbInformation, "提示": txtXJmianmao.SetFocus: Exit Sub
 'If txtXJzhuanye.Text = "" Or txtXJbanji.Text = "" Then MsgBox "请选择学生专业和班级！", vbOKOnly + vbInformation, "提示": Exit Sub
  
  'Dim txtSQL As String
  'txtSQL = "select * from xsXJ where 学号= '" & Trim(TextChange(0).Text) & "'"
  'Set rsXJ = New ADODB.Recordset
  ' rsXJ.CursorLocation = adUseClient
  ' rsXJ.Open "xsXJ", conn, 2, 2
   'If rs.EOF = False Then
   '   MsgBox "该学号已经存在！请重新输入？", vbOKOnly + vbExclamation, "警告"
   'End If
   rsXJ.Fields(0) = TextChange(0).Text
   rsXJ.Fields(1) = TextChange(1).Text
   rsXJ.Fields(2) = txtXJsex.Text
   rsXJ.Fields(3) = txtXJmianmao.Text
   rsXJ.Fields(4) = txtXJdate.Value
   rsXJ.Fields(5) = txtXJzhuanye.Text
   rsXJ.Fields(6) = txtXJbanji.Text
   rsXJ.Fields(7) = TextChange(2).Text
   If Trim(TextChange(3).Text = "") Then
     rsXJ.Fields(8) = "空"
   Else
     rsXJ.Fields(8) = TextChange(3).Text
   End If
   If Trim(TextChange(4).Text = "") Then
     rsXJ.Fields(9) = "空"
   Else
     rsXJ.Fields(9) = TextChange(4).Text
   End If
   rsXJ.Update
   DataGrid1.Refresh
   DataGrid2.Refresh
   DataGrid3.Refresh
   DataGrid5.Refresh
'   rsXJ.Close
   MsgBox "学生学籍修改成功！", vbOKOnly + vbInformation, "提示"
End Sub

Sub xsXJfind_info()                         '学籍查询模块
 Dim txtSQL As String
 If opt1.Value Then
   If Check1.Value Then
    txtSQL = "select * from xsXJ where 学号='" & Trim(txtXueHao.Text) & "'" & " and 班级='" & Trim(txtXJBj.Text) & "'"
   Else
    txtSQL = "select * from xsXJ where 学号= '" & Trim(txtXueHao.Text) & "'"
   End If
 Else
  If Check1.Value Then
   txtSQL = "select * from xsXJ where 姓名 like '" & "%" & Trim(txtName.Text) & "%" & "'" & " and 班级='" & Trim(txtXJBj.Text) & "'"
  Else
   txtSQL = "select * from xsXJ where 姓名 like '" & "%" & Trim(txtName.Text) & "%" & "' "
  End If
 End If
  'Set rs = New ADODB.Recordset
  rs.Close
  rs.Open txtSQL, conn, 1, 1
  If rs.EOF = False Then
   rs.MoveFirst
   Set DataGrid2.DataSource = rs
   DataGrid2.Refresh
   
   For i = 0 To 4
    Set TextChange(i).DataSource = rs
   Next
   Set txtXJsex.DataSource = rs
   Set txtXJmianmao.DataSource = rs
   Set txtXJdate.DataSource = rs
   Set txtXJzhuanye.DataSource = rs
   Set txtXJbanji.DataSource = rs
  Else
    MsgBox "没有找到符合条件的记录！请重新输入查询条件！", vbOKOnly + vbInformation, "提示"
  End If

End Sub

Private Sub opt3_Click()
If opt3.Value Then
 txtXJdelNum.Enabled = True
 txtXJdelNum.SetFocus
 txtXJdelName.Text = ""
 txtXJdelName.Enabled = False
End If
End Sub

Private Sub Opt4_Click()
If Opt4.Value Then
  txtXJdelName.Enabled = True
  txtXJdelName.SetFocus
  txtXJdelNum.Text = ""
  txtXJdelNum.Enabled = False
End If
End Sub

Private Sub OptPrint_Click(Index As Integer)
print_ID = Index
On Error Resume Next
Select Case Index
 Case 0
  DataCombo1.Enabled = False
  DataCombo2.Enabled = False
  Combo1.Enabled = False
  txtPrintNum.Enabled = True
  txtPrintName.Enabled = True
  txtPrintZhuanye.Enabled = True
  txtPrintBj.Enabled = True
  txtPrintNum.SetFocus
  DataCombo1.Text = ""
  DataCombo2.Text = ""
  Combo1.Text = ""
 Case 1
  txtPrintNum.Enabled = False
  txtPrintName.Enabled = False
  txtPrintZhuanye.Enabled = False
  txtPrintBj.Enabled = False
  DataCombo2.Enabled = False
  Combo1.Enabled = False
  DataCombo1.Enabled = True
  DataCombo1.SetFocus
  DataCombo2.Text = ""
  Combo1.Text = ""
  txtPrintNum.Text = "": txtPrintName.Text = "": txtPrintZhuanye.Text = "": txtPrintBj.Text = ""
 Case 2
  txtPrintNum.Enabled = False
  txtPrintName.Enabled = False
  txtPrintZhuanye.Enabled = False
  txtPrintBj.Enabled = False
  DataCombo1.Enabled = False
  Combo1.Enabled = False
  DataCombo2.Enabled = True
  DataCombo2.SetFocus
  DataCombo1.Text = ""
  Combo1.Text = ""
  txtPrintNum.Text = "": txtPrintName.Text = "": txtPrintZhuanye.Text = "": txtPrintBj.Text = ""
 Case 3
  txtPrintNum.Enabled = False
  txtPrintName.Enabled = False
  txtPrintZhuanye.Enabled = False
  txtPrintBj.Enabled = False
  DataCombo1.Enabled = False
  DataCombo2.Enabled = False
  Combo1.Enabled = True
  Combo1.SetFocus
  DataCombo1.Text = ""
  DataCombo2.Text = ""
  txtPrintNum.Text = "": txtPrintName.Text = "": txtPrintZhuanye.Text = "": txtPrintBj.Text = ""
 Case 4
  txtPrintNum.Enabled = False
  txtPrintName.Enabled = False
  txtPrintZhuanye.Enabled = False
  txtPrintBj.Enabled = False
  DataCombo1.Enabled = False
  DataCombo2.Enabled = False
  Combo1.Enabled = False
  Combo1.Text = ""
  DataCombo1.Text = ""
  DataCombo2.Text = ""
  txtPrintNum.Text = "": txtPrintName.Text = "": txtPrintZhuanye.Text = "": txtPrintBj.Text = ""
End Select
End Sub

Sub print_Info()                    '打印学生学籍模块

End Sub

Sub xjDelfind()                    '删除查询
 Dim txtSQL As String
 If opt3.Value Then
   If checkDel.Value Then
    txtSQL = "select * from xsXJ where 学号 ='" & Trim(txtXJdelNum.Text) & "'" & " and 班级 ='" & Trim(txtXJdelBJ.Text) & "'"
   Else
    txtSQL = "select * from xsXJ where 学号 = '" & Trim(txtXJdelNum.Text) & "'"
   End If
 Else
  If checkDel.Value Then
   txtSQL = "select * from xsXJ where 姓名 like '" & "%" & Trim(txtXJdelName.Text) & "%" & "'" & " and 班级 ='" & Trim(txtXJdelBJ.Text) & "'"
  Else
   txtSQL = "select * from xsXJ where 姓名 like '" & "%" & Trim(txtXJdelName.Text) & "%" & "' "
  End If
 End If
  Set rss = New ADODB.Recordset
  rss.Open txtSQL, conn, 1, 1
  If rss.EOF = False Then
   Set DataGrid3.DataSource = rss
   DataGrid3.Refresh
   For i = 0 To 9
    Set txtXJdelINFO(i).DataSource = rss
   Next
  Else
    MsgBox "没有找到符合条件的记录！请重新输入查询条件！", vbOKOnly + vbInformation, "提示"
  End If
End Sub