前期易语言编程作品收录|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.跳转 ()

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

前期易语言编程作品收录|DKP系统|相关推荐

易语言编程系统（奋斗的小鸟）_PDF 电子书
中文名: 易语言编程系统作者: 佚名图书分类: 软件资源格式: PDF 版本: 扫描版出版社: 西安地图出版社书号: 7806707743 发行时间: 2005年3月地区: 大陆语言: ...
w3c易语言教程,EPL易语言编程下载
EPL易语言编程系统是一款相当优秀的RAD编程开发工具,EPL易语言编程系统功能全面,便捷好用,具备了一个极其灵活的开发环境,内置高质量编译器,支持用户随心所欲的新建应用程序,轻轻松松进行编程开发 ...
易语言编程乱码解决方案
易语言编程乱码解决方案参考文章: (1)易语言编程乱码解决方案 (2)https://www.cnblogs.com/fox2013/p/4782830.html 备忘一下.
易语言宝盒,易语言编程学习者必备工具
1.收集很多网上流行经典的易语言教程和一些常用的工具,易语言模块,易语言支持库.一键下载,双通道资源,保证资源不会失效. 2.支持在线观看,减少下载资源而浪费易友的时间! 3.支持一键下载宝盒上所有已 ...
易语言编程: 让读屏软件可获取标签控件的文本
易语言编程: 让读屏软件可获取标签控件的文本将易语言的非标准标签控件修改为标准的标签控件,使屏幕阅读器可获取到标签的内容在使用易语言创建窗口控件时,我们会发现:易语言的编辑框.组合框.列表框等控件 ...
PowerMIL二次开发外挂制作视频教程-易语言编程15.7小时
PM 二次开发外挂制作视频教程-易语言编程15.7小时链接:https://pan.baidu.com/s/1DBNvygOVPnTEzPkopFAwqg 提取码:dx62
win10用易语言需要C环境,win10系统易语言打开支持库配置就崩溃的具体教程
有关win10系统易语言打开支持库配置就崩溃的操作方法想必大家有所耳闻.但是能够对win10系统易语言打开支持库配置就崩溃进行实际操作的人却不多.其实解决win10系统易语言打开支持库配置就崩溃的问题 ...
分享几个好用的易语言编程助手
1.精益编程助手有窗口探测.网页分析.屏幕取色.进程管理.编码转换.正则调试.网页等功能,我最喜欢用里面的一键编码转换,非常方便 [c-downbtn type="360" ur ...
通达信的接口是用易语言编程吗？
通达信接口是我们使用得比较多的接口,通达信也有官方接口供投资者选择,但如果你选择低版本,功能必须更少,虽然专业版本更强大,但不一定满足每个用户的需求,此时,一些编程基础合作伙伴会考虑,一般都会自己重新 ...
从零学易语言编程系列教程
第1章:脚本框架规划和设计 1.1脚本功能规划和界面设计(1) 1.2业务脚本界面设计的辅助链接(2) 1.3读取和保存业务脚本帐户库的配置功能 1.4商业脚本界面功能 ...

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

前期易语言编程作品收录|DKP系统|相关推荐

最新文章

热门文章