社区
多媒体
帖子详情
谁能给我做一个vb+accsee的报表程序实例,我学学!(200分)
gohomesina
2003-05-17 03:45:48
要求:打印rst返回的记录集里的内容,可打所有的内容,也可打一条记录。麻烦在里面多加说明,因为我从来没用过报表!程序发过来后立即结帖!
...全文
113
7
打赏
收藏
谁能给我做一个vb+accsee的报表程序实例,我学学!(200分)
要求:打印rst返回的记录集里的内容,可打所有的内容,也可打一条记录。麻烦在里面多加说明,因为我从来没用过报表!程序发过来后立即结帖!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
tanyaliji
2003-05-19
打赏
举报
回复
up
mailto:liji525@163.com
thankyou!!!!!!!!!!!!
cnwd
2003-05-19
打赏
举报
回复
我给你发了一个,注意查收
flxa
2003-05-19
打赏
举报
回复
gz
lxcc
2003-05-19
打赏
举报
回复
http://www.21code.com/codebase/?pos=down&id=2028
数据结构与算法学习、智能算法
2003-05-18
打赏
举报
回复
你好:
试着找一些关于vb数据库地书看一下
gohomesina
2003-05-18
打赏
举报
回复
对不起,我没写邮箱。
cnlipeng@vip.sina.com
麻烦你给我发 过来好码?我是菜鸟,请多写点说明!
Daniel0318
2003-05-18
打赏
举报
回复
Option Explicit
'******************************************************
'建议A4纸打印
'******************************************************
Const PageLines = 25 '每页行数
Const xLeft = 15 '起始横坐标
Const yTop = 15 '起始横坐标
Const yHeader = 30
Dim Pages As Integer
Public Sub PrintList()
'主函数
Dim RecordCount As Integer
Dim i As Integer
Dim j As Integer
Dim l As Integer
'设置坐标
Printer.Scale (0, 0)-(160, 200)
'判断共几页
RecordCount = frmQuery.LVResult.ListItems.Count
If RecordCount Mod PageLines = 0 Then
Pages = RecordCount / PageLines
Else
Pages = Int(RecordCount / PageLines) + 1
End If
'打印每页
For i = 1 To Pages
'打印清单头
Call PrintHeader(i)
'计算每页打印行数
If i < Pages Then
l = PageLines
Else
l = RecordCount - (Pages - 1) * PageLines
End If
'打印该页内容
For j = 1 To l
Call PrintContent(j, (i - 1) * PageLines + j)
Next j
'若不是最后一页,换页
If i < Pages Then
Printer.NewPage
End If
Next i
'打印结束
Printer.EndDoc
End Sub
Private Sub PrintHeader(ByVal p As Integer)
'打印清单框架
'打印标题
Printer.FontSize = 20
Printer.FontBold = True
Printer.CurrentX = xLeft + 45
Printer.CurrentY = yTop
Printer.Print "信件查询单"
' 设置字体
Printer.FontSize = 10.5
Printer.FontBold = True
Printer.CurrentX = xLeft
Printer.CurrentY = 25
Printer.Print "查询时间:" & Format(Now, "yyyy年mm月dd日 hh时nn分")
'打印列头
Printer.CurrentX = xLeft
Printer.CurrentY = yHeader
Printer.Print "序号"
Printer.CurrentX = xLeft + 15
Printer.CurrentY = yHeader
Printer.Print "条码号"
Printer.CurrentX = xLeft + 40
Printer.CurrentY = yHeader
Printer.Print "来源"
Printer.CurrentX = xLeft + 65
Printer.CurrentY = yHeader
Printer.Print "目的"
Printer.CurrentX = xLeft + 90
Printer.CurrentY = yHeader
Printer.Print "登记时间"
Printer.CurrentX = xLeft + 55
Printer.CurrentY = 185
Printer.Print "第" & p & "页 共" & Pages & "页"
End Sub
Private Sub PrintContent(ByVal cl As Integer, ByVal fl As Integer)
'cl当前打印纸上行号
'fl当前列表中行号
Const LHeight = 5.8
'打印每条记录
Printer.CurrentX = xLeft
Printer.CurrentY = yHeader + cl * LHeight
Printer.Print rst.fields(1)
Printer.CurrentX = xLeft + 15
Printer.CurrentY = yHeader + cl * LHeight
Printer.Print rst.fields(2)
Printer.CurrentX = xLeft + 40
Printer.CurrentY = yHeader + cl * LHeight
Printer.Print rst.fields(3)
Printer.CurrentX = xLeft + 65
Printer.CurrentY = yHeader + cl * LHeight
Printer.Print rst.fields(4)
Printer.CurrentX = xLeft + 90
Printer.CurrentY = yHeader + cl * LHeight
Printer.Print rst.fields(5)
End Sub
一键快速配置固定IP地址
什么是固定IP配置工具? 一款运行于 Windows 的桌面
程序
, 提供图形化界面来查看本机网络信息, 并一键将网卡设置为固定IP地址。 解决什么问题? · 手动用 netsh 命令设置固定IP, 记忆成本高、易出错 · Windows 控制面板路径深, 操作繁琐 · 服务器/工控机/测试机需固定IP, 无快速工具 交付形态: 单个 SetFixedIP.exe 文件, 双击即用, 无需任何安装依赖。
Python OpenCV Navier-Stokes图像修复 破损掩码对照
Python OpenCV Navier-Stokes图像修复 破损掩码对照 用 INPAINT_NS 修复刮痕破损,输出破损/掩码/修复对照图与 inpaint_report.csv,可换本地图片。 功能: · Navier-Stokes 修复 · 破损/掩码/修复对照 · inpaint_report.csv · 刮痕演示掩码 · 可换本地图片 · 打包时预跑 output/preview 压缩包含可运行源码、依赖与说明,按 README 安装后即可复现。
C#源码图像操作计时器例子
C#源码图像操作计时器例子
Protocol Buffers - Google 的数据交换格式
Protocol Buffers(简称 protobuf)是 Google 开发的一种语言无关、平台无关、可扩展的结构化数据序列化机制。您可以在 protobuf 文档 中了解更多相关信息。
ai-job-search(Python)
「ai-job-search(Python)」是开发框架(Python)。项目简介:The job search that runs on your machine. AI job application framework built on Claude Code: evaluate postings, tailor CVs, write cover letters, prep interviews. Fork it and own it.源码完整,下载解压即可查看使用,适合学习参考、课程设计与二次开发。
多媒体
807
社区成员
8,274
社区内容
发帖
与我相关
我的任务
多媒体
VB 多媒体
复制链接
扫一扫
分享
社区描述
VB 多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章