| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集1 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _子程序_建数据库 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 字段表 | 字段信息 | 6 | ||||
如果真 (文件是否存在 (取运行目录 () ＋ “/” ＋ #员工表 ) ＝ 假)
如果真 (信息框 (“员工表不存在,是否创建数据库！”, #询问图标 ＋ #是否钮, ) ＝ #否钮 )信息框 (“系统将会退出！”, #错误图标, )结束 ()字段表 [1].名称 ＝ #姓名 字段表 [1].类型 ＝ #文本型 字段表 [1].最大文本长度 ＝ 8字段表 [2].名称 ＝ #性别 字段表 [2].类型 ＝ #逻辑型 字段表 [3].名称 ＝ #年龄 字段表 [3].类型 ＝ #整数型 字段表 [4].名称 ＝ #出生日期 字段表 [4].类型 ＝ #日期时间型 字段表 [5].名称 ＝ #工资 字段表 [5].类型 ＝ #小数型 字段表 [6].名称 ＝ #奖金 字段表 [6].类型 ＝ #小数型 如果真 (创建 (取运行目录 () ＋ “\” ＋ #员工表, 字段表) ＝ 假)信息框 (“创建员工表数据库失败！”, #错误图标, “错误”)结束 ()信息框 ( #左引号 ＋ #员工表 ＋ #右引号 ＋ “数据库创建成功！”, #信息图标, )
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮1_被单击 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮2_被单击 | |||||
如果 (打开 ( #员工表, “员工表”, , , , , ) ＝ 假)信息框 (“员工数据库打开失败！”, #错误图标, “错误”)
结束 ()
信息框 (“员工数据库打开成功！”, #信息图标, “成功”)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮3_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 计次 | 整数型 | |||||
到首记录 ()
计次循环首 (取记录数 (), 计次)子程序_读取当前记录 ()跳过 ()
计次循环尾 ()| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 子程序_读取当前记录 | |||||
数据源1.置文本 (数据源1.取行数 (), 1, 读 ( #姓名 ))
数据源1.置文本 (数据源1.取行数 (), 2, 选择 (读 ( #性别 ), “男”, “女”))
数据源1.置文本 (数据源1.取行数 (), 3, 到文本 (读 ( #年龄 )))
数据源1.置文本 (数据源1.取行数 (), 4, 到文本 (读 ( #出生日期 )))
数据源1.置文本 (数据源1.取行数 (), 5, 到文本 (读 ( #工资 )))
数据源1.置文本 (数据源1.取行数 (), 6, 到文本 (读 ( #奖金 )))
数据源1.置对齐方式 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), #中中 )
数据源1.加线条 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), 1 ＋ 2 ＋ 4 ＋ 8 ＋ 16 ＋ 32)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 子程序_添加表头 | |||||
如果真 (数据源1.插入行 (1, 1) ＝ 假)返回 ()数据源1.置文本 (1, 1, “姓名”)
数据源1.置文本 (1, 2, “性别”)
数据源1.置文本 (1, 3, “年龄”)
数据源1.置文本 (1, 4, “出生日期”)
数据源1.置文本 (1, 5, “工资”)
数据源1.置文本 (1, 6, “奖金”)
数据源1.置对齐方式 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), #中中 )
数据源1.加线条 (1, 1, 数据源1.取行数 (), 数据源1.取列数 (), 1 ＋ 2 ＋ 4 ＋ 8 ＋ 16 ＋ 32)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮8_被单击 | |||||
子程序_添加表头 ()
子程序_读取当前记录 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮11_被单击 | |||||
子程序_添加表头 ()
子程序_读取当前记录 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮4_被单击 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮5_被单击 | |||||
如果真 (表格1.取光标行号 () ≤ 1)信息框 (“请选择要修改的记录。”, 0 ＋ #警告图标, “警告”)返回 ()跳到 (表格1.取光标行号 () － 1)
载入 (窗口_修改, , 真)
