main.frm

对学习VB很有帮助 fskdljfl kasdjfkl asdjfk lajsd f

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm main 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "学生管理系统"
   ClientHeight    =   8310
   ClientLeft      =   165
   ClientTop       =   -135
   ClientWidth     =   11445
   Icon            =   "main.frx":0000
   LinkTopic       =   "MDIForm1"
   Moveable        =   0   'False
   Picture         =   "main.frx":1042
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11445
      _ExtentX        =   20188
      _ExtentY        =   1111
      ButtonWidth     =   609
      ButtonHeight    =   953
      Appearance      =   1
      _Version        =   393216
      Begin VB.PictureBox VsNetBut1 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFF00&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   495
         Index           =   3
         Left            =   4080
         Picture         =   "main.frx":574F3
         ScaleHeight     =   495
         ScaleWidth      =   855
         TabIndex        =   5
         ToolTipText     =   "帮助"
         Top             =   120
         Width           =   855
      End
      Begin VB.PictureBox VsNetBut1 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFF00&
         BorderStyle     =   0  'None
         FillStyle       =   0  'Solid
         ForeColor       =   &H80000008&
         Height          =   480
         Index           =   2
         Left            =   2760
         Picture         =   "main.frx":57935
         ScaleHeight     =   480
         ScaleWidth      =   720
         TabIndex        =   4
         ToolTipText     =   "退出系统"
         Top             =   120
         Width           =   720
      End
      Begin VB.PictureBox VsNetBut1 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFF00&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   495
         Index           =   1
         Left            =   1440
         Picture         =   "main.frx":57CBF
         ScaleHeight     =   495
         ScaleWidth      =   735
         TabIndex        =   3
         ToolTipText     =   "切换用户"
         Top             =   120
         Width           =   735
      End
      Begin VB.PictureBox VsNetBut1 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFF00&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   495
         Index           =   0
         Left            =   120
         Picture         =   "main.frx":58049
         ScaleHeight     =   495
         ScaleWidth      =   855
         TabIndex        =   2
         ToolTipText     =   "添加用户"
         Top             =   120
         Width           =   855
      End
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   14760
      Top             =   9960
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   8055
      Width           =   11445
      _ExtentX        =   20188
      _ExtentY        =   450
      SimpleText      =   "132465"
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   10
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   2646
            MinWidth        =   2646
            Text            =   "当前日期"
            TextSave        =   "当前日期"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            Object.Width           =   2646
            MinWidth        =   2646
            TextSave        =   "2007-12-25"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   2646
            MinWidth        =   2646
            Text            =   "登录时间"
            TextSave        =   "登录时间"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   2646
            MinWidth        =   2646
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   2646
            MinWidth        =   2646
            Text            =   "当前时间"
            TextSave        =   "当前时间"
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   2646
            MinWidth        =   2646
         EndProperty
         BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   2646
            MinWidth        =   2646
            Text            =   "登录用户"
            TextSave        =   "登录用户"
         EndProperty
         BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   2646
            MinWidth        =   2646
         EndProperty
         BeginProperty Panel9 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   2646
            MinWidth        =   2646
            Text            =   "当前操作"
            TextSave        =   "当前操作"
         EndProperty
         BeginProperty Panel10 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   2646
            MinWidth        =   2646
         EndProperty
      EndProperty
      MousePointer    =   1
   End
   Begin VB.Menu m4 
      Caption         =   "系统设置(&S)"
      Begin VB.Menu m41 
         Caption         =   "用户管理"
         Begin VB.Menu m411 
            Caption         =   "添加用户"
            Shortcut        =   ^M
         End
         Begin VB.Menu m412 
            Caption         =   "删除用户"
            Shortcut        =   ^N
         End
         Begin VB.Menu m413 
            Caption         =   "浏览用户"
            Shortcut        =   ^R
         End
         Begin VB.Menu m414 
            Caption         =   "修改密码"
            Shortcut        =   ^T
         End
      End
      Begin VB.Menu m42 
         Caption         =   "重新登录"
         Shortcut        =   ^W
      End
      Begin VB.Menu m43 
         Caption         =   "-"
      End
      Begin VB.Menu m44 
         Caption         =   "退出系统"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu m1 
      Caption         =   "学生档案管理(&X)"
      Begin VB.Menu m11 
         Caption         =   "学生基本信息录入"
         Shortcut        =   ^E
      End
      Begin VB.Menu m12 
         Caption         =   "学生基本信息查询"
         Shortcut        =   ^F
      End
      Begin VB.Menu m13 
         Caption         =   "学生基本信息修改"
         Shortcut        =   ^G
      End
      Begin VB.Menu m14 
         Caption         =   "学生基本信息打印"
         Shortcut        =   ^H
      End
   End
   Begin VB.Menu m2 
      Caption         =   "学生成绩管理(&M)"
      Begin VB.Menu m21 
         Caption         =   "成绩录入"
         Shortcut        =   ^I
      End
      Begin VB.Menu m22 
         Caption         =   "成绩查询"
         Shortcut        =   ^J
      End
      Begin VB.Menu m23 
         Caption         =   "成绩打印"
         Shortcut        =   ^K
      End
   End
   Begin VB.Menu m3 
      Caption         =   "班级课程管理(&B)"
      Begin VB.Menu m31 
         Caption         =   "班级信息管理         "
         Shortcut        =   ^Y
      End
      Begin VB.Menu m32 
         Caption         =   "课程信息管理"
         Shortcut        =   ^L
      End
   End
   Begin VB.Menu HELP 
      Caption         =   "帮助(&H)"
      Begin VB.Menu bz1 
         Caption         =   "帮助(&H)"
      End
      Begin VB.Menu INSTRCOTION 
         Caption         =   "操作说明(I)"
         Shortcut        =   {F11}
      End
      Begin VB.Menu m5 
         Caption         =   "关于..."
         Shortcut        =   {F12}
      End
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub bz1_Click()
Shell "explorer.exe    " & App.Path & "\main.html   ", vbMaximizedFocus

