易语言出错错误代码5数据或数组类型不匹配
.版本2.程序集窗口程序集1.子程序__启动窗口_创建完毕.子程序_按钮1_被单击.局部变量账号对比,文本型.局部变量密码对比,文本型打开(取运行目录()+“\1.edb...
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击.局部变量 账号对比, 文本型.局部变量 密码对比, 文本型
打开 (取运行目录 () + “\1.edb”, , , , , , ).如果 (编辑框1.内容 ≠ “”) 到首记录 () .计次循环首 (取记录数 (), ) 账号对比 = 读 (“账号”) 密码对比 = 读 (“密码”) .如果 (编辑框1.内容 ≠ 账号对比) 跳过 () .否则 .如果 (编辑框1.内容 = 账号对比 且 编辑框2.内容 = 密码对比) 打开 (取运行目录 () + “\1.edb”, , , , , , ) 清空 () 加记录 (账号对比) 延时 (1000) 信息框 (“1”, 0, )
.否则 跳出循环 () 信息框 (“您输入的账号或密码错误,请重新输入”, 0, “提示”) .如果结束
.如果结束
.计次循环尾 ().否则 信息框 (“请输入账号”, 0, “提示”).如果结束
当时我就是这样创建的数据库,其余都没有改 展开
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击.局部变量 账号对比, 文本型.局部变量 密码对比, 文本型
打开 (取运行目录 () + “\1.edb”, , , , , , ).如果 (编辑框1.内容 ≠ “”) 到首记录 () .计次循环首 (取记录数 (), ) 账号对比 = 读 (“账号”) 密码对比 = 读 (“密码”) .如果 (编辑框1.内容 ≠ 账号对比) 跳过 () .否则 .如果 (编辑框1.内容 = 账号对比 且 编辑框2.内容 = 密码对比) 打开 (取运行目录 () + “\1.edb”, , , , , , ) 清空 () 加记录 (账号对比) 延时 (1000) 信息框 (“1”, 0, )
.否则 跳出循环 () 信息框 (“您输入的账号或密码错误,请重新输入”, 0, “提示”) .如果结束
.如果结束
.计次循环尾 ().否则 信息框 (“请输入账号”, 0, “提示”).如果结束
当时我就是这样创建的数据库,其余都没有改 展开
3个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询