毕业程序设计中如何设置数据管理代码_学生网页设计制作作业_网页制作作业成品_网页设计作业_计算机毕业设计_php作业_asp作业_网页模板

新增用户，保存用户输入的用户信息的实现代码。

Public Function AddUser(ByRef StoreParam As String, ByVal 新增用户，保存用户输入的用户信息的实现代码。

strUserName As String, ByVal strUserRealName As String, ByVal

strPassWord As String, ByVal strDepID As String) As String

Dim OperFlag As Integer

Dim returnValue As String

With New DataAccess.

WorkFlow.DataAccess.Users'取得操作的状态值

OperFlag = .AddUser(StoreParam, strUserName, strUserRealName, strPassWord, strDepID)

End With

If OperFlag <> 0 Then

returnValue = "添加成功!"

ElseIf OperFlag <> -1 Then

returnValue = "对不起，该用户名已经存在!"

Else

returnValue = "对不起，保存用户名时出现异常，请联系管理员!"

End If

AddUser = returnValue

End Function