SQL查询语句到高级表格行操作模块源码

.支持库 eGrid

.子程序 _按钮到高级表格_被单击
.局部变量 sql语句, 文本型

高级表格1.清空数据 ()
高级表格1.行数 ＝ 1
高级表格1.列数 ＝ 9
高级表格1.置列宽 (0, 68) ' __流水帐日期lsrq
高级表格1.置列宽 (1, 70) ' __单位名称dwmc
高级表格1.置列宽 (2, 30) ' __行次hc
高级表格1.置列宽 (3, 180) ' __项目名称xmmc
高级表格1.置列宽 (4, 100) ' __发生额fse
高级表格1.置列宽 (5, 120) ' __备注摘要bzzy
高级表格1.置列宽 (6, 80) ' __记账员jzy
高级表格1.置列宽 (7, 120) ' __记账时间jzrq
高级表格1.置列宽 (8, 50) ' __序号列
高级表格行操作 (高级表格1, “置数据”, 0, 0, “流水帐日期,单位名称,行次,项目名称,发生额,备注摘要,记账员,记账时间,序号”)
sql语句 ＝ 编辑框SQL语句.内容
SQL查询语句到高级表格 (_启动窗口.SQLSERVER, sql语句, 高级表格1, “”, 8)
' ##############################################################################
.子程序 _按钮到超级列表框_被单击
.局部变量 表头列各列文本串, 文本型
.局部变量 sql语句, 文本型

表头列各列文本串 ＝ “流水帐日期,单位名称,行次,项目名称,发生额,备注摘要,记账员,记账时间,序号”
' 超级列表框设置表头 (超级列表框2, 表头列各列文本串, “”, 0) ' __默认每列列宽都是60
' 超级列表框设置表头 (超级列表框2, 表头列各列文本串, “”, ) ' __默认每列列宽都是60
' 超级列表框设置表头 (超级列表框2, 表头列各列文本串, , ) ' __默认每列列宽都是60
' 超级列表框设置表头 (超级列表框2, 表头列各列文本串, , 60) ' __指定每列列宽都是60
' 超级列表框设置表头 (超级列表框2, 表头列各列文本串, “60,60,60,60”, ) ' __指定每列列宽都是60
超级列表框设置表头 (超级列表框1, 表头列各列文本串, “68,70,30,180,100,120,80,120,50”, ) ' __指定各列列宽各不相同
sql语句 ＝ 编辑框SQL语句.内容
SQL查询语句到超级列表框 (_启动窗口.SQLSERVER, sql语句, 超级列表框1, “6”, 8)
' ##############################################################################