登录模块的实现系列之四
时 间:2008-11-15 23:07:00
作 者:lenovo ID:4072 城市:昌平
摘 要:登录模块的实现系列之四
正 文:
在数据库应用系统中,除了可以在数据库中建立系统用户表来存储系统用户信息外,也可以在文本文件中存储系统用户信息,以便登录模块使用。
可以使用任何一种文本编辑器,建立文本文件来存储系统用户信息,存储的信息可以如下所示:
登陆用户名=zhang
用户密码=123
用户权限=admin
登录用户名=xu
用户密码=234
用户权限=user
在登录模块中,系统通过调用用户自定义的过程不仅可以读取存储有系统用户信息的文本文件,也可以在该文本文件中新增系统用户信息。
下面的WriteUserData过程代码将在存储有系统用户信息的文本文件UserData.txt文件中新增系统用户信息:
'================================================================
'FunctionName:WriteUserData(UserName,UserPassword,UserPermission)
'Description:存储新的系统用户信息到文本文件UserData.txt
'Input:UserName as string 用户名
' UserPassword as string 用户密码
' UserPermission as string 用户权限
'Output:None
'Reference:Microsoft Scripting Runtime
'Author:lenovo
'Updated:2008-11-15
'================================================================
Public Sub WriteUserData(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
MsgBox "该用户已经存在", , "提示信息"
Exit Sub
End If
Loop
Set fsUserData = fsoTemp.OpenTextFile(txtFilePath, ForAppending, True, TristateFalse)
fsUserData.WriteLine "登录用户名=" & Trim(UserName)
fsUserData.WriteLine "用户密码=" & Trim(UserPassword)
fsUserData.WriteLine "用户权限=" & Trim(UserPermission)
fsUserData.WriteLine =" "
fsUserData.Close
errWriteUserData:
MsgBox Err.Description, , "错误编号:" & Err.Number
End Sub
在上面的WriteUserData过程代码段中,首先打开存储系统用户信息的文本文件UserData.txt,然后读出该文件中的系统用户名,以判断是否存在欲添加的系统名UserName,如果存在,则给出相应的提示信息;如果不存在,则在该文件中存储登录用户名、用户密码和用户权限。
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)