www.pudn.com > myActivebart.rar > main.frm

VERSION 5.00 
Object = "{4932CEF1-2CAA-11D2-A165-0060081C43D9}#2.0#0"; "Actbar2.ocx" 
Begin VB.Form Form1  
   Caption         =   "学生学籍管理系统" 
   ClientHeight    =   7020 
   ClientLeft      =   720 
   ClientTop       =   1560 
   ClientWidth     =   10170 
   Icon            =   "main.frx":0000 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   ScaleHeight     =   7020 
   ScaleWidth      =   10170 
   StartUpPosition =   2  '屏幕中心 
   Begin ActiveBar2LibraryCtl.ActiveBar2 ActiveBar2  
      Align           =   1  'Align Top 
      Height          =   7020 
      Left            =   0 
      TabIndex        =   0 
      Top             =   0 
      Width           =   10170 
      _LayoutVersion  =   1 
      _ExtentX        =   17939 
      _ExtentY        =   12383 
      _DataPath       =   "" 
      Bands           =   "main.frx":08CA 
      Begin VB.PictureBox Picture1  
         Height          =   6525 
         Left            =   2130 
         Picture         =   "main.frx":1BED6 
         ScaleHeight     =   6465 
         ScaleWidth      =   7845 
         TabIndex        =   1 
         Top             =   390 
         Width           =   7905 
      End 
   End 
   Begin VB.Menu menu5  
      Caption         =   "设置" 
      Begin VB.Menu menu51  
         Caption         =   "更改密码" 
      End 
   End 
   Begin VB.Menu MENU6  
      Caption         =   "关于" 
      Begin VB.Menu MENU61  
         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 menu11_Click() 
  Form3.Show 1 
End Sub 
 
Private Sub ActiveBar2_ToolClick(ByVal Tool As ActiveBar2LibraryCtl.Tool) 
   If Tool.ID = 501 Then Form15.Show 1 
    
   '退出 
   If Tool.ID = 503 Then 
     End 
   End If 
   '编辑学生基本信息 
   If Tool.ID = 101 Then 
     Form3.Show 1 
   End If 
   '查询学生基本信息 
   If Tool.ID = 102 Then 
     Form4.Show 1 
   End If 
   '编辑学生成绩 
   If Tool.ID = 201 Then 
     Form5.Show 1 
   End If 
    '查询学生成绩 
   If Tool.ID = 202 Then 
     Form6.Show 1 
   End If 
    '学生成绩统计 
   If Tool.ID = 203 Then 
     Form8.Show 1 
   End If 
    '学生升级处理 
   If Tool.ID = 301 Then 
     Form7.Show 1 
   End If 
      '学生降级处理 
   If Tool.ID = 302 Then 
     Form9.Show 1 
   End If 
      '学生调班处理 
   If Tool.ID = 303 Then 
     Form10.Show 1 
   End If 
     '毕业班处理 
   If Tool.ID = 304 Then 
     Form11.Show 1 
   End If 
        '民族 
   If Tool.ID = 401 Then 
     Form12.Show 1 
   End If 
        '科目 
   If Tool.ID = 402 Then 
     Form13.Show 1 
   End If 
        '班级 
   If Tool.ID = 403 Then 
     Form14.Show 1 
   End If 
     
End Sub 
 
Private Sub menu51_Click() 
  Form15.Show 1 
End Sub 
 
Private Sub menu52_Click() 
  Form16.Show 1 
End Sub 
 
Private Sub MENU61_Click() 
  Form17.Show 
End Sub