学生信息管理.frm

这是一个还需要一些修改的数据库系统

VERSION 5.00
Begin VB.Form FormMain 
   BackColor       =   &H00FFC0C0&
   Caption         =   "新生学籍管理系统"
   ClientHeight    =   9015
   ClientLeft      =   165
   ClientTop       =   720
   ClientWidth     =   10890
   FillColor       =   &H00FFFFC0&
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   14.25
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00FFFFFF&
   LinkTopic       =   "Form1"
   Picture         =   "学生信息管理.frx":0000
   ScaleHeight     =   9015
   ScaleWidth      =   10890
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu mnuStudent 
      Caption         =   "新生信息"
      Begin VB.Menu mnuStudent_Input 
         Caption         =   "新生信息输入"
      End
      Begin VB.Menu mnuChange 
         Caption         =   "学籍变更管理"
      End
      Begin VB.Menu mnuReward 
         Caption         =   "奖励情况输入"
      End
      Begin VB.Menu mnuPunish 
         Caption         =   "处罚情况输入"
      End
      Begin VB.Menu mnuSearch 
         Caption         =   "学生个人信息查询"
         Shortcut        =   {F3}
      End
   End
   Begin VB.Menu mnuSys 
      Caption         =   "系统管理"
      Begin VB.Menu mnuSysRefresh 
         Caption         =   "刷新（&R）"
         Shortcut        =   {F5}
      End
      Begin VB.Menu mnuSys_Add 
         Caption         =   "添加用户"
      End
      Begin VB.Menu mnuSys_del 
         Caption         =   "删除用户"
      End
      Begin VB.Menu mnuSys_edit 
         Caption         =   "更改用户权限"
      End
   End
   Begin VB.Menu mnuMaintain 
      Caption         =   "信息维护"
      Begin VB.Menu mnuMaintain_Table 
         Caption         =   "表维护"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助（&H）"
      Begin VB.Menu mnuHelp_About 
         Caption         =   "关于（&A）"
      End
   End
   Begin VB.Menu mnuExit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "FormMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Private Sub DataGrid1_Click()
 ' FrmEditStudent.Show
 ' FrmEditStudent.ICurrentPos = DataEnvironment1.rsdbo_stu_GetAllStudent.AbsolutePosition
'End Sub


Private Sub mnuChange_Click()
   FrmAddChange.Show vbModal
End Sub

Private Sub mnuExit_Click()
   Unload Me
End Sub

Private Sub mnuPunish_Click()
   FrmAddPunish.Show vbModal
End Sub

Private Sub mnuReward_Click()
   FrmAddReward.Show vbModal
End Sub

Private Sub mnuSearch_Click()
   FrmSearch.Show vbModal
End Sub

Private Sub mnuStudent_Input_Click()
                                                                                                                                              FrmAddStudent.Show vbModal
End Sub



Private Sub mnuSysRefresh_Click()
    On Error GoTo ErrHandle
    Dim ds As New ADODB.Recordset
    Set ds = DataEnvironment1.rsdbo_stu_GetAllStudent
    With DataGrid1
      Set .DataSource = Nothing
      .DataMember = ""
      .Refresh
      Set .DataSource = ds
      .Refresh
    End With
    
    Exit Sub
ErrHandle:
    MsgBox Err.Description
End Sub