想做一个月历形式的备忘录,但怎样都做不开来.求救!

挺贵的

刚学易语言,求教!代码如下:.
版本 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 20:07
还是没人回啊?再顶一下

刚刚还在看呢，都不知你要干什么？

发财大王

支教{:3_232:}

挺贵的

已经研究出来了,但是如果今天有计划,不点月历出不来计划.
还有月历星期首选日选不了,上一月,下一月,返回今天时的数据怎样也连不过来,把查找的代码COPY进去,又运行不了.

挺贵的

这个我已经解决了，请版主关贴吧

jinge

关贴有专用地址：http://www.3600gz.cn/thread-46797-1-1.html  {:3_244:}

挺贵的

这个问题我已经解决了

cpa软件

好像有点问题，修复一下