前期易语言编程作品收录|DKP系统|

=====================在卓越之剑的时候做的DKP系统的...主要涉及数据库读取
.版本 2
.支持库 xplib
.支持库 internet
.支持库 iext

.程序集 窗口程序集1
.程序集变量 查询变量, 整数型
.程序集变量 文本变量, 文本型
.程序集变量 排序变量, 整数型
.程序集变量 关机时间, 文本型, , "2"

.子程序 __启动窗口_创建完毕
.局部变量 显示数据, 整数型
.局部变量 计次, 整数型

XP风格 (#银色风格)
写到文件 (“C:/WINDOWS/dkp.mdb”, HTTP读文件 (“http://www.futurelinker.cn/kkk/data/dkp.mdb”))
.如果 (写到文件 (“C:/WINDOWS/dkp.mdb”, HTTP读文件 (“http://www.futurelinker.cn/kkk/data/dkp.mdb”)))
    信息框 (“数据已更新！”, #信息图标, “更新成功提示”)
.否则

.如果结束
外部数据库1.打开MDB数据库 (“C:/WINDOWS/dkp.mdb”, , , , )


.子程序 _仓库情况_被单击
.局部变量 显示数据, 整数型
.局部变量 计次, 整数型

' 计次，这个变量用来判断实际列数，以防止不断单击而导致项目不断重复地出现，只有第一次出现的实际项目下有数据外。
.计次循环首 (超级列表框1.取列数 (), 计次)
    超级列表框1.删除列 (超级列表框1.取列数 () － 1)
.计次循环尾 ()
' 这一段便是用来判断实际列数并把多余的删去。
超级列表框1.插入列 (, “装备储备”, 100, , , )
超级列表框1.插入列 (, “资金储备”, 100, , , )
' 以上三个就是加入项目，也就是你数据库中的字段。
超级列表框1.全部删除 ()
' 这句与 计次 的作用刚好相反，它是用来删去因不断单击而重复出现的数据内容，这些重复的数据只出现在第一次出现的项目下。
显示数据 = 外部数据库1.查询 (“select * from 表3 ”)
外部数据库1.到首记录 (显示数据)
.判断循环首 (外部数据库1.尾记录后 (显示数据) = 假)
    超级列表框1.插入表项 (, 外部数据库1.读 (显示数据, 1), , , , )
    ' 这个是读入数据，没有它，除了项目（列数），什么内容也没有，但它只能显示出第一个项目（第一列）的数据。
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 外部数据库1.读 (显示数据, 2))
    ' 这些就是把其他项目的数据显示出来，一句对应一个项目（列）。
    外部数据库1.到后一记录 (显示数据)
.判断循环尾 ()
外部数据库1.关闭记录集 (显示数据)


.子程序 _任务安排_被单击
.局部变量 显示数据, 整数型
.局部变量 计次, 整数型

' 计次，这个变量用来判断实际列数，以防止不断单击而导致项目不断重复地出现，只有第一次出现的实际项目下有数据外。
.计次循环首 (超级列表框1.取列数 (), 计次)
    超级列表框1.删除列 (超级列表框1.取列数 () － 1)
.计次循环尾 ()
' 这一段便是用来判断实际列数并把多余的删去。
超级列表框1.插入列 (, “日期”, 60, , , )
超级列表框1.插入列 (, “执行人员”, 60, , , )
超级列表框1.插入列 (, “任务”, 200, , , )
' 以上三个就是加入项目，也就是你数据库中的字段。
超级列表框1.全部删除 ()
' 这句与 计次 的作用刚好相反，它是用来删去因不断单击而重复出现的数据内容，这些重复的数据只出现在第一次出现的项目下。
显示数据 = 外部数据库1.查询 (“select * from 表2 ”)
外部数据库1.到首记录 (显示数据)
.判断循环首 (外部数据库1.尾记录后 (显示数据) = 假)
    超级列表框1.插入表项 (, 外部数据库1.读 (显示数据, 1), , , , )
    ' 这个是读入数据，没有它，除了项目（列数），什么内容也没有，但它只能显示出第一个项目（第一列）的数据。
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 外部数据库1.读 (显示数据, 2))
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 外部数据库1.读 (显示数据, 3))
    ' 这些就是把其他项目的数据显示出来，一句对应一个项目（列）。
    外部数据库1.到后一记录 (显示数据)
.判断循环尾 ()
外部数据库1.关闭记录集 (显示数据)


.子程序 _显示所有分数_被单击

排序变量 = 1
排序条件判断 ()


.子程序 排序条件判断
.局部变量 计次, 整数型
.局部变量 排序结果

.如果 (排序变量 ＜ 1)
    返回 ()
.否则

.如果结束
.计次循环首 (超级列表框1.取列数 (), 计次)
    超级列表框1.删除列 (超级列表框1.取列数 () － 1)
.计次循环尾 ()
超级列表框1.插入列 (, “家族名字”, 120, , , )
超级列表框1.插入列 (, “所属团队”, 60, , , )
超级列表框1.插入列 (, “军团分数”, 60, , , )
超级列表框1.插入列 (, “联系方式”, 100, , , )
超级列表框1.全部删除 ()
.如果 (排序变量 = 1)
    排序结果 = 外部数据库1.查询 (“select * from 表1 order by 军团分数 desc”)
    ' 这个是降序。
.否则

.如果结束
.如果 (排序变量 = 2)
    排序结果 = 外部数据库1.查询 (“select * from 表1 order by 军团分数”)
    ' 这个是升序。
.否则

.如果结束
外部数据库1.到首记录 (排序结果)
.判断循环首 (外部数据库1.尾记录后 (排序结果) = 假)
    超级列表框1.插入表项 (, 外部数据库1.读 (排序结果, 1), , , , )
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 外部数据库1.读 (排序结果, 2))
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 外部数据库1.读 (排序结果, 3))
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 外部数据库1.读 (排序结果, 4))

    外部数据库1.到后一记录 (排序结果)
.判断循环尾 ()
外部数据库1.关闭记录集 (排序结果)


.子程序 _查询分数_被单击, , , 按条件查询数据
.局部变量 计次, 整数型
.局部变量 查询结果, 整数型
.局部变量 查询条件, 文本型

查询条件判断 ()
查询结果 = 外部数据库1.查询 (“select * from 表1”)
.如果 (查询变量 = 0)
    信息框 (“您还没有填写查询条件呢！”, #信息图标, “查询错误提示”)
    返回 ()
.否则

.如果结束
.计次循环首 (超级列表框1.取列数 (), 计次)
    超级列表框1.删除列 (超级列表框1.取列数 () － 1)
.计次循环尾 ()
超级列表框1.插入列 (, “家族名字”, 120, , , )
超级列表框1.插入列 (, “所属团队”, 60, , , )
超级列表框1.插入列 (, “军团分数”, 60, , , )
超级列表框1.插入列 (, “联系方式”, 100, , , )
超级列表框1.全部删除 ()
.如果 (查询变量 = 1)
    查询结果 = 外部数据库1.查询 (“select * from 表1 where 家族名字  like '%” ＋ 家族名字.内容 ＋ “%'”)
    ' like '%  %' 表示按 编号 关键字模糊地查询。
.否则

.如果结束
.如果 (查询变量 = 2)
    查询结果 = 外部数据库1.查询 (“select * from 表1 where 所属团队 like '%” ＋ 所属团队.内容 ＋ “%'”)
    ' like '%  %' 表示按 姓名 关键字模糊地查询。
.否则

.如果结束
.如果 (查询变量 = 3)
    查询结果 = 外部数据库1.查询 (“select * from 表1 where 军团分数 like '%” ＋ 军团分数.内容 ＋ “%'”)
.否则

.如果结束
外部数据库1.到首记录 (查询结果)
.判断循环首 (外部数据库1.尾记录后 (查询结果) = 假)
    超级列表框1.插入表项 (, 外部数据库1.读 (查询结果, 1), , , , )
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 外部数据库1.读 (查询结果, 2))
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 外部数据库1.读 (查询结果, 3))
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 外部数据库1.读 (查询结果, 4))

    外部数据库1.到后一记录 (查询结果)
