form3.frm

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

VERSION 5.00
Begin VB.Form Form3 
   Caption         =   "学生信息管理系统"
   ClientHeight    =   6000
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   7500
   LinkTopic       =   "Form3"
   Picture         =   "Form3.frx":0000
   ScaleHeight     =   6000
   ScaleWidth      =   7500
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu cx1 
      Caption         =   "浏览基本表(&b)"
      Begin VB.Menu cx11 
         Caption         =   "学生基本信息表"
         Begin VB.Menu cx111 
            Caption         =   "按表格浏览"
         End
         Begin VB.Menu cx112 
            Caption         =   "按行浏览"
         End
      End
      Begin VB.Menu cx12 
         Caption         =   "课程信息表"
         Begin VB.Menu cx121 
            Caption         =   "按表格浏览"
         End
         Begin VB.Menu cx122 
            Caption         =   "按行浏览"
         End
      End
      Begin VB.Menu cx13 
         Caption         =   "学生选课情况表"
         Begin VB.Menu cx131 
            Caption         =   "按表格浏览"
         End
         Begin VB.Menu cx132 
            Caption         =   "按行浏览"
         End
      End
   End
   Begin VB.Menu cx2 
      Caption         =   "成绩查询(&S)"
      Begin VB.Menu cx21 
         Caption         =   "按姓名查询"
      End
      Begin VB.Menu cx22 
         Caption         =   "按班级查询"
      End
      Begin VB.Menu cx23 
         Caption         =   "按课程查询"
      End
      Begin VB.Menu cx24 
         Caption         =   "按系查询"
      End
      Begin VB.Menu cx25 
         Caption         =   "按姓名查询（简单）"
      End
      Begin VB.Menu cx26 
         Caption         =   "按课程名查询课程表（简单）"
      End
      Begin VB.Menu cx27 
         Caption         =   "按学号课程号查询（简单）"
      End
   End
   Begin VB.Menu toj 
      Caption         =   "统计(&C)"
      Begin VB.Menu toj1 
         Caption         =   "统计班级人数"
      End
      Begin VB.Menu toj2 
         Caption         =   "统计某学生的已修课程学分"
      End
      Begin VB.Menu toj3 
         Caption         =   "统计各门课程的选修人数"
      End
      Begin VB.Menu toj4 
         Caption         =   "按课程统计各分数段人数"
      End
   End
   Begin VB.Menu tj 
      Caption         =   "添加(&I)"
      Begin VB.Menu tj1 
         Caption         =   "添加学生基本信息"
      End
      Begin VB.Menu tj2 
         Caption         =   "添加课程信息"
      End
      Begin VB.Menu tj3 
         Caption         =   "添加学生选课信息"
      End
   End
   Begin VB.Menu sc 
      Caption         =   "删除(&D)"
      Begin VB.Menu sc1 
         Caption         =   "删除学生基本信息"
         Begin VB.Menu sc11 
            Caption         =   "按指定班级删除"
         End
         Begin VB.Menu sc12 
            Caption         =   "按指定学号删除"
         End
      End
      Begin VB.Menu sc2 
         Caption         =   "删除课程信息"
         Begin VB.Menu sc21 
            Caption         =   "按指定课程编号删除"
         End
         Begin VB.Menu sc22 
            Caption         =   "按指定课程名称删除"
         End
      End
      Begin VB.Menu sc3 
         Caption         =   "删除学生选课信息"
         Begin VB.Menu sc31 
            Caption         =   "按指定学生删除"
         End
         Begin VB.Menu sc32 
            Caption         =   "按指定课程删除"
         End
         Begin VB.Menu sc33 
            Caption         =   "按指定学生和课程删除"
         End
      End
   End
   Begin VB.Menu xg 
      Caption         =   "修改(&U)"
      Begin VB.Menu xg1 
         Caption         =   "修改学生基本信息表"
      End
      Begin VB.Menu xg2 
         Caption         =   "修改课程信息表"
      End
      Begin VB.Menu xg3 
         Caption         =   "修改学生选课表"
      End
   End
   Begin VB.Menu tc 
      Caption         =   "退出(&X)"
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cx111_Click()
    If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "学生基本信息", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form7.Caption = "学生基本信息-查询结果"
    Form7.Show
End Sub

Private Sub cx112_Click()
    If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "学生基本信息", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form4.Show
End Sub

