|
2精币
.版本 2
.支持库 iext2
.子程序 _保存记录钮_被单击
.如果 (取文本长度 (编号编辑框.内容) = 9 且 姓名编辑框.内容 ≠ “”)
记录 = 外部数据库1.查询 (“select * from jsb ”)
外部数据库1.到首记录 (记录)
.判断循环首 (外部数据库1.尾记录后 (记录) = 假)
.如果 (外部数据库1.读 (记录, 6) = 姓名编辑框.内容 = 真)
信息框 (“物流公司为” + 姓名编辑框.内容 + “的物流信息已存在,请将该物流公司作另行标注!”, 0, )
返回 ()
姓名编辑框.获取焦点 ()
退出添加钮.禁止 = 假
.否则
.如果结束
外部数据库1.到后一记录 (记录)
.判断循环尾 ()
外部数据库1.到首记录 (记录)
.判断循环首 (外部数据库1.尾记录后 (记录) = 假)
.如果 (外部数据库1.读 (记录, 5) = 编号编辑框.内容 = 真)
信息框 (“编号为” + 编号编辑框.内容 + “的物流公司已存在,请重新输入编号!”, 0, )
返回 ()
编号编辑框.获取焦点 ()
退出添加钮.禁止 = 假
.否则
.如果结束
外部数据库1.到后一记录 (记录)
.判断循环尾 ()
外部数据库1.关闭记录集 (记录)
教师列表框.加入项目 (姓名编辑框.内容, )
教师列表框.选择 (姓名编辑框.内容)
姓名编辑框.背景颜色 = #白色
姓名编辑框.输入方式 = 0
新增教师 ()
姓名编辑框.内容 = “”
***编辑框.内容 = “”
毕业编辑框.内容 = “”
电话编辑框.内容 = “”
帐号编辑框.内容 = “”
爱人编辑框.内容 = “”
爱工编辑框.内容 = “”
籍贯编辑框.内容 = “”
备注编辑框.内容 = “”
姓名编辑框.获取焦点 ()
.否则
信息框 (“应把物流公司编号、公司名称、联系电话、直达城市、收货地址等输入完整!”, #警告图标, “提示错误”)
.如果结束
.子程序 新增教师
.局部变量 号, 文本型
.局部变量 编号左, 文本型
.如果 (外部数据库1.执行 (“INSERT INTO jsb(县区名,乡镇名,学校名,编号,姓名,) values ('” + 县区标签.标题 + “','” + 乡镇组合框.内容 + “','” + 学校组合框.内容 + “','” + 删全部空 (编号编辑框.内容) + “','” + 删全部空 (姓名编辑框.内容) + “','” + “')”, ) = 假)
信息框 (“添加失败!”, 0, )
返回 ()
.否则
信息框 (“恭喜您添加成功!”, #信息图标, “成功”)
姓名编辑框.获取焦点 ()
.如果结束
.如果 (自动编号选择框.选中 = 真)
编号左 = 取文本左边 (编号编辑框.内容, 6)
号 = 数值到格式文本 (到数值 (取文本右边 (编号编辑框.内容, 3)) + 1, , 假)
.如果 (取文本长度 (号) = 1)
编号编辑框.内容 = 编号左 + “00” + 号
.否则
.如果 (取文本长度 (号) = 2)
编号编辑框.内容 = 编号左 + “0” + 号
.否则
.如果 (取文本长度 (号) = 3)
编号编辑框.内容 = 编号左 + 号
.否则
.如果 (取文本长度 (号) ≥ 4)
信息框 (“物流公司最多添加999家!!!”, 0, “物流公司过多”)
_退出添加钮_被单击 ()
.否则
姓名编辑框.获取焦点 ()
.如果结束
.如果结束
.如果结束
.如果结束
.否则
.如果结束
|
|
|