传奇ACC数据库编辑器-高级表格版

xiegang

简洁轻便的数据库编辑器,小白也能轻松上手,大本分代码来自论坛上的老师,大概借用了4各人的,另外加了自己的一些所学知识,东拼西凑总算是有了自己的第二款软件,此程序连同感谢给位无名老师,另感谢易语言开发组和黑月贡献的模块,虽然只调用了两次-_-. 我的代码写的很随意,这个缺点我要克服,不敢写太多注释 ,因为我还不太精通 ,说错了怕耽误小白
大部分变量都是用大白话写的 所以看着很幼稚
刚才提到了这是第二款软件 ,第一款是消防工程专用的MYSQL云库版,有需要的小伙伴希望留言相告.

  

窗口程序集名	保 留	保 留	备 注
主窗口
变量名	类 型	数组	备 注
数据库连接	ADODB数据库类

子程序名	返回值类型	公开	备 注
_主窗口_创建完毕			连接库并取库中各个表名

变量名	类 型	静态	数组	备 注
文件名	文本型

文件名 ＝ “D:\MirServer\Mud2\DB\HeroDB.MDB”
判断 (数据库连接.是否已经连接 () ＝ 假)
判断 (数据库连接.连接Access (文件名, “”) ＝ 假)
信息框 (“打开数据库失败！”, 16, “提示”)
结束 ()
主窗口.标题 ＝ “连接成功！”

调试输出 (“已连接！”)
高级表格1.显示斑马线 ( #表格常量 .行斑马线, #白色, 15200231)
取mdb表名 (文件名, )
标签1.标题 ＝ “当前库;路径;D:\MirServer\Mud2\DB\HeroDB.MDB.”

子程序名	返回值类型	公开	备 注
_按钮_刷新_被单击			刷新其实就是把记录集的数据再重新写到高级表格

变量名	类 型	静态	数组	备 注
操作记录集	ADODB记录集类
i	整数型
索引	整数型
ID	整数型
工程编号	文本型
工程名称	文本型
j	整数型
j1	整数型

高级表格1.行数 ＝ 2
高级表格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字段 ＝ 高级表格1.取数据 (0, 1)
调试输出 (“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	对象
数据库名	文本型

数据库名 ＝ 取文本右边 (mdb数据库, 取文本长度 (mdb数据库) － 倒找文本 (mdb数据库, “\”, , 假))
如果真 (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”, )
返回 (真)

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

当前表 ＝ “Magic”
标签1.标题 ＝ “正在打开,清稍后”
标签1.文本颜色 ＝ 255128
_按钮_刷新_被单击 ()
标签1.标题 ＝ “表状态;已打开.表名;Magic(技能)”
标签1.文本颜色 ＝ 111111

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

当前表 ＝ “Monster”
标签1.文本颜色 ＝ 255128
标签1.标题 ＝ “正在打开,清稍后”
_按钮_刷新_被单击 ()
标签1.标题 ＝ “表状态;已打开.表名;Monster(怪物)”
标签1.文本颜色 ＝ 111111

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

当前表 ＝ “StdItems”
标签1.标题 ＝ “正在打开,清稍后”
标签1.文本颜色 ＝ 255128
_按钮_刷新_被单击 ()
标签1.标题 ＝ “表状态;已打开.表名;StdItems(物品)”
标签1.文本颜色 ＝ 111111

子程序名	返回值类型	公开	备 注
加入中文翻译			把字段的英文在第二行翻译成中文对照
参数名	类 型	参考	可空	数组	备 注
表索引	文本型

变量名	类 型	静态	数组	备 注
翻译的分本	文本型		0
计次	整数型

高级表格1.插入行 (, 1)
如果真 (表索引 ＝ “Magic”)  ' 如果是  技能表
翻译的分本 ＝ 分割文本 (“序号，待翻译字段，测试表1，待翻译字段，待翻译字段，待翻译字段，待翻译字段，待翻译字段”, “，”, )  ' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这翻译
计次循环首 (取数组成员数 (翻译的分本), 计次)
高级表格1.置数据 (1, 计次, #表格常量 .文本型, 翻译的分本 [计次])
计次循环尾 ()
如果真 (表索引 ＝ “Monster”)  ' 如果是  怪物表
翻译的分本 ＝ 分割文本 (“名字，测试表2，待翻译字段，待翻译字段，待翻译字段，待翻译字段，待翻译字段，待翻译字段”, “，”, )  ' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这
计次循环首 (取数组成员数 (翻译的分本), 计次)
高级表格1.置数据 (1, 计次, #表格常量 .文本型, 翻译的分本 [计次])
计次循环尾 ()
如果真 (表索引 ＝ “StdItems”)  ' 如果是  物品表
翻译的分本 ＝ 分割文本 (“序号，待翻译字段，待翻译字段，测试表3，待翻译字段，待翻译字段，待翻译字段，待翻译字段”, “，”, )  ' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这翻译' 在这
计次循环首 (取数组成员数 (翻译的分本), 计次)
高级表格1.置数据 (1, 计次, #表格常量 .文本型, 翻译的分本 [计次])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_主窗口_尺寸被改变			调整窗口

高级表格1.宽度 ＝ 主窗口.宽度 － 20
高级表格1.高度 ＝ 主窗口.高度 － 81

i支持库列表	支持库注释
spec	特殊功能支持库
eGrid	高级表格支持库

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

调用模块信息(虽然只调用了两次)

模块名称：精易模块
作者：精易论坛
版本：5.22

模块名称：黑月ADODB数据库操作类模块
作者：云外归鸟
版本：1.2

shen110

好东西。。。。。。。。。。。

92数据

不错不错

善有善报

xiegang 发表于 2024-4-24 15:43
https://pan.baidu.com/s/1hIVY-En971LNpP1jCQqwwA?pwd=1111  提取码：1111  需要先安装数据库 ...

学习了，先研究一下

xiegang

xiegang 发表于 2023-9-5 21:05
第一次发帖呀 ，我还不知道怎么发链接，先用个网盘将就一下吧 ， 也不知道违不违规链接：https://pan.baidu ...

我叫不紧张

xiegang

7961255 发表于 2023-9-5 12:29
在哪下载啊！

15楼

xiegang

百暁生 发表于 2023-9-5 14:11
见过皇帝的新衣，第一次看到源码的新衣

新手哦  ，抱歉 ， 源码在15楼

xiegang

善有善报 发表于 2024-4-18 16:18
你 另外 帖子在哪里？你发布的主题 没有？

看15楼  需要一个MDB文件才能运行

xiegang

善有善报 发表于 2024-4-18 16:18
你 另外 帖子在哪里？你发布的主题 没有？

https://pan.baidu.com/s/1hIVY-En971LNpP1jCQqwwA?pwd=1111  提取码：1111  需要先安装数据库

善有善报

xiegang 发表于 2024-4-17 19:12
在代码区有一个复制代码  或者去我的另外铁子

你 另外 帖子在哪里？你发布的主题 没有？

xiegang

善有善报 发表于 2024-2-21 08:29
没有看见源码啊

在代码区有一个复制代码  或者去我的另外铁子