Option Explicit
Dim rs As ADODB.Recordset Dim SD As Boolean Private Sub Form_Load() On Error GoTo errh MakeCenter DlgCourse 'Text1.SetFocus
' Adodc1.ConnectionString = \ \学籍.MDB;\
\ \ \
' Adodc1.RecordSource = \课程\ ' Adodc1.Refresh ' DataGrid1.ReBind Exit Sub errh:
MsgBox Err.Description End Sub
4.6查询管理模块
该模块能够实现学生基本信息的查询和学生成绩的查询。其主要由两块组成基本信息查询和成绩查询。 1、基本信息查询
该窗口主要实现可以根据学生的学号、班级、专业或院系查询学生的基本信息。其设计窗口如下：
35
其代码如下：
Private Sub Command1_Click() On Error GoTo error: If Text1.Text <> \
If Option1.Value Then searchSQL = \学生与课程 WHERE 学号=\
If Option2.Value Then searchSQL = \学生与课程 where 学号 in (select 学号 from 学生 where 班级= '\ If Option3.Value Then searchSQL = \学生与课程 \ Else
MsgBox \条件不能为空\ Text1.SetFocus End If
' If Option1.Value Then 'Text1.Enabled = True ' Text2.Enabled = False 'Text2.ForeColor = &HC0C0C0 'Text1.SetFocus
searchSQL = \学生与课程 WHERE 学号=\'\
'End If
'If Option2.Value Then
36
'Text2.Enabled = True 'Text1.Enabled = False 'Text1.ForeColor = &HC0C0C0 'Text2.SetFocus
'searchSQL = \* FROM 学生与课程 where 学号 in (select 学号 from 学生 where 班级= '\ 'End If
'If Option3.Value Then
' searchSQL = \学生与课程 \ 'End If ' End If
'Adodc1.ConnectionString
=
\
Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\\学籍管理系统\\db5.mdb;Persist Security Info=False\ Adodc1.RecordSource = searchSQL Adodc1.Refresh If Option1.Value Then
If Adodc1.Recordset.EOF Then MsgBox \没有这个学生!\ End If Exit Sub End If
If Option2.Value Then
If Adodc1.Recordset.EOF Then MsgBox \没有这个班级!\ End If Exit Sub End If
If Option3.Value Then
If Adodc1.Recordset.EOF Then
37
MsgBox \没有相应的信息!\ End If Exit Sub End If Exit Sub
' Set DataGrid2.DataSource = Adodc1 ' DataGrid2.Refresh error:
MsgBox Err.Description End Sub 2、成绩查询
该窗口可以根据学生的学号、班号直接查询学生所学课程的全部成绩。其窗口设计如下：
窗口代码如下：
Private Sub Command1_Click() On Error GoTo error: If Text1.Text <> \
If Option1.Value Then searchSQL = \学生与课程 WHERE 学号=\
If Option2.Value Then searchSQL = \学生与课程 where 学号 in (select 学号 from 学生 where 班级= '\ If Option3.Value Then searchSQL = \学生与课程 \
38
Else
MsgBox \条件不能为空\ Text1.SetFocus End If
' If Option1.Value Then 'Text1.Enabled = True ' Text2.Enabled = False 'Text2.ForeColor = &HC0C0C0 'Text1.SetFocus
' searchSQL = \学生与课程 WHERE 学号=\Text1.Text & \ 'End If
'If Option2.Value Then 'Text2.Enabled = True 'Text1.Enabled = False 'Text1.ForeColor = &HC0C0C0 'Text2.SetFocus
'searchSQL = \学生与课程 where 学号 in (select 学号 from 学生 where 班级= '\ 'End If
'If Option3.Value Then
' searchSQL = \学生与课程 \ 'End If ' End If
'Adodc1.ConnectionString
=
\
Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\\软件工程\\db5.mdb;Persist Security Info=False\ Adodc1.RecordSource = searchSQL Adodc1.Refresh If Option1.Value Then
If Adodc1.Recordset.EOF Then
39