hhh.frm

vb学生成绩管理 vb学生成绩管理

         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":13A4
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":16F6
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":1A48
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":1D9A
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":20EC
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":243E
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":2790
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":2AE2
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":2E34
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":5802
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":82F4
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":B4C6
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":E9B0
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":12032
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":15C6C
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hhh.frx":18B3E
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuFileNew 
         Caption         =   "新建(&N)"
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuFileOpen 
         Caption         =   "打开(&O)"
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuFileBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileExit 
         Caption         =   "退出(&X)"
      End
      Begin VB.Menu mnuRecentFile 
         Caption         =   "-"
         Index           =   0
         Visible         =   0   'False
      End
      Begin VB.Menu mnuRecentFile 
         Caption         =   ""
         Index           =   1
         Visible         =   0   'False
      End
      Begin VB.Menu mnuRecentFile 
         Caption         =   ""
         Index           =   2
         Visible         =   0   'False
      End
      Begin VB.Menu mnuRecentFile 
         Caption         =   ""
         Index           =   3
         Visible         =   0   'False
      End
      Begin VB.Menu mnuRecentFile 
         Caption         =   ""
         Index           =   4
         Visible         =   0   'False
      End
      Begin VB.Menu mnuRecentFile 
         Caption         =   ""
         Index           =   5
         Visible         =   0   'False
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuhelpmain 
         Caption         =   "帮助主题"
      End
      Begin VB.Menu mnuHelpAbout 
         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

Private Sub MDIForm_Load()
    Me.Width = Screen.Width * 0.75
    Me.Height = Screen.Height * 0.75
    Me.Left = Screen.Width * 0.125
    Me.Top = Screen.Height * 0.125
    Me.Show
    '总是将工作目录设到应用程序所在目录
    ChDir App.Path
    
    '初始化文档窗体数组，并显示第一个子窗体
        ReDim Doc(1)
        ReDim FState(1)
        Doc(1).Tag = 1
        FState(1).Dirty = False
        Doc(1).Caption = "新成绩表：1"
        Doc(1).Show

    '读系统注册表并适当地设置最近使用的菜单文件列表控件数组
    GetRecentFiles
    
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    If Not AnyPadsLeft() Then
        End
    End If
End Sub

Private Sub mnuFileExit_Click()
    End
End Sub

Private Sub mnuFileNew_Click()
    '调用 FileNew 过程
    FileNew
End Sub

Private Sub mnuFileOpen_Click()
    '调用文件打开过程
    FileOpenProc
End Sub

Private Sub mnuHelpAbout_Click()
    frmAbout.Show vbModal, Me
End Sub

Private Sub mnuhelpmain_Click()
    frmHelp.Show vbModal, Me
End Sub

Private Sub mnuRecentFile_click(Index As Integer)
    '调用文件打开过程，传递一个对选定文件名的引用
    OpenFile (mnuRecentFile(Index).Caption)
    '更新文件列表
    GetRecentFiles
End Sub

Private Sub tbToolBar_ButtonClick(ByVal Button As ComctlLib.Button)     '用 Select Case 语句处理 Key 属性，
    '以确定单击了哪个按钮。
    With frmMain.ActiveForm
    Select Case Button.Key
    Case "new"          '选择新建
        FileNew
    Case "Open"         '选择打开
        FileOpenProc
    Case "Save"         '选择保存
        '检测文件是否已经有了文件名
        Dim strFilename As String
        If Left(frmMain.ActiveForm.Caption, 4) = "新成绩表" Then
            strFilename = GetFileName(strFilename)
        Else
            strFilename = .Caption
        End If
        If strFilename <> "" Then
            SaveFileAs strFilename  '调用文件保存过程
        End If
    Case "Print"        '选择打印
        filePrintJ
    Case "Copy"         '选择复制
        a = .ChengJB.Row
        b = .ChengJB.RowSel
        c = .ChengJB.Col
        d = .ChengJB.ColSel
        CopyThing (a), (b), (c), (d)
    Case "Edit"         '选择表元编辑
        .mnuEditBaoyuan.Checked = True
        .mnuEditKemu.Checked = False
        .mnuEditCheng.Checked = False
    Case "Hang"         '选择按行输入
        .mnuEditBaoyuan.Checked = False
        .mnuEditKemu.Checked = False
        .mnuEditCheng.Checked = True
    Case "Lie"          '选择按列输入
        .mnuEditBaoyuan.Checked = False
        .mnuEditKemu.Checked = True
        .mnuEditCheng.Checked = False
    Case "Big"          '选择字体放大
        FontChang (1)
    Case "Little"       '选择字体缩小
        FontChang (-1)
    Case "Up"           '选择升序排列
        .ChengJB.Sort = 1
    Case "Down"         '选择降序排列
        .ChengJB.Sort = 2
    Case "Shuxing"      '选择成绩表属性
        frmShuxing.Show vbModal, frmMain
    End Select
    End With
End Sub