.版本 2
.支持库 eDB
.支持库 iext
载入 (登陆窗口, _启动窗口, 假)
.判断开始 (服务器名称 ≠ “” 且 管理员名称 ≠ “” 且 管理员密码 ≠ “”)
.如果 (数据库连接1.连接SQLServer (服务器名称, “”, 管理员名称, 管理员密码))
.如果 (数据库连接1.连接SQLServer (服务器名称, “”, 管理员名称, 管理员密码) = 真)
记录集1.置连接 (数据库连接1)
.如果 (记录集1.打开 (“select [name] from [sysdatabases]
order by [name]”, #SQL语句) = 真)
.如果 (记录集1.记录数量 > 1)
重定义数组 (
数据库索引, 假, 记录集1.记录数量)
.计次循环首 (记录集1.记录数量, 次数)
记录集1.读文本 (“name”, 数据库名称)
记录集1.到下一条 ()
数据库连接2.连接SQLServer (服务器名称, 数据库名称, 管理员名称, 管理员密码)
记录集2.置连接 (数据库连接2)
记录集2.打开 (“select t.[name] as tablename, s.[name] as [schema] from sys.tables as t,sys.schemas as s where t.schema_id = s.schema_id ”, #SQL语句)
位置1 = 树型框1.加入项目 (, 数据库名称, , , , , )
数据库索引 [次数] = 数据库名称 + 到文本 (位置1)
.计次循环首 (记录集2.记录数量, 次数2)
记录集2.读文本 (“tablename”, 表名称)
记录集2.读文本 (“schema”, 表架构)
记录集2.到下一条 ()
位置2 = 树型框1.加入项目 (位置1, 表名称 + “.” + 表架构, , , 0, , )
加入成员 (表索引, 到文本 (次数) + “|” + 表名称 + “.” + 表架构 + “|” + 到文本 (位置2))
.计次循环尾 ()
.计次循环尾 ()
数据库连接2.关闭 ()
.否则
.如果结束
.否则
.如果结束
.否则
.如果结束
.否则
.如果结束
.默认