| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| i | 整数型 | | |
| 标签组 | 标签 | | 0 |
| 高度 | 整数型 | | |
字段数 ＝ _启动窗口.超级列表框1.
取列数 ()清除数组 (字段名称
)
计次循环首 (字段数, i
)
加入成员 (字段名称, _启动窗口.超级列表框1.
取列标题 (i － 1
))
计次循环尾 ()字段数 ＝
取数组成员数 (字段名称
)高度 ＝
到整数 ( (修改窗口.高度 － 修改_按钮.高度
) ÷ (字段数 ＋ 1
))
重定义数组 (标签组, 假, 字段数
)重定义数组 (编辑框组, 假, 字段数
)计次循环首 (字段数, i
)复制窗口组件 (标签1, 标签组
[i
])标签组
[i
].可视 ＝ 真
标签组
[i
].标题 ＝ 字段名称
[i
] ＋
“：”标签组
[i
].横向对齐方式 ＝
#右对齐 标签组
[i
].左边 ＝ 20
标签组
[i
].顶边 ＝ 高度 �
� (i － 0.5
)复制窗口组件 (编辑框1, 编辑框组
[i
])编辑框组
[i
].可视 ＝ 真
编辑框组
[i
].左边 ＝ 标签组
[i
].左边 ＋ 标签组
[i
].宽度 ＋ 20
编辑框组
[i
].顶边 ＝ 标签组
[i
].顶边
编辑框组
[i
].对齐方式 ＝
#左对齐 计次循环尾 ()修改_按钮.顶边 ＝ 高度 × 字段数
修改_按钮.左边
＝ (修改窗口.宽度 － 修改_按钮.宽度
) × 2 ÷ 3
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| i | 整数型 | | |
| j | 整数型 | | |
| SQL | 文本型 | | |
| 修改的字段 | 文本型 | | |
| 字段 | 文本型 | | |
| 字段内容 | 文本型 | | |
如果真 (修改_按钮.标题 ＝
“确定修改”)
计次循环首 (字段数 － 1, i
)j ＝ i ＋ 1
如果真 (_启动窗口.超级列表框1.
取标题 (当前记录, j － 1
) ≠ 编辑框组
[j
].内容
)判断 (取文本长度 (修改的字段
) ＝ 0
)
修改的字段 ＝
取文本 (“%s ='%s'”, 字段名称
[j
], 编辑框组
[j
].内容
)
修改的字段 ＝ 修改的字段 ＋
取文本 (“,%s ='%s'”, 字段名称
[j
], 编辑框组
[j
].内容
)
计次循环尾 ()如果真 (取文本长度 (修改的字段
) ≠ 0
)SQL ＝
取文本 (“Update %s set %s where ID=%d”, 当前表, 修改的字段, 编辑框组
[1
].内容
)调试输出 (SQL
)_启动窗口.数据库连接1.
连接Access (文件名,
“”)_启动窗口.数据库连接1.
执行SQL (SQL,
)_启动窗口.
刷新超级列表框 ()_启动窗口.数据库连接1.
关闭 ()如果真 (修改_按钮.标题 ＝
“确定添加”)如果 (编辑框组
[1
].内容 ＝
“”)字段内容 ＝
到文本 (_启动窗口.超级列表框1.
取表项数 () ＋ 2
)字段内容 ＝ 编辑框组
[1
].内容
字段 ＝ 字段名称 [1]计次循环首 (字段数 － 1, i
)j ＝ i ＋ 1
如果真 (编辑框组
[j
].内容 ≠
“”)字段 ＝ 字段 ＋
“,” ＋ 字段名称
[j
]字段内容 ＝ 字段内容 ＋
取文本 (“,'%s'”, 编辑框组
[j
].内容
)计次循环尾 ()SQL ＝
取文本 (“insert into %s (%s) values (%s)”, 当前表, 字段, 字段内容
)调试输出 (SQL
)_启动窗口.数据库连接1.
连接Access (文件名,
“”)_启动窗口.数据库连接1.
执行SQL (SQL,
)_启动窗口.
刷新超级列表框 ()_启动窗口.数据库连接1.
关闭 ()
判断循环首 (超级列表框1.
取列数 () ≠ 0
)
超级列表框1.
删除列 (超级列表框1.
取列数 () － 1
)
判断循环尾 ()数据库连接1.
连接Access (文件,
“”)记录集1.
置连接 (数据库连接1
)记录集1.
打开 (“select * from ” ＋ 当前表,
#SQL语句, )计次循环首 (记录集1.字段数量, j
)超级列表框1.
插入列 (, , , , ,
)超级列表框1.
置列标题 (j － 1, 记录集1.
取字段名 (j － 1
))
调试输出 (记录集1.
取字段类型 (j － 1
), 记录集1.
取字段属性 (j － 1
), 记录集1.
取字段定义长度 (j － 1
))
计次循环尾 ()记录集1.
关闭 ()刷新超级列表框 ()数据库连接1.
关闭 ()修改.禁止 ＝ 假
