form3.frm

VB 学生管理系统,实习时候用的。现在传上来给大家看看。菜鸟作品

End If

myrs1.Open strSql, mycon, adOpenStatic, adLockReadOnly
Set Form18.DataCombo1.RowSource = myrs1
Form18.DataCombo1.ListField = "课程名称"

Form18.Show
End Sub

Private Sub cx27_Click()
Dim strSql As String
strSql = "select distinct 学号,课程号 from 学生选课 "

If myrs1.State = adStateOpen Then
    myrs1.Close
End If

myrs1.Open strSql, mycon, adOpenStatic, adLockReadOnly
Set Form19.DataCombo1.RowSource = myrs1
Set Form19.DataCombo2.RowSource = myrs1
Form19.DataCombo1.ListField = "学号"
Form19.DataCombo2.ListField = "课程号"

Form19.Show
End Sub

Private Sub sc11_Click()
Dim strdelete As String, classname As String
classname = InputBox("请输入班级名称（可以只输入前几个字）", 注意, "")
If Trim(classname) = "" Then Exit Sub
strdelete = " delete 学生基本信息 where 学生基本信息.班级 like '" & Trim(classname) & "%'"
mycon.BeginTrans
mycon.Execute (strdelete)
a = MsgBox("删除学生基本信息表中的记录将会删除相关的学生选课情况信息" & Chr(13) & "确定吗？", vbOKCancel + vbExclamation, "注意")
If a = vbOK Then
 mycon.CommitTrans
 MsgBox "指定班级为" & classname & "的所有学生基本信息及其相关信心已经从数据库中全部删除", vbInformation, "注意"
Else
 mycon.RollbackTrans
 MsgBox "删除被撤消！！", vbExclamation, "注意"
End If
If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "学生基本信息", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form7.Caption = "学生基本信息-查询结果"
    Form7.Show
End Sub

Private Sub sc12_Click()
Dim strdelete As String, id As String
id = InputBox("请输入学号（可以只输入前几个字）", 注意, "")
If Trim(id) = "" Then Exit Sub
strdelete = " delete 学生基本信息 where 学生基本信息.学号 like '" & Trim(id) & "%'"
mycon.BeginTrans
mycon.Execute (strdelete)
a = MsgBox("删除学生基本信息表中的记录将会删除相关的学生选课情况信息" & Chr(13) & "确定吗？", vbOKCancel + vbExclamation, "注意")
If a = vbOK Then
 mycon.CommitTrans
 MsgBox "指定学号为" & id & "的所有学生基本信息及其相关信心已经从数据库中全部删除", vbInformation, "注意"
Else
 mycon.RollbackTrans
 MsgBox "删除被撤消！！", vbExclamation, "注意"
End If

If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "学生基本信息", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form7.Caption = "学生基本信息-查询结果"
    Form7.Show
End Sub

Private Sub sc21_Click()
Dim strdelete As String, kc As String
kc = InputBox("请输入课程号（可以只输入前几个字）", 注意, "")
If Trim(kc) = "" Then Exit Sub
strdelete = " delete 课程表 where 课程表.课程号 like '" & Trim(kc) & "%'"
mycon.BeginTrans
mycon.Execute (strdelete)
a = MsgBox("删除学生基本信息表中的记录将会删除相关的学生选课情况信息" & Chr(13) & "确定吗？", vbOKCancel + vbExclamation, "注意")
If a = vbOK Then
 mycon.CommitTrans
 MsgBox "指定课程号为" & kc_id & "的所有学生基本信息及其相关信心已经从数据库中全部删除", vbInformation, "注意"
Else
 mycon.RollbackTrans
 MsgBox "删除被撤消！！", vbExclamation, "注意"
End If
  If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "课程表", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form7.Caption = "课程表-查询结果"
    Form7.Show
End Sub

