易语言判断写入Access数据不成功 5
.版本2.程序集用户管理窗口程序集.子程序__用户管理_创建完毕主窗口.状态条_主窗口.置文本(2,“当前状态:用户密码修改”)编辑框_姓名.获取焦点().子程序_按钮_...
.版本 2
.程序集 用户管理窗口程序集
.子程序 __用户管理_创建完毕
主窗口.状态条_主窗口.置文本 (2, “当前状态:用户密码修改”)
编辑框_姓名.获取焦点 ()
.子程序 _按钮_新增用户_确定_被单击
' -------------本功能完成用户录入的操作---------------------
.如果真 (编辑框_姓名.内容 = “”)
信息框 (“操作员姓名不能为空”, #信息图标, “提示信息”)
返回 ()
.如果真结束
.如果真 (组合框_性别.内容 = “”)
信息框 (“性别不能为空”, #信息图标, “提示信息”)
返回 ()
.如果真结束
.如果真 (编辑框_联系电话.内容 = “”)
信息框 (“联系电话不能为空”, #信息图标, “提示信息”)
返回 ()
.如果真结束
.如果真 (编辑框_账号.内容 = “”)
信息框 (“账号不能为空”, #信息图标, “提示信息”)
返回 ()
.如果真结束
.如果真 (编辑框_密码.内容 = “”)
信息框 (“密码不能为空”, #信息图标, “提示信息”)
返回 ()
.如果真结束
.如果真 (编辑框_确认密码.内容 = “”)
信息框 (“确认密码不能为空”, #信息图标, “提示信息”)
返回 ()
.如果真结束
.如果 (编辑框_密码.内容 = 编辑框_确认密码.内容)
外部数据库1.执行 (“insert into 操作员(登陆帐号,姓名,密码,联系电话,性别) values('” + 编辑框_账号.内容 + “','” + 编辑框_姓名.内容 + “','” + 编辑框_密码.内容 + “','” + 编辑框_联系电话.内容 + “','” + 组合框_性别.内容 + “')”, )
信息框 (“添加用户成功”, #信息图标, “提示信息”)
.否则
信息框 (“两次输入的密码不一致,请重新输入”, #信息图标, “提示信息”)
编辑框_密码.内容 = “”
编辑框_确认密码.内容 = “”
.如果结束
.子程序 _按钮_新增用户_取消_被单击
销毁 () 展开
.程序集 用户管理窗口程序集
.子程序 __用户管理_创建完毕
主窗口.状态条_主窗口.置文本 (2, “当前状态:用户密码修改”)
编辑框_姓名.获取焦点 ()
.子程序 _按钮_新增用户_确定_被单击
' -------------本功能完成用户录入的操作---------------------
.如果真 (编辑框_姓名.内容 = “”)
信息框 (“操作员姓名不能为空”, #信息图标, “提示信息”)
返回 ()
.如果真结束
.如果真 (组合框_性别.内容 = “”)
信息框 (“性别不能为空”, #信息图标, “提示信息”)
返回 ()
.如果真结束
.如果真 (编辑框_联系电话.内容 = “”)
信息框 (“联系电话不能为空”, #信息图标, “提示信息”)
返回 ()
.如果真结束
.如果真 (编辑框_账号.内容 = “”)
信息框 (“账号不能为空”, #信息图标, “提示信息”)
返回 ()
.如果真结束
.如果真 (编辑框_密码.内容 = “”)
信息框 (“密码不能为空”, #信息图标, “提示信息”)
返回 ()
.如果真结束
.如果真 (编辑框_确认密码.内容 = “”)
信息框 (“确认密码不能为空”, #信息图标, “提示信息”)
返回 ()
.如果真结束
.如果 (编辑框_密码.内容 = 编辑框_确认密码.内容)
外部数据库1.执行 (“insert into 操作员(登陆帐号,姓名,密码,联系电话,性别) values('” + 编辑框_账号.内容 + “','” + 编辑框_姓名.内容 + “','” + 编辑框_密码.内容 + “','” + 编辑框_联系电话.内容 + “','” + 组合框_性别.内容 + “')”, )
信息框 (“添加用户成功”, #信息图标, “提示信息”)
.否则
信息框 (“两次输入的密码不一致,请重新输入”, #信息图标, “提示信息”)
编辑框_密码.内容 = “”
编辑框_确认密码.内容 = “”
.如果结束
.子程序 _按钮_新增用户_取消_被单击
销毁 () 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询