frmmain.frm

是一个 学生管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm Frmmain 
   BackColor       =   &H80000001&
   Caption         =   "学生学籍管理系统 "
   ClientHeight    =   7365
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   10485
   Icon            =   "Frmmain.frx":0000
   LinkTopic       =   "学生学籍管理系统"
   LockControls    =   -1  'True
   StartUpPosition =   1  '所有者中心
   Begin MSComctlLib.StatusBar StatusBar 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   0
      Top             =   7050
      Width           =   10485
      _ExtentX        =   18494
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            Enabled         =   0   'False
            Object.Width           =   3528
            MinWidth        =   3528
            TextSave        =   "2006-6-26"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Enabled         =   0   'False
            Object.Width           =   8820
            MinWidth        =   8820
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            AutoSize        =   1
            Enabled         =   0   'False
            Object.Width           =   8819
            MinWidth        =   8819
            Text            =   "欢迎使用本软件"
            TextSave        =   "欢迎使用本软件"
         EndProperty
      EndProperty
   End
   Begin VB.Menu filemenu10 
      Caption         =   "系统选项（&S）"
      Begin VB.Menu filemenu11 
         Caption         =   "用户管理（&A）"
      End
      Begin VB.Menu filemenu12 
         Caption         =   "修改个人密码（&M）"
      End
      Begin VB.Menu filemenu13 
         Caption         =   "-"
      End
      Begin VB.Menu filemenu15 
         Caption         =   "重新登陆（&L）"
         Shortcut        =   {F2}
      End
      Begin VB.Menu filemenu14 
         Caption         =   "退出系统（&X）"
      End
   End
   Begin VB.Menu filemenu40 
      Caption         =   "学生信息管理（&M）"
      Begin VB.Menu filemenu42 
         Caption         =   "浏览学生信息（&B）"
      End
      Begin VB.Menu tt 
         Caption         =   "-"
      End
      Begin VB.Menu filemenu45 
         Caption         =   "查询学生资料（&S）"
         Shortcut        =   {F3}
      End
      Begin VB.Menu frmadd 
         Caption         =   "添加学生信息"
      End
   End
   Begin VB.Menu filemenu00 
      Caption         =   "其他信息（&O）"
      Begin VB.Menu filemenu03 
         Caption         =   "专业设置（&M）"
      End
      Begin VB.Menu filemenu01 
         Caption         =   "课程设置（&L）"
      End
      Begin VB.Menu filemenu 
         Caption         =   "-"
      End
      Begin VB.Menu filemenu02 
         Caption         =   "成绩管理（&R）"
      End
   End
End
Attribute VB_Name = "Frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub filemenu01_Click()
    '课程设置界面
    frmlesson.Show 1
End Sub

Private Sub filemenu02_Click()
   '成绩设置
   frmresult.Show 1
End Sub

Private Sub filemenu03_Click()
   '专业设置
   frmmajor.Show 1
End Sub

Private Sub filemenu11_Click()
   '用户管理界面
   Frmmanage.Show 1
End Sub

Private Sub filemenu12_Click()
   '修改密码界面
   Frmchgpwd.Show 1
End Sub

Private Sub filemenu14_Click()
  '退出系统
   If MsgBox("确定要退出学生档案管理系统吗？是/否", vbYesNo + vbQuestion + vbDefaultButton1) = vbYes Then
      End
   End If
End Sub

Private Sub filemenu15_Click()
   If MsgBox("若重新登陆，所有窗体都将关闭！是否重新登陆？", vbYesNo + vbQuestion, "重新登陆") = vbYes Then
      Unload Me
      Frmlogin.Show
   End If
End Sub


Private Sub filemenu42_Click()
   '浏览学生资料
   Frmstu.Show
End Sub

Private Sub filemenu45_Click()
  '查找学生
   frmstusearch.Show 1
End Sub

Private Sub frmadd_Click()
Call FrmAddStu.LoadStu("00000000")
End Sub

Private Sub MDIForm_Load()
   StatusBar.Panels(2).Text = "当前操作员：" & LoginUser & "    " & LoginPower & ""
   
   If LoginPower = "普通用户" Then
      filemenu11.Enabled = False
      Toolbar1.Buttons.Item(5).Enabled = False
   End If
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If MsgBox("确定要退出学生学籍管理系统吗？是/否", vbYesNo + vbQuestion + vbDefaultButton1) = vbNo Then
       Cancel = 1
  End If
End Sub

Private Sub pop1_Click()
   '显示详细资料
   Call Frmstu.ListView_DblClick
End Sub

Private Sub pop3_Click()
   '添加学生资料
   Call Frmstu.AddStu
End Sub

Private Sub pop4_Click()
    '修改学生资料
    Call Frmstu.ModifyStu
End Sub

Private Sub pop5_Click()
    '删除学生资料
    Call Frmstu.DelStu
End Sub