frmmain.frm

员工培训系统

VERSION 5.00
Object = "{74238AF8-8108-44A9-B3DE-D652F61AB8DC}#2.3#0"; "NetMenu.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm FrmMain 
   BackColor       =   &H8000000F&
   Caption         =   "员工培训管理系统"
   ClientHeight    =   8190
   ClientLeft      =   60
   ClientTop       =   525
   ClientWidth     =   11880
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "FrmMain.frx":113A
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   150
      Left            =   9840
      Top             =   480
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   7815
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
      EndProperty
   End
   Begin yfDNetMenu.DNetMenu DNetMenu1 
      Left            =   10560
      Top             =   360
      _ExtentX        =   847
      _ExtentY        =   847
      SelectDisabled  =   0   'False
      BmpCount        =   12
      Bmp:1           =   "FrmMain.frx":24117C
      Key:1           =   "#mnuExit"
      Bmp:2           =   "FrmMain.frx":2415A4
      Key:2           =   "#mnuBackUpDB"
      Bmp:3           =   "FrmMain.frx":2419CC
      Key:3           =   "#mnuRestoreDB"
      Bmp:4           =   "FrmMain.frx":241DF4
      Key:4           =   "#mnuLogoff"
      Bmp:5           =   "FrmMain.frx":24221C
      Key:5           =   "#mnu"
      Bmp:6           =   "FrmMain.frx":242644
      Key:6           =   "#mnuMatter"
      Bmp:7           =   "FrmMain.frx":242A6C
      Key:7           =   "#mnuClassReport"
      Bmp:8           =   "FrmMain.frx":242E94
      Key:8           =   "#mnuStudentReport"
      Bmp:9           =   "FrmMain.frx":2432BC
      Key:9           =   "#mnuClassQuery"
      Bmp:10          =   "FrmMain.frx":2436E4
      Mask:10         =   8736516
      Key:10          =   "#mnuCourseQuery"
      Bmp:11          =   "FrmMain.frx":243B0C
      Key:11          =   "#mnuResultQuery"
      Bmp:12          =   "FrmMain.frx":243F34
      Mask:12         =   1793258
      Key:12          =   "#mnuStudentQuery"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuBackUpDB 
         Caption         =   "备份数据库"
      End
      Begin VB.Menu mnuRestoreDB 
         Caption         =   "还原数据库"
      End
      Begin VB.Menu mnuline1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuLogoff 
         Caption         =   "注销"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mnuUserManage 
      Caption         =   "用户管理"
      Begin VB.Menu mnuAddUser 
         Caption         =   "用户添加"
      End
      Begin VB.Menu mnuDeleteUser 
         Caption         =   "用户删除"
      End
      Begin VB.Menu mnuModiPwd 
         Caption         =   "密码修改"
      End
   End
   Begin VB.Menu mnuGrade 
      Caption         =   "培训效果评价"
      Begin VB.Menu mnuSetGrade 
         Caption         =   "培训效果评价"
      End
   End
   Begin VB.Menu mnuClass 
      Caption         =   "培训计划管理"
      Begin VB.Menu mnuSetClass 
         Caption         =   "培训计划设置"
      End
   End
   Begin VB.Menu mnuCourseInfo 
      Caption         =   "课程信息管理"
      Begin VB.Menu mnuSetCourseInfo 
         Caption         =   "课程信息设置"
      End
      Begin VB.Menu mnuSetCourse 
         Caption         =   "课程培训需求"
      End
   End
   Begin VB.Menu mnuStudentInfo 
      Caption         =   "员工信息管理"
      Begin VB.Menu mnuAddStudentInfo 
         Caption         =   "员工信息设置"
      End
   End
   Begin VB.Menu mnuResult 
      Caption         =   "成绩信息管理"
      Begin VB.Menu mnuAddResult 
         Caption         =   "成绩信息设置"
      End
   End
   Begin VB.Menu mnuQuery 
      Caption         =   "查询管理"
      Begin VB.Menu mnuClassQuery 
         Caption         =   "培训计划查询"
      End
      Begin VB.Menu mnuCourseQuery 
         Caption         =   "课程信息查询"
      End
      Begin VB.Menu mnuResultQuery 
         Caption         =   "成绩信息查询"
      End
      Begin VB.Menu mnuStudentQuery 
         Caption         =   "员工信息查询"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuAbout 
         Caption         =   "版权说明(&A)..."
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Myinfo As String
Dim success As Long

