评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

电子教务管理系统vb(一)毕业论文(6)

2013-05-06 18:02 xt i
End Sub

 

3.班级分数段分析界面与代码设计:

代码设计:
Private Sub CmdExec_Click()
If Combo1.ListIndex = -1 Or Combo2.ListIndex = -1 Or Combo3.ListIndex = -1 Then
 MsgBox "请确保选择统计班级、学科和考试性质！"
 Exit Sub
End If
    DataOut
    ExecPass
    LoadData
End Sub

Private Sub ComLst_Click(Index As Integer)
    If ComLst(Index).ListIndex > -1 And Combo3.ListIndex > -1 Then
      Dim txtSQL As String
      txtSQL = "select b.班级,b.学号,b.姓名,a.* from 成绩表 AS a INNER JOIN 学籍表 AS b ON a.考试号 = b.考试号 where 姓名 = '" & ComLst(Index).Text & "' and 考试性质 = '" & Combo3.Text & "'"
      Adodc1.ConnectionString = Con.ConnectionString
      Adodc1.CommandType = adCmdText
      Adodc1.RecordSource = txtSQL
      Adodc1.Refresh
      Set DataGrid1.DataSource = Adodc1
    End If
End Sub

Private Sub Form_Load()
    Call ResizeInit(Me)
   
    Dim Rsb As ADODB.Recordset
    Set Rsb = New ADODB.Recordset
    Rsb.Open "select distinct b.班级 as KsBJ from 成绩表 AS a INNER JOIN 学籍表 AS b ON a.考试号 = b.考试号 ", Con, adOpenStatic, , adCmdText
   
    Combo1.Clear
    Do While Not Rsb.EOF
        Combo1.AddItem Rsb!KsBJ
        Rsb.MoveNext
    Loop
   
    Set Rsx = New ADODB.Recordset

    Rsx.Open "select distinct a.考试性质 as Ksxz from 成绩表 AS a INNER JOIN 学籍表 AS b ON a.考试号 = b.考试号 ", Con, adOpenStatic, , adCmdText
   
    Combo3.Clear
    Do While Not Rsx.EOF
        Combo3.AddItem Rsx!Ksxz
        Rsx.MoveNext
    Loop
   
    If Combo1.ListCount > 0 Then
        Combo1.ListIndex = 0
        Combo2.ListIndex = 9
    End If
    If Combo3.ListCount > 0 Then
        Combo3.ListIndex = 0
    End If
End Sub

Private Sub Form_Resize()
    Call ResizeForm(Me) '窗体改变时，控件随之变化
    Combo1.Left = Label1.Left + Label1.Width + 100
    Combo1.Top = Label1.Top
    Combo1.Width = Label1.Width + 150
    Combo2.Left = Label3.Left + Label3.Width + 100
    Combo2.Top = Label3.Top
    Combo2.Width = Label3.Width + 150
    Combo3.Left = Label6.Left + Label6.Width + 100
    Combo3.Top = Label6.Top
    Combo3.Width = Label6.Width + 150
    For i = 0 To 7
        ComLst(i).Top = Label7.Top
        ComLst(i).Left = TxtFsd(i).Left + i * 10
    &