SQL server结构查看器

w793586737

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
T	整数型
a	整数型
环形进度条	大恩_环形进度条
等待	逻辑型
P	整数型

子程序名	返回值类型	公开	备 注
_登录_被单击

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

如果真 (编辑框1.内容 ＝ “”)
信息框 (“请输入SQL的IP地址！”, #警告图标, , )
编辑框1.获取焦点 ()
返回 ()
如果真 (编辑框2.内容 ＝ “”)
信息框 (“请输入SQL管理员账号！”, #警告图标, , )
编辑框2.获取焦点 ()
返回 ()
如果真 (编辑框3.内容 ＝ “”)
信息框 (“请输入SQL管理员密码！”, #警告图标, , )
编辑框3.获取焦点 ()
返回 ()
登录.禁止 ＝ 真
状态条1.置文本 (3, “正在连接数据库，请等待......”)
登录.标题 ＝ “ing”
如果 (启动_数据库连接.连接SQLServer (编辑框1.内容, “master”, 编辑框2.内容, 编辑框3.内容) ＝ 真)  ' master 为  默认系统数据库
登录.标题 ＝ “已 连 接”
状态条1.置文本 (1, “已 连 接”)
状态条1.置图片 (1, 1)
树型框1.清空 ()
选择夹1.现行子夹 ＝ 1
启动线程 (&获取数据库名, , )
工具条1.去除状态 (2, 8)
工具条1.去除状态 (4, 8)
工具条1.去除状态 (6, 8)
工具条1.去除状态 (8, 8)
状态 ＝ “连接成功”
登录.标题 ＝ “未 连 接”
状态条1.置图片 (1, 0)
状态条1.置文本 (1, “未 连 接”)
状态 ＝ “连接失败，请检查地址,账号,密码是否正确！”
信息框 (“IP地址：” ＋ 编辑框1.内容 ＋ #换行符 ＋ “账号：” ＋ 编辑框2.内容 ＋ #换行符 ＋ “密码：” ＋ 编辑框3.内容 ＋ #换行符 ＋ “无法连接数据库，请检查地址,账号,密码是否正确！”, #警告图标, , )
状态条1.置文本 (3, 状态)
登录.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

加载皮肤 (3)
环形进度条.初始化 (, )
编辑框1.获取焦点 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

如果真 (启动_数据库连接.是否已连接 ＝ 真)
启动_数据库连接.关闭 ()
如果真 (_启动窗口.启动_记录集.是否已打开 ＝ 真)
_启动窗口.启动_记录集.关闭 ()
环形进度条.销毁 ()

子程序名	返回值类型	公开	备 注
获取数据库名

变量名	类 型	静态	数组	备 注
sql	文本型
名称	文本型
Nmae	文本型
i	整数型
o	整数型
k	整数型
l	整数型
表名_数组	文本型		0
表名	文本型
字段信息	文本型		0
库名	文本型		0
数	整数型
数_局	整数型
可否为空	文本型
字段类型	文本型
字段名	文本型
j	整数型
数据库_库	整数型
数据库_表	整数型
数据库_列	整数型

等待 ＝ 真
工具条1.加入状态 (2, 4)
树型框1.清空 ()
sql ＝ “SELECT Name FROM Master..SysDatabases ORDER BY Name”  ' 加载库
如果真 (_启动窗口.启动_记录集.是否已打开 ＝ 假)
_启动窗口.启动_记录集.置连接 (_启动窗口.启动_数据库连接)
如果 (_启动窗口.启动_记录集.打开 (sql, #SQL语句, ) ＝ 真)
如果 (_启动窗口.启动_记录集.记录数量 ＞ 0)
计次循环首 (启动_记录集.记录数量, i)
如果真 (_启动窗口.启动_记录集.读文本 (“Name”, 名称))
重定义数组 (库名, 真, i)  ' 保存到数组
库名 [i] ＝ 名称
启动_记录集.到下一条 ()
状态条1.置文本 (3, 编辑框1.内容 ＋ “ 正在连接库文件”)
计次循环尾 ()
树型框1.加入项目 (-1, 库名, 1, , , 真, )
数据库_库 ＝ 取数组成员数 (库名)
计次循环首 (数据库_库, o)  ' 加载表
sql ＝ “SELECT NAME FROM ” ＋ 库名 [o] ＋ “.dbo.sysobjects WHERE TYPE='U'”
如果真 (_启动窗口.启动_记录集.打开 (sql, #SQL语句, ) ＝ 真)
数据库_表 ＝ 数据库_表 ＋ 启动_记录集.记录数量
如果真 (启动_记录集.记录数量 ＞ 0)
计次循环首 (启动_记录集.记录数量, k)
如果真 (_启动窗口.启动_记录集.读文本 (“NAME”, 表名))
重定义数组 (表名_数组, 真, k)  ' 保存到数组
表名_数组 [k] ＝ 表名
启动_记录集.到下一条 ()

计次循环尾 ()
树型框1.加入项目 (o － 1 ＋ 数, 表名_数组, 2, , , , )
数 ＝ 数 ＋ 取数组成员数 (表名_数组)
计次循环首 (取数组成员数 (表名_数组), 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
数 ＝ 数 ＋ 启动_记录集.记录数量


计次循环尾 ()


计次循环尾 ()
状态条1.置文本 (3, “加载完毕! SQL数据库结构（库：” ＋ 到文本 (数据库_库) ＋ “ 表：” ＋ 到文本 (数据库_表) ＋ “  列：” ＋ 到文本 (数据库_列) ＋ “）”)
信息框 (“SQL未能找到数据库”, #警告图标, , )

信息框 (“打开失败，请稍后再试！”, #警告图标, , )
如果真 (_启动窗口.启动_记录集.是否已打开 ＝ 真)
_启动窗口.启动_记录集.关闭 ()
工具条1.去除状态 (2, 4)
等待 ＝ 假

子程序名	返回值类型	公开	备 注
_树型框1_右键单击项目

如果真 (树型框1.现行选中项 ≠ -1)
如果真 (树型框1.取缩进层次 (树型框1.现行选中项) ＝ 2)
弹出菜单 (操作, 取鼠标水平位置 (), 取鼠标垂直位置 ())

子程序名	返回值类型	公开	备 注
_查看前100条_被选择

启动线程 (&查看前100条, , )

子程序名	返回值类型	公开	备 注
查看前100条

变量名	类 型	静态	数组	备 注
表名	文本型
库名	文本型
sql	文本型
o	整数型
输出	文本型
局_索引	整数型
局_项目索引	整数型
局_项目计次	整数型
局_计数	整数型
i	整数型
选中	整数型
数量	整数型
列文本	文本型
k	整数型

等待 ＝ 真
选择夹2.现行子夹 ＝ 0
库名 ＝ 树型框1.取项目文本 (树型框1.取父项目 (树型框1.现行选中项))
表名 ＝ 树型框1.取项目文本 (树型框1.现行选中项)
sql ＝ “ SELECT TOP 100  * FROM ” ＋ 库名 ＋ “.dbo.” ＋ 表名
如果真 (_启动窗口.启动_记录集.是否已打开 ＝ 假)
_启动窗口.启动_记录集.置连接 (_启动窗口.启动_数据库连接)
如果 (_启动窗口.启动_记录集.打开 (sql, #SQL语句, ) ＝ 真)
如果 (_启动窗口.启动_记录集.记录数量 ＞ 0)
列表框.全部删除 ()  ' 清空表项
计次循环首 (列表框.取列数 () ＋ 1, k)  ' 清空标题
列表框.删除列 (0)
计次循环尾 ()
选中 ＝ 树型框1.现行选中项
局_项目索引 ＝ 树型框1.现行选中项
局_项目计次 ＝ 局_项目索引 ＋ 1
局_计数 ＝ 0
如果真 (树型框1.是否有子项目 (局_项目索引))
判断循环首 (树型框1.取父项目 (局_项目计次) ＝ 局_项目索引)
局_计数 ＝ 局_计数 ＋ 1
局_项目计次 ＝ 局_项目计次 ＋ 1
判断循环尾 ()
列表框.插入列 (0, “序号”, 50, 1, , )
判断循环首 (启动_记录集.取字段名 (i) ≠ “”)
列表框.插入列 (i ＋ 1, 启动_记录集.取字段名 (i), 取文本长度 (启动_记录集.取字段名 (i)) × 15, 1, , )
i ＝ i ＋ 1
判断循环尾 ()
计次循环首 (启动_记录集.记录数量, 数量)
局_索引 ＝ 列表框.插入表项 (, , , , , )
列表框.置标题 (局_索引, 0, 到文本 (数量))
计次循环首 (局_计数, o)
启动_记录集.读文本 (o － 1, 输出)
列表框.置标题 (局_索引, o, 输出)
计次循环尾 ()
启动_记录集.到下一条 ()
计次循环尾 ()

信息框 (“[” ＋ 表名 ＋ “] 此表为空，无记录！”, #警告图标, , )

信息框 (“数据库连接失败，请重新连接！”, #警告图标, , )
选择夹1.现行子夹 ＝ 0
等待 ＝ 假

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

如果 (等待 ＝ 真)
外形框1.可视 ＝ 真
如果 (P ＝ 100)
P ＝ 0
P

i支持库列表	支持库注释
iext	扩展界面支持库一
eDB	数据库操作支持库
EThread	多线程支持库
iext2	扩展界面支持库二
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 eDB<br /> .支持库 EThread<br /> .支持库 iext2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 T, 整数型<br /> .程序集变量 a, 整数型<br /> .程序集变量 环形进度条, 大恩_环形进度条<br /> .程序集变量 等待, 逻辑型<br /> .程序集变量 P, 整数型<br /> <br /> .子程序 _登录_被单击<br /> .局部变量 状态, 文本型<br /> <br /> .如果真 (编辑框1.内容 ＝ “”)<br />     信息框 (“请输入SQL的IP地址！”, #警告图标, , )<br />     编辑框1.获取焦点 ()<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框2.内容 ＝ “”)<br />     信息框 (“请输入SQL管理员账号！”, #警告图标, , )<br />     编辑框2.获取焦点 ()<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框3.内容 ＝ “”)<br />     信息框 (“请输入SQL管理员密码！”, #警告图标, , )<br />     编辑框3.获取焦点 ()<br />     返回 ()<br /> .如果真结束<br /> 登录.禁止 ＝ 真<br /> 状态条1.置文本 (3, “正在连接数据库，请等待......”)<br /> 登录.标题 ＝ “ing”<br /> .如果 (启动_数据库连接.连接SQLServer (编辑框1.内容, “master”, 编辑框2.内容, 编辑框3.内容) ＝ 真)  ' master 为  默认系统数据库<br />     登录.标题 ＝ “已 连 接”<br />     状态条1.置文本 (1, “已 连 接”)<br />     状态条1.置图片 (1, 1)<br />     树型框1.清空 ()<br />     选择夹1.现行子夹 ＝ 1<br />     启动线程 (&获取数据库名, , )<br />     工具条1.去除状态 (2, 8)<br />     工具条1.去除状态 (4, 8)<br />     工具条1.去除状态 (6, 8)<br />     工具条1.去除状态 (8, 8)<br />     状态 ＝ “连接成功”<br /> .否则<br />     登录.标题 ＝ “未 连 接”<br />     状态条1.置图片 (1, 0)<br />     状态条1.置文本 (1, “未 连 接”)<br />     状态 ＝ “连接失败，请检查地址,账号,密码是否正确！”<br />     信息框 (“IP地址：” ＋ 编辑框1.内容 ＋ #换行符 ＋ “账号：” ＋ 编辑框2.内容 ＋ #换行符 ＋ “密码：” ＋ 编辑框3.内容 ＋ #换行符 ＋ “无法连接数据库，请检查地址,账号,密码是否正确！”, #警告图标, , )<br /> <br /> .如果结束<br /> 状态条1.置文本 (3, 状态)<br /> 登录.禁止 ＝ 假<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 加载皮肤 (3)<br /> 环形进度条.初始化 (, )<br /> 编辑框1.获取焦点 ()<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> <br /> .如果真 (启动_数据库连接.是否已连接 ＝ 真)<br />     启动_数据库连接.关闭 ()<br /> .如果真结束<br /> .如果真 (_启动窗口.启动_记录集.是否已打开 ＝ 真)<br />     _启动窗口.启动_记录集.关闭 ()<br /> .如果真结束<br /> 环形进度条.销毁 ()<br /> <br /> .子程序 获取数据库名<br /> .局部变量 sql, 文本型<br /> .局部变量 名称, 文本型<br /> .局部变量 Nmae, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 o, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 l, 整数型<br /> .局部变量 表名_数组, 文本型, , "0"<br /> .局部变量 表名, 文本型<br /> .局部变量 字段信息, 文本型, , "0"<br /> .局部变量 库名, 文本型, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 数_局, 整数型<br /> .局部变量 可否为空, 文本型<br /> .局部变量 字段类型, 文本型<br /> .局部变量 字段名, 文本型<br /> .局部变量 j, 整数型<br /> .局部变量 数据库_库, 整数型<br /> .局部变量 数据库_表, 整数型<br /> .局部变量 数据库_列, 整数型<br /> <br /> 等待 ＝ 真<br /> 工具条1.加入状态 (2, 4)<br /> 树型框1.清空 ()<br /> sql ＝ “SELECT Name FROM Master..SysDatabases ORDER BY Name”  ' 加载库<br /> .如果真 (_启动窗口.启动_记录集.是否已打开 ＝ 假)<br />     _启动窗口.启动_记录集.置连接 (_启动窗口.启动_数据库连接)<br /> .如果真结束<br /> .如果 (_启动窗口.启动_记录集.打开 (sql, #SQL语句, ) ＝ 真)<br />     .如果 (_启动窗口.启动_记录集.记录数量 ＞ 0)<br />         .计次循环首 (启动_记录集.记录数量, i)<br />             .如果真 (_启动窗口.启动_记录集.读文本 (“Name”, 名称))<br />                 重定义数组 (库名, 真, i)  ' 保存到数组<br />                 库名 <i> ＝ 名称<br />                 启动_记录集.到下一条 ()<br />             .如果真结束<br />             状态条1.置文本 (3, 编辑框1.内容 ＋ “ 正在连接库文件”)<br />         .计次循环尾 ()<br />         树型框1.加入项目 (-1, 库名, 1, , , 真, )<br />         数据库_库 ＝ 取数组成员数 (库名)<br />         .计次循环首 (数据库_库, o)  ' 加载表<br />             sql ＝ “SELECT NAME FROM ” ＋ 库名 [o] ＋ “.dbo.sysobjects WHERE TYPE='U'”<br />             .如果真 (_启动窗口.启动_记录集.打开 (sql, #SQL语句, ) ＝ 真)<br />                 数据库_表 ＝ 数据库_表 ＋ 启动_记录集.记录数量<br />                 .如果真 (启动_记录集.记录数量 ＞ 0)<br />                     .计次循环首 (启动_记录集.记录数量, k)<br />                         .如果真 (_启动窗口.启动_记录集.读文本 (“NAME”, 表名))<br />                             重定义数组 (表名_数组, 真, k)  ' 保存到数组<br />                             表名_数组 [k] ＝ 表名<br />                             启动_记录集.到下一条 ()<br />                         .如果真结束<br /> <br />                     .计次循环尾 ()<br />                     树型框1.加入项目 (o － 1 ＋ 数, 表名_数组, 2, , , , )<br />                     数 ＝ 数 ＋ 取数组成员数 (表名_数组)<br />                     .计次循环首 (取数组成员数 (表名_数组), j)<br />                         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] ＋ “')”<br />                         ' 调试输出 (库名 [o], 表名_数组 [j])<br />                         .如果真 (_启动窗口.启动_记录集.打开 (sql, #SQL语句, ) ＝ 真)  ' 加载表<br />                             .如果真 (启动_记录集.记录数量 ＞ 0)<br />                                 .计次循环首 (启动_记录集.记录数量, l)<br />                                     数据库_列 ＝ 数据库_列 ＋ 1<br />                                     _启动窗口.启动_记录集.读文本 (“字段名”, 字段名)<br />                                     _启动窗口.启动_记录集.读文本 (“字段类型”, 字段类型)<br />                                     _启动窗口.启动_记录集.读文本 (“可否为空”, 可否为空)<br />                                     重定义数组 (字段信息, 真, l)  ' 保存到数组<br />                                     .如果 (可否为空 ＝ “0”)<br />                                         字段信息 [l] ＝ 字段名 ＋ “(” ＋ 字段类型 ＋ “,not null)”<br />                                     .否则<br />                                         字段信息 [l] ＝ 字段名 ＋ “(” ＋ 字段类型 ＋ “,null)”<br />                                     .如果结束<br />                                     状态条1.置文本 (3, “正在加载中，库[ ” ＋ 库名 [o] ＋ “] - 表[” ＋ 表名_数组 [j] ＋ “] - 列[” ＋ 字段名 ＋ “]”)<br />                                     启动_记录集.到下一条 ()<br />                                 .计次循环尾 ()<br />                                 树型框1.加入项目 (o ＋ 数_局, 字段信息, 0, , , , )<br />                                 数_局 ＝ 数_局 ＋ 启动_记录集.记录数量 ＋ 1<br />                                 数 ＝ 数 ＋ 启动_记录集.记录数量<br />                             .如果真结束<br /> <br />                         .如果真结束<br /> <br />                     .计次循环尾 ()<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         状态条1.置文本 (3, “加载完毕! SQL数据库结构（库：” ＋ 到文本 (数据库_库) ＋ “ 表：” ＋ 到文本 (数据库_表) ＋ “  列：” ＋ 到文本 (数据库_列) ＋ “）”)<br />     .否则<br />         信息框 (“SQL未能找到数据库”, #警告图标, , )<br />     .如果结束<br /> <br /> .否则<br />     信息框 (“打开失败，请稍后再试！”, #警告图标, , )<br /> .如果结束<br /> .如果真 (_启动窗口.启动_记录集.是否已打开 ＝ 真)<br />     _启动窗口.启动_记录集.关闭 ()<br /> .如果真结束<br /> 工具条1.去除状态 (2, 4)<br /> 等待 ＝ 假<br /> <br /> <br /> <br /> .子程序 _树型框1_右键单击项目<br /> <br /> .如果真 (树型框1.现行选中项 ≠ -1)<br />     .如果真 (树型框1.取缩进层次 (树型框1.现行选中项) ＝ 2)<br />         弹出菜单 (操作, 取鼠标水平位置 (), 取鼠标垂直位置 ())<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _查看前100条_被选择<br /> <br /> 启动线程 (&查看前100条, , )<br /> <br /> <br /> .子程序 查看前100条<br /> .局部变量 表名, 文本型<br /> .局部变量 库名, 文本型<br /> .局部变量 sql, 文本型<br /> .局部变量 o, 整数型<br /> .局部变量 输出, 文本型<br /> .局部变量 局_索引, 整数型<br /> .局部变量 局_项目索引, 整数型<br /> .局部变量 局_项目计次, 整数型<br /> .局部变量 局_计数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 选中, 整数型<br /> .局部变量 数量, 整数型<br /> .局部变量 列文本, 文本型<br /> .局部变量 k, 整数型<br /> <br /> 等待 ＝ 真<br /> 选择夹2.现行子夹 ＝ 0<br /> 库名 ＝ 树型框1.取项目文本 (树型框1.取父项目 (树型框1.现行选中项))<br /> 表名 ＝ 树型框1.取项目文本 (树型框1.现行选中项)<br /> sql ＝ “ SELECT TOP 100  * FROM ” ＋ 库名 ＋ “.dbo.” ＋ 表名<br /> .如果真 (_启动窗口.启动_记录集.是否已打开 ＝ 假)<br />     _启动窗口.启动_记录集.置连接 (_启动窗口.启动_数据库连接)<br /> .如果真结束<br /> .如果 (_启动窗口.启动_记录集.打开 (sql, #SQL语句, ) ＝ 真)<br />     .如果 (_启动窗口.启动_记录集.记录数量 ＞ 0)<br />         列表框.全部删除 ()  ' 清空表项<br />         .计次循环首 (列表框.取列数 () ＋ 1, k)  ' 清空标题<br />             列表框.删除列 (0)<br />         .计次循环尾 ()<br />         选中 ＝ 树型框1.现行选中项<br />         局_项目索引 ＝ 树型框1.现行选中项<br />         局_项目计次 ＝ 局_项目索引 ＋ 1<br />         局_计数 ＝ 0<br />         .如果真 (树型框1.是否有子项目 (局_项目索引))<br />             .判断循环首 (树型框1.取父项目 (局_项目计次) ＝ 局_项目索引)<br />                 局_计数 ＝ 局_计数 ＋ 1<br />                 局_项目计次 ＝ 局_项目计次 ＋ 1<br />             .判断循环尾 ()<br />             列表框.插入列 (0, “序号”, 50, 1, , )<br />             .判断循环首 (启动_记录集.取字段名 (i) ≠ “”)<br />                 列表框.插入列 (i ＋ 1, 启动_记录集.取字段名 (i), 取文本长度 (启动_记录集.取字段名 (i)) × 15, 1, , )<br />                 i ＝ i ＋ 1<br />             .判断循环尾 ()<br />             .计次循环首 (启动_记录集.记录数量, 数量)<br />                 局_索引 ＝ 列表框.插入表项 (, , , , , )<br />                 列表框.置标题 (局_索引, 0, 到文本 (数量))<br />                 .计次循环首 (局_计数, o)<br />                     启动_记录集.读文本 (o － 1, 输出)<br />                     列表框.置标题 (局_索引, o, 输出)<br />                 .计次循环尾 ()<br />                 启动_记录集.到下一条 ()<br />             .计次循环尾 ()<br />         .如果真结束<br /> <br />     .否则<br />         信息框 (“[” ＋ 表名 ＋ “] 此表为空，无记录！”, #警告图标, , )<br /> <br />     .如果结束<br /> <br /> .否则<br />     信息框 (“数据库连接失败，请重新连接！”, #警告图标, , )<br />     选择夹1.现行子夹 ＝ 0<br /> .如果结束<br /> 等待 ＝ 假<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> .如果 (等待 ＝ 真)<br />     外形框1.可视 ＝ 真<br />     .如果 (P ＝ 100)<br />         P ＝ 0<br />     .否则<br />         P

kaizhiye

学习一下，谢谢、

SMTHU

支持开源~！感谢分享

SMTHU

支持开源~！感谢分享

SMTHU

66666666666666666666666666

SMTHU

6666666666666666666666

luoye2016

不带模块，下载了有什么用

Mediium

支持一下楼主

qaz5080

感谢分享，很给力！~

红色恋曲

支持一下楼主