frmfindstu.frm

基于vb的程序管理系统

            .SubItems(1) = mRst("学生姓名")
            .SubItems(2) = mRst("性别")
            .SubItems(3) = Format(mRst("入学日期"), "yyyy年mm月dd日")
            .Tag = mRst("学生ID")
            .SubItems(4) = mRst("班级")
            .SubItems(5) = mRst("院系")
        End With
        mRst.MoveNext
    Loop
    mRst.Close
    Set mRst = Nothing
    Exit Sub
mErr:
    MsgBox Err.Number & "," & Err.Description, vbCritical + vbOKOnly, mTitle
    End
End Sub
Private Sub FindStuIfm_Class()
 On Error GoTo mErr
    Dim mRst As New ADODB.Recordset
    Dim mLItem As ListItem
    Dim mStrSend As String
    frmStuIfm.lsvStuIfm.ListItems.Clear
    mStrSend = ""
    Call FindStr(mStrSend)
    mRst.Open "SELECT * FROM tblStudent WHERE " & mStrSend, mCnnString, adOpenKeyset, adLockPessimistic, adCmdText
  
    Do Until mRst.EOF
       
            
        Set mLItem = frmStuIfm.lsvStuIfm.ListItems.Add(, , mRst("学生学号"))
        With mLItem
            .SubItems(1) = mRst("学生姓名")
            .SubItems(2) = mRst("性别")
            .SubItems(3) = Format(mRst("入学日期"), "yyyy年mm月dd日")
            .Tag = mRst("学生ID")
            .SubItems(4) = mRst("班级")
            .SubItems(5) = mRst("院系")
        End With
        mRst.MoveNext
    Loop
    mRst.Close
    Set mRst = Nothing
    Exit Sub
mErr:
    MsgBox Err.Number & "," & Err.Description, vbCritical + vbOKOnly, mTitle
    End
 

End Sub

'查找学生的成绩,若tblStudent表中有该学生但tblScore表中却无他的成绩，则显示零值
Private Sub FindMdfiScore()
On Error GoTo mErr
    Dim mStrSend As String
    mStrSend = ""
    Call FindStr(mStrSend)
    Call frmMdfiScore.DataToList("SELECT * FROM tblStudent WHERE " & mStrSend)
    Exit Sub
mErr:
    MsgBox Err.Number & "," & Err.Description, vbCritical + vbOKOnly, mTitle
    End
End Sub

'按学生姓名查成绩
Private Sub FindMdfiScore_Name()
On Error GoTo mErr
    Dim mStrSend As String
    mStrSend = ""
    Call FindStr(mStrSend)
    Call frmMdfiScore.DataToList("SELECT * FROM tblStudent WHERE " & mStrSend)
    Exit Sub
mErr:
    MsgBox Err.Number & "," & Err.Description, vbCritical + vbOKOnly, mTitle
    End
End Sub
'按照班级查成绩

Private Sub FindMdfiScore_Class()
On Error GoTo mErr
    Dim mStrSend As String
    mStrSend = ""
    Call FindStr(mStrSend)
    Call frmMdfiScore.DataToList("SELECT * FROM tblStudent WHERE " & mStrSend)
    Exit Sub
mErr:
    MsgBox Err.Number & "," & Err.Description, vbCritical + vbOKOnly, mTitle
    End

End Sub

'查找学生成绩记录以及名次，若checkbox打钩，则只按学生学号寻找，找到后把它的各科成绩、总分、平均分、名次显示在列表中
Private Sub FindStuPlace()
On Error GoTo mErr
    Dim mStrSend As String
    mStrSend = ""
    Call FindStr(mStrSend)
    frmStuPlace.lsvStuPlace.ListItems.Clear
    Call frmStuPlace.DataToList("SELECT * FROM tblStudent WHERE " & mStrSend)
    Exit Sub
mErr:
    MsgBox Err.Number & "," & Err.Description, vbCritical + vbOKOnly, mTitle
    End
End Sub
'按学生姓名查成绩
Private Sub FindStuPlace_Name()
On Error GoTo mErr
    Dim mStrSend As String
    mStrSend = ""
    Call FindStr(mStrSend)
    frmStuPlace.lsvStuPlace.ListItems.Clear
    Call frmStuPlace.DataToList("SELECT * FROM tblStudent WHERE " & mStrSend)
    Exit Sub
mErr:
    MsgBox Err.Number & "," & Err.Description, vbCritical + vbOKOnly, mTitle
    End
End Sub
Private Sub FindStuPlace_Class()
On Error GoTo mErr
    Dim mStrSend As String
    mStrSend = ""
    Call FindStr(mStrSend)
    frmStuPlace.lsvStuPlace.ListItems.Clear
    Call frmStuPlace.DataToList("SELECT * FROM tblStudent WHERE " & mStrSend)
    Exit Sub
