.版本 2
.子程序 创建打开数据库, , 公开
.参数 数据库目录名, 文本型, 可空, 要创建的数据库名称
.参数 库名, 文本型, 可空, 数据库名字,手动填写 于,分开
.参数 类名, 文本型, 可空, 数据库类型 1位文本型 2为整数型 于,分开
.参数 长度, 文本型, 可空, 长度为数字文本。以,分开
.参数 是否创建, 文本型, 可空, 1为创建 不填写为打开自己的数据库
.参数 创建后是否打开, 逻辑型, 可空, 如自己创建数据库是否自己打开
.参数 数据库包名, 字节集, 可空, 自己填写要打开的数据库位置在哪里
.局部变量 创建库, 逻辑型
.局部变量 库名数组, 文本型, , "0"
.局部变量 类型数组, 文本型, , "0"
.局部变量 长度数组, 文本型, , "0"
.局部变量 i, 整数型
.如果 (是否创建 = “1”)
创建库 = 真
.否则
创建库 = 假
.如果结束
.如果 (创建库 = 真)
库名数组 = 分割文本 (库名, “,”, )
类型数组 = 分割文本 (类名, “,”, )
长度数组 = 分割文本 (长度, “,”, )
.计次循环首 (取数组成员数 (库名数组), i)
字段信息 [i].名称 = 库名数组 [i]
.如果 (类型数组 [i] = “1”)
字段信息 [i].类型 = #文本型
.否则
字段信息 [i].类型 = #整数型
.如果结束
字段信息 [i].最大文本长度 = 到整数 (长度数组 [i])
.计次循环尾 ()
创建 (取运行目录 () + “\” + 数据库目录名, 字段信息)
.如果真 (创建后是否打开 = 真)
打开 (取运行目录 () + “\” + 数据库目录名, , , , , , )
.如果真结束
.否则
.判断开始 (文件是否存在 (取运行目录 () + “\” + 数据库目录名) = 真)
打开 (取运行目录 () + “\” + 数据库目录名, , , , , , )
.默认
写到文件 (取运行目录 () + “\” + 数据库目录名, 数据库包名)
打开 (取运行目录 () + “\” + 数据库目录名, , , , , , )
.判断结束
.如果结束
.子程序 数据库加数据, , 公开
.参数 数据库名, 文本型, 可空, 数据库名称,不多说明
.参数 数据库数, 文本型, 可空, 如添加多个数据库。自动匹配数据库添加到第几个记录,这个位置用来记次数组添加 可以用来批量添加数据库
.参数 字段名称, 文本型, 可空, 要写入字段名称:于 , 分开 数据库 批量添加,数组类型 这个字段于下面字段要对应
.参数 写入内容, 文本型, 可空, 要写入字段内容:于 , 分开 数据库 批量添加,数组类型 这个字段于上面字段要对应
.参数 信息框提示, 逻辑型, 可空, 需要信息框提示 为真,反为假!
.参数 信息框内容, 文本型, 可空, 信息框内容!
.局部变量 字段数组, 文本型, , "0"
.局部变量 内容数组, 文本型, , "0"
.局部变量 i, 整数型
打开 (取运行目录 () + “\” + 数据库名, , , , , , )
字段数组 = 分割文本 (字段名称, “,”, )
内容数组 = 分割文本 (写入内容, “,”, )
.如果 (取记录数 () < 到数值 (数据库数))
加空记录 ()
.计次循环首 (取数组成员数 (内容数组), i)
写 (字段数组 [i], 内容数组 [i])
.计次循环尾 ()
.如果真 (信息框提示 = 真)
信息框 (信息框内容, #信息图标, , )
.如果真结束
.否则
跳到 (到数值 (数据库数))
.计次循环首 (取数组成员数 (内容数组), i)
写 (字段数组 [i], 内容数组 [i])
.计次循环尾 ()
.如果真 (信息框提示 = 真)
信息框 (信息框内容, #信息图标, , )
.如果真结束
.如果结束
.子程序 数据库读数据, 文本型, 公开, 返回的文本为 1,2,3,4,5 格式。自行处理
.参数 数据库名, 文本型, 可空, 数据库名称,不多说明
.参数 读取第几条, 文本型, 可空
.参数 读取字段, 文本型, 可空, 要写入字段名称:于 , 分开 数据库 批量添加,数组类型 这个字段于下面字段要对应
.局部变量 返回的文本, 文本型
.局部变量 字段数组, 文本型, , "0"
.局部变量 i, 整数型
打开 (取运行目录 () + “\” + 数据库名, , , , , , )
跳到 (到数值 (读取第几条))
字段数组 = 分割文本 (读取字段, “,”, )
.计次循环首 (取数组成员数 (字段数组), i)
返回的文本 = 返回的文本 + 读 (字段数组 [i]) + “,”
.计次循环尾 ()
返回 (返回的文本)
|