VB+SQL server学生信息管理系统毕业论文附源代码 第29页

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

 

If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then

MsgBox "请设置查询方式!", vbOKOnly + vbExclamation, "警告"

Exit Sub

End If

 

txtSQL = txtSQL & " order by student_ID "

Set mrc = ExecuteSQL(txtSQL, MsgText)

 

With myflexgrid

.Rows = 2

.CellAlignment = 4

.TextMatrix(1, 0) = "考试编号"

.TextMatrix(1, 1) = "学号"

.TextMatrix(1, 2) = "姓名"

.TextMatrix(1, 3) = "班号"

.TextMatrix(1, 4) = "课程名称"

.TextMatrix(1, 5) = "分数"

 

 

Do While Not mrc.EOF

.Rows = .Rows + 1

.CellAlignment = 4

.TextMatrix(.Rows - 1, 0) = mrc.Fields(0)

.TextMatrix(.Rows - 1, 1) = mrc.Fields(1)

.TextMatrix(.Rows - 1, 2) = mrc.Fields(2)

.TextMatrix(.Rows - 1, 3) = mrc.Fields(3)

.TextMatrix(.Rows - 1, 4) = mrc.Fields(4)

.TextMatrix(.Rows - 1, 5) = mrc.Fields(5)

mrc.MoveNext

Loop

 

End With

 

mrc.Close

End Sub

 

Private Sub Form_Load()

With myflexgrid

.CellAlignment = 4

.TextMatrix(1, 0) = "考试编号"

.TextMatrix(1, 1) = "学号"

.TextMatrix(1, 2) = "姓名"

.TextMatrix(1, 3) = "班号"

.TextMatrix(1, 4) = "课程名称"

.TextMatrix(1, 5) = "分数"

 

End With

End Sub

.........................................................................................................

 

南京大学计算机科学与技术系

** 001221135

 

 

Department Of Computer Science and Technology

** 001221135

(QQ:30729701 E-mail:stephenxuyao@163.com)

http://www.yaguo.com/~stephenxu

2002.12.29.

 << 上一页  [21] [22] [23] [24] [25] [26] [27] [28] [29] 

Copyright © 2007-2012 www.chuibin.com 六维论文网 版权所有