中高考铃声系统Access-高级表格全操作。读改删存

caige123456

一直在努力学习数据库，最近跟中高考铃声系统杠上了，为了能查看修改，编辑中高考的铃声，(有需要的自己去国家考试网站上下载软件和数据库）由完全小白到学会读入Access(*.MDB)数据库，然后再学习MYsql,查询，修改，插入，删除命令。最开始用超级列表框和文本框修改就做了两个编版本，还是觉得不满意，现在换用高级表格来做。还加入了Excel和高级表格互导，按照Access数据库导出的Excell文件按照格式修改后还可以导入数据库。过程中又发现前面网上的Excell到超级列表框导入导出的源码导出去了不能导入回来，而且会产生格式混混乱。整个过程参考了易安装包自带的中华电子表格，感谢老师的作品，就是对于菜鸟来说有点晦涩。借用了老师不少源码。自己也完善了各部分，把超级列表框到Excel修改为了高级表格到Excel。总之不容易，算是我目前最好水平的作品了。欢迎

  

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

如果真 (信息框 (“你确认要清上传所有数据到当前数据库？！”, #确认取消钮 ＋ #警告图标 ＋ #默认按钮二 ＋ #系统等待 ＋ #位于前台, “上传数据”, _启动窗口) ＝ #取消钮 )
返回 ()
表格到数据库 (表格1, 当前表, 数据库连接1)

子程序名	返回值类型	公开	备 注
表格到数据库			超级列表框→→→→Accsee
参数名	类 型	参考	可空	数组	备 注
表格	高级表格
表名	文本型
数据库连接	数据库连接

变量名	类 型	静态	数组	备 注
字段	文本型
字段内容	文本型
列数	整数型
行数	整数型
i	整数型
j	整数型
SQL	文本型

行数 ＝ 表格.行数
列数 ＝ 表格.列数
调试输出 (行数, 列数)
数据库连接.开始事务 ()  ' 避免保存失败把数据清空了，所以用事务。
数据库连接.执行SQL (“delete from ” ＋ 表名, )
计次循环首 (行数 － 1, i)
字段 ＝ “”
字段内容 ＝ “”
计次循环首 (列数 － 1, j)
如果 (字段 ＝ “”)
字段 ＝ 表格.取数据 (0, j)
字段内容 ＝ 取文本 (“%d”, 表格.取数据 (i, j))
如果真 (表格.取数据 (0, j) ＝ “password”)  ' “password”列不能填写，否则保存不了。所以屏蔽掉。
到循环尾 ()
字段内容 ＝ 字段内容 ＋ 取文本 (“,'%s'”, 表格.取数据 (i, j))
字段 ＝ 字段 ＋ 取文本 (“,%s”, 表格.取数据 (0, j))

计次循环尾 ()
SQL ＝ 取文本 (“insert into %s (%s) values (%s)”, 表名, 字段, 字段内容)
调试输出 (SQL)
如果真 (数据库连接.执行SQL (SQL, ) ＝ 假)
数据库连接.回滚事务 ()
信息框 (“保存数据失败，请检查。例如：ID为主键不能重复，数据格式不对等...”, #确认钮 ＋ #错误图标, “保存数据失败，请检查。”, )
跳出循环 ()

计次循环尾 ()
数据库连接.保存事务 ()
_组合框1_列表项被选择 ()

i支持库列表	支持库注释
eGrid	高级表格支持库
eDB	数据库操作支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eGrid<br /> .支持库 eDB<br /> .支持库 spec<br /> <br /> .子程序 _保存_被选择<br /> <br /> .如果真 (信息框 (“你确认要清上传所有数据到当前数据库？！”, #确认取消钮 ＋ #警告图标 ＋ #默认按钮二 ＋ #系统等待 ＋ #位于前台, “上传数据”, _启动窗口) ＝ #取消钮)<br />     返回 ()<br /> .如果真结束<br /> 表格到数据库 (表格1, 当前表, 数据库连接1)<br /> <br /> .子程序 表格到数据库, , , 超级列表框→→→→Accsee<br /> .参数 表格, 高级表格<br /> .参数 表名, 文本型<br /> .参数 数据库连接, 数据库连接<br /> .局部变量 字段, 文本型<br /> .局部变量 字段内容, 文本型<br /> .局部变量 列数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 SQL, 文本型<br /> <br /> 行数 ＝ 表格.行数<br /> 列数 ＝ 表格.列数<br /> 调试输出 (行数, 列数)<br /> 数据库连接.开始事务 ()  ' 避免保存失败把数据清空了，所以用事务。<br /> 数据库连接.执行SQL (“delete from ” ＋ 表名, )<br /> .计次循环首 (行数 － 1, i)<br />     字段 ＝ “”<br />     字段内容 ＝ “”<br />     .计次循环首 (列数 － 1, j)<br />         .如果 (字段 ＝ “”)<br />             字段 ＝ 表格.取数据 (0, j)<br />             字段内容 ＝ 取文本 (“%d”, 表格.取数据 (i, j))<br />         .否则<br />             .如果真 (表格.取数据 (0, j) ＝ “password”)  ' “password”列不能填写，否则保存不了。所以屏蔽掉。<br />                 到循环尾 ()<br />             .如果真结束<br />             字段内容 ＝ 字段内容 ＋ 取文本 (“,'%s'”, 表格.取数据 (i, j))<br />             字段 ＝ 字段 ＋ 取文本 (“,%s”, 表格.取数据 (0, j))<br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     SQL ＝ 取文本 (“insert into %s (%s) values (%s)”, 表名, 字段, 字段内容)<br />     调试输出 (SQL)<br />     .如果真 (数据库连接.执行SQL (SQL, ) ＝ 假)<br />         数据库连接.回滚事务 ()<br />         信息框 (“保存数据失败，请检查。例如：ID为主键不能重复，数据格式不对等...”, #确认钮 ＋ #错误图标, “保存数据失败，请检查。”, )<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 数据库连接.保存事务 ()<br /> _组合框1_列表项被选择 ()

zifeiyu

66666666666666

huxian

什么铃声吗

caige123456

huxian 发表于 2022-4-26 00:49
什么铃声吗

中高考指令系统，考试指令

xjshuaishuai

谢谢分享！

蓝河笑月

谢谢分享！

豫源

不懂就问，中高考铃声系统是啥？

wuqingg

什么铃声,  biu  biu  biu 吗？

深圳梦

支持开源~！感谢分享~

panchao126

支持开源~！感谢分享~