.判断循环尾 ()
外部数据库1.关闭记录集 (查询结果)


.子程序 查询条件判断, , , 查询条件的判断

.如果 (家族名字.内容 = “” 且 所属团队.内容 = “” 且 军团分数.内容 = “”)
    查询变量 = 0
.否则

.如果结束
.如果 (家族名字.内容 ≠ “”)
    查询变量 = 1
.否则

.如果结束
.如果 (所属团队.内容 ≠ “”)
    查询变量 = 2
.否则

.如果结束
.如果 (军团分数.内容 ≠ “”)
    查询变量 = 3
.否则

.如果结束

' 设置各种查询的条件。

.子程序 _时钟1_周期事件

处理事件 ()
.如果真 (取时间部分 (取现行时间 (), 6) = 到数值 (关机时间 [1]) 且 取时间部分 (取现行时间 (), 7) = 到数值 (关机时间 [2]) 且 取秒 (取现行时间 ()) = 1)
    播放MP3 (-1, 文本变量)

.如果真结束


.子程序 _设定响铃_被单击
.局部变量 临时, 文本型, , "2"

临时 = 分割文本 (编辑框2.内容, “:”, )
.如果真 (临时 [1] = “”)
    临时 = 分割文本 (编辑框2.内容, “：”, )
.如果真结束
关机时间 = 临时
通用对话框.过滤器 = “声音文件 *.MP3|*.MP3”
.如果真 (通用对话框.打开 ())
    文本变量 = 通用对话框.文件名
    标签6.标题 = “您的响铃时间为：” ＋ 关机时间 [1] ＋ “点” ＋ 关机时间 [2] ＋ “分钟”
.如果真结束


.子程序 _停止播放_被单击

停止播放 ()

.子程序 _超级链接框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

超级链接框1.Internet地址 = “http://www.futurelinker.cn”
超级链接框1.跳转 ()

--------------------------------------------------