.版本 2.支持库 iext.程序集 窗口程序集_窗口2.子程序 __窗口2_创建完毕
_窗口1.可视=假.局部变量 字段表, 字段信息, , "4".局部变量 数据库路径, 文本型数据库路径 ＝ 取运行目录 () ＋ “\手册.edb”.如果真 (取反 (文件是否存在 (数据库路径))) 字段表 [1].名称 ＝ “问题” 字段表 [2].名称 ＝ “介绍” 字段表 [3].名称 ＝ “实例描述” 字段表 [4].名称 ＝ “录入时间” 连续赋值 (#文本型, 字段表 [1].类型, 字段表 [2].类型, 字段表 [3].类型, 字段表 [4].类型) 连续赋值 (26, 字段表 [1].最大文本长度, 字段表 [2].最大文本长度, 字段表 [3].最大文本长度, 字段表 [4].最大文本长度) 创建 (数据库路径, 字段表).如果真结束.如果 (取反 (打开 (“手册.edb”, , , , , , ))) 信息框 (“数据库打开失败~”, 0, ) 结束 ().否则 时钟1.时钟周期 ＝ 60000 读信息 ().如果结束.子程序 _按钮5_被单击.判断开始 (编辑框1.内容 ＝ “”) 信息框 (“问题不能为空”, 0, , ).判断 (编辑框2.内容 ＝ “”) 信息框 (“介绍不能为空”, 0, , ).判断 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “” 且 编辑框3.内容 ≠ “”) 录入 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容).默认.判断结束.子程序 录入.参数 问题, 文本型.参数 介绍, 文本型.参数 实例描述, 文本型.局部变量 问题是否重复, 逻辑型.局部变量 介绍是否重复, 逻辑型.局部变量 n, 整数型.如果 (取记录数 () ＝ 0) 加空记录 () 写 (1, 问题) 写 (2, 介绍) 写 (3, 实例描述) 写 (4, 到文本 (取现行时间 ())) 读信息 ().否则 .计次循环首 (取记录数 (), n) 跳到 (n) .如果真 (问题 ＝ 读 (1)) 问题是否重复 ＝ 真 信息框 (“此问题已存在，录入失败”, 0, , ) 跳出循环 () .如果真结束 .计次循环尾 () .如果真 (问题是否重复 ＝ 假) .计次循环首 (取记录数 (), n) 跳到 (n) .如果真 (实例描述 ＝ 读 (3)) 介绍是否重复 ＝ 真 信息框 (“此介绍已存在，录入失败”, 0, , ) 跳出循环 () .如果真结束 .计次循环尾 () .如果真结束 .如果真 (问题是否重复 ＝ 假 且 介绍是否重复 ＝ 假) 加空记录 () 写 (1, 问题) 写 (2, 介绍) 写 (3, 实例描述) 写 (4, 到文本 (取现行时间 ())) 读信息 () .如果真结束.如果结束.子程序 _时钟1_周期事件读信息 ().子程序 读信息.局部变量 n, 整数型.局部变量 m, 整数型.计次循环首 (取记录数 (), n) 跳到 (n) .计次循环首 (4, m) 超级列表框1.插入表项 (-1, , , , , ) 超级列表框1.置标题 (n － 1, m － 1, 读 (m)) .计次循环尾 ().计次循环尾 ().子程序 __窗口1_将被销毁关闭 (“手册.edb”)
_窗口1.可视=假.局部变量 字段表, 字段信息, , "4".局部变量 数据库路径, 文本型数据库路径 ＝ 取运行目录 () ＋ “\手册.edb”.如果真 (取反 (文件是否存在 (数据库路径))) 字段表 [1].名称 ＝ “问题” 字段表 [2].名称 ＝ “介绍” 字段表 [3].名称 ＝ “实例描述” 字段表 [4].名称 ＝ “录入时间” 连续赋值 (#文本型, 字段表 [1].类型, 字段表 [2].类型, 字段表 [3].类型, 字段表 [4].类型) 连续赋值 (26, 字段表 [1].最大文本长度, 字段表 [2].最大文本长度, 字段表 [3].最大文本长度, 字段表 [4].最大文本长度) 创建 (数据库路径, 字段表).如果真结束.如果 (取反 (打开 (“手册.edb”, , , , , , ))) 信息框 (“数据库打开失败~”, 0, ) 结束 ().否则 时钟1.时钟周期 ＝ 60000 读信息 ().如果结束.子程序 _按钮5_被单击.判断开始 (编辑框1.内容 ＝ “”) 信息框 (“问题不能为空”, 0, , ).判断 (编辑框2.内容 ＝ “”) 信息框 (“介绍不能为空”, 0, , ).判断 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “” 且 编辑框3.内容 ≠ “”) 录入 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容).默认.判断结束.子程序 录入.参数 问题, 文本型.参数 介绍, 文本型.参数 实例描述, 文本型.局部变量 问题是否重复, 逻辑型.局部变量 介绍是否重复, 逻辑型.局部变量 n, 整数型.如果 (取记录数 () ＝ 0) 加空记录 () 写 (1, 问题) 写 (2, 介绍) 写 (3, 实例描述) 写 (4, 到文本 (取现行时间 ())) 读信息 ().否则 .计次循环首 (取记录数 (), n) 跳到 (n) .如果真 (问题 ＝ 读 (1)) 问题是否重复 ＝ 真 信息框 (“此问题已存在，录入失败”, 0, , ) 跳出循环 () .如果真结束 .计次循环尾 () .如果真 (问题是否重复 ＝ 假) .计次循环首 (取记录数 (), n) 跳到 (n) .如果真 (实例描述 ＝ 读 (3)) 介绍是否重复 ＝ 真 信息框 (“此介绍已存在，录入失败”, 0, , ) 跳出循环 () .如果真结束 .计次循环尾 () .如果真结束 .如果真 (问题是否重复 ＝ 假 且 介绍是否重复 ＝ 假) 加空记录 () 写 (1, 问题) 写 (2, 介绍) 写 (3, 实例描述) 写 (4, 到文本 (取现行时间 ())) 读信息 () .如果真结束.如果结束.子程序 _时钟1_周期事件读信息 ().子程序 读信息.局部变量 n, 整数型.局部变量 m, 整数型.计次循环首 (取记录数 (), n) 跳到 (n) .计次循环首 (4, m) 超级列表框1.插入表项 (-1, , , , , ) 超级列表框1.置标题 (n － 1, m － 1, 读 (m)) .计次循环尾 ().计次循环尾 ().子程序 __窗口1_将被销毁关闭 (“手册.edb”)
