| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 主窗口 | |||
| 变量名 | 类 型 | 数组 | 备 注 |
| 数据库连接 | ADODB数据库类 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _主窗口_创建完毕 | 连接库并取库中各个表名 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 文件名 | 文本型 | |||||
判断 (数据库连接.是否已经连接 () ＝ 假)
判断 (数据库连接.连接Access (文件名, “”) ＝ 假)信息框 (“打开数据库失败！”, 16, “提示”)
结束 ()
主窗口.标题 ＝ “连接成功！”
调试输出 (“已连接！”)高级表格1.显示斑马线 ( #表格常量 .行斑马线, #白色, 15200231)
取mdb表名 (文件名, )
标签1.标题 ＝ “当前库;路径;D:\MirServer\Mud2\DB\HeroDB.MDB.”
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮_刷新_被单击 | 刷新其实就是把记录集的数据再重新写到高级表格 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 操作记录集 | ADODB记录集类 | |||||
| i | 整数型 | |||||
| 索引 | 整数型 | |||||
| ID | 整数型 | |||||
| 工程编号 | 文本型 | |||||
| 工程名称 | 文本型 | |||||
| j | 整数型 | |||||
| j1 | 整数型 | |||||
高级表格1.列数 ＝ 1
操作记录集.打开 (“select * from ” ＋ 当前表, 数据库连接, 真)
字段 ＝ “”
高级表格1.列数 ＝ 操作记录集.字段数量 ()
重定义数组 (字段数组, 假, 0)
计次循环首 (操作记录集.字段数量 (), j)字段 ＝ 操作记录集.取字段名 (j － 1)加入成员 (字段数组, 字段)高级表格1.置数据 (0, j, 1, 字段)高级表格1.置列宽 (j, 100)
计次循环尾 ()加入中文翻译 (当前表)
计次循环首 (操作记录集.记录数量 (), i)高级表格1.插入行 (, )计次循环首 (操作记录集.字段数量 (), j)行数据 ＝ 操作记录集.读入字段名记录 (字段数组 [j]).取文本 ()高级表格1.置数据 (i ＋ 1, j, #表格常量 .文本型, 行数据)计次循环尾 ()操作记录集.到下一条 ()处理事件 ()计次循环尾 ()操作记录集.关闭 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _主窗口_将被销毁 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _高级表格1_结束编辑 | 双击表格可以编辑,,,编辑之后自动修改但不刷新 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| ID字段 | 文本型 | |||||
| ID行 | 文本型 | |||||
| 编辑的字段 | 文本型 | |||||
| 编辑的内容 | 文本型 | |||||
| 局部_对象 | 对象 | |||||
| Sql语句 | 文本型 | |||||
| 记录集结果 | ADODB记录集类 | |||||
| 结果类型 | 文本型 | |||||
调试输出 (“ID字段” ＋ ID字段)
ID行 ＝ 高级表格1.取数据 (高级表格1.取光标行号 (), 1)
调试输出 (“行号” ＋ ID行)
编辑的字段 ＝ 高级表格1.取数据 (0, 高级表格1.取光标列号 ())
调试输出 (“编辑的字段” ＋ 编辑的字段)
编辑的内容 ＝ 高级表格1.取数据 (高级表格1.取光标行号 (), 高级表格1.取光标列号 ())
调试输出 (“编辑的内容” ＋ 编辑的内容)
记录集结果.打开 (“select * from ” ＋ 当前表, 数据库连接, 真)
结果类型 ＝ 到文本 (记录集结果.取字段类型 (, ID字段))
调试输出 (“结果类型” ＋ 结果类型)
判断 (结果类型 ＝ “3”)判断 (高级表格1.取光标列号 () ＝ 1)调试输出 (“进入333333333333第一列”)Sql语句 ＝ “update ” ＋ 当前表 ＋ “ set ” ＋ ID字段 ＋ “=” ＋ “'” ＋ ID行 ＋ “'” ＋ “ where ” ＋ 编辑的字段 ＋ “=” ＋ “'” ＋ 编辑的内容 ＋ “'”
判断 (高级表格1.取光标列号 () ＝ 2)
调试输出 (“进入3333333333333第二列”)
Sql语句 ＝ “Update ” ＋ 当前表 ＋ “ Set ” ＋ 编辑的字段 ＋ “= '” ＋ 编辑的内容 ＋ “' where ” ＋ ID字段 ＋ “=” ＋ ID行
判断 (结果类型 ＝ “202”)判断 (高级表格1.取光标列号 () ＝ 1)调试输出 (“进入2020200020220第一列”)Sql语句 ＝ “update ” ＋ 当前表 ＋ “ set ” ＋ ID字段 ＋ “=” ＋ “'” ＋ ID行 ＋ “'” ＋ “ where ” ＋ 编辑的字段 ＋ “=” ＋ “'” ＋ 编辑的内容 ＋ “'”判断 (高级表格1.取光标列号 () ＝ 2)调试输出 (“进入02020202第二列”)Sql语句 ＝ “update ” ＋ 当前表 ＋ “ set ” ＋ 编辑的字段 ＋ “=” ＋ “'” ＋ 编辑的内容 ＋ “'” ＋ “ where ” ＋ ID字段 ＋ “=” ＋ “'” ＋ ID行 ＋ “'”' 改A
' 局_SQL语句 ＝ “update ” ＋ 参_表名 ＋ “ set ” ＋ 参_字段名 ＋ “=” ＋ “'” ＋ 参_字段值 ＋ “'” ＋ “ where ” ＋ 参_条件
' 局_Sql语句 ＝ “update ” ＋ “表1” ＋ “ set ” ＋ “A” ＋ “=” ＋ “'” ＋ 编辑框1.内容 ＋ “'” ＋ “ where ” ＋ “B='” ＋ 编辑框2.内容 ＋ “'”
' 改B
' 局_Sql语句 ＝ “update ” ＋ “表1” ＋ “ set ” ＋ “B” ＋ “=” ＋ “'” ＋ 编辑框2.内容 ＋ “'” ＋ “ where ” ＋ “A='” ＋ 编辑框1.内容 ＋ “'”
调试输出 (Sql语句)
数据库连接.执行SQL (Sql语句)
记录集结果.关闭 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 取mdb表名 | 逻辑型 | 取得mdb的所有表名。 | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| mdb数据库 | 文本型 | 要取表名的access数据库 | 密码1 | 文本型 | |||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| ADODB连接 | 对象 | |||||
| 连接文本 | 文本型 | |||||
| 表名列记录集 | 对象 | |||||
| a | 整数型 | |||||
| 对象型 | 对象 | |||||
| 变体型 | 变体型 | |||||
| 对象型1 | 对象 | |||||
| 数据库名 | 文本型 | |||||
如果真 (ADODB连接.创建 (“ADODB.Connection”, ))连接文本 ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ mdb数据库 ＋ “;Jet OLEDB:Database Password=” ＋ 密码1 ＋ “;” ' 后面是数据库路径ADODB连接.写属性 (“connectionstring”, 连接文本)ADODB连接.方法 (“open”, ) ' 连接错误信息对象型1 ＝ ADODB连接.读对象型属性 (“Errors”, )如果真 (对象型1.是否为空 () ＝ 假)变体型.赋值 (0, )对象型 ＝ 对象型1.读对象型属性 (“Item”, 变体型)如果真 (对象型.是否为空 () ＝ 假)返回 (假)
表名列记录集 ＝ ADODB连接.对象型方法 (“OpenSchema”, 20)判断循环首 (表名列记录集.读逻辑属性 (“eof”, ) ＝ 假) ' 循环取表名列表对象型1 ＝ 表名列记录集.读对象型属性 (“Fields”, )变体型.赋值 (“TABLE_TYPE”, ) ' 取表类型对象型 ＝ 对象型1.读对象型属性 (“Item”, 变体型)变体型 ＝ 对象型.读属性 (“Value”, )如果真 (变体型.取文本 () ＝ “TABLE”) ' 取表名变体型.赋值 (“TABLE_NAME”, )对象型 ＝ 对象型1.读对象型属性 (“Item”, 变体型)变体型 ＝ 对象型.读属性 (“Value”, )组合框1.加入项目 (变体型.取文本 (), )表名列记录集.方法 (“MoveNext”, )判断循环尾 ()表名列记录集.方法 (“Close”, )
ADODB连接.方法 (“Close”, )
返回 (真)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮技能表_被单击 | |||||
标签1.标题 ＝ “正在打开,清稍后”
标签1.文本颜色 ＝ 255128
_按钮_刷新_被单击 ()
标签1.标题 ＝ “表状态;已打开.表名;Magic(技能)”
标签1.文本颜色 ＝ 111111
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮怪物表_被单击 | |||||
标签1.文本颜色 ＝ 255128
标签1.标题 ＝ “正在打开,清稍后”
_按钮_刷新_被单击 ()
标签1.标题 ＝ “表状态;已打开.表名;Monster(怪物)”
标签1.文本颜色 ＝ 111111
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮物品表_被单击 | |||||
标签1.标题 ＝ “正在打开,清稍后”
标签1.文本颜色 ＝ 255128
_按钮_刷新_被单击 ()
标签1.标题 ＝ “表状态;已打开.表名;StdItems(物品)”
标签1.文本颜色 ＝ 111111
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 加入中文翻译 | 把字段的英文在第二行翻译成中文对照 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 表索引 | 文本型 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 翻译的分本 | 文本型 | 0 | ||||
| 计次 | 整数型 | |||||
如果真 (表索引 ＝ “Magic”) ' 如果是 技能表翻译的分本 ＝ 分割文本 (“序号，待翻译字段，测试表1，待翻译字段，待翻译字段，待翻译字段，待翻译字段，待翻译字段”, “，”, ) ' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这翻译计次循环首 (取数组成员数 (翻译的分本), 计次)高级表格1.置数据 (1, 计次, #表格常量 .文本型, 翻译的分本 [计次])计次循环尾 ()
如果真 (表索引 ＝ “Monster”) ' 如果是 怪物表翻译的分本 ＝ 分割文本 (“名字，测试表2，待翻译字段，待翻译字段，待翻译字段，待翻译字段，待翻译字段，待翻译字段”, “，”, ) ' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这计次循环首 (取数组成员数 (翻译的分本), 计次)高级表格1.置数据 (1, 计次, #表格常量 .文本型, 翻译的分本 [计次])计次循环尾 ()如果真 (表索引 ＝ “StdItems”) ' 如果是 物品表翻译的分本 ＝ 分割文本 (“序号，待翻译字段，待翻译字段，测试表3，待翻译字段，待翻译字段，待翻译字段，待翻译字段”, “，”, ) ' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这计次循环首 (取数组成员数 (翻译的分本), 计次)高级表格1.置数据 (1, 计次, #表格常量 .文本型, 翻译的分本 [计次])计次循环尾 ()| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _主窗口_尺寸被改变 | 调整窗口 | ||||
高级表格1.高度 ＝ 主窗口.高度 － 81
| i支持库列表 | 支持库注释 |
| spec | 特殊功能支持库 |
| eGrid | 高级表格支持库 |
