社区
数据库(包含打印,安装,报表)
帖子详情
求工资条语句写法
lunweiliang
2003-03-26 02:42:53
比如有数据:
工号 姓名 金额1 金额2 金额3
1 aa 100 30 40
2 bb 200 50 60
3 cc 300 40 70
结果如下
工号 姓名 金额1 金额2 金额3
1 aa 100 30 40
工号 姓名 金额1 金额2 金额3
2 bb 200 50 60
工号 姓名 金额1 金额2 金额3
3 cc 300 40 70
把结果放在excel
...全文
80
8
打赏
收藏
求工资条语句写法
比如有数据: 工号 姓名 金额1 金额2 金额3 1 aa 100 30 40 2 bb 200 50 60 3 cc 300 40 70 结果如下 工号 姓名 金额1 金额2 金额3 1 aa 100 30 40 工号 姓名 金额1 金额2 金额3 2 bb 200 50 60 工号 姓名 金额1 金额2 金额3 3 cc 300 40 70 把结果放在excel
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
nik_Amis
2003-03-27
打赏
举报
回复
up
loveailon
2003-03-27
打赏
举报
回复
create table gz (工号 char, 姓名 char(10), 金额1 char(10) , 金额2 char (10), 金额3 char(10))
insert gz select '1', 'aa', '100', '30' , '40'
union select '2', 'bb', '200', '50, '60'
union select '3', 'cc' , '300', '40, '70'
select 工号, 姓名,金额1,金额2,金额3
from
(select '工号' 工号 ,' 姓名' 姓名, '金额1' 金额1 , '金额2' 金额2, '金额3' 金额3 ,工号 id
from gz
union all
select * ,工号 as id from gz
) a
group by id,工号, 姓名 ,金额1 ,金额2, 金额3
--------
1 aa 100 30 40
工号 姓名 金额1 金额2 金额3
2 bb 200 50 60
工号 姓名 金额1 金额2 金额3
3 cc 300 40 70
工号 姓名 金额1 金额2 金额3
lunweiliang
2003-03-26
打赏
举报
回复
楼上的等你的消息。
minajo21
2003-03-26
打赏
举报
回复
应该可以用一句SQL来完成的...
xsp
2003-03-26
打赏
举报
回复
同意qqqdong()的
lihonggen0
2003-03-26
打赏
举报
回复
写入到excel
利用VB设计打印复杂报表
数据库管理系统的开发人员经常感叹的一个问题就是:我们中国人的报表太复杂了!无规则、嵌套、斜线、交叉线等历来都是困挠开发人员的最大问题。设计一个数据库固然有一定的技巧,设计数据操作也固然需要一定的逻辑分析能力,但这些问题对一般的开发人员来说应该是不成为问题的。用户可是不管你采用了多么灵活的算法多么方便的操作,他们最感兴趣的是最后他们出来的报表如何漂亮,出报表的操作如何简单(最好是一个按钮解决所有的问题)。笔者在开发数据库管理系统方面也稍有些经验,从FoxPro、Delphi、PowerBuilder一直到现在用的VB,都遇到过设计打印报表的问题,这些软件在设计报表的过程中可谓各有千秋,我这里不一一细说。我在这里只向大家介绍一种我迄今为止最为满意的一种设计打印报表的方法:利用VB操作EXCEL来生成复杂的报表。
一. 用VB创建外部EXCEL对象
大多数大型 ActiveX-enabled 应用程序和其它 ActiveX 部件,在它们的对象层次中都提供了一个顶层外部可创建对象。该对象提供了对该层次中其它对象的访问,并且还提供对整个应用程序起作用的方法和属性。
例如,每个 Microsoft Office 应用程序提供一个顶层 Application 对象。下面语句显示了对Microsoft Excel的 Application 对象的引用:
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
---- 然后,可以用这些变量来访问在EXCEL应用程序中的从属对象、以及这些对象的属性和方法。例如:
Set xlApp = CreateObject("Excel.Application")
‘激活EXCEL应用程序
xlApp.Visible = False ‘隐藏EXCEL应用程序窗口
Set xlBook = xlApp.Workbooks.Open(strDestination)
‘打开工作簿,strDestination为一个EXCEL报表文件
Set xlSheet = xlBook.Worksheets(1)
‘设定工作表
---- 二. 用EXCEL 97设计报表的模版文件
---- EXCEL 97是一个非常优秀的创建报表的工具。它提供的单元格任意合并、拆分和绘图功能基本上能够满足设计所有复杂报表的需求。它对任意一个单元格的格式随意控制,更为随心所欲地设计报表提供了强大的支持。
---- 根据用户提供的报表,我们可以很快在EXCEL里生成模版文件。所谓生成模版文件只是为了满足用户多方面的需求而设计的。也是为了适合报表以后的更改而做的一点预备工作。例如用户需要打印几百张职工履历表,但其格式都是一致的,并且随着时间和实际情况的变化,表格格式有可能需要改变,我们设计一个模版文件显然可以“以不变应万变”了。
---- 生成工作表时我们应当记录下要填充内容的单元格编号和该单元格内要填充的数据字段。这样形成一个表格,在写程序时一目了然。如:
Cell(4,2) 职工姓名 Cell(6,6) 毕业学校
Cell(4,4) 职工性别 Cell(6,7) 所学专业
Cell(4,6) 职工民族 Cell(6,9) 工作时间
(表一)
---- 在程序里我们当然不要对模版文件进行操作了,我们只需要对模版文件的一个拷贝进行操作就行(这也是我们设计模版文件的一个目的和好处)。如下面的例子:
Dim strSource, strDestination As String
strSource = App.Path & "\Excels\RegisterFee.xls"
‘RegisterFee.xls就是一个模版文件
strDestination = App.Path & "\Excels\Temp.xls"
FileCopy strSource, strDestination
‘将模版文件拷贝到一个临时文件
---- 三. 生成工作表内容
---- 有了上述两步工作的铺垫,我们下面接着就只要根据(表一)的格式给各单元格赋值了。如:
datPrimaryRS.Recordset.MoveFirst
‘datPrimaryRS为Data控件
If IsNull(datPrimaryRS.Recordset!姓名) = False Then
xlSheet.Cells(4, 2) = datPrimaryRS.Recordset!姓名
End If
If IsNull(datPrimaryRS.Recordset!性别) = False Then
xlSheet.Cells(4, 4) = datPrimaryRS.Recordset!性别
End If
If IsNull(datPrimaryRS.Recordset!民族) = False Then
xlSheet.Cells(4, 6) = datPrimaryRS.Recordset!民族
End If
………………
四. 打印报表
生成了工作表后,就可以对EXCEL发出打印指令了。
注意在执行打印操作之前应该对EXCEL临时文件执行一次保存操作,以免在退出应用程序后EXCEL还提示用户是否保存已修改的文件,让用户觉得莫名其妙。如下语句:
xlBook.Save ‘保存文件
xlSheet.PrintOut ‘执行打印
xlApp.Quit ‘退出EXCEL
至此读者应该看到,我们设计的报表打印是通过EXCEL程序来后台实现的。用户根本看不到具体过程,他们只看到一张张漂亮的报表轻易地被打印出来了。
loveailon
2003-03-26
打赏
举报
回复
gz
qqqdong
2003-03-26
打赏
举报
回复
给你思路:
打开数据库
移到第一条记录
do while not eof()
写标题到excel
写记录到excel
移到下一条
enddo
关闭数据库
SQL中的条件
语句
注意,你必须仅使用一条 update
语句
,且。请你编写一个 SQL 查询来交换所有的。或者类似三元运算符的IF函数。使用 select
语句
。,反之亦然),仅使用。,且不产生中间临时表。使用CASE写条件
语句
。查询结果如下例...
基础sql
语句
大全(详细解析,注意事项)
1. 数据库及表操作 注意:如果需要本文的数据库...书写规范: SQL
语句
中的关键字在书写时应该大写;自定义的库名、表(别)名、列(别)名 应该小写。 SELECT * FROM stu WHERE id>2; -- 规范
写法
select * from stu whe
python写sql
语句
_python基础---sql
语句
数据库系统:数据库:文件夹数据表:文件表记录:一条数据sql
语句
规范sql是Structured Query Language(结构化查询语言)的缩写。SQL是专为数据库而建立的操作命令集,是一种功能齐全的数据库语言 在数据库系统中,SQL...
数据库MySql基础
语句
练习
** 数据库MySql基础
语句
练习 **------------------------------------------------------------------------------------------------------------...按部门
求
出该部门平均工资 分组查询 SELECT AVG(sal) FROM emp G...
MYSQL中LIMIT
语句
(限制
语句
)
设定: 页码:curPage 一页多少条数:pageSize 则他的公式为(伪代码):`[NOT] LIMIT (curPage-1)*pageSize,pageSize`
数据库(包含打印,安装,报表)
1,216
社区成员
55,954
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章