|

分享源码
界面截图: |
- |
是否带模块: |
- |
备注说明: |
- |
创建的数据库,只有到图片10,后面就没有了,是什么情况。
.版本 2
.子程序 创建或打开数据库
.局部变量 重复, 整数型, 静态
.局部变量 索引, 整数型
.局部变量 i, 整数型
.局部变量 ii, 整数型
字段信息 [1].名称 = “货品编号”
字段信息 [1].类型 = 10
字段信息 [2].名称 = “货品数量” ' 20240408-用文本型算了,整数型,超级列表框读取又要转换,
字段信息 [2].类型 = 3
字段信息 [2].最大文本长度 = 20
字段信息 [3].名称 = “货品名称”
字段信息 [3].类型 = 10
字段信息 [3].最大文本长度 = 20
字段信息 [4].名称 = “货品说明”
字段信息 [4].类型 = 10
字段信息 [4].最大文本长度 = 1024
字段信息 [5].名称 = “显示标记” ' 20240408-如果图片1是主显示,当时间长了以后,需要更换这个图片,可以用图片2作主显示,而图片1用作以后cha询。
字段信息 [5].类型 = 3
字段信息 [6].名称 = “图片数量”
字段信息 [6].类型 = 3
字段信息 [7].名称 = “坐标数量”
字段信息 [7].类型 = 3
字段信息 [8].名称 = “记录数量”
字段信息 [8].类型 = 3
.计次循环首 (100, i)
.如果真 (i ≤ 10)
字段信息 [i + 8].名称 = “图片” + 到文本 (i)
字段信息 [i + 8].类型 = 11
.计次循环首 (10, ii)
字段信息 [i + 19].名称 = “坐标” + 到文本 (i) + “-” + 到文本 (ii)
字段信息 [i + 19].类型 = 10
字段信息 [i + 19].最大文本长度 = 300
字段信息 [i + 119].名称 = “坐标图片” + 到文本 (i) + “-” + 到文本 (ii)
字段信息 [i + 119].类型 = 11
.计次循环尾 ()
.如果真结束
字段信息 [i + 120].名称 = “记录” + 到文本 (i)
字段信息 [i + 120].类型 = 10
字段信息 [i + 120].最大文本长度 = 1024
.计次循环尾 ()
.如果真 (文件是否存在 (取运行目录 () + “\人员表2.edb”) = 假)
.如果真 (创建 (取运行目录 () + “\人员表2.edb”, 字段信息))
信息框 (“创建数据库成功!”, 0, , )
.如果真结束
.如果真结束
.如果真 (打开 (取运行目录 () + “\人员表2.edb”, , , , , , ) = 假)
信息框 (“打开数据库失败,错误代码:” + 到文本 (取错误码 ()) + “,错误信息:” + 取错误信息 (), 16, “错误”, )
返回 ()
|
评分
-
查看全部评分
|