Private Sub sc22_Click()
Dim strdelete As String, kcname As String
kcname = InputBox("请输入课程名称（可以只输入前几个字）", 注意, "")
If Trim(kc) = "" Then Exit Sub
strdelete = " delete 课程表 where 课程表.课程名称 like '" & Trim(kcname) & "%'"
mycon.BeginTrans
mycon.Execute (strdelete)
a = MsgBox("删除学生基本信息表中的记录将会删除相关的学生选课情况信息" & Chr(13) & "确定吗？", vbOKCancel + vbExclamation, "注意")
If a = vbOK Then
 mycon.CommitTrans
 MsgBox "指定课程名称为" & kc_name & "的所有学生基本信息及其相关信心已经从数据库中全部删除", vbInformation, "注意"
Else
 mycon.RollbackTrans
 MsgBox "删除被撤消！！", vbExclamation, "注意"
End If
  If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "课程表", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form7.Caption = "课程表-查询结果"
    Form7.Show
End Sub

Private Sub sc31_Click()
Dim strdelete As String, id As String
id = InputBox("请输入学号（可以只输入前几个字）", 注意, "")
If Trim(id) = "" Then Exit Sub
strdelete = " delete 学生选课 where 学生选课.学号 like '" & Trim(id) & "%'"
mycon.BeginTrans
mycon.Execute (strdelete)
a = MsgBox("删除学生基本信息表中的记录将会删除相关的学生选课情况信息" & Chr(13) & "确定吗？", vbOKCancel + vbExclamation, "注意")
If a = vbOK Then
 mycon.CommitTrans
 MsgBox "指定学号为" & id & "的所有学生基本信息及其相关信心已经从数据库中全部删除", vbInformation, "注意"
Else
 mycon.RollbackTrans
 MsgBox "删除被撤消！！", vbExclamation, "注意"
End If
 If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "学生选课", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form7.Caption = "学生选课-查询结果"
    Form7.Show
End Sub

Private Sub sc32_Click()
Dim strdelete As String, kc_id As String
kc_id = InputBox("请输入课程号（可以只输入前几个字）", 注意, "")
If Trim(kc_id) = "" Then Exit Sub
strdelete = " delete 学生选课 where 学生选课.课程号 like '" & Trim(kc_id) & "%'"
mycon.BeginTrans
mycon.Execute (strdelete)
a = MsgBox("删除学生基本信息表中的记录将会删除相关的学生选课情况信息" & Chr(13) & "确定吗？", vbOKCancel + vbExclamation, "注意")
If a = vbOK Then
 mycon.CommitTrans
 MsgBox "指定课程号为" & kc_id & "的所有学生基本信息及其相关信心已经从数据库中全部删除", vbInformation, "注意"
Else
 mycon.RollbackTrans
 MsgBox "删除被撤消！！", vbExclamation, "注意"
End If
 If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "学生选课", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form7.Caption = "学生选课-查询结果"
    Form7.Show
End Sub

Private Sub sc33_Click()
Dim strdelete As String, id As String, kc_id As String
kc_id = InputBox("请输入课程号（可以只输入前几个字）", 注意, "")
id = InputBox("请输入学号（可以只输入前几个字）", 注意, "")
If Trim(id) = "" Then Exit Sub
If Trim(kc_id) = "" Then Exit Sub
strdelete = " delete 学生选课 where 学生选课.课程号 like '" & Trim(kc_id) & "%' and  学生选课.学号 like '" & Trim(id) & "%'"
mycon.BeginTrans
mycon.Execute (strdelete)
a = MsgBox("删除学生基本信息表中的记录将会删除相关的学生选课情况信息" & Chr(13) & "确定吗？", vbOKCancel + vbExclamation, "注意")
If a = vbOK Then
 mycon.CommitTrans
 MsgBox "指定课程号为" & kc_id & "学号为" & id & "的所有学生基本信息及其相关信心已经从数据库中全部删除", vbInformation, "注意"
Else
 mycon.RollbackTrans
 MsgBox "删除被撤消！！", vbExclamation, "注意"
End If
 If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "学生选课", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form7.Caption = "学生选课-查询结果"
    Form7.Show
End Sub

Private Sub tc_Click()
If myrs.State = adStateOpen Then
  myrs.Close
End If
If myrs1.State = adStateOpen Then
  myrs1.Close
End If
If myrs2.State = adStateOpen Then
  myrs2.Close
