登录模块的实现系列之五
时 间:2008-11-16 07:42:01
作 者:lenovo ID:4072 城市:昌平
摘 要:登录模块的实现系列之五
正 文:
下面的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.
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access高效办公】按日期...(06.12)
- 合并列数据到一个文本框的示例;...(05.06)
- 通过命令按钮让Access列表...(04.24)
- 统计当月之前(不含当月)的记录...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)
- 【Access Dsum示例】...(02.07)
- Access对子窗体的数据进行...(02.05)
- 【Access高效办公】上月累...(01.09)

学习心得
最新文章
- Access快速开发平台--Acc...(06.16)
- 【Access高效办公】按日期区间...(06.12)
- Access快速开发平台--生成复...(06.07)
- 仓库管理实战课程(25)-导航菜单...(06.06)
- 仓库管理实战课程(24)-库存月结...(06.05)
- 分享一个简单的X氏家谱小示例(06.04)
- 仓库管理实战课程(23)-先入先出(06.02)
- 仓库管理实战课程(22)-代理商库...(05.30)
- 仓库管理实战课程(21)-安全库存...(05.28)
- Access快速开发平台--如何添...(05.26)