Access数据库超级列表框读差改加删全操作

caige123456

  

子程序名	返回值类型	公开	备 注
子程序_初始化窗口

变量名	类 型	静态	数组	备 注
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].内容 ＝ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, i － 1)
编辑框组 [i].对齐方式 ＝ #左对齐
计次循环尾 ()
修改_按钮.顶边 ＝ 高度 × 字段数
修改_按钮.左边 ＝ (修改窗口.宽度 － 修改_按钮.宽度) × 2 ÷ 3

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 子程序_初始化窗口<br /> .局部变量 i, 整数型<br /> .局部变量 标签组, 标签, , "0"<br /> .局部变量 高度, 整数型<br /> <br /> 字段数 ＝ _启动窗口.超级列表框1.取列数 ()<br /> 清除数组 (字段名称)<br /> .计次循环首 (字段数, i)<br />     加入成员 (字段名称, _启动窗口.超级列表框1.取列标题 (i － 1))<br /> .计次循环尾 ()<br /> 字段数 ＝ 取数组成员数 (字段名称)<br /> 高度 ＝ 到整数 ((修改窗口.高度 － 修改_按钮.高度) ÷ (字段数 ＋ 1))<br /> 重定义数组 (标签组, 假, 字段数)<br /> 重定义数组 (编辑框组, 假, 字段数)<br /> .计次循环首 (字段数, i)<br />     复制窗口组件 (标签1, 标签组 <i>)<br />     标签组 <i>.可视 ＝ 真<br />     标签组 <i>.标题 ＝ 字段名称 <i> ＋ “：”<br />     标签组 <i>.横向对齐方式 ＝ #右对齐<br />     标签组 <i>.左边 ＝ 20<br />     标签组 <i>.顶边 ＝ 高度 × (i － 0.5)<br />     复制窗口组件 (编辑框1, 编辑框组 <i>)<br />     编辑框组 <i>.可视 ＝ 真<br />     编辑框组 <i>.左边 ＝ 标签组 <i>.左边 ＋ 标签组 <i>.宽度 ＋ 20<br />     编辑框组 <i>.顶边 ＝ 标签组 <i>.顶边<br />     ' 编辑框组 <i>.内容 ＝ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, i － 1)<br />     编辑框组 <i>.对齐方式 ＝ #左对齐<br /> .计次循环尾 ()<br /> 修改_按钮.顶边 ＝ 高度 × 字段数<br /> 修改_按钮.左边 ＝ (修改窗口.宽度 － 修改_按钮.宽度) × 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.关闭 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库
eDB	数据库操作支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 eDB<br /> <br /> .子程序 _修改_按钮_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 SQL, 文本型<br /> .局部变量 修改的字段, 文本型<br /> .局部变量 字段, 文本型<br /> .局部变量 字段内容, 文本型<br /> <br /> .如果真 (修改_按钮.标题 ＝ “确定修改”)<br />     .计次循环首 (字段数 － 1, i)<br />         j ＝ i ＋ 1<br />         .如果真 (_启动窗口.超级列表框1.取标题 (当前记录, j － 1) ≠ 编辑框组 [j].内容)<br />             .判断开始 (取文本长度 (修改的字段) ＝ 0)<br />                 修改的字段 ＝ 取文本 (“%s ='%s'”, 字段名称 [j], 编辑框组 [j].内容)<br />             .默认<br />                 修改的字段 ＝ 修改的字段 ＋ 取文本 (“,%s ='%s'”, 字段名称 [j], 编辑框组 [j].内容)<br />             .判断结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (取文本长度 (修改的字段) ≠ 0)<br />         SQL ＝ 取文本 (“Update %s set %s where ID=%d”, 当前表, 修改的字段, 编辑框组 [1].内容)<br />         调试输出 (SQL)<br />         _启动窗口.数据库连接1.连接Access (文件名, “”)<br />         _启动窗口.数据库连接1.执行SQL (SQL, )<br />         _启动窗口.刷新超级列表框 ()<br />         _启动窗口.数据库连接1.关闭 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (修改_按钮.标题 ＝ “确定添加”)<br />     .如果 (编辑框组 [1].内容 ＝ “”)<br />         字段内容 ＝ 到文本 (_启动窗口.超级列表框1.取表项数 () ＋ 2)<br />     .否则<br />         字段内容 ＝ 编辑框组 [1].内容<br />     .如果结束<br />     字段 ＝ 字段名称 [1]<br />     .计次循环首 (字段数 － 1, i)<br />         j ＝ i ＋ 1<br />         .如果真 (编辑框组 [j].内容 ≠ “”)<br />             字段 ＝ 字段 ＋ “,” ＋ 字段名称 [j]<br />             字段内容 ＝ 字段内容 ＋ 取文本 (“,'%s'”, 编辑框组 [j].内容)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     SQL ＝ 取文本 (“insert into %s (%s) values (%s)”, 当前表, 字段, 字段内容)<br />     调试输出 (SQL)<br />     _启动窗口.数据库连接1.连接Access (文件名, “”)<br />     _启动窗口.数据库连接1.执行SQL (SQL, )<br />     _启动窗口.刷新超级列表框 ()<br />     _启动窗口.数据库连接1.关闭 ()

  

子程序名	返回值类型	公开	备 注
读MDB数据库
参数名	类 型	参考	可空	数组	备 注
文件	文本型
表名	文本型

变量名	类 型	静态	数组	备 注
j	整数型

判断循环首 (超级列表框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.关闭 ()
修改.禁止 ＝ 假

i支持库列表	支持库注释
iext	扩展界面支持库一
eDB	数据库操作支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 eDB<br /> .支持库 spec<br /> <br /> .子程序 读MDB数据库<br /> .参数 文件, 文本型<br /> .参数 表名, 文本型<br /> .局部变量 j, 整数型<br /> <br /> .判断循环首 (超级列表框1.取列数 () ≠ 0)<br />     超级列表框1.删除列 (超级列表框1.取列数 () － 1)<br /> .判断循环尾 ()<br /> 数据库连接1.连接Access (文件, “”)<br /> 记录集1.置连接 (数据库连接1)<br /> 记录集1.打开 (“select * from ” ＋ 当前表, #SQL语句, )<br /> .计次循环首 (记录集1.字段数量, j)<br />     超级列表框1.插入列 (, , , , , )<br />     超级列表框1.置列标题 (j － 1, 记录集1.取字段名 (j － 1))<br />     调试输出 (记录集1.取字段类型 (j － 1), 记录集1.取字段属性 (j － 1), 记录集1.取字段定义长度 (j － 1))<br /> .计次循环尾 ()<br /> 记录集1.关闭 ()<br /> 刷新超级列表框 ()<br /> 数据库连接1.关闭 ()<br /> 修改.禁止 ＝ 假

csdyic

感谢分享！！

xf702

很全面，学习学习。。。

xiang135666

asdf.mdb 没有

vt1224

支持开源，来学习了！

mcvital

谢谢楼主

yyysan8

感谢分享，正好需要。。谢谢！

junhai

谢谢！！！！！！！！！

zwh5363

感谢分享！！ 学习了

三藏c

感谢分享！！