mdifrm.frm

一个简单的VB开发环境的学生管理系统.请各位大虾们多多指教

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form MDIFrm 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00808080&
   Caption         =   "学生信息管理系统---"
   ClientHeight    =   9105
   ClientLeft      =   165
   ClientTop       =   -315
   ClientWidth     =   12195
   Icon            =   "MDIFrm.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "MDIFrm.frx":27A2
   ScaleHeight     =   9786.774
   ScaleMode       =   0  'User
   ScaleWidth      =   16000
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   300
      Left            =   0
      Top             =   1320
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   360
      Left            =   0
      Negotiate       =   -1  'True
      TabIndex        =   0
      Top             =   0
      Width           =   12195
      _ExtentX        =   21511
      _ExtentY        =   635
      ButtonWidth     =   1984
      ButtonHeight    =   582
      Wrappable       =   0   'False
      Appearance      =   1
      Style           =   1
      TextAlignment   =   1
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   22
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "添加用户"
            Key             =   "adduser"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除用户"
            Key             =   "deluser"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改密码"
            Key             =   "modpasswords"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "fdsf"
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "添加学籍"
            Key             =   "addxueji"
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改学籍"
            Key             =   "modxueji"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除学籍"
            Key             =   "delxueji"
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查询学籍"
            Key             =   "chaxue"
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "wqesad"
            Style           =   3
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "添加成绩"
            Key             =   "addgrade"
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改成绩"
            Key             =   "modgrade"
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除成绩"
            Key             =   "delgrade"
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查询成绩"
            Key             =   "chagrade"
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "法国反对"
            Style           =   3
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "添加课程"
            Key             =   "addcourse"
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改课程"
            Key             =   "modcourse"
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除课程"
            Key             =   "delcourse"
         EndProperty
         BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查询课程"
            Key             =   "chacourse"
         EndProperty
         BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "感到法国"
            Style           =   3
         EndProperty
         BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   ".....帮助"
            Key             =   "systemhelp"
         EndProperty
         BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "联系方式"
            Key             =   "lianxi"
         EndProperty
         BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "systemout"
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin VB.Menu system 
      Caption         =   "系统工具 &s"
      Begin VB.Menu adduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu deluser 
         Caption         =   "删除用户"
      End
      Begin VB.Menu fdsf 
         Caption         =   ""
      End
      Begin VB.Menu modpasswords 
         Caption         =   "修改密码"
      End
   End
   Begin VB.Menu student 
      Caption         =   "学生信息 &m"
      Begin VB.Menu addxueji 
         Caption         =   "添加学籍"
      End
      Begin VB.Menu delxueji 
         Caption         =   "删除学籍"
      End
      Begin VB.Menu findxueji 
         Caption         =   "查询学籍"
      End
      Begin VB.Menu modxueji 
         Caption         =   "修改学籍"
      End
   End
   Begin VB.Menu grade 
      Caption         =   "成绩信息 &g"
      Begin VB.Menu addgrade 
         Caption         =   "添加成绩"
      End
      Begin VB.Menu modgrade 
         Caption         =   "修改成绩"
      End
      Begin VB.Menu findgrade 
         Caption         =   "查询成绩"
      End
      Begin VB.Menu delgrade 
         Caption         =   "删除成绩"
      End
   End
   Begin VB.Menu course 
      Caption         =   "课程管理&c"
      Begin VB.Menu addcourse 
         Caption         =   "添加课程"
      End
      Begin VB.Menu modcourse 
         Caption         =   "修改课程"
      End
      Begin VB.Menu findcourse 
         Caption         =   "查询课程"
      End
      Begin VB.Menu delcourse 
         Caption         =   "删除课程"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助&h"
      Begin VB.Menu about 
         Caption         =   "....关于"
      End
      Begin VB.Menu introduce 
         Caption         =   "系统简介"
      End
      Begin VB.Menu autor 
         Caption         =   "联系作者"
      End
   End
End
Attribute VB_Name = "MDIFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim snow(1000, 2), dx As Integer
MDIFrm.Show
DoEvents
Randomize
dx = 300
For j = 1 To dx
 snow(j, 0) = Int(Rnd * MDIFrm.Width)
 snow(j, 1) = Int(Rnd * MDIFrm.Height)
 snow(j, 2) = Int(Rnd * 20) + 10
Next j
Do While Not (DoEvents = 0)
 For temp = 1 To 10
  For i = 1 To dx
  snow(i, 1) = snow(i, 1) + snow(i, 2)
   If snow(i, 1) > MDIFrm.Height Then
    snow(i, 1) = 0: snow(i, 2) = 2 + (Rnd * 30)
    snow(i, 0) = Int(Rnd * MDIFrm.Width)
   End If
    Circle (snow(i, 0), snow(i, 1)), 60 * Rnd, RGB(255, 255, 255)
  Next i
  MDIFrm.Cls
  Next temp
  Loop
  End
End Sub

Private Sub about_Click()
MsgBox ",谢谢使用本系统!本系统没有帮助文件!如有需要,请与系统开发人员联系!"
End Sub

Private Sub addcourse_Click()
courses.SSTab1.Tab = 0
courses.SSTab1.TabEnabled(1) = False
courses.SSTab1.TabEnabled(2) = False
Unload Me
courses.Show
End Sub

Private Sub addgrade_Click()
grades.SSTab1.Tab = 0
grades.SSTab1.TabEnabled(1) = False
grades.SSTab1.TabEnabled(2) = False
Unload Me
grades.Show
End Sub

