学生信息管理系统：用户登录流程

    Private Sub Form_Load()重点内容
    Dim sBuffer As String   '缓冲器
    Dim lSize As Long
    
    sBuffer = Space$(255)   '缓冲器容量255Byte，sBuffer为255个空格字符串
    lSize = Len(sBuffer)     'sBuffer串的长度
    Call GetUserName(sBuffer, lSize)     '读取用户名到sBuffer中
    
    If lSize > 0 Then
        txtUserName.Text = ""
    Else
    
      
      
      
      
      
      
      
      
      
      
      
    

    Private Sub cmdOK_Click()
    Dim