毕业论文——学生信息管理系统

If Trim(ZhuanYe) = \= \Or Trim(JiaoCai) = \Or Trim(RenKLS) = \Or Trim(KeShi) = \Or Trim(ShangKeDD) = \ MsgBox \请填写要修改课程资料的内容！\ Combo1.Text = \ Combo2.Text = \ Exit Sub End If

myCon.Open \信息\

myRs.Open \课程表 where 专业='\ myRs!年级 = Text2.Text myRs!学期 = DTPicker1.Value myRs!课程名称 = Text4.Text myRs!教材 = Text5.Text

myRs!任课老师 = Text6.Text myRs!课时 = Text7.Text

myRs!上课地点 = Text8.Text myRs!课程性质 = Combo1.Text myRs!考试性质 = Combo2.Text myRs.Update

myRs.Close myCon.Close

MsgBox \您确定要修改吗？\提示\Frm_UpdateGrean.Adodc1.Refresh Frm_UpdateGrean.DataGrid1.Refresh

Text1.Text = \Text2.Text = \'Text3.Text = \Text4.Text = \Text5.Text = \Text6.Text = \Text7.Text = \Text8.Text = \Combo1.Text = \Combo2.Text = \End Sub

Private Sub Command2_Click() Unload Me

End Sub

Private Sub Command3_Click()

毕业论文——学生信息管理系统

Unload Me

Frm_FindGrean.Show 1 End Sub

Private Sub DataGrid1_Click()

'Frm_UpdateGrean.Adodc1.RecordSource = \课程表 where 专业 = '\Trim(DataGrid1.Row) & \

'Text1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields(\专业\'Text2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields(\年级\'Text3.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields(\学期\'Text4.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields(\课程名称\'Text5.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields(\教材\'Text6.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields(\任课老师\'Text7.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields(\课时\'Text8.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields(\上课地点\'Combo1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields(\课程性质\'Combo2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields(\考试性质\End Sub

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

Private Sub Form_Activate()

Frm_FindGrean.Adodc1.RecordSource = strTiaoJian Frm_FindGrean.Adodc1.Refresh

Set DataGrid1.DataSource = Frm_FindGrean.Adodc1 End Sub

Private Sub Form_Load() Combo1.AddItem (\必修\Combo1.AddItem (\选修\Combo1.AddItem (\自开\Combo2.AddItem (\考试\Combo2.AddItem (\查考\Text1.Text = \Text2.Text = \'Text3.Text = \Text4.Text = \Text5.Text = \Text6.Text = \Text7.Text = \Text8.Text = \

毕业论文——学生信息管理系统

Combo1.Text = \

Combo2.Text = \End Sub

Private Sub Text1_Change()

End Sub

Private Sub Text2_Change() End Sub

Private Sub Text8_Change()

End Sub

课程管理：课程查询（如：界面如图三）

（图三）

当输入查询类别、运算符和条件后可以查找到所需要的课程设置，或按查询时间来查询，输入所要查找的时间段，就可查到所要的课程设置。 代码如下：

Dim sqlstr As String

Private Sub Combo1_Change() End Sub

Private Sub Combo2_Change()

End Sub

Private Sub Combo4_Change()

End Sub

毕业论文——学生信息管理系统

Private Sub Combo5_Change()

End Sub

Private Sub Combo7_Change()

End Sub

Private Sub Command1_Click() Dim a As String Dim KCCX1 As String Dim KCCX2 As String Dim str1 As String Dim str2 As String

If Option3.Value = True Then a = Trim(Combo2) Select Case a Case \

KCCX1 = \ Case \

KCCX1 = \End Select

a = Trim(Combo4) Select Case a Case \

KCCX2 = \ Case \

KCCX2 = \End Select

If Option1.Value = True Then If KCCX1 = \

strTiaoJian = \课程表 where \ ElseIf KCCX2 = \

strTiaoJian = \课程表 where \

Else

strTiaoJian = \课程表 where \ End If

ElseIf Option2.Value = True Then

If KCCX1 = \

strTiaoJian = \课程表 where \ ElseIf KCCX2 = \