学生信息管理系统

txtSQL = \from prize_Stud where prize_No ='\& Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)) & \

Set mrc = ExecuteSQL(txtSQL, MsgText)

txtSQL = \ Set mrc = ExecuteSQL(txtSQL, MsgText) ShowData End If End If End Sub

Private Sub Label6_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

Label6(Index).BackColor = &HFFFFFF End Sub

Private Sub Label7_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

Label6(0).BackColor = &HC0C0C0 Label6(1).BackColor = &HC0C0C0 End Sub

Private Sub Text1_Change(Index As Integer) Dim txSQL As String If Index = 0 Then

txtSQL = \ Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then

Text1(1) = mrc.Fields(1) Text1(1).Locked = True Else

Text1(1) = \

Text1(1).Locked = False End If End If End Sub

Private Sub ShowData() With MSFlexGrid1 .Rows = 1

Do While Not mrc.EOF .Rows = .Rows + 1

For i = 1 To mrc.Fields.Count

Select Case mrc.Fields(i - 1).Type Case adDBDate

TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & \

Case Else

TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & \

End Select Next i

mrc.MoveNext Loop End With mrc.Close End Sub

Private Sub Text2_Change() Dim txtSQL As String

txtSQL = \ Set mrc = ExecuteSQL(txtSQL, MsgText) ShowData End Sub

8.8个人信息管理模块

Dim mrc As ADODB.Recordset Dim MsgText As String Dim txtSQL As String Private Sub Form_Load() With MSFlexGrid1 .Cols = 4

.ColWidth(0) = 0 .ColWidth(1) = 0 .ColWidth(2) = 1700 .ColWidth(3) = 1700

.TextMatrix(0, 2) = \奖惩日期\ .TextMatrix(0, 3) = \奖惩名称\ .Rows = 1 End With

With MSFlexGrid2 .Cols = 6

.ColWidth(0) = 0 .ColWidth(1) = 1550 .ColWidth(2) = 1550 .ColWidth(3) = 0 .ColWidth(4) = 1550 .ColWidth(5) = 1550

.TextMatrix(0, 1) = \考试期号\ .TextMatrix(0, 2) = \学生班号\ .TextMatrix(0, 4) = \考试课程\ .TextMatrix(0, 5) = \考试分数\ .Rows = 1 End With

Picture1.Visible = False MSFlexGrid1.Visible = False MSFlexGrid2.Visible = False End Sub

Private Sub Form_Resize() dColor.ZOrder 1 End Sub

Private Sub Text1_Change(Index As Integer) If Index = 0 Then

txtSQL = \* from student_Form where student_NO='\& Trim(Text1(0)) & \ Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then For i = 1 To 6

Text1(i) = mrc.Fields(i) Next

Picture1.Visible = True Else

Picture1.Visible = False