下面的ReadUserData过程代码将从存储系统用户信息的文本文件UserData.txt中读出用户名为UserName的用户信息。

'================================================================
'FunctionName:ReadUserData(UserName,UserPassword,UserPermission)
'Description:从存储系统用户信息的文本文件UserData.txt中读出用户名为UserName的用户信息
'Input:UserName as string       用户名
'      UserPassword as string   用户密码
'      UserPermission as string 用户权限
'Output:UserName as string      用户名
'      UserPassword as string   用户密码
'      UserPermission as string 用户权限
'Reference:Microsoft Scripting Runtime
'Author:lenovo
'Updated:2008-11-15
'================================================================
Public Sub ReadUserData(UserName As String, UserPassword As String, UserPermission As String)
    Dim txtTextLine As String, txtFilePath As String
    Dim fsoTemp As Scripting.FileSystemObject
    Dim fsUserData As Scripting.TextStream
   
    On Error GoTo errWriteUserData
   
    txtFilePath = CurrentProject.Path & "\UserData.txt"
    Set fsoTemp = CreateObject("Scripting.FileSystemObject")
    Set fsUserData = fsoTemp.OpenTextFile(txtFilePath, ForReading, True, TristateFalse)
   
    Do While (Not fsUserData.AtEndOfStream)
        txtTextLine = fsUserData.ReadLine
        If (txtTextLine = ("登录用户名=" & UserName)) Then
            UserPassword = fsUserData.ReadLine
            UserPermission = fsUserData.ReadLine
            Exit Sub
        End If
    Loop
   
    msgbox "该用户不存在。",,"提示信息"   
    fsUserData.Close
   
errWriteUserData:
    MsgBox Err.Description, , "错误编号：" & Err.Number
End Sub

    在上面的ReadUserData过程代码中，首先打开存储系统用户信息的文本文件UserData.txt,然后读出该文件中的系统用户名，以判断是否存在查找的系统用户名UserName，如果不存在，则给出相应的错误信息；如果存在，则从存储系统用户信息的文本文件UserData.txt中读出用户名为UserName的用户信息，即该用户的用户密码和操作权限，并赋给变量UserPassword和UserPermission.

上一节　下一节