精易论坛

标题: 想做一个月历形式的备忘录,但怎样都做不开来.求救! [打印本页]

作者: 挺贵的 时间: 2012-1-20 18:02
标题: 想做一个月历形式的备忘录,但怎样都做不开来.求救!
刚学易语言,求教!代码如下:.
版本 2
.支持库 SqliteDB
.支持库 iext
.支持库 xplib
.支持库 eDB

.程序集 _启动窗口程序集
.程序集变量数据库文件, 文本型
.程序集变量文本变量, 文本型
.程序集变量加入表单, 字节集
.程序集变量表单是否压缩, 逻辑型
.程序集变量是否弹出列表, 逻辑型
.程序集变量字段组合, 文本型
.程序集变量整数变量, 整数型
.程序集变量插入位置, 整数型
.程序集变量 Sqlite数据库, Sqlite数据库
.程序集变量 Sqlite信息表, Sqlite表
.程序集变量 Sqlite信息记录集, Sqlite记录集
.程序集变量字段名数组, 文本型, , "0"
.程序集变量记录内容数组, 文本型, , "0"
.程序集变量计划内容数组, 文本型, , "0"
.程序集变量循环变量, 整数型
.程序集变量循环变量1, 整数型
.程序集变量错误次数, 整数型
.程序集变量编号索引, 文本型
.程序集变量计划索引, 文本型
.程序集变量查询类别, 文本型
.程序集变量查询文本, 文本型
.程序集变量计划库数量, 整数型
.程序集变量计划实际数量, 整数型
.程序集变量字段名, 文本型
.程序集变量关键字索引, 文本型
.程序集变量升降序索引, 逻辑型
.程序集变量关键字列索引, 整数型
.程序集变量 j, 整数型
.程序集变量插入, 整数型

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

初始化_启动窗口 ()

.子程序初始化_启动窗口

状态条1.置文本 (1, “欢迎使用管理系统！ ” ＋ “今天是” ＋时间到文本 (取现行时间 (), 2) ＋ “星期” ＋数值到大写 (取星期几 (取现行时间 ()), 假))
XP风格 (#蓝色风格)
.如果 (数据库连接.连接Access (取运行目录 () ＋ “\班组日常工作计划.mdb”, “”) ＝真)
记录集.置连接 (数据库连接)
_启动窗口.记录集.过滤记录 (“”)
.否则
信息框 (“连接数据库错误！”, 0 ＋ #警告图标, “连接数据库错误”)
销毁 ()
.如果结束
修改还是添加＝ “”
读取当日任务 ()

.子程序读取当日任务
.局部变量 i, 整数型

数据库连接.连接Access (取运行目录 () ＋ “\班组日常工作计划.mdb”, “”)

记录集1.置连接 (数据库连接)

记录集1.打开 (“SELECT * FROM 计划总表 WHERE 日期 like '%” ＋时间到文本 (取现行时间 (), 2) ＋ “%'”, #SQL语句, )

.子程序填充超级列表框

超级列表框1.全部删除 ()
_启动窗口.记录集1.到首记录 ()
.判断循环首 (_启动窗口.记录集1.尾记录后＝假)
超级列表框1.插入表项 (, , , , , )
_启动窗口.记录集1.读文本 (“计划类型”, 计划类型)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 计划类型)
_启动窗口.记录集1.读文本 (“要素”, 要素)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 要素)
_启动窗口.记录集1.读文本 (“负责人”, 负责人)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 负责人)
_启动窗口.记录集1.读文本 (“地址”, 日班班组日常工作内容)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 日班班组日常工作内容)
_启动窗口.记录集1.到下一条 ()
.判断循环尾 ()
_启动窗口.记录集1.关闭 ()

.子程序 _农历月历1_日期被选择

超级列表框1.全部删除 ()
_启动窗口.记录集1.打开 (“SELECT * FROM 计划总表 WHERE 日期 like '%” ＋时间到文本 (公历日期, ) ＋ “%'”, #SQL语句, )
_启动窗口.记录集1.到首记录 ()
.判断循环首 (_启动窗口.记录集1.尾记录后＝假)
超级列表框1.插入表项 (, , , , , )
_启动窗口.记录集1.读文本 (“计划类型”, 计划类型)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 计划类型)
_启动窗口.记录集1.读文本 (“要素”, 要素)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 要素)
_启动窗口.记录集1.读文本 (“负责人”, 负责人)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 2, 负责人)
_启动窗口.记录集1.读文本 (“地址”, 日班班组日常工作内容)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, 日班班组日常工作内容)
_启动窗口.记录集1.到下一条 ()
.判断循环尾 ()
_启动窗口.记录集1.关闭 ()

.子程序 _主窗口_将被销毁

记录集.关闭 ()
数据库连接.关闭 ()
关闭所有文件 ()

作者: 挺贵的 时间: 2012-1-21 17:55
怎么没人回答啊!
传上源文件了,大侠支教支教吧