frmmain.frm

北大青鸟教学管理系统是学习规范编程范本.功能非常完备,代码编写有章法,不可多得

         End
         Begin VB.Menu popTermG 
            Caption         =   "学期信息管理(&T)"
         End
         Begin VB.Menu popScoreG 
            Caption         =   "学员成绩管理(&S)"
         End
      End
      Begin VB.Menu popInfoSearch 
         Caption         =   "信息查询(&S)"
         Begin VB.Menu popStuInfoQ 
            Caption         =   "学员信息查询(&I)"
         End
         Begin VB.Menu popClassQ 
            Caption         =   "班级信息查询(&C)"
         End
         Begin VB.Menu popTermQ 
            Caption         =   "学期信息查询(&T)"
         End
         Begin VB.Menu popScoreQ 
            Caption         =   "学员成绩查询(&S)"
         End
      End
      Begin VB.Menu popsep2 
         Caption         =   "-"
      End
      Begin VB.Menu popDataBase 
         Caption         =   "数据管理(&D)"
         Begin VB.Menu DataBackup 
            Caption         =   "数据备份(&B)"
         End
         Begin VB.Menu popDataResume 
            Caption         =   "数据恢复(&R)"
         End
      End
      Begin VB.Menu popUserG 
         Caption         =   "用户管理(&U)"
      End
      Begin VB.Menu popsep3 
         Caption         =   "-"
      End
      Begin VB.Menu popExit 
         Caption         =   "退出系统(&E)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub DataBackup_Click()
    Call mnuDataBak_Click
End Sub

Private Sub MDIForm_Load()
On Error GoTo Err_File
    Dim FileNo As Long
    Dim strStatu As String
    Dim strValue As String
    
    FileNo = FreeFile
    Open App.Path & "\config.sys" For Input As #FileNo
        Line Input #FileNo, strStatu
        Line Input #FileNo, strValue
    Close #FileNo
    
    If strStatu = "Image" Then
        Me.Picture = LoadPicture(strValue)
    Else
        Me.BackColor = Val(strValue)
    End If
    
    staMain.Panels(1).Text = " 欢迎使用北大青鸟ACCP教学管理系统 V1.0"
    staMain.Panels(2).Text = "操作员:" & StrUserName
    If Trim(UserPopedom) = "一般用户" Then
        mnuBaseInfoManager.Visible = False
        mnuUser.Visible = False
        tlbMain.Buttons(1).Enabled = False
        tlbMain.Buttons(5).Enabled = False
        tlbMain.Buttons(6).Enabled = False
    End If
    Exit Sub
Err_File:
    If Err.Number = 53 Then
        Me.Picture = LoadPicture(App.Path & "\ico\logo.jpg")
        Resume Next
    Else
        MsgBox "错误代号：" & Err.Number & vbCrLf & "错误描述：" & Err.Description, vbCritical + vbOKOnly, "未知错误"
    End If
End Sub

Private Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        PopupMenu mnuPopupMenu, vbPopupMenuRightButton
    End If
End Sub


Private Sub mnuAbout_Click()
    frmAbout.Show vbModal
End Sub

Private Sub mnuCAlign_Click()
    Me.Arrange (vbCascade)
End Sub

Private Sub mnuChangeUser_Click()
    Unload Me
    frmlogin.Show
End Sub

Private Sub mnuClassG_Click()
    frmClassG.Show
End Sub

Private Sub mnuClassQ_Click()
    frmClassQ.Show
End Sub

Private Sub mnuDataBak_Click()
On Error GoTo Err
    ComData.Filter = "Backup File(*.101)|*.101|All File(*.*)|*.*"
    ComData.FilterIndex = 1
    ComData.ShowSave                        '备份数据库
    Do While Dir(ComData.FileName) <> ""        '判断文件是否存在
        If MsgBox("文件已存在,是否覆盖?", vbYesNo + vbInformation, "数据备份") = vbYes Then
            Kill (ComData.FileName)             '覆盖原文件
        Else
            ComData.ShowSave                    '重新输入文件名
        End If
    Loop
    Con.Execute ("BACKUP DATABASE StudyManage TO Disk ='" & ComData.FileName & "'")
    MsgBox "数据备份成功....", vbInformation + vbOKOnly, "数据备份"
    Exit Sub
