窗口程序集名 | 保 留 | 保 留 | 备 注 |
窗口程序集_启动窗口 | | | |
|
连接oracle数据库 | 逻辑型 | |
|
服务器地址 | 文本型 | | | |
数据库名称 | 文本型 | | | | 用户名 | 文本型 | | | | 密码 | 文本型 | | | | 数据库组件名称 | 数据库连接 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
连接代码 | 文本型 | | |
连接结果 | 逻辑型 | | |
连接代码 =
“Driver={Microsoft ODBC for Oracle};Server=” + 服务器地址 +
“/” + 数据库名称 +
“;Uid=” + 用户名 +
“;Pwd=” + 密码 +
“;”连接结果 = 数据库组件名称.
连接 (连接代码
)返回 (连接结果
)变量名 | 类 型 | 静态 | 数组 | 备 注 |
连接状态 | 逻辑型 | | |
记录_到数据库 | 逻辑型 | | |
记录_EMP表_打开 | 逻辑型 | | |
外循环次数 | 整数型 | | |
临时变量 | 文本型 | | |
内循环次数 | 整数型 | | |
表项索引 | 整数型 | | |
表项列数 | 整数型 | | |
连接状态 =
连接oracle数据库 (“127.0.0.1”,
“orcl”,
“scott”,
“tiger”, 数据库连接1
)记录_到数据库 = 记录集1.
置连接 (数据库连接1
)记录_EMP表_打开 = 记录集1.
打开 (“emp”,
#数据表名, )表项列数 = 超级列表框1.
取列数 ()超级列表框1.
全部删除 ()记录集1.
到首记录 ()
计次循环首 (记录集1.记录数量, 外循环次数
)
表项索引 = 超级列表框1.
插入表项 (, , , , ,
)
计次循环首 (表项列数, 内循环次数
)

记录集1.
读文本 (内循环次数 - 1, 临时变量
)

如果真 (内循环次数 = 1
或 内循环次数 = 4
或 内循环次数 = 6
或 内循环次数 = 7
或 内循环次数 = 8
)


判断 (临时变量 =
“”)



超级列表框1.
置标题 (外循环次数 - 1, 内循环次数 - 1, 临时变量
)



超级列表框1.
置标题 (外循环次数 - 1, 内循环次数 - 1,
到文本 (到整数 (临时变量
))
)

到循环尾 ()
超级列表框1.置标题 (外循环次数 - 1, 内循环次数 - 1, 临时变量)
计次循环尾 ()
记录集1.
到下一条 ()
计次循环尾 ()