|
本帖最后由 正鑫软件 于 2017-6-25 19:13 编辑
.版本 2
.支持库 dp1
.参数 账号, 文本型, , 游戏账号
.参数 服务密码, 文本型, , 游戏服务密码
.参数 数据地址, 整数型
.局部变量 子记录集句柄, 整数型
.局部变量 临时账号, 文本型
.局部变量 元宝, 文本型
.局部变量 临时数据名, 文本型
.局部变量 临时表名, 文本型
' 读取账号数据库名和字段名称
临时数据名 = 读配置项 (取运行目录 () + “\server.ini”, “数据库”, “database”, )
临时表名 = 读配置项 (取运行目录 () + “\server.ini”, “数据库”, “biao1”, )
' 读取配置文件中注册送元宝数量
元宝 = 读配置项 (取运行目录 () + “\server.ini”, “服务器配置”, “注册送元宝”, )
' 查询数据库有没有相同的账号
子记录集句柄 = _启动窗口.外部数据库1.查询 (“select loginName from [” + 临时数据名 + “].[dbo].[” + 临时表名 + “] where loginName='” + 账号 + “'”)
' 获取查询到的记录数据
临时账号 = 删全部空 (_启动窗口.外部数据库1.读 (子记录集句柄, “loginName”))
输出调试文本 (临时账号)
.如果 (临时账号 = “”) ' 判断读取出来的有没有数据,没有就创建账号
.如果 (_启动窗口.外部数据库1.执行 (“insert into [” + 临时数据名 + “].[dbo].[” + 临时表名 + “] (loginName,password_hash,yuanbao,pass) values ('” + 账号 + “', '957543385DD173A93EC9A1A197224122C9E97FB3DE14DB0C4020CF238618B912','” + 元宝 + “','” + 取数据摘要 (到字节集 (服务密码)) + “')”, ))
' 判断添加数据命令是否成功
服务端.发送数据 (数据地址, 到字节集 (“注册成功!”))
注册账号总汇 ()
输出调试文本 (“注册成功!”)
.否则
服务端.发送数据 (数据地址, 到字节集 (“注册失败,服务器内部错误,请联系管理员!”))
输出调试文本 (“注册失败,服务器内部错误,请联系管理员!”)
.如果结束
.否则
服务端.发送数据 (数据地址, 到字节集 (“该账号已被注册,请重新填写!”))
输出调试文本 (“该账号已被注册,请重新填写!”)
.如果结束
_启动窗口.外部数据库1.关闭记录集 (子记录集句柄)
----------------------------------------------------------------------------------------------------------------------------------------------------------
谁知道怎么搞 重金酬谢 哈哈
|
|