Private Sub cx121_Click()
    If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "课程表", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form7.Caption = "课程表-查询结果"
    Form7.Show
End Sub

Private Sub cx122_Click()
     If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "课程表", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form5.Show
End Sub

Private Sub cx131_Click()
 If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "学生选课", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form7.Caption = "学生选课-查询结果"
    Form7.Show
End Sub

Private Sub cx132_Click()
  If myrs.State = adStateOpen Then
        myrs.Close
    End If
    myrs.Open "学生选课", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
    Form9.Show
End Sub

Private Sub cx21_Click()
Dim strSql As String
cx21.Checked = True
cx22.Checked = True
cx23.Checked = True
cx24.Checked = True
Form10.DataCombo1.Enabled = True
Form10.Label1.Enabled = True

Form10.DataCombo2.Enabled = False
Form10.Label2.Enabled = False

Form10.DataCombo3.Enabled = False
Form10.Label3.Enabled = False

Form10.DataCombo4.Enabled = False
Form10.Label4.Enabled = False

strSql = "select distinct 姓名 from 学生基本信息"
If myrs1.State = adStateOpen Then
myrs1.Close
End If
myrs1.Open strSql, mycon, adOpenStatic, adLockReadOnly
Set Form10.DataCombo1.RowSource = myrs1
Form10.DataCombo1.ListField = "姓名"
Form10.DataCombo1.Text = ""
Form10.Show
End Sub

Private Sub cx22_Click()
Dim strSql As String
cx21.Checked = False
cx22.Checked = True
cx23.Checked = False
cx24.Checked = False
Form10.DataCombo1.Enabled = False
Form10.Label1.Enabled = False
Form10.DataCombo2.Enabled = True
Form10.Label2.Enabled = True
Form10.DataCombo3.Enabled = False
Form10.Label3.Enabled = False
Form10.DataCombo4.Enabled = False
Form10.Label4.Enabled = False
strSql = "select distinct 班级 from 学生基本信息"
If myrs1.State = adStateOpen Then
myrs1.Close
End If
myrs1.Open strSql, mycon, adOpenStatic, adLockReadOnly
Set Form10.DataCombo2.RowSource = myrs1
Form10.DataCombo2.ListField = "班级"
Form10.DataCombo2.Text = ""
Form10.Show
End Sub

Private Sub cx23_Click()
Dim strSql As String
cx21.Checked = False
cx22.Checked = False
cx23.Checked = True
cx24.Checked = False
Form10.DataCombo1.Enabled = False
Form10.Label1.Enabled = False
Form10.DataCombo2.Enabled = False
Form10.Label2.Enabled = False
Form10.DataCombo3.Enabled = True
Form10.Label3.Enabled = True
Form10.DataCombo4.Enabled = False
Form10.Label4.Enabled = False
strSql = "select distinct 课程名称 from 课程表"
If myrs1.State = adStateOpen Then
myrs1.Close
End If
myrs1.Open strSql, mycon, adOpenStatic, adLockReadOnly
Set Form10.DataCombo3.RowSource = myrs1
Form10.DataCombo3.ListField = "课程名称"
Form10.DataCombo3.Text = ""
Form10.Show
End Sub

Private Sub cx24_Click()
Dim strSql As String
cx21.Checked = False
cx22.Checked = False
cx23.Checked = False
cx24.Checked = True
Form10.DataCombo1.Enabled = False
Form10.Label1.Enabled = False
Form10.DataCombo2.Enabled = False
Form10.Label2.Enabled = False
Form10.DataCombo3.Enabled = False
Form10.Label3.Enabled = False
Form10.DataCombo4.Enabled = True
Form10.Label4.Enabled = True
strSql = "select distinct 所在系 from 学生基本信息"
If myrs1.State = adStateOpen Then
myrs1.Close
End If
myrs1.Open strSql, mycon, adOpenStatic, adLockReadOnly
Set Form10.DataCombo4.RowSource = myrs1
Form10.DataCombo4.ListField = "所在系"
Form10.DataCombo4.Text = ""
Form10.Show
End Sub

Private Sub cx25_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 Form17.DataCombo1.RowSource = myrs1
Form17.DataCombo1.ListField = "姓名"

Form17.Show
End Sub

Private Sub cx26_Click()
Dim strSql As String
strSql = "select distinct 课程名称 from 课程表"

If myrs1.State = adStateOpen Then
    myrs1.Close