[水木帆] 超级列表框 Access数据库 打印 Excel程序 功能丰富 新手初学者最爱

水木工做室

水木帆坚信：
分享是一种美德！
兴趣是第一生产力！

本次分享分为“精简”和“完整”两个版本，请大家根据自己的情况选择下载和学习！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
内容	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

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

如果 (数据库连接1.连接Access (取运行目录 () ＋ “\结算表.mdb”, “”))
记录集1.置连接 (数据库连接1)
记录集1.打开 (“表1”, 2, )
计次循环首 (3, a)
超级列表框1.插入列 (, 记录集1.取字段名 (a), , , , )
计次循环尾 ()
读出数据 ()
信息框 (“连接失败！”, #错误图标, )

子程序名	返回值类型	公开	备 注
读出数据

变量名	类 型	静态	数组	备 注
n	整数型
x	文本型
y	文本型
z	文本型

记录集1.到首记录 ()
计次循环首 (记录集1.记录数量, n)
记录集1.读文本 (1, x)
记录集1.读文本 (2, y)
记录集1.读文本 (3, z)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (n － 1, 0, x)
超级列表框1.置标题 (n － 1, 1, y)
超级列表框1.置标题 (n － 1, 2, z)
记录集1.到下一条 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
记录集1.添加 ()
记录集1.写文本 (1, 到文本 (取月份 (日期框1.今天)) ＋ “月”)
记录集1.写文本 (2, 编辑框1.内容)
记录集1.写文本 (3, 编辑框2.内容)
记录集1.更新 ()
超级列表框1.全部删除 ()
读出数据 ()
信息框 (“缺少信息！”, 0, )

子程序名	返回值类型	公开	备 注
_删除此行_被选择

如果 (信息框 (“确定删除？”, 1, ) ＝ 0)
记录集1.移到 (超级列表框1.现行选中项)
记录集1.删除 (1)
记录集1.更新 ()
超级列表框1.全部删除 ()
读出数据 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_右键单击表项

弹出菜单 (操作, , )

子程序名	返回值类型	公开	备 注
_修改此行_被选择

载入 (窗口1, , 假)
窗口1.可视 ＝ 真
窗口1.组合框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
窗口1.编辑框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
窗口1.编辑框2.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

结束 ()

子程序名	返回值类型	公开	备 注
_关闭_被选择

结束 ()

子程序名	返回值类型	公开	备 注
_打印报表_被选择

变量名	类 型	静态	数组	备 注
a	整数型
i	整数型
n	整数型

内容 ＝ 取空白文本 (16) ＋ “结算报表” ＋ #换行符 ＋ #换行符
计次循环首 (超级列表框1.取列数 (), a)
内容 ＝ 内容 ＋ 超级列表框1.取列标题 (a － 1) ＋ 取空白文本 (10)
计次循环尾 ()
内容 ＝ 内容 ＋ #换行符
计次循环首 (超级列表框1.取表项数 (), n)
计次循环首 (超级列表框1.取列数 (), i)
内容 ＝ 内容 ＋ 超级列表框1.取标题 (n － 1, i － 1) ＋ 取空白文本 (11)
计次循环尾 ()
内容 ＝ 内容 ＋ #换行符
计次循环尾 ()
' 信息框 (内容, 0, )
载入 (窗口2, , 假)
写入画板 ()

子程序名	返回值类型	公开	备 注
打印内容

窗口2.打印机1.写文本行 (内容)

子程序名	返回值类型	公开	备 注
写入画板

如果 (是否已创建 (窗口2))
窗口2.画板1.写文本行 (内容)

子程序名	返回值类型	公开	备 注
_导出表格_被选择

变量名	类 型	静态	数组	备 注
i	整数型
n	整数型
a	整数型

Excel程序1.创建 ()
Excel程序1.显示 ＝ 真
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.表格序号 ＝ 1
Excel工作簿1.激活表格 ()
计次循环首 (超级列表框1.取列数 (), a)
Excel工作簿1.首单元格 ＝ 字符 (64 ＋ a) ＋ 到文本 (1)
Excel工作簿1.尾单元格 ＝ 字符 (64 ＋ a) ＋ 到文本 (1)
Excel工作簿1.内容 ＝ 超级列表框1.取列标题 (a － 1)
计次循环尾 ()
计次循环首 (超级列表框1.取表项数 (), n)
计次循环首 (超级列表框1.取列数 (), i)
Excel工作簿1.首单元格 ＝ 字符 (64 ＋ i) ＋ 到文本 (n ＋ 1)
Excel工作簿1.尾单元格 ＝ 字符 (64 ＋ i) ＋ 到文本 (n ＋ 1)
Excel工作簿1.内容 ＝ 超级列表框1.取标题 (n － 1, i － 1)
计次循环尾 ()
计次循环尾 ()
Excel工作簿1.保存 (取运行目录 () ＋ “\结算报表.xls”)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()

i支持库列表	支持库注释
eDB	数据库操作支持库
iext	扩展界面支持库一
eExcel2000	EXCEL2000支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> .支持库 eExcel2000<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 内容, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 a, 整数型<br /> <br /> .如果 (数据库连接1.连接Access (取运行目录 () ＋ “\结算表.mdb”, “”))<br />     记录集1.置连接 (数据库连接1)<br />     记录集1.打开 (“表1”, 2, )<br />     .计次循环首 (3, a)<br />         超级列表框1.插入列 (, 记录集1.取字段名 (a), , , , )<br />     .计次循环尾 ()<br />     读出数据 ()<br /> .否则<br />     信息框 (“连接失败！”, #错误图标, )<br /> .如果结束<br /> <br /> <br /> .子程序 读出数据<br /> .局部变量 n, 整数型<br /> .局部变量 x, 文本型<br /> .局部变量 y, 文本型<br /> .局部变量 z, 文本型<br /> <br /> 记录集1.到首记录 ()<br /> .计次循环首 (记录集1.记录数量, n)<br />     记录集1.读文本 (1, x)<br />     记录集1.读文本 (2, y)<br />     记录集1.读文本 (3, z)<br />     超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (n － 1, 0, x)<br />     超级列表框1.置标题 (n － 1, 1, y)<br />     超级列表框1.置标题 (n － 1, 2, z)<br />     记录集1.到下一条 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)<br />     记录集1.添加 ()<br />     记录集1.写文本 (1, 到文本 (取月份 (日期框1.今天)) ＋ “月”)<br />     记录集1.写文本 (2, 编辑框1.内容)<br />     记录集1.写文本 (3, 编辑框2.内容)<br />     记录集1.更新 ()<br />     超级列表框1.全部删除 ()<br />     读出数据 ()<br /> .否则<br />     信息框 (“缺少信息！”, 0, )<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _删除此行_被选择<br /> <br /> .如果 (信息框 (“确定删除？”, 1, ) ＝ 0)<br />     记录集1.移到 (超级列表框1.现行选中项)<br />     记录集1.删除 (1)<br />     记录集1.更新 ()<br />     超级列表框1.全部删除 ()<br />     读出数据 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _超级列表框1_右键单击表项<br /> <br /> 弹出菜单 (操作, , )<br /> <br /> <br /> .子程序 _修改此行_被选择<br /> <br /> 载入 (窗口1, , 假)<br /> 窗口1.可视 ＝ 真<br /> 窗口1.组合框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)<br /> 窗口1.编辑框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)<br /> 窗口1.编辑框2.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 结束 ()<br /> <br /> .子程序 _关闭_被选择<br /> <br /> 结束 ()<br /> <br /> .子程序 _打印报表_被选择<br /> .局部变量 a, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> <br /> <br /> 内容 ＝ 取空白文本 (16) ＋ “结算报表” ＋ #换行符 ＋ #换行符<br /> .计次循环首 (超级列表框1.取列数 (), a)<br />     内容 ＝ 内容 ＋ 超级列表框1.取列标题 (a － 1) ＋ 取空白文本 (10)<br /> .计次循环尾 ()<br /> 内容 ＝ 内容 ＋ #换行符<br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     .计次循环首 (超级列表框1.取列数 (), i)<br />         内容 ＝ 内容 ＋ 超级列表框1.取标题 (n － 1, i － 1) ＋ 取空白文本 (11)<br />     .计次循环尾 ()<br />     内容 ＝ 内容 ＋ #换行符<br /> .计次循环尾 ()<br /> ' 信息框 (内容, 0, )<br /> 载入 (窗口2, , 假)<br /> 写入画板 ()<br /> <br /> <br /> .子程序 打印内容<br /> <br /> 窗口2.打印机1.写文本行 (内容)<br /> <br /> <br /> .子程序 写入画板<br /> <br /> .如果 (是否已创建 (窗口2))<br />     窗口2.画板1.写文本行 (内容)<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _导出表格_被选择<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 a, 整数型<br /> <br /> Excel程序1.创建 ()<br /> Excel程序1.显示 ＝ 真<br /> Excel工作簿1.置程序 (Excel程序1)<br /> Excel工作簿1.表格序号 ＝ 1<br /> Excel工作簿1.激活表格 ()<br /> .计次循环首 (超级列表框1.取列数 (), a)<br />     Excel工作簿1.首单元格 ＝ 字符 (64 ＋ a) ＋ 到文本 (1)<br />     Excel工作簿1.尾单元格 ＝ 字符 (64 ＋ a) ＋ 到文本 (1)<br />     Excel工作簿1.内容 ＝ 超级列表框1.取列标题 (a － 1)<br /> .计次循环尾 ()<br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     .计次循环首 (超级列表框1.取列数 (), i)<br />         Excel工作簿1.首单元格 ＝ 字符 (64 ＋ i) ＋ 到文本 (n ＋ 1)<br />         Excel工作簿1.尾单元格 ＝ 字符 (64 ＋ i) ＋ 到文本 (n ＋ 1)<br />         Excel工作簿1.内容 ＝ 超级列表框1.取标题 (n － 1, i － 1)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> Excel工作簿1.保存 (取运行目录 () ＋ “\结算报表.xls”)<br /> Excel工作簿1.关闭 ()<br /> Excel工作簿1.释放 ()<br /> Excel程序1.退出 ()<br /> Excel程序1.释放 ()

cdweng

谢谢分享学习了

lq79820

学习了，谢谢分享

daiwei1104

学习了，谢谢分享

1530787462

学习了，谢谢分享

forumid

谢谢分享！

linyuntai

谢谢分享学习了

1347379245

下载学习，谢谢分享

zjjszjxj

Access数据库操作 完整版

13615647407

下载学习，谢谢分享