Private Declare Function htmlhelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long
Private Sub MDIForm_Load()
Set Classprint = New OpenRs
Timer1.Enabled = True
Dim mypanel As Panel
Set mypanel = StatusBar1.Panels.Add(1, , , sbrDate) '状态栏1显示日期

Set mypanel = StatusBar1.Panels.Add(2) '状态栏2显示星期几
Call MyWeekDay

Set mypanel = StatusBar1.Panels.Add(3)
StatusBar1.Panels(3).Text = "当前用户：" & FrmLogin.CurrentUser
mypanel.AutoSize = sbrContents

Set mypanel = StatusBar1.Panels.Add(4) '状态栏3显示文本消息
mypanel.AutoSize = sbrSpring
End Sub

Private Sub mnuAbout_Click()
ShellAbout Me.hwnd, "员工培训管理系统", "版权所有(C)2006.06  开发者:蔡跃城", Me.Icon
End Sub

Private Sub mnuAddResult_Click()
Frmresult.Show
End Sub
Private Sub mnuClassQuery_Click()
FrmClassQuery.Show
End Sub

Private Sub mnuCourseQuery_Click()
FrmCourseQuery.Show
End Sub



Private Sub mnuResultQuery_Click()
FrmResultQuery.Show
End Sub

Private Sub mnuSchoolSet_Click()
FrmSchoolInfo.Show
End Sub

Private Sub mnuSetClass_Click()
FrmClassInfo.Show
End Sub

Private Sub mnuAddStudentInfo_Click()
FrmAddStudentInfo.Show
End Sub

Private Sub mnuAddUser_Click()
FrmAddUser.Show
End Sub

Private Sub mnuBackUpDB_Click()
FrmBackUp.Show
End Sub

Private Sub mnuDeleteUser_Click()
FrmDelUser.Show
End Sub

Private Sub mnuExit_Click()
If MsgBox("要退出系统吗？", vbYesNo + vbInformation, "退出") = vbYes Then
   Unload FrmMain
End If
End Sub

Private Sub mnuLogoff_Click()
If MsgBox("要注销系统吗？", vbYesNo + vbInformation, "注销") = vbYes Then
   Unload FrmMain
   FrmLogin.Show
End If
End Sub

Private Sub mnuModiPwd_Click()
FrmModiPass.Show
End Sub

Private Sub mnuRestoreDB_Click()
If MsgBox("是否现在就执行还原数据库的操作？", vbYesNo + vbInformation, "还原数据库") = vbYes Then
   success = WritePrivateProfileString("BackUp", "Restore", "True", App.Path & "\备份.ini")
Unload Me
Shell "Restore.exe"
End If
End Sub

Private Sub mnuSetCourse_Click()
FrmGradecourse.Show
End Sub

Private Sub mnuSetCourseInfo_Click()
FrmCourse.Show
End Sub

Private Sub mnuSetGrade_Click()
FrmGradeInfo.Show
End Sub

Private Sub mnuStudentQuery_Click()
FrmStuInfoQuery.Show
End Sub


Private Sub Timer1_Timer()
If Myinfo = "" Then
   Myinfo = Space(85) & "欢迎使用员工培训管理系统！"
End If
Myinfo = Right(Myinfo, Len(Myinfo) - 1)
StatusBar1.Panels(4).Text = Myinfo
End Sub

Private Sub MyWeekDay()
Select Case Weekday(Date)
   Case 1
     StatusBar1.Panels(2).Text = "星期日"
   Case 2
     StatusBar1.Panels(2).Text = "星期一"
   Case 3
     StatusBar1.Panels(2).Text = "星期二"
   Case 4
     StatusBar1.Panels(2).Text = "星期三"
   Case 5
     StatusBar1.Panels(2).Text = "星期四"
   Case 6
     StatusBar1.Panels(2).Text = "星期五"
   Case 7
     StatusBar1.Panels(2).Text = "星期六"
End Select
End Sub