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

毕业论文——学生信息管理系统 毕业设计用纸

2． 判断信息是否符合要求； 3． 将符合条件的信息进行打印；

6.2流程图

学生注册 课程基本信息 基本信息班级设置

第七章 系统具体实现

成绩信息管理 成绩信息输入 学籍信息管理 班级管理 班级课程设置 班级课程管7.1各功能的实现

7.1.1课程管理：课程设置（如：界面如图二）

毕业论文——学生信息管理系统 毕业设计用纸

（图二）

运行程序后，进入课程管理模块，课程管理模块的第一块是课程设置，在这模块中可以把专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质和考试性质等信息输入，以便使用。 下面为其代码：

Private Sub Command1_Click()

Dim myCon As New ADODB.Connection Dim myRs As New ADODB.Recordset

Dim ZhuanYe, NianJi, XueQi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As String ZhuanYe = Text1.Text NianJi = Text2.Text

XueQi = DTPicker1.Value KeCheng = Text4.Text JiaoCai = Text5.Text RenKLS = Text6.Text KeShi = Text7.Text

ShangKeDD = Text8.Text KeChengXZ = Combo1.Text KaoShiXZ = Combo2.Text

If Trim(ZhuanYe) = \Trim(JiaoCai) = \Trim(KeChengXZ) = \ 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 = \* from 课程表 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