sheet1.frm

学生成绩管理系统

ssum2 = 0
For i = 0 To 11
       If Check(i).Value = 1 And i <> ps Then
          ssum1 = ssum1 + col_youxiu(i)
          ssum2 = ssum2 + col_jige(i)
       End If
Next i

col_youxiu(ps) = ssum1
col_jige(ps) = ssum2


grid.TextMatrix(0, ps) = "总分"


For i = 1 To send
       
       
       ssum = 0
       For j = 1 To 11
       
       
       
       
                   If Check(j).Value = 1 And j <> ps Then
                         'MsgBox i
            
                         
                        
            
                      
                         
                             If grid.TextMatrix(i, j) <> "" Then
                                 'MsgBox grid.TextMatrix(j, i)
                             
                                 
                                    ssum = ssum + CSng(grid.TextMatrix(i, j))
                                 
                             End If
                         
                
                         
                  End If
                  
       
       Next j
       
       grid.TextMatrix(i, ps) = ssum
Next i


'On Error GoTo ErrHandler
Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "先选择计算列项目！或你选定的列不可计算")



End Sub

Private Sub menu_helphelp_Click()
Dim address As String
address = App.Path + "\帮助\版本说明.txt"
Call netnetopen_FILEpageIE(address)
End Sub

Private Sub MENU_JISHUANSUANXISHU_Click()
On Error GoTo ErrHandler


Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "")
End Sub

Private Sub menu_jisuanzhehoufen_Click()
Dim i As Integer


On Error GoTo ErrHandler

Dim r, sc, s, sum As Single


For i = 1 To 13
grid.TextMatrix(i, 5) = grid.TextMatrix(i, 3) * grid.TextMatrix(i, 4)




Next




'On Error GoTo ErrHandler


Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "")
End Sub



Private Sub menu_max_no_Click()
Dim i, j As Integer

On Error GoTo ErrHandler
i = InputBox("请输入最大学号！", , "70")



If i > 0 Then

   



End If




Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "")
End Sub



Private Sub menu_insert_title_Click()
On Error GoTo ErrHandler
Dim i, j As Integer



If grid.RowSel >= 0 Then




For i = 0 To Ccol_max

 For j = Crow_max - 1 To grid.RowSel Step -1

  grid.TextMatrix(j + 1, i) = grid.TextMatrix(j, i)


 Next j
Next

For i = 1 To Ccol_max



  grid.TextMatrix(grid.RowSel, i) = ""


Next

grid.TextMatrix(grid.RowSel, 0) = "*********"

Text1.Visible = False


End If



Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "")
End Sub

Private Sub menu_jigeli_Click()
Dim i, j, send, ps, ps2, findd As Integer
Dim c_jige, jigeli As Single
Dim sno, c_jigesmmmm As Integer
On Error GoTo ErrHandler




Dim colseled As Boolean
If grid.ColSel > 0 And grid.RowSel = Crow_max Then
   colseled = True
            
End If


findd = 0
For i = 0 To 10
       If Check(i).Value = 1 Then
          findd = 1
       End If
Next i

If findd = 0 And colseled = False Then

   MsgBox "先选择计算项目！"
   
   Exit Sub
End If


send = 0
For i = 1 To Crow_max
  If grid.TextMatrix(i, 0) = "*********" Then
  
  send = i - 1
  'MsgBox send
  Exit For
  End If
Next


If send = 0 Then
 Call MsgBox("在所有学号结束后必需有一个结束标志" + vbCrLf + "*********" + vbCrLf + "解决办法：在此位置点击 编辑/插入行记录结束标志", vbCritical)
  Exit Sub
End If



For i = send + 1 To Crow_max
  If grid.TextMatrix(i, 0) = "" Or grid.TextMatrix(i, 0) = "及格率" Then
  
  ps = i
  Exit For
  End If
Next

grid.TextMatrix(ps, 0) = "及格率"
For i = send + 1 To Crow_max
  If grid.TextMatrix(i, 0) = "" Or grid.TextMatrix(i, 0) = "及格人数" Then
  
  ps2 = i
  Exit For
  End If
Next




grid.TextMatrix(ps2, 0) = "及格人数"


For i = 0 To 10
       If Check(i).Value = 1 Then
             'MsgBox i
             c_jige = col_jige(i)
             
             c_jigesmmmm = 0
             sno = 0
          
             For j = 1 To send
                 If grid.TextMatrix(j, i) <> "" Then
                     'MsgBox grid.TextMatrix(j, i)
                 
                     If CInt(grid.TextMatrix(j, i)) >= c_jige Then
                        c_jigesmmmm = c_jigesmmmm + 1
                     End If
                 
                     sno = sno + 1
                 End If
             
             Next j

            If sno > 0 Then

                 jigeli = Int((c_jigesmmmm / sno) * 10000) / 10000
                
                 grid.TextMatrix(ps, i) = jigeli
                 grid.TextMatrix(ps2, i) = c_jigesmmmm
             
            End If
      End If
Next i

