易语言edb数据库多用户操作问题
一个user.edb存放用户账号和密码进行账号和密码的验证多个user_data.edb存放对应账号的多个数据表然后账号admin和账号123同时登陆同时操作不同的use...
一个user.edb存放用户账号和密码进行账号和密码的验证
多个user_data.edb存放对应账号的多个数据表
然后账号admin和账号123同时登陆同时操作不同的user_data.edb怎么操作
我建立线程时用户读不到了所以启动线程那个代码是注销的
目前只能单用户操作,等待这个用户完成后才能让另外一个用户操作
我上代码(由于百度提示补充问题过长,删减部分不相关的代码)
.版本 2
.支持库 spec
.子程序 判断收到的数据
.如果真 (取文本左边 (到文本 (解密的数据文本), 2) = “zc”)
账号密码文本 = 分割文本 (到文本 (解密的数据文本), “/”, )
账号 = 账号密码文本 [2]
密码 = 账号密码文本 [3]
打开 (取运行目录 () + “\user.edb”, “user”, , , , , )
到首记录 ()
.如果 (查找 (账号 = 读 (1)))
画板1.滚动写行 (“账号:|” + 账号 + “|已被注册”)
服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“yzc”), )
.否则
加空记录 ()
写 (1, 账号)
写 (2, 密码)
创建目录 (取运行目录 () + “\” + 账号)
写到文件 (取运行目录 () + “\” + 账号 + “\data.edb”, #初始数据库)
画板1.滚动写行 (“账号:|” + 账号 + “|注册成功”)
服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“zccg”), )
.如果结束
关闭 (“user”)
.如果真结束
.如果真 (取文本左边 (到文本 (解密的数据文本), 4) = “hqsj”)
.判断开始 (用户操作数据 = 真)
画板1.滚动写行 (“账号:|” + 账号 + “|正在操作中”)
服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“usercz”), )
.默认
分割的数据 = 分割文本 (到文本 (解密的数据文本), “/”, )
账号信息 = 分割的数据 [2]
画板1.滚动写行 (“账号:|” + 账号信息 + “|开始下发数据。。。”)
用户操作数据 = 真
加载数据库文件下发到客户端 ()
.判断结束
.如果真结束
.版本 2
.支持库 spec
.子程序 加载数据库文件下发到客户端
.局部变量 加密数据文本, 文本型
打开 (取运行目录 () + “\” + 账号信息 + “\data.edb”, “data”, , , , , )
到首记录 ()
.计次循环首 (取记录数 (), )
加密数据文本 = xxxxxxx“这里对加密的代码进行X处理
服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (加密数据文本), )
延时 (200)
跳过 ()
处理事件 ()
.计次循环尾 ()
关闭 (“data”)
服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“fswc”), )
画板1.滚动写行 (“账号:|” + 账号信息 + “|数据下发完成”)
用户操作数据 = 假
已经取消了服务端的认证!直接在客户端上连接使用mysql数据库了!此问题已不是问题!你们随便回答个我采纳就可以了 展开
多个user_data.edb存放对应账号的多个数据表
然后账号admin和账号123同时登陆同时操作不同的user_data.edb怎么操作
我建立线程时用户读不到了所以启动线程那个代码是注销的
目前只能单用户操作,等待这个用户完成后才能让另外一个用户操作
我上代码(由于百度提示补充问题过长,删减部分不相关的代码)
.版本 2
.支持库 spec
.子程序 判断收到的数据
.如果真 (取文本左边 (到文本 (解密的数据文本), 2) = “zc”)
账号密码文本 = 分割文本 (到文本 (解密的数据文本), “/”, )
账号 = 账号密码文本 [2]
密码 = 账号密码文本 [3]
打开 (取运行目录 () + “\user.edb”, “user”, , , , , )
到首记录 ()
.如果 (查找 (账号 = 读 (1)))
画板1.滚动写行 (“账号:|” + 账号 + “|已被注册”)
服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“yzc”), )
.否则
加空记录 ()
写 (1, 账号)
写 (2, 密码)
创建目录 (取运行目录 () + “\” + 账号)
写到文件 (取运行目录 () + “\” + 账号 + “\data.edb”, #初始数据库)
画板1.滚动写行 (“账号:|” + 账号 + “|注册成功”)
服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“zccg”), )
.如果结束
关闭 (“user”)
.如果真结束
.如果真 (取文本左边 (到文本 (解密的数据文本), 4) = “hqsj”)
.判断开始 (用户操作数据 = 真)
画板1.滚动写行 (“账号:|” + 账号 + “|正在操作中”)
服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“usercz”), )
.默认
分割的数据 = 分割文本 (到文本 (解密的数据文本), “/”, )
账号信息 = 分割的数据 [2]
画板1.滚动写行 (“账号:|” + 账号信息 + “|开始下发数据。。。”)
用户操作数据 = 真
加载数据库文件下发到客户端 ()
.判断结束
.如果真结束
.版本 2
.支持库 spec
.子程序 加载数据库文件下发到客户端
.局部变量 加密数据文本, 文本型
打开 (取运行目录 () + “\” + 账号信息 + “\data.edb”, “data”, , , , , )
到首记录 ()
.计次循环首 (取记录数 (), )
加密数据文本 = xxxxxxx“这里对加密的代码进行X处理
服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (加密数据文本), )
延时 (200)
跳过 ()
处理事件 ()
.计次循环尾 ()
关闭 (“data”)
服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“fswc”), )
画板1.滚动写行 (“账号:|” + 账号信息 + “|数据下发完成”)
用户操作数据 = 假
已经取消了服务端的认证!直接在客户端上连接使用mysql数据库了!此问题已不是问题!你们随便回答个我采纳就可以了 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询