mErr:
    MsgBox Err.Number & "," & Err.Description, vbCritical + vbOKOnly, mTitle
    End
End Sub
'对查找条件加工成SQL语句的一部分
Private Sub FindStr(mStr As String)
  If txtFindNum.Enabled = True And Trim(txtFindNum.Text) <> "" Then
     mStr = "学生学号 LIKE '%" & Trim(txtFindNum.Text) & "%'"
  End If
  
    If Trim(txtFindName.Text) <> "" And txtFindName.Enabled = True Then  'chkOnlyNum = 0 And
        mStr = "学生学号 LIKE '%" & Trim(txtFindNum.Text) & "%'"
        mStr = mStr & " AND 学生姓名 LIKE '%" & Trim(txtFindName.Text) & "%'"
    End If
    If (Trim(ImageCombo1.Text) <> "" And Trim(ImageCombo1.Text) <> "班级名称") And ImageCombo1.Enabled = True Then
        mStr = "学生学号 LIKE '%" & Trim(txtFindNum.Text) & "%'"
        mStr = mStr & " AND 学生姓名 LIKE '%" & Trim(txtFindName.Text) & "%'"
        mStr = mStr & "and 班级 like'%" & Trim(ImageCombo1.Text) & "%'"
    End If
End Sub


Private Sub Combo1_Change()

End Sub

Private Sub Form_Load()
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\StuScore.mdb" & ";Persist Security Info=False"
   Dim mRst As New ADODB.Recordset
    Dim mCItem As ComboItem

    If seltfrom1 = 1 Then
    txtFindName.Enabled = True
    ImageCombo1.Enabled = True
    ImageCombo2.Enabled = True
    txtFindNum.Enabled = True
    End If
    If seltfrom1 = 2 Then
    txtFindNum.Enabled = True
    txtFindName.Enabled = False
    ImageCombo1.Enabled = False
    ImageCombo2.Enabled = False
    End If

    ImageCombo1.Text = "班级名称"
    ImageCombo2.Text = "课程名称"
    mRst.Open "SELECT * FROM tblLesson ORDER BY 课程号", mCnnString, adOpenKeyset, adLockPessimistic, adCmdText
    Do Until mRst.EOF
            Set mCItem = ImageCombo2.ComboItems.Add(, , mRst("课程名称")) ' ddddd
                mCItem.Tag = mRst("课程ID")
                mRst.MoveNext
            Loop
    With ImageCombo1.ComboItems
        Set mCItem = .Add(, , "计0501")
        Set mCItem = .Add(, , "计0502")
        Set mCItem = .Add(, , "计0503")
        Set mCItem = .Add(, , "计0504")
    End With
    txtFindNum.Enabled = False
    txtFindNum.Text = ""
    txtFindName.Enabled = False
    txtFindName.Text = ""
    ImageCombo1.Text = "班级名称"
    ImageCombo1.Enabled = False
    ImageCombo2.Text = "课程名称"
    ImageCombo2.Enabled = False
    If SeltFrom = 2 Then
      Option2.Enabled = False
      Option3.Enabled = False
      Option4.Enabled = False
    End If
    If SeltFrom = 1 Then
      Option4.Enabled = False
    End If
End Sub


Private Sub Option1_Click()
txtFindNum.Enabled = True
txtFindNum.Text = ""
txtFindName.Enabled = False
txtFindName.Text = ""
ImageCombo1.Text = "班级名称"
ImageCombo1.Enabled = False
ImageCombo2.Text = "课程名称"
ImageCombo2.Enabled = False

End Sub

Private Sub Option2_Click()
If seltfrom1 = 1 Then
txtFindNum.Enabled = False
txtFindNum.Text = ""
txtFindName.Enabled = True
txtFindName.Text = ""
ImageCombo1.Text = "班级名称"
ImageCombo1.Enabled = False
ImageCombo2.Text = "课程名称"
ImageCombo2.Enabled = False
End If
End Sub

Private Sub Option3_Click()
If seltfrom1 = 1 Then
txtFindNum.Enabled = False
txtFindNum.Text = ""
txtFindName.Enabled = False
txtFindName.Text = ""
ImageCombo1.Text = "班级名称"
ImageCombo1.Enabled = True
ImageCombo2.Text = "课程名称"
ImageCombo2.Enabled = False
End If
End Sub
Private Sub Option4_Click()
If seltfrom1 = 1 And SeltFrom <> 1 Then
txtFindNum.Enabled = False
txtFindNum.Text = ""
txtFindName.Enabled = False
txtFindName.Text = ""
ImageCombo1.Text = "班级名称"
ImageCombo1.Enabled = False
  If SeltFrom <> 1 Then
    ImageCombo2.Text = "课程名称"
    ImageCombo2.Enabled = True
      Else
        ImageCombo2.Text = "课程名称"
        ImageCombo2.Enabled = False
  End If
End If
End Sub