Err:
    Select Case Err.Number
    Case 32755
        MsgBox "操作已取消....", vbInformation + vbOKOnly, "数据备份"
    Case Else
        MsgBox "未知错误:" & Err.Description & vbCrLf & "错误代号:" & Err.Number, vbCritical + vbOKOnly, "未知错误"
    End Select
End Sub

Private Sub mnuDataResume_Click()
On Error GoTo Err
    ComData.Filter = "Backup File(*.101)|*.101|All File(*.*)|*.*"
    
    ComData.FilterIndex = 1
    ComData.ShowOpen
    If MsgBox("原有数据将被覆盖，是否继续？", vbInformation + vbYesNo, "数据恢复") = vbYes Then
        Con.Execute ("USE Master")
        Con.Execute ("RESTORE DATABASE StudyManage from Disk='" & ComData.FileName & "'")
        Con.Execute ("use studymanage")
        MsgBox "数据恢复成功....", vbInformation + vbOKOnly, "数据恢复"
    Else
        MsgBox "操作已取消!", vbInformation + vbOKOnly, "数据恢复"
    End If
    Exit Sub
Err:
    If Err.Number <> 32755 Then
        MsgBox "错误代号：" & Err.Number & vbCrLf & "错误描述：" & Err.Description, vbCritical + vbOKOnly, "未知错误"
    End If
End Sub

Private Sub mnuExitSys_Click()
    Unload Me
End Sub

Private Sub mnuHAlign_Click()
    Me.Arrange (1)
End Sub

Private Sub mnuHelpTitle_Click()
    
End Sub

Private Sub mnuLAlign_Click()
    Me.Arrange (3)
End Sub

Private Sub mnuModiPwd_Click()
    frmChangePwd.Show vbModal
End Sub

Private Sub mnuScoreG_Click()
    frmScoreG.Show
End Sub

Private Sub mnuScoreQ_Click()
    frmScoreQ.Show
End Sub

Private Sub mnuStudentG_Click()
    frmStudentG.Show
End Sub

Private Sub mnuStudentQ_Click()
    frmStudentQ.Show
End Sub

Private Sub mnuSysSet_Click()

    frmSysSet.Show vbModal
    frmRefresh.Show
    Unload frmRefresh
  '  frmMain.Picture = frmSysSet.PicBack.Picture
    
    
End Sub

Private Sub mnuTermG_Click()
    frmTermG.Show
End Sub

Private Sub mnuTermQ_Click()
    frmTermQ.Show
End Sub

Private Sub mnuTitle_Click()
    Shell "hh.exe " & App.Path & "\help\help.chm", vbMaximizedFocus
End Sub

Private Sub mnuUser_Click()
    Load frmUserG
    frmUserG.Show
End Sub

Private Sub mnuVAlign_Click()
    Me.Arrange (2)
End Sub

Private Sub popBackSet_Click()
    Call mnuSysSet_Click
End Sub

Private Sub popClassG_Click()
    Call mnuClassG_Click
End Sub

Private Sub popClassQ_Click()
    Call mnuClassQ_Click
End Sub

Private Sub popDataResume_Click()
    Call mnuDataResume_Click
End Sub

Private Sub popExit_Click()
    Call mnuExitSys_Click
End Sub

Private Sub popScoreG_Click()
    Call mnuScoreG_Click
End Sub

Private Sub popScoreQ_Click()
    Call mnuScoreQ_Click
End Sub

Private Sub popStuInfoG_Click()
    Call mnuStudentG_Click
End Sub

Private Sub popStuInfoQ_Click()
    Call mnuStudentQ_Click
End Sub

Private Sub popTermG_Click()
    Call mnuTermQ_Click
End Sub

Private Sub popTermQ_Click()
    Call mnuTermQ_Click
End Sub

Private Sub popUserG_Click()
    Call mnuUser_Click
End Sub

Private Sub Timer1_Timer()
    staMain.Panels(3).Text = Time
End Sub

Private Sub tlbMain_ButtonClick(ByVal Button As MSComctlLib.Button) '工具栏
    Select Case Button.Key
        Case "UserManage"
            frmUserG.Show
  
        Case "ChangeUser"
            Unload Me
            frmlogin.Show
        Case "ExitSystem"
            End
        Case "ClassG"
            frmClassG.Show
        Case "TermG"
            frmTermG.Show
        Case "StudentQuery"
            frmStudentQ.Show
    End Select
End Sub