End If
Set myrs = Nothing
Set myrs1 = Nothing
Set myrs2 = Nothing
Set mycon = Nothing
Unload Me
End Sub

Private Sub tj1_Click()
If myrs.State = adStateOpen Then
myrs.Close
End If
myrs.Open "学生基本信息", mycon, adOpenStatic, adLockReadOnly
Form12.Show
End Sub

Private Sub tj2_Click()
If myrs.State = adStateOpen Then
myrs.Close
End If
myrs.Open "课程表", mycon, adOpenStatic, adLockReadOnly
Form13.Show
End Sub

Private Sub tj3_Click()

Dim strSql As String
strSql = "select 学号 from 学生基本信息"
If myrs1.State = adStateOpen Then
  myrs1.Close
End If
myrs1.Open strSql, mycon, adOpenStatic, adLockReadOnly
Set Form14.DataCombo1.RowSource = myrs1
Form14.DataCombo1.ListField = "学号"
Form14.DataCombo1.Text = ""
strSql = "select 课程号 from 课程表"
If myrs2.State = adStateOpen Then
  myrs2.Close
End If
myrs2.Open strSql, mycon, adOpenStatic, adLockReadOnly
Set Form14.DataCombo2.RowSource = myrs2
Form14.DataCombo2.ListField = "课程号"
Form14.DataCombo1.Text = ""
If myrs.State = adStateOpen Then
myrs.Close
End If
myrs.Open "学生选课", mycon, adOpenStatic, adLockReadOnly
Form14.Show
End Sub

Private Sub toj1_Click()
Dim strSql As String
strSql = "select distinct 班级 from 学生基本信息"
If myrs1.State = adStateOpen Then
  myrs1.Close
End If
myrs1.Open strSql, mycon, adOpenStatic, adLockReadOnly
Set Form6.DataCombo1.RowSource = myrs1
Form6.DataCombo1.ListField = "班级"
Form6.DataCombo1.Text = ""
Form6.Show
End Sub

Private Sub toj2_Click()
Dim strSql As String
strSql = "select  rtrim(学号) + '    '+ rtrim(姓名) as 学生 from 学生基本信息 order by 学生"
If myrs1.State = adStateOpen Then
  myrs1.Close
End If
myrs1.Open strSql, mycon, adOpenStatic, adLockReadOnly
Set Form8.DataCombo1.RowSource = myrs1
Form8.DataCombo1.ListField = "学生"
Form8.DataCombo1.Text = ""
Form8.Show
End Sub

Private Sub toj3_Click()
Dim strSql As String
strSql = "select 课程表.课程号,课程表.课程名称,count(学生选课.学号) as 人数 from 课程表,学生选课 where 学生选课.课程号 = 课程表.课程号 group by 课程表.课程号,课程表.课程名称"
If myrs.State = adStateOpen Then
  myrs.Close
End If
myrs.Open strSql, mycon, adOpenStatic, adLockReadOnly
Form7.Show
Form7.Caption = "各门课程选修人数"
End Sub

Private Sub toj4_Click()
Dim strSql As String
strSql = "select rtrim(课程号)+ '    '+ rtrim(课程名称) as 课程列表 from 课程表 order by 课程列表"
If myrs1.State = adStateOpen Then
  myrs1.Close
End If
myrs1.Open strSql, mycon, adOpenStatic, adLockReadOnly
Set Form16.DataCombo1.RowSource = myrs1
Form16.DataCombo1.ListField = "课程列表"
Form16.DataCombo1.Text = ""
Form16.Show
End Sub

Private Sub xg1_Click()
If myrs.State = adStateOpen Then
  myrs.Close
End If
myrs.Open "学生基本信息", mycon, adOpenKeyset, adLockBatchOptimistic
Form15.Show
End Sub

Private Sub xg2_Click()
If myrs.State = adStateOpen Then
  myrs.Close
End If
myrs.Open "课程表", mycon, adOpenKeyset, adLockBatchOptimistic
Form15.Show
End Sub

Private Sub xg3_Click()
If myrs.State = adStateOpen Then
  myrs.Close
End If
myrs.Open "学生选课", mycon, adOpenKeyset, adLockBatchOptimistic
Form15.Show
End Sub