本例程还使用到易语言数据操作支持库,易语言多线程支持库,XP风格界面支持库,易语言第三方支持库托盘图标支持库。
点评:本源码是一款比较完整的KTV管理应用软件,开发齐全,拿来就可以用。如果要开发管理软件可以参考下。
续费时间 = 读配置项 (取运行目录 () + “\config.ini”, 编辑框1.内容, “续费时间”, 到文本 (取现行时间 ()))
现在费用 = 计算价格 (到文本 (取现行时间 ()), 续费时间, 读配置项 (取运行目录 () + “\config.ini”, 编辑框1.内容, “当前价格”, ))
已用费用 = 到数值 (读配置项 (取运行目录 () + “\config.ini”, 编辑框1.内容, “已用费用”, “0”))
已用费用 = 已用费用 + 现在费用
写配置项 (取运行目录 () + “\config.ini”, 编辑框1.内容, “已用费用”, 到文本 (已用费用))
.如果 (单选框1.选中 = 真 且 组合框1.现行选中项 ≠ -1)
原 = 读配置项 (取运行目录 () + “\config.ini”, 编辑框1.内容, “计费清单”, )
现 = 格式化时间 (到文本 (取现行时间 ())) + “费用小结一次;本次小结费用:” + 到文本 (现在费用) + “元”
现 = 现 + “<-|->” + “--->>>” + “同时续时一次;计费方式:标准;价格:” + 组合框1.取项目文本 (组合框1.现行选中项) + “小时”
写配置项 (取运行目录 () + “\config.ini”, 编辑框1.内容, “计费清单”, 原 + “<-|->” + 现)
编辑框10.内容 = 子文本替换 (读配置项 (取运行目录 () + “\config.ini”, 编辑框1.内容, “计费清单”, ), “<-|->”, #换行符, , , 真)
_启动窗口.当前列表框.置图片 (_启动窗口.当前列表框.现行选中项, 0, 1)
上一篇 易语言MP3格式转换工具