照着教材写的数据库应用 有些命令还不是很懂 并且有些功能还没完善 因为有些命令还是没有弄懂 这个对我来说还是有些难啊 如果真 (文件是否存在 (取运行目录 () + “/” + #员工表 ) = 假)如果真 (信息框 (“员工表不存在,是否创建数据库!”, #询问图标 + #是否钮, ) = #否钮 )信息框 (“系统将会退出!”, #错误图标, )结束 ()字段表 [1].名称 = #姓名 字段表 [1 ].类型 = #文本型 字段表 [1 ].最大文本长度 = 8 字段表 [2 ].名称 = #性别 字段表 [2 ].类型 = #逻辑型 字段表 [3 ].名称 = #年龄 字段表 [3 ].类型 = #整数型 字段表 [4 ].名称 = #出生日期 字段表 [4 ].类型 = #日期时间型 字段表 [5 ].名称 = #工资 字段表 [5 ].类型 = #小数型 字段表 [6 ].名称 = #奖金 字段表 [6 ].类型 = #小数型 如果真 (创建 (取运行目录 () + “\” + #员工表, 字段表 ) = 假)信息框 (“创建员工表数据库失败!”, #错误图标, “错误”)结束 ()信息框 ( #左引号 + #员工表 + #右引号 + “数据库创建成功!”, #信息图标, )_子程序_建数据库 ()如果 (打开 ( #员工表, “员工表”, , , , , ) = 假)信息框 (“员工数据库打开失败!”, #错误图标, “错误”)结束 ()信息框 (“员工数据库打开成功!”, #信息图标, “成功”)子程序_添加表头 ()到首记录 ()计次循环首 (取记录数 (), 计次 )子程序_读取当前记录 ()跳过 ()计次循环尾 ()数据源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 )数据源1. 删除行 (1, 数据源1. 取行数 ()) 如果真 (数据源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 )到首记录 ()子程序_添加表头 ()子程序_读取当前记录 ()到尾记录 ()子程序_添加表头 ()子程序_读取当前记录 ()载入 (窗口_添加, , 真)如果真 (表格1. 取光标行号 () ≤ 1 )信息框 (“请选择要修改的记录。”, 0 + #警告图标, “警告”)返回 ()跳到 (表格1.取光标行号 () - 1)载入 (窗口_修改, , 真)
|