订单提醒源码

clg · 发表于 2022-5-4 11:27:56

由于我的链接数据库，我就不展示数据信息了，我把源代码给需要的人。
我的数据库是SqlServer的
.版本 2
.支持库 eDB

.程序集窗口程序集_启动窗口
.程序集变量记录, 整数型
.程序集变量 sql, 文本型

.子程序 __启动窗口_创建完毕

.如果 (数据库连接1.连接SQLServer (“192.168.2.101”, “root”, “sa”, “root”)) ' 首先要连接数据库
记录集1.置连接 (数据库连接1) ' 把记录集连接到数据库
.否则
信息框 (数据库连接1.最后错误, 0, , )
.如果结束
sql ＝ “SELECT * FROM ls_menz_fayd(nolock) where yaofbm='6' and jiaofbs='1' and faybs='0'”
数据库连接1.执行SQL (sql, 5)
记录集1.打开 (sql, 1, )
_启动窗口.最大化按钮＝假
初始化托盘图标 (_启动窗口, “订单提醒系统”, 123456)
_时钟1_周期事件 ()

.子程序 _时钟1_周期事件
.局部变量姓名1, 文本型
.局部变量姓名2, 文本型
.局部变量姓名3, 文本型

sql ＝ “SELECT * FROM ls_menz_fayd(nolock) where yaofbm='6' and jiaofbs='1' and faybs='0'”
数据库连接1.执行SQL (sql, 5)
记录集1.打开 (sql, 1, )
.如果 (记录集1.记录数量＞ 0)
弹出托盘信息 (“新订单提醒”, “您有新的订单，共” ＋到文本 (记录集1.记录数量) ＋ “条，请及时处理”, 2)
时钟1.时钟周期＝ 0
播放MP3 (1, “.\新订单提醒.mp3”)
记录＝记录集1.记录数量
标签1.标题＝到文本 (记录)
时钟1.时钟周期＝ 6000
.否则
记录＝记录集1.记录数量
标签1.标题＝ “0”
时钟1.时钟周期＝ 6000
.如果结束

.子程序 __启动窗口_可否被关闭, 逻辑型

信息框 (“订单系统不能关闭”, #确认钮＋ #警告图标, “订单提醒”, )
_启动窗口.置托盘图标 (#图片1, “煎药订单系统”)
返回 (假)