招生管理系统.frm

数据库招生管理系统 SQL2000 有Visual B做的

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "招生管理系统"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   870
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   Picture         =   "招生管理系统.frx":0000
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu xt 
      Caption         =   "系统"
      Begin VB.Menu xt1 
         Caption         =   "简介"
      End
      Begin VB.Menu xt3 
         Caption         =   "修改密码"
      End
      Begin VB.Menu xt2 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu stu 
      Caption         =   "学生信息"
      Begin VB.Menu stu1 
         Caption         =   "基本信息"
      End
      Begin VB.Menu stu2 
         Caption         =   "录取信息"
      End
   End
   Begin VB.Menu zs 
      Caption         =   "招生信息"
      Begin VB.Menu zs1 
         Caption         =   "招生计划"
      End
      Begin VB.Menu zs2 
         Caption         =   "录取查询"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub stu1_Click()
  student1.Show
End Sub

Private Sub stu2_Click()
  student2.Show
End Sub

Private Sub xitong2_Click()
 
End Sub

Private Sub xt1_Click()
   xitong1.Show
   Form1.Enabled = False
End Sub

Private Sub xt2_Click()
   Unload Me
End Sub

Private Sub xt3_Click()
   xitong3.Show
End Sub

Private Sub zs1_Click()
   zhaosheng.Show
End Sub

Private Sub zs2_Click()
   zhaosheng2.Show
End Sub