毕业论文——学生信息管理系统
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 = \