新建 mecedit document.txt

来自「一个学生信息管理系统」· 文本 代码 · 共 26 行

  Dim txtSQL As String
     Dim MsgText As String
            
    If Not Testtxt(Text4.Text) Then
           MsgBox "请输入学号！", vbOKOnly + vbExclamation, "警告！"
           Text4.SetFocus
           Exit Sub
    End If
    
    txtSQL = "select * from status where number=" & Trim(Text4.Text) & ""
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF Then
       MsgBox "该同学一次请假旷课记录都没有!", vbOKOnly + vbExclamation, "温馨提示！"
       mrc.Close
       Exit Sub
    Else
       txtSQL = "select * from status where number=" & Trim(Text4.Text) & ""
       Set mrcc = ExecuteSQL(txtSQL, MsgText)
       If mrcc.EOF = False Then
          Grid1.TextMatrix(Grid1.Row, 1) = mrcc.fiels(0)
          Grid1.TextMatrix(Grid1.Row, 2) = mrcc.fiels(1)
          Grid1.TextMatrix(Grid1.Row, 3) = mrcc.fiels(2)
          Grid1.TextMatrix(Grid1.Row, 4) = mrcc.fiels(3)
          Grid1.TextMatrix(Grid1.Row, 5) = mrcc.fiels(5)
       End If
    End If