实训.frm

学生信息管理,满足学生的登陆

VERSION 5.00
Begin VB.MDIForm 学生信息管理 
   BackColor       =   &H8000000C&
   Caption         =   "学生信息管理系统"
   ClientHeight    =   5970
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   8220
   LinkTopic       =   "学生信息管理Form1"
   Picture         =   "实训.frx":0000
   Begin VB.Menu system 
      Caption         =   "系统"
      Begin VB.Menu adduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu delete 
         Caption         =   "删除用户"
      End
      Begin VB.Menu cijoher 
         Caption         =   "修改密码"
      End
      Begin VB.Menu banben 
         Caption         =   "版本信息"
      End
      Begin VB.Menu end 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu student 
      Caption         =   "学籍管理"
      Begin VB.Menu addstatus 
         Caption         =   "添加学籍信息"
      End
      Begin VB.Menu amendstatus 
         Caption         =   "修改学籍信息"
      End
      Begin VB.Menu selectstatus 
         Caption         =   "查询学籍信息"
      End
   End
   Begin VB.Menu course 
      Caption         =   "课程管理"
      Begin VB.Menu addc 
         Caption         =   "添加课程"
      End
      Begin VB.Menu amendc 
         Caption         =   "修改课程"
      End
   End
   Begin VB.Menu score 
      Caption         =   "成绩管理"
      Begin VB.Menu adds 
         Caption         =   "输入成绩"
      End
      Begin VB.Menu amends 
         Caption         =   "修改成绩"
      End
      Begin VB.Menu selects 
         Caption         =   "查询成绩"
      End
   End
   Begin VB.Menu all 
      Caption         =   "信息统计"
   End
End
Attribute VB_Name = "学生信息管理"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Private Sub addc_Click()
Form5.Show
End Sub

Private Sub adds_Click()
form7.Show
End Sub

Private Sub addstatus_Click()
Form2.Show
End Sub

Private Sub adduser_Click()
Form10.Show
End Sub

Private Sub all_Click()
Form12.Show
End Sub

Private Sub amendc_Click()
Form6.Show
End Sub

Private Sub amends_Click()
Form8.Show
End Sub

Private Sub amendstatus_Click()
Form3.Show
End Sub

Private Sub banben_Click()
'Form13.Show
End Sub

Private Sub cijoher_Click()
Form11.Show
End Sub

Private Sub countp_Click()

End Sub

Private Sub delete_Click()
form14.Show
End Sub

Private Sub end_Click()
End
End Sub

Private Sub selects_Click()
Form9.Show
End Sub

Private Sub selectstatus_Click()
Form4.Show
End Sub