Private Sub adduser_Click()
adduse.SSTab1.Tab = 0
  adduse.SSTab1.TabEnabled(1) = False
  adduse.SSTab1.TabEnabled(2) = False
      adduse.Show
     Unload Me

End Sub

Private Sub addxueji_Click()
xueji.sstab.Tab = 2
xueji.sstab.TabEnabled(1) = False
xueji.sstab.TabEnabled(0) = False
Unload Me
xueji.Show
End Sub

Private Sub autor_Click()
lianxi1.Show
Unload Me
End Sub

Private Sub delcourse_Click()
courses.SSTab1.Tab = 0
courses.SSTab1.TabEnabled(0) = False
courses.SSTab1.TabEnabled(1) = False
Unload Me
courses.Show
End Sub

Private Sub delgrade_Click()
grades.SSTab1.Tab = 2
grades.SSTab1.TabEnabled(1) = False
grades.SSTab1.TabEnabled(2) = False
Unload Me
grades.Show
End Sub

Private Sub deluser_Click()
 adduse.SSTab1.Tab = 1
   adduse.SSTab1.TabEnabled(2) = False
   adduse.SSTab1.TabEnabled(0) = False
   Unload Me
   adduse.Show
End Sub

Private Sub delxueji_Click()
xueji.sstab.Tab = 0
xueji.sstab.TabEnabled(2) = False
xueji.sstab.TabEnabled(1) = False
Unload Me
xueji.Show
End Sub

Private Sub findcourse_Click()
Unload Me
chacourse.Show
End Sub

Private Sub findgrade_Click()
Unload Me
chagrades.Show
End Sub

Private Sub findxueji_Click()
Unload Me
chaxunji.Show
End Sub

Private Sub Form_Activate()
Timer1.Enabled = True
Command1_Click
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub introduce_Click()
Unload Me
lianxi1.Show
End Sub

Private Sub modcourse_Click()
courses.SSTab1.Tab = 0
courses.SSTab1.TabEnabled(0) = False
courses.SSTab1.TabEnabled(2) = False
Unload Me
courses.Show
End Sub

Private Sub modgrade_Click()
grades.SSTab1.Tab = 1
grades.SSTab1.TabEnabled(0) = False
grades.SSTab1.TabEnabled(2) = False
Unload Me
grades.Show
End Sub

Private Sub modpasswords_Click()
   Unload Me
  xuanze.Show
End Sub

Private Sub modxueji_Click()
xueji.sstab.Tab = 1
xueji.sstab.TabEnabled(0) = False
xueji.sstab.TabEnabled(2) = False
Unload Me
xueji.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "adduser"
  adduse.SSTab1.Tab = 0
  adduse.SSTab1.TabEnabled(1) = False
  adduse.SSTab1.TabEnabled(2) = False
      adduse.Show
     Unload Me
    Case "deluser"
   adduse.SSTab1.Tab = 1
   adduse.SSTab1.TabEnabled(2) = False
   adduse.SSTab1.TabEnabled(0) = False
   Unload Me
   adduse.Show
Case "modpasswords"
    Unload Me
  xuanze.Show
Case "addxueji"
xueji.sstab.Tab = 2
xueji.sstab.TabEnabled(1) = False
xueji.sstab.TabEnabled(0) = False
Unload Me
xueji.Show
Case "modxueji"
xueji.sstab.Tab = 1
xueji.sstab.TabEnabled(0) = False
xueji.sstab.TabEnabled(2) = False
Unload Me
xueji.Show
Case "delxueji"
xueji.sstab.Tab = 0
xueji.sstab.TabEnabled(2) = False
xueji.sstab.TabEnabled(1) = False
Unload Me
xueji.Show
Case "chaxue"
 Unload Me
chaxunji.Show
Case "addgrade"
grades.SSTab1.Tab = 0
grades.SSTab1.TabEnabled(1) = False
grades.SSTab1.TabEnabled(2) = False
Unload Me
grades.Show
Case "modgrade"
grades.SSTab1.Tab = 1
grades.SSTab1.TabEnabled(0) = False
grades.SSTab1.TabEnabled(2) = False
Unload Me
grades.Show
Case "delgrade"
grades.SSTab1.Tab = 2
grades.SSTab1.TabEnabled(1) = False
grades.SSTab1.TabEnabled(0) = False
Unload Me
grades.Show
Case "addcourse"
courses.SSTab1.Tab = 0
courses.SSTab1.TabEnabled(1) = False
courses.SSTab1.TabEnabled(2) = False
Unload Me
courses.Show
Case "modcourse"
courses.SSTab1.Tab = 1
courses.SSTab1.TabEnabled(0) = False
courses.SSTab1.TabEnabled(2) = False
Unload Me
courses.Show
Case "delcourse"
courses.SSTab1.Tab = 2
courses.SSTab1.TabEnabled(0) = False
courses.SSTab1.TabEnabled(1) = False
Unload Me
courses.Show
Case "systemout"
Unload Me
Case "chacourse"
Unload Me
chacourse.Show
Case "chagrade"
Unload Me
chagrades.Show
Case "lianxi"
Unload Me
lianxi1.Show
Case "systemhelp"
MsgBox " 谢谢使用本系统,本系统没有帮助文件!如有需要,请与系统开发人员联系!"
End Select
End Sub