If colseled = True Then
             i = grid.ColSel
             c_jige = col_jige(i)
             c_jigesmmmm = 0
             sno = 0
          
             For j = 1 To send
                 If grid.TextMatrix(j, i) <> "" Then
                     'MsgBox grid.TextMatrix(j, i)
                 
                     If CInt(grid.TextMatrix(j, i)) >= c_jige Then
                        c_jigesmmmm = c_jigesmmmm + 1
                     End If
                 
                     sno = sno + 1
                 End If
             
             Next j

            
           If sno > 0 Then
             jigeli = Int((c_jigesmmmm / sno) * 10000) / 10000
            
             grid.TextMatrix(ps, i) = jigeli
             grid.TextMatrix(ps2, i) = c_jigesmmmm
          End If
End If

Text1.Visible = False
'On Error GoTo ErrHandler
Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "先选择计算列项目！或你选定的列不可计算")


End Sub

Private Sub menu_open_Click()
Dim allcells As String
Dim fno As Integer
Dim currow, curcol As Integer


On Error GoTo ErrHandler

   CommonDialog1.CancelError = True
   CommonDialog1.DialogTitle = "选择你要打开的文件"
   CommonDialog1.InitDir = App.Path
   CommonDialog1.Filter = "GDT*.GDT|*.GDT;*.GDT;"
   CommonDialog1.ShowOpen





fno = FreeFile()

Open CommonDialog1.FileName For Input As #fno

Input #fno, allcells
Close #fno

Call CLEAN_GRID(0, Crow_max, 0, Ccol_max)
Call MENU_SELECTALL_Click
grid.Clip = allcells
grid.Row = currow
grid.Col = curcol
grid.RowSel = grid.Row
grid.ColSel = grid.Col

Text1.Visible = False



Me.Caption = App.Title + "   班级工作表   " + CommonDialog1.FileName


'On Error GoTo ErrHandler
Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "")
End Sub

Private Sub menu_paimingci_Click()


Dim i, j, p As Integer

Dim smax, temp, ss(1 To 13) As Single

Dim mm, m(1 To 13) As Integer

On Error GoTo ErrHandler





For i = 1 To 13
ss(i) = grid.TextMatrix(i, 5)
Next


For i = 1 To 13
    smax = ss(i)
    
   
    
    p = i
    For j = i + 1 To 13
       If ss(j) > smax Then
        smax = ss(j)
        p = j
       End If
    Next
    
    temp = ss(i)
    ss(i) = ss(p)
    ss(p) = temp
    
    
Next

For i = 1 To 13
    For j = 1 To 13
    
    If Abs(grid.TextMatrix(j, 5) - ss(i)) <= 0.00001 Then
        grid.TextMatrix(j, 6) = i
    
    Exit For
    End If
    Next

Next



Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "")


End Sub

Private Sub menu_open_empty_class_Click()
Dim i As Integer

On Error GoTo ErrHandler


Frame_template_class.Caption = "班级模板"
Frame_template_class.Visible = True

For i = 0 To 9


Label_course(i).Caption = "学科" + CStr(i + 1)


Next

Text_course(0).Text = "语文"
Text_course(1).Text = "数学"
Text_course(2).Text = "英语"
Text_course(3).Text = "自然"
Text_course(4).Text = "社会"
Text_course(5).Text = "体育"

temp_template = C_template_class




Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "")
End Sub



Private Sub menu_open_empty_course_Click()
Dim i As Integer

On Error GoTo ErrHandler


Frame_template_class.Caption = "学科模板"
Frame_template_class.Visible = True

For i = 0 To 9


    Label_course(i).Caption = "单位" + CStr(i + 1)


Next

Text_course(0).Text = "语文期末"
Text_course(1).Text = "期中"
Text_course(2).Text = "单元1"
Text_course(3).Text = "单元2"
Text_course(4).Text = "单元3"
Text_course(5).Text = "单元4"
Text_course(6).Text = "月考1"
Text_course(7).Text = "月考2"

temp_template = C_template_course




Exit Sub
ErrHandler:
End Sub

Private Sub menu_save_Click()

Dim allcells As String
Dim fno As Integer
Dim currow, curcol As Integer


On Error GoTo ErrHandler


   CommonDialog1.CancelError = True
   CommonDialog1.DialogTitle = "保存文件到.......位置"
   CommonDialog1.InitDir = App.Path
   CommonDialog1.Filter = "GDT*.GDT|*.GDT;*.GDT;"
   CommonDialog1.Flags = &H2




CommonDialog1.ShowSave

Call MENU_SELECTALL_Click

allcells = grid.Clip

fno = FreeFile()

Open CommonDialog1.FileName For Output As #fno

Write #fno, allcells
Close #fno
grid.Row = currow
grid.Col = curcol
grid.RowSel = grid.Row
grid.ColSel = grid.Col

'On Error GoTo ErrHandler
Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "")
End Sub

Private Sub MENU_SELECTALL_Click()

On Error GoTo ErrHandler

Dim i, r, c As Integer




editselctall = True





grid.Row = 0
grid.Col = 0

grid.RowSel = Crow_max - 1
grid.ColSel = Ccol_max - 1

editselctall = False



Text1.Visible = False



'On Error GoTo ErrHandler
Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "")
End Sub

'Private Sub menu_set_Click()
'On Error GoTo ErrHandler
'
'
'
'
'Frm_set.Show
'Exit Sub
'ErrHandler:
'Call net_ERR_center(1, Err.Number, Err.Description, "")