'Shell "explorer.exe    " & App.Path & "\学生管理系统_帮助文档\main.html   ", vbMaximizedFocus
'Shell "explorer.exe,windowstyle as vbappwinstyle=vbminimizedfocus "
'Shell "explorer.exe   c:\学生管理系统_帮助文档\main.html"
End Sub

Private Sub INSTRCOTION_Click()
frm_ShuoMing.Show
End Sub

Private Sub m11_Click()
md = 0
xsda.Show 1
End Sub

Private Sub m12_Click()
query.Show 1
End Sub

Private Sub m13_Click()

md = 1
xsda.Show 1

End Sub

Private Sub m14_Click()
Dp1.Show 1
End Sub



Private Sub m21_Click()
chengji.Show 1

End Sub

Private Sub m22_Click()
cjquery.Show 1
End Sub

Private Sub m23_Click()
xscj.Show 1
End Sub

Private Sub m24_Click()
xscj.Show 1
End Sub

Private Sub m31_Click()
classmg.Show 1
End Sub

Private Sub m32_Click()
kecheng.Show 1
End Sub

Private Sub m411_Click()
Frm_AddUser.Show 1
End Sub

Private Sub m412_Click()
Frm_DelUser.Show 1
End Sub

Private Sub m413_Click()
Frm_LiulanUser.Show 1
End Sub

Private Sub m414_Click()
Frm_UpdatePass.Show 1
End Sub

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

End Sub

Private Sub m43_Click()
frmSplash.Show 1
End Sub

Private Sub m44_Click()
If MsgBox("确认退出？", vbYesNo) = vbYes Then
    
End
Else
    Exit Sub
End If

End Sub

Private Sub m5_Click()
frmSplash.Show 1
End Sub

Private Sub MDIForm_Activate()
StatusBar1.Panels(10) = "无操作"
End Sub

Private Sub MDIForm_Load()
If usertype = False Then
 m11.Enabled = False
  m13.Enabled = False

 m21.Enabled = False
 m31.Enabled = False
m32.Enabled = False
m411.Enabled = False
m412.Enabled = False
m413.Enabled = False

m414.Enabled = True
End If
StatusBar1.Panels(4) = Time
StatusBar1.Panels(8) = ym
StatusBar1.Panels(10) = "无操作"
End Sub

Private Sub sdf_Click()
Form1.Show 1
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(6) = Time
End Sub

Private Sub VsNetBut1_Click(Index As Integer)
Select Case Index
    Case 0
        Frm_AddUser.Show
    Case 1
       If MsgBox("若重新登录，所有窗体都将关闭！是否重新登录？", vbQuestion + vbYesNo + vbDefaultButton2, "重新登录") = vbYes Then
            Unload Me
            frmLogin.Show
             
       End If

    Case 2
         If MsgBox("是否确定退出整个系统？", vbQuestion + vbYesNo + vbDefaultButton2, "确定退出") = vbYes Then
           End
        End If
    Case 3
       frm_ShuoMing.Show
   
End Select
End Sub