⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 main.frm

📁 用VB语言写的班级管理系统举例,很具有参考价值!
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form MAIN 
   Caption         =   "班级综合管理系统"
   ClientHeight    =   8190
   ClientLeft      =   60
   ClientTop       =   -225
   ClientWidth     =   11850
   Icon            =   "MAIN.frx":0000
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   ScaleHeight     =   8190
   ScaleWidth      =   11850
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin ComctlLib.Toolbar TB_MAIN 
      Align           =   1  'Align Top
      Height          =   855
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11850
      _ExtentX        =   20902
      _ExtentY        =   1508
      ButtonWidth     =   1455
      ButtonHeight    =   1349
      ImageList       =   "ImageList1"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   14
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "个人信息"
            Key             =   "TB_GRXX"
            Object.ToolTipText     =   "查询和修改班级成员的基本信息"
            Object.Tag             =   ""
            ImageIndex      =   4
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "班级成绩"
            Key             =   "TB_BJCJ"
            Object.ToolTipText     =   "录入和浏览班级成绩信息"
            Object.Tag             =   ""
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "补考名单"
            Key             =   "TB_BKMD"
            Object.ToolTipText     =   "生成选定科目的补考名单"
            Object.Tag             =   ""
            ImageIndex      =   5
         EndProperty
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "科目设置"
            Key             =   "TB_KMSZ"
            Object.ToolTipText     =   "添加、删除、修改科目信息"
            Object.Tag             =   ""
            ImageIndex      =   8
         EndProperty
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "车票预订"
            Key             =   "TB_CPYD"
            Object.ToolTipText     =   "管理车票预订事务"
            Object.Tag             =   ""
            ImageIndex      =   10
         EndProperty
         BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "班级财务"
            Key             =   "TB_BJCW"
            Object.ToolTipText     =   "管理班级财务信息"
            Object.Tag             =   ""
            ImageIndex      =   13
         EndProperty
         BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "班级活动"
            Key             =   "TB_BJHD"
            Object.ToolTipText     =   "管理班级活动信息"
            Object.Tag             =   ""
            ImageIndex      =   11
         EndProperty
         BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "奖惩管理"
            Key             =   "TB_JCGL"
            Object.ToolTipText     =   "管理班级奖惩信息"
            Object.Tag             =   ""
            ImageIndex      =   15
         EndProperty
         BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "综合测评"
            Key             =   "TB_ZHCP"
            Object.ToolTipText     =   "录入、修改、打印综合测评表"
            Object.Tag             =   ""
            ImageIndex      =   14
         EndProperty
         BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "退出"
            Key             =   "TB_TC"
            Object.Tag             =   ""
            ImageIndex      =   1
         EndProperty
      EndProperty
      BorderStyle     =   1
      MousePointer    =   1
   End
   Begin VB.Timer Tim_ZTL 
      Interval        =   10
      Left            =   480
      Top             =   1560
   End
   Begin ComctlLib.StatusBar StatusBar_MAIN 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   7815
      Width           =   11850
      _ExtentX        =   20902
      _ExtentY        =   661
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   4
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            AutoSize        =   1
            Object.Width           =   5054
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            AutoSize        =   1
            Object.Width           =   5054
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            AutoSize        =   1
            Object.Width           =   5054
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            AutoSize        =   1
            Object.Width           =   5054
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   840
      Top             =   2640
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   15
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":0442
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":075C
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":0F76
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":1790
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":1AAA
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":1DC4
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":20DE
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":28F8
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":2C12
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":2F2C
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":432E
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":2F3380
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":2FFAE2
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":300734
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MAIN.frx":301A46
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu menu_XXLL 
      Caption         =   "信息浏览"
      Begin VB.Menu menu_GRXX 
         Caption         =   "个人信息 (&G)"
      End
      Begin VB.Menu menu_BJCJ 
         Caption         =   "成绩信息 (&B)"
      End
      Begin VB.Menu Menu_SWXX 
         Caption         =   "事务信息"
         Begin VB.Menu Menu_BJHDXX 
            Caption         =   "班级活动"
         End
         Begin VB.Menu Menu_BJCWXX 
            Caption         =   "班级财务"
         End
         Begin VB.Menu Menu_JCXX 
            Caption         =   "奖惩信息"
         End
         Begin VB.Menu Menu_CPYDXX 
            Caption         =   "车票预订"
         End
      End
   End
   Begin VB.Menu menu_XXLR 
      Caption         =   "信息录入"
      Begin VB.Menu menu_GRXXLR 
         Caption         =   "个人信息录入"
      End
      Begin VB.Menu menu_BJCJLR 
         Caption         =   "班级成绩录入"
      End
      Begin VB.Menu menu_KMXXLR 
         Caption         =   "科目信息录入"
      End
      Begin VB.Menu menu_JCXXLR 
         Caption         =   "奖惩信息录入"
      End
   End
   Begin VB.Menu Menu_BJSWGJ 

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -