SQL server结构查看器

.计次循环首 (取数组成员数 (表名_数组), j)
sql ＝ “select C.name as [字段名],T.name as [字段类型],convert(bit,C.IsNullable) as [可否为空] FROM ” ＋ 库名 [o] ＋ “.dbo.syscolumns C INNER JOIN systypes T ON C.xusertype = T.xusertype left JOIN sys.extended_properties ETP ON ETP.major_id = c.id AND ETP.minor_id = C.colid AND ETP.name ='MS_Description' left join syscomments CM on C.cdefault=CM.id WHERE C.id = (select id from ” ＋ 库名 [o] ＋ “.dbo.sysobjects where name='” ＋ 表名_数组 [j] ＋ “')”
' 调试输出 (库名 [o], 表名_数组 [j])
.如果真 (_启动窗口.启动_记录集.打开 (sql, #SQL语句, ) ＝ 真) ' 加载表
.如果真 (启动_记录集.记录数量 ＞ 0)
.计次循环首 (启动_记录集.记录数量, l)
数据库_列 ＝ 数据库_列 ＋ 1
_启动窗口.启动_记录集.读文本 (“字段名”, 字段名)
_启动窗口.启动_记录集.读文本 (“字段类型”, 字段类型)
_启动窗口.启动_记录集.读文本 (“可否为空”, 可否为空)
重定义数组 (字段信息, 真, l) ' 保存到数组
.如果 (可否为空 ＝ “0”)
字段信息 [l] ＝ 字段名 ＋ “(” ＋ 字段类型 ＋ “,not null)”
.否则
字段信息 [l] ＝ 字段名 ＋ “(” ＋ 字段类型 ＋ “,null)”
.如果结束
状态条1.置文本 (3, “正在加载中，库[ ” ＋ 库名 [o] ＋ “] - 表[” ＋ 表名_数组 [j] ＋ “] - 列[” ＋ 字段名 ＋ “]”)
启动_记录集.到下一条 ()
.计次循环尾 ()
树型框1.加入项目 (o ＋ 数_局, 字段信息, 0, , , , )
数_局 ＝ 数_局 ＋ 启动_记录集.记录数量 ＋ 1
数 ＝ 数 ＋ 启动_记录集.记录数量
.如果真结束

.如果真结束

.计次循环尾 ()