《VB数据库开发实训》实训项目报告-10.docVIP

《VB数据库开发实训》实训项目报告-10 班级 姓名 学号 实践时间 地点 指导教师 项目名称 修改成绩信息 课时 3 实训目标 掌握修改信息的设计过程： 1．进一步设计MDI窗体——frmMain窗体。 2．查询成绩信息。 实 践 过 程 实践内容： 1．在上周实训的基础上实现修改班级信息和修改学籍信息功能，请执行“Student_Mis.exe”文件以作参考。 2.设计实现查询成绩信息窗体模块——frmInquireresult窗体，部分代码如下所示，其中“……”指这一段代码需自行补充完整，其它代码需自行补充完整。涉及到的数据表请在SQL Server中创建。 Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdInquire_Click() Dim txtSQL As String Dim MsgText As String Dim dd(4) As Boolean Dim mrc As ADODB.Recordset txtSQL = select * from result_Info where If Check1(0).Value Then If Trim(txtSID.Text) = Then sMeg = 学号不能为空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtSID.SetFocus Exit Sub Else If Not IsNumeric(Trim(txtSID.Text)) Then MsgBox 请输入数字！, vbOKOnly + vbExclamation, 警告 Exit Sub txtSID.SetFocus End If dd(0) = True txtSQL = txtSQL student_ID = Trim(txtSID.Text) End If End If If Check1(1).Value Then If Trim(txtName.Text) = Then sMeg = 姓名不能为空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtName.SetFocus Exit Sub Else dd(1) = True If dd(0) Then txtSQL = txtSQL and student_Name = txtName.Text Else txtSQL = txtSQL student_Name = txtName.Text End If End If End If If Check1(2).Value Then If Trim(txtCourse.Text) = Then sMeg = 课程不能为空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtCourse.SetFocus Exit Sub Else dd(2) = True If dd(0) Or dd(1) Then txtSQL = txtSQL and course_Name = txtCourse.Text Else txtSQL = txtSQL course_Name = txtCourse.Text End If End If End If