form1.frm

一个自己做的电力管理系统,主要用于电力电业行业的管理

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "Form1"
   ClientHeight    =   8835
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   11295
   LinkTopic       =   "Form1"
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   8835
   ScaleWidth      =   11295
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu systemM 
      Caption         =   "系统管理"
      Begin VB.Menu Mdpass 
         Caption         =   "修改密码"
      End
      Begin VB.Menu Adduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu Rlogin 
         Caption         =   "重新登陆"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu TeacherInfro 
      Caption         =   "教师信息管理"
      Begin VB.Menu TeacherF 
         Caption         =   "教师文件"
      End
      Begin VB.Menu teachin 
         Caption         =   "教师信息"
      End
      Begin VB.Menu Teacha 
         Caption         =   "电子教案"
      End
      Begin VB.Menu teachD 
         Caption         =   "教学大纲"
      End
   End
   Begin VB.Menu studentM 
      Caption         =   "学生信息管理"
      Begin VB.Menu studentP 
         Caption         =   "学生个人信息"
      End
   End
   Begin VB.Menu ScoreM 
      Caption         =   "课程信息管理"
      Begin VB.Menu ScoreIn 
         Caption         =   "课程信息"
      End
      Begin VB.Menu ScoreC 
         Caption         =   "成绩考勤"
      End
      Begin VB.Menu scoret 
         Caption         =   "课程教授"
      End
   End
   Begin VB.Menu select 
      Caption         =   "查询"
      Begin VB.Menu Selectteachnfo 
         Caption         =   "教师信息查询"
      End
      Begin VB.Menu selectsore 
         Caption         =   "课程查询"
      End
      Begin VB.Menu selectStu 
         Caption         =   "学生信息查询"
      End
   End
   Begin VB.Menu Help 
      Caption         =   "帮助"
      Begin VB.Menu about 
         Caption         =   "关于作者"
      End
      Begin VB.Menu Help1 
         Caption         =   "帮助(&H)"
         Shortcut        =   {F1}
      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 about_Click()
    frmAbout.Show
End Sub

Private Sub Adduser_Click()     '添加用户
    frmAdduser.Show
End Sub

Private Sub Exit_Click()        '退出本系统
    Dim st As Integer
     st = MsgBox("您将要离开本系统，你确定离开本系统吗？", vbOKCancel)
     If st = 1 Then
         Unload Me
      End If
End Sub

Private Sub Form_Load()
     LoadPicture (App.path & "\1.jpg")
     MakeCenter Me              '窗体位于屏幕中间
End Sub

Private Sub Help1_Click()       '显示帮助
    Frmhelp.Show
End Sub

Private Sub Mdpass_Click()      '修改用户密码
    frmMdpassword.Show
End Sub



Private Sub Rlogin_Click()       '重新登陆
    frmLogin.Show
    Unload Me
End Sub

Private Sub ScoreC_Click()       '显示成绩考勤信息
    frmLook.Show
End Sub

Private Sub ScoreIn_Click()      '显示课程信息
    frmscoreinf.Show
End Sub
                                '显示课程教授信息
Private Sub scoret_Click()
    frmTeach.Show
End Sub
                               '课程信息查询
Private Sub selectsore_Click()
    frmselectScor.Show
End Sub
                                '学生信息查询
Private Sub selectStu_Click()
    frmselectStu.Show
End Sub
                                '教师信息查询
Private Sub Selectteachnfo_Click()
    frmSelectteach.Show
End Sub

Private Sub studentP_Click()     '显示学生信息
    frmStudent.Show
End Sub

Private Sub Teacha_Click()       '显示教师电子教案信息
    frmPPt.Show
End Sub

Private Sub teachD_Click()       '显示教学大纲
    frmteachlab.Show
End Sub

Private Sub TeacherF_Click()     '显示教师文件管理信息
    frmteachfile.Show
End Sub

Private Sub teachin_Click()      '显示教师个人信息
    frmteacherInfo.Show
End Sub