.版本 2
.支持库 iext
.支持库 shell
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
全_配置项路径 ＝ 取运行目录 () ＋ “\sysset.ini”
保护程序 ＝ 真
.如果真 (文件是否存在 (“date.mdb”) ＝ 假)
写到文件 (“date.mdb”, #数据库文件)
.如果真结束
删除文件 (取运行目录 () ＋ “\update\*.*”)
读入环境 (“启动窗口”)
.如果真 (x ＞ 10)
宽度 ＝ x
高度 ＝ y
.如果真结束
.如果真 (x ≥ 取屏幕宽度 () － 10)
移动 (0, 0, x, y)
.如果真结束
输出调试文本 (_取接口信息 ())
读入邮件账户信息 ()
输出调试文本 (_取接口信息 ())
全_logo ＝ 读配置项 (全_配置项路径, “sys”, “logo”, )
临时处理 ()
.子程序 临时处理
程序版本 ＝ “ V1.6.13.1224 Bate3”
程序名 ＝ “蓝芯E管家 ”
标题 ＝ 程序名 ＋ 程序版本
‘ 全_导出excel保护 ＝ 假
‘ 全_导入数据保存 ＝ 假
手动备份 ＝ 假
链接数据库 ()
.如果真 (全_logo ＝ “1”)
_Logo ()
.如果真结束
载入 (窗口_登陆, , 真)
.判断开始 (保护程序 ＝ 真)
结束 ()
.默认
.判断结束
.如果真 (文件是否存在 (取运行目录 () ＋ “\title.dat”))
标签提示.标题 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\title.dat”))
.如果真结束
.如果真 (是否为BOSS ())
工具条1.加入状态 (6, 4)
工具条1.加入状态 (7, 4)
工具条1.加入状态 (9, 4)
‘ 工具条1.加入状态 (8, 4)
编辑框1.禁止 ＝ 真
账户资金统计.禁止 ＝ 真
.如果真结束
.如果真 (文件是否存在 (“img”) ＝ 假)
创建目录 (“img”)
.如果真结束
编辑框1.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\Books.dat”))
.子程序 __启动窗口_可否被关闭, 逻辑型
.如果 (信息框 (“是否关闭LanxinIT管家程序？”, #确认取消钮 ＋ #信息图标, “关闭程序”) ＝ #确认钮)
断开数据库 ()
压缩mdb数据库_ (取运行目录 () ＋ #数据库, #数据库密码)
x ＝ 宽度
y ＝ 高度
写入环境 (“启动窗口”)
.否则
返回 (假)
.如果结束
.子程序 _工具条1_被单击
.参数 按钮索引, 整数型
.判断开始 (按钮索引 ＝ 0)
载入 (窗口_商品销售, , 假)
.判断 (按钮索引 ＝ 1)
载入 (窗口_商品仓库, , 假)
.判断 (按钮索引 ＝ 2) ‘ 在线充值一览
载入 (窗口_网店销售一栏, , 假)
.判断 (按钮索引 ＝ 4) ‘ 添加商品
.如果 (信息框 (“是否使用新版本入仓模块？”, #询问图标 ＋ #是否钮, ) ＝ #是钮)
_商品入仓 (全_登陆用户名)
.否则
载入 (窗口_添加商品, , 假)
.如果结束
.判断 (按钮索引 ＝ 5) ‘ 在线充值入账
载入 (窗口_网店销售入账, , 假)
.判断 (按钮索引 ＝ 6)
载入 (窗口_事件一览, , 假)
.判断 (按钮索引 ＝ 7)
载入 (窗口_系统设置, , 假)
.判断 (按钮索引 ＝ 8)
载入 (窗口_账单, , 假)
.判断 (按钮索引 ＝ 9)
载入 (窗口_统计, , 真)
.判断 (按钮索引 ＝ 10)
载入 (窗口_关于, , 真)
.默认
.判断结束
.子程序 _时钟1_周期事件
状态条1.清空 ()
状态条1.加入栏目 (“当前用户：” ＋ 全_登陆用户名, 112, , , )
状态条1.加入栏目 (取现行时间_ () ＋ “ ” ＋ 取星期_2 (), 250, , , )
状态条1.加入栏目 (“蓝芯科技 服务电话:15820669005 QQ:341455770 E-mail:Lanxine@qq.com”, 420, , , )
状态条1.加入栏目 (“卓越蓝芯 共创未来”, 宽度, , , )
统计数据_ ()
.子程序 _时钟_手动备份数据库_周期事件
.如果真 (文件是否存在 (“Backup”) ＝ 假)
创建目录 (“Backup”)
.如果真结束
.如果 (手动备份 ＝ 真)
.如果 (复制文件 (取运行目录 () ＋ “\date.mdb”, 取运行目录 () ＋ “\Backup\” ＋ 返回时间文件名 () ＋ “_bak.mdb”) 且 复制文件 (取运行目录 () ＋ “\Books.dat”, 取运行目录 () ＋ “\Backup\” ＋ 返回时间文件名 () ＋ “_bak.dat”))
信息框 (“备份数据库成功！”, #信息图标, 程序名)
.否则
信息框 (“备份数据库失败，请检查磁盘可使用空间是否小于1M，或检查Backup目录是否有可写权限！”, #信息图标, 程序名)
.如果结束
手动备份 ＝ 假
.否则
复制文件 (取运行目录 () ＋ “\date.mdb”, 取运行目录 () ＋ “\Backup\” ＋ 返回时间文件名 () ＋ “_bak.mdb”)
.如果结束
.子程序 返回时间文件名, 文本型
.局部变量 n, 文本型
.局部变量 yue, 文本型
.局部变量 r, 文本型
.局部变量 s, 文本型
.局部变量 f, 文本型
.局部变量 m, 文本型
n ＝ 到文本 (取年份 (取现行时间 ()))
yue ＝ 到文本 (取月份 (取现行时间 ()))
r ＝ 到文本 (取日 (取现行时间 ()))
s ＝ 到文本 (取小时 (取现行时间 ()))
f ＝ 到文本 (取分钟 (取现行时间 ()))
m ＝ 到文本 (取秒 (取现行时间 ()))
返回 (n ＋ yue ＋ r ＋ s ＋ f ＋ m)
.子程序 __启动窗口_尺寸被改变
分组框1.左边 ＝ 宽度 － 分组框1.宽度 － 10
分组框1.顶边 ＝ 月历1.顶边
图片框1.左边 ＝ 宽度 － 图片框1.宽度 － 10
图片框1.顶边 ＝ 高度 － 图片框1.高度 － 50
编辑框1.顶边 ＝ 月历1.顶边 ＋ 116
编辑框1.左边 ＝ 月历1.左边 ＋ 月历1.宽度 ＋ 2
编辑框1.宽度 ＝ 分组框1.左边 － 编辑框1.左边
编辑框1.高度 ＝ 高度 － 编辑框1.顶边 － 80
标签1.左边 ＝ 编辑框1.左边
标签1.宽度 ＝ 编辑框1.宽度
标签1.顶边 ＝ 月历1.顶边
分组框2.左边 ＝ 0
分组框2.宽度 ＝ 月历1.宽度
分组框2.顶边 ＝ 月历1.顶边 ＋ 月历1.高度 ＋ 10
分组框_天气.左边 ＝ 分组框1.左边
分组框_天气.顶边 ＝ 分组框1.顶边 ＋ 分组框1.高度 ＋ 10
标签提示.左边 ＝ 编辑框1.左边
标签提示.宽度 ＝ 编辑框1.宽度
标签提示.顶边 ＝ 月历1.顶边 ＋ 16
标签提示.高度 ＝ 100
.子程序 _超级按钮6_被单击
运行 (“calc.exe”, 假, )
.子程序 _超级按钮1_被单击
运行 (“cmd”, 假, )
.子程序 _超级按钮2_被单击
运行 (“NOTEPAD.EXE”, 假, )
.子程序 _超级按钮5_被单击
.局部变量 a, 文本型
‘ HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\PlatForm_Type_List\3
a ＝ 取文本注册项 (4, “SOFTWARE\TENCENT\PlatForm_Type_List\3\TypePath”, )
运行 (a, 假, )
.子程序 _超级按钮_lanxine_被单击
打开指定网页_ (“http://lanxine.taobao.com”)
.子程序 _超级按钮_baidu_被单击
打开指定网页_ (“http://www.baidu.com”)
.子程序 _超级按钮4_被单击
运行 (“C:\Program Files\TTPlayer\TTPlayer.exe”, 假, )
.子程序 _超级按钮3_被单击
打开指定网页_ (“https://mybank.icbc.com.cn”)
.子程序 _超级按钮_gotogame_被单击
打开指定网页_ (“http://www.gotogame.com.cn”)
.子程序 _检查程序是否有更新_被选择
更新程序 ()
.子程序 _关于_被选择
载入 (窗口_关于, , 真)
.子程序 __启动窗口_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
弹出菜单 (菜单, , )
.子程序 _手动备份数据库_被选择
手动备份 ＝ 真
_时钟_手动备份数据库_周期事件 ()
.子程序 _编辑框1_内容被改变
保存备忘录 ()
.子程序 保存备忘录
.局部变量 文件号, 整数型
.如果真 (文件是否存在 (取运行目录 () ＋ “\Books.dat”) ＝ 假)
创建文件_ (取运行目录 () ＋ “\Books.dat”, 0)
.如果真结束
.如果真 (写到文件 (取运行目录 () ＋ “\Books.dat”, 到字节集 (编辑框1.内容)))
标签1.标题 ＝ “备忘录 于 ” ＋ 取现行时间_ () ＋ “ 保存”
.如果真结束
.子程序 _账户资金统计_被选择
载入 (窗口_银行账户, , 假)
.子程序 _退出_被选择
结束 ()
.子程序 _备份数据到我的邮箱_被选择
载入 (窗口_备份到Email, , 真)
.子程序 统计数据_
编辑框_点卡.内容 ＝ 取现行时间_ (3) ＋ “点卡销售统计：” ＋ #换行符 ＋ #换行符 ＋ 取空白文本 (6) ＋ “当前月份共有：” ＋ 到文本 (全_在线记录) ＋ “条记录” ＋ #换行符 ＋ 取空白文本 (6) ＋ “总销售金额：” ＋ 到文本 (全_点卡销售金额) ＋ #换行符 ＋ 取空白文本 (6) ＋ “总利润：” ＋ 到文本 (全_点卡利润) ＋ #换行符 ＋ 取空白文本 (6) ＋ “总成本金额：” ＋ 到文本 (全_总成本金额) ＋ #换行符 ＋ 取空白文本 (6) ＋ “总欠款：” ＋ 到文本 (全_点卡欠款)
编辑框_账单.内容 ＝ 取现行时间_ (3) ＋ “实店销售统计：” ＋ #换行符 ＋ #换行符 ＋ 取空白文本 (6) ＋ “当前月份共销售：” ＋ 到文本 (全_实店记录) ＋ “条记录” ＋ #换行符 ＋ 取空白文本 (6) ＋ “总销售金额：” ＋ 到文本 (全_实店销售金额) ＋ #换行符 ＋ 取空白文本 (6) ＋ “总欠款：” ＋ 到文本 (全_实店欠款) ＋ #换行符 ＋ 取空白文本 (6) ＋ “实际金额：” ＋ 到文本 (全_实店实际金额) ＋ #换行符
.子程序 _打开备份文件夹_被选择
.局部变量 路径, 文本型
路径 ＝ 取运行目录 () ＋ “\Backup”
执行 (, 路径, , )
.子程序 _BugReport反馈_被选择
载入 (窗口_备份到Email, , 假)
窗口_备份到Email.销毁 ()
输出调试文本 (全_发信地址)
_BugReport (全_发信地址, 全_发信人地址, 全_收信人地址, 全_邮箱用户名, 全_邮箱密码, 全_端口)
.子程序 __启动窗口_将被销毁
.子程序 _切换用户_被选择
载入 (窗口_登陆, , 真)
