学生信息管理系统毕业论文和原代码 第69页

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) = "联系电话"

.TextMatrix(1, 6) = "入校日期"

.TextMatrix(1, 7) = "家庭住址"

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) = Format(mrc.Fields(3), "yyyy-mm-dd")

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

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

.TextMatrix(.Rows - 1, 6) = Format(mrc.Fields(6), "yyyy-mm-dd")

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

mrc.MoveNext

Loop

End With

mrc.Close

End Sub

Private Sub Form_Load()

With myflexgrid

.CellAlignment = 4

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

 << 上一页  [61] [62] [63] [64] [65] [66] [67] [68] [69] [70]  ... 下一页  >>