【学生】优化（一）

如何显示程序的用户名？

Private Sub Form_Load()
     Label3.Caption = "当前用户：" & UserName            
End Sub

'计算机用户名：VBA.Environ("username")

为什么电话号码只能打到10位就报错了？

其实在sql中就已经设置过了，改过之后就好了。

如何简单的选择日期？

工程——部件——Microsoft Windows Common -2 6.0

选择DTPicker 和 MouthView

为何数据全部删除就会报错？

Private Sub cmdDelete_Click()
    Dim intMsgbox As Integer
    myBookmark = mrc.Bookmark
    intMsgbox = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
    
    If intMsgbox = vbOK Then
        mrc.MoveNext
        If mrc.EOF = True Then
            mrc.MovePrevious
            mrc.MovePrevious
            
            If mrc.BOF = True Then
                mrc.MoveNext
                mrc.Delete
                MsgBox "最后一条记录删除，记录为空！", vbOKOnly + vbExclamation, "警告"
                Unload Me
            Else
                mrc.MoveFirst
                myBookmark = mrc.Bookmark
                mrc.MoveLast
                mrc.Delete
                mrc.Bookmark = myBookmark
                Call viewData
            End If
        Else
            myBookmark = mrc.Bookmark
            mrc.MovePrevious
            mrc.Delete
            mrc.Bookmark = myBookmark
            Call viewData
        End If
    Else
        mrc.Bookmark = myBookmark
        Call viewData
    End If
End Sub

如何用vb调用SQL的数据？

txtSQL = "select * from class_Info"
Set mrc = ExecuteSQL(txtSQL, MsgText)
    For i = 1 To mrc.RecordCount
        comboClassNo.AddItem mrc.Fields(0)
        mrc.MoveNext
    Next i

mrc.Close

如何三次密码错误包提示框后退出？

If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
    OK = True
    mrc.Close
    Me.Hide
    frmMain.Show
    UserName = Trim(txtUserName.Text)
Else
    miCount = miCount + 1
    If miCount < 3 Then
    	MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
        txtPassword.SetFocus
        txtPassword.Text = ""
    Else
        MsgBox "您多次输入错误，即将退出程序！", vbOKOnly + vbExclamation, "警告"
        End
    End If
End If

这是进来解决的问题，之后发现更多问题后，会继续更新，希望大牛们可以多多指教。