看流星社区

 找回密码
 注册账号
查看: 2230|回复: 0

为什么我把里面的姓名改成单位后,就不显示?

[复制链接]

该用户从未签到

发表于 2015-5-18 09:36:00 | 显示全部楼层 |阅读模式
.版本 2
.支持库 iext

.程序集 通讯录程序集
.程序集变量 句柄

.子程序 _通讯录_创建完毕



.如果真 (文件是否存在 (取运行目录 () + “\TXL.mdb”) = 假)
    写到文件 (取运行目录 () + “\txl.mdb”, #TXL)
.如果真结束
外部数据库1.打开MDB数据库 (取运行目录 () + “\TXL.mdb”, , “chivl”, , )
' 句柄 = 外部数据库1.查询 (“select * from ziliao ”)
句柄 = 外部数据库1.查询 (“select * from ziliao where  user='” + 当前用户 + “'”)
组合框2.清空 ()
读好友类别 ()
组合框3.清空 ()
读好友类别1 ()


显示 ()
标签7.标题 = 到文本 (当前用户)
状态条1.置文本 (2, 到文本 (取日期 (取现行时间 ())))


.子程序 显示
.局部变量 NN, 整数型

超级列表框1.全部删除 ()
外部数据库1.到首记录 (句柄)
NN = 0
.判断循环首 (外部数据库1.尾记录后 (句柄) = 假)

    超级列表框1.插入表项 (NN, , , , , 外部数据库1.读 (句柄, “ID”))
    超级列表框1.置标题 (NN, 0, 外部数据库1.读 (句柄, “姓名”))
    超级列表框1.置标题 (NN, 1, 外部数据库1.读 (句柄, “性别”))
    超级列表框1.置标题 (NN, 2, 外部数据库1.读 (句柄, “年龄”))
    超级列表框1.置标题 (NN, 3, 外部数据库1.读 (句柄, “手机”))
    超级列表框1.置标题 (NN, 4, 外部数据库1.读 (句柄, “QQ”))
    超级列表框1.置标题 (NN, 5, 外部数据库1.读 (句柄, “类别”))
    外部数据库1.到后一记录 (句柄)
    NN = NN + 1
.判断循环尾 ()
外部数据库1.关闭记录集 (句柄)

.子程序 _按钮4_被单击

' 外部数据库1.打开MDB数据库 (取运行目录 () + “\TXL.mdb”, , , , )
句柄 = 外部数据库1.查询 (“select * from ziliao where user='” + 当前用户 + “'”)

显示 ()



.子程序 _超级列表框1_当前表项被改变
.局部变量 A

A = 外部数据库1.查询 (“select * from ziliao where ID=” + 到文本 (超级列表框1.取表项数值 (超级列表框1.现行选中项)))
ID = 外部数据库1.读 (A, “ID”)
编辑框1.内容 = 外部数据库1.读 (A, “姓名”)
编辑框2.内容 = 外部数据库1.读 (A, “性别”)
编辑框3.内容 = 外部数据库1.读 (A, “年龄”)
编辑框4.内容 = 外部数据库1.读 (A, “手机”)
编辑框5.内容 = 外部数据库1.读 (A, “QQ”)
组合框2.内容 = 外部数据库1.读 (A, “类别”)
外部数据库1.关闭记录集 (A)
按钮1.标题 = “保存修改”
按钮6.可视 = 真

.子程序 _按钮1_被单击

.如果 (按钮1.标题 = “添加”)
    添加 ()
.否则
    更新 ()
.如果结束


.子程序 _按钮5_被单击

销毁 ()


.子程序 添加
.局部变量 SQL, 文本型

.如果真 (编辑框1.内容 = “” 或 编辑框2.内容 = “”)
    信息框 (“数据不完整”, 0, )
    返回 ()
.如果真结束

SQL = “INSERT INTO ziliao ([姓名],[性别],[年龄],[手机],[QQ],[user],[类别]) VALUES ('” + 编辑框1.内容 + “','” + 编辑框2.内容 + “','” + 编辑框3.内容 + “','” + 编辑框4.内容 + “','” + 编辑框5.内容 + “','” + 当前用户 + “','” + 组合框2.取项目文本 (组合框2.现行选中项) + “')”
.如果 (外部数据库1.执行 (SQL, ) = 真)
    信息框 (“添加成功”, 0, )
    连续赋值 (“”, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 编辑框5.内容)
    _按钮4_被单击 ()
.否则
    信息框 (“添加失败”, 64, “提示”)
.如果结束


.子程序 _按钮6_被单击

添加 ()


.子程序 更新
.局部变量 SQL, 文本型

.如果真 (编辑框1.内容 = “” 或 编辑框2.内容 = “”)
    信息框 (“数据不完整”, 0, )
    返回 ()
.如果真结束


SQL = “update ziliao set 姓名 ='” + 编辑框1.内容 + “',性别='” + 编辑框2.内容 + “',年龄='” + 编辑框3.内容 + “',手机='” + 编辑框4.内容 + “',QQ='” + 编辑框5.内容 + “',类别='” + 组合框2.取项目文本 (组合框2.现行选中项) + “'where ID= ” + 到文本 (超级列表框1.取表项数值 (超级列表框1.现行选中项))
.如果 (外部数据库1.执行 (SQL, ))
    信息框 (“修改成功”, 64, “提示”)
    连续赋值 (“”, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 编辑框5.内容)

.否则
    信息框 (“修改失败”, 64, “提示”)
.如果结束



.子程序 _按钮2_被单击
.局部变量 SQL, 文本型

.如果 (编辑框1.内容 = “”)
    信息框 (“内容不能为空”, 0, )
    返回 ()
.否则
    SQL = “delete from ziliao where id=” + 到文本 (超级列表框1.取表项数值 (超级列表框1.现行选中项))
    .如果 (外部数据库1.执行 (SQL, ))
        信息框 (“删除成功”, 0, )
        连续赋值 (“”, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 编辑框5.内容)
        _按钮4_被单击 ()
    .否则
        信息框 (“删除失败”, 0, )
    .如果结束

.如果结束
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 03:01

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表