社区
多媒体
帖子详情
谁能给我做一个vb+accsee的报表程序实例,我学学!(200分)
gohomesina
2003-05-17 03:45:48
要求:打印rst返回的记录集里的内容,可打所有的内容,也可打一条记录。麻烦在里面多加说明,因为我从来没用过报表!程序发过来后立即结帖!
...全文
111
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
Shared-Insight-Citation-Deduplicator-Human-Review-Queue-v1.0-原创源码与文档.zip
原创开发工具源码合集,包含可直接运行的完整源码、自动化测试、离线示例、HTML/JSON/SVG 报告、运行截图、README、使用说明、功能清单、MIT License 与原创声明。适合前端、Python、AI 工具开发与工程实践学习,解压后按 README 即可运行。
GEO
分
站系统源码部署 geo站群源码部署 AI搜索geo优化系统源码交付
GEO源码部署 ai建站 数字人 b2b 都有 卖的是工具源码 卖的是工具源码 专为本地服务 GEO、城市关键词覆盖、多地区业务展示、收录推送等完整功能,大幅提升运营效率。 常见问题: Q:我是GEO服务商 可以招终端代理吗? A:可以的,不限制你
做
多少产品 和行业 关键词 Q:购买后源码包安装吗? A:包部署,包跟新,包售后! Q:可以先看演示吗? A:可咨询获取后台演示体验,了解系统实际操作与功能效果。
FFmpeg 最新版 Windows x64 完整构建 官方原版
FFmpeg 最新版 Windows x64 完整构建,官方原版,含 ffmpeg/ffprobe/ffplay 全套工具。解压后将 bin 目录加入 PATH 即可全局使用。蓝奏云下载链接在加密包内,附完整使用说明。
XGBoost光伏阵列故障诊断+XGBoost研究(Python代码实现)
内容概要:本文系统研究了基于XGBoost的光伏阵列多类型复合故障诊断方法,深入探讨了如何利用XGBoost这一高性能集成学习算法实现对光伏系统中短路、开路、阴影遮挡等多种典型故障的高精度识别与
分
类。文章详细阐述了XGBoost模型的理论基础及其在故障诊断中的独特优势,包括优异的非线性拟合能力、对缺失数据的鲁棒性、高效的训练速度以及出色的泛化性能。研究通过采集光伏阵列的实际运行数据(如电压、电流、温度等关键特征参数),构建高质量的训练数据集,并设计合理的特征工程流程,进而建立基于XGBoost的故障诊断模型。实验结果表明,该模型在准确率、召回率和F1-score等核心评价指标上均显著优于传统的SVM、决策树等机器学习方法,展现出卓越的诊断效能。此外,文章配套提供了完整的Python代码实现,涵盖数据预处理、模型训练、参数调优与性能评估全过程,极大地方便了读者复现研究成果并将其应用于实际的光伏电站智能运维系统中。; 适合人群:具备一定Python编程能力和机器学习基础知识,从事新能源发电、电力系统监控、智能运维或工业故障诊断等相关领域的科研人员、工程师和技术开发者,特别适合致力于提升光伏发电系统自动化、智能化管理水平的专业人士。; 使用场景及目标:① 实现光伏电站的实时故障监测与早期预警,提升运维效率并降低发电损失;② 构建智能诊断模块集成于光伏监控平台,实现故障的自动化识别与
分
类;③ 为相关科研项目提供可复现的算法范例与代码基础,推动先进机器学习技术在新能源领域的应用研究; 阅读建议:建议读者结合所提供的完整Python代码,动手实践数据清洗、特征提取、模型训练与交叉验证的全流程,深入理解XGBoost算法的关键参数(如学习率、树的深度、正则化项)对模型性能的影响,并尝试通过网格搜索或贝叶斯优化等方法进行超参数调优,以适应不同规模和环境下的光伏系统诊断需求。
分
布式光伏储能系统的优化配置方法(Matlab代码实现)
内容概要:本文提出了一种针对
分
布式光伏储能系统的优化配置方法,并基于Matlab实现相关代码仿真。研究聚焦于多渗透率电动汽车接入背景下配电网承载能力的评估问题,构建了
一个
涵盖一次设备安全、负荷平稳性、电能质量和系统效率等多维度的综合评价指标体系。通过融合熵权法与模糊综合评价方法,建立了双层评
分
模型,实现了对不同场景下配电网承载能力的客观量化评估。文中设计了多场景算例进行仿真
分
析,系统探讨了电动汽车不同渗透率对配电网各项性能指标的影响规律,并开展了指标灵敏度
分
析,充
分
验证了所提方法在复杂工况下的有效性与实用价值。; 适合人群:具备电力系统基础知识,熟悉Matlab编程,从事新能源并网、智能电网规划与优化等相关领域的研究人员及工程技术人员,尤其适合研究生及以上学历或具有1年以上相关工作经验的专业人员; 使用场景及目标:①用于评估高比例
分
布式光伏与电动汽车接入对配电网承载能力的影响;②为配电网扩容改造、储能系统配置及电动汽车充电站规划提供科学决策支持;③作为科研项目或学位论文的复现与扩展研究基础; 阅读建议:建议读者按照文档目录顺序系统学习,重点关注模型构建逻辑与Matlab代码实现细节,结合提供的仿真结果深入理解评价方法的应用流程,有条件者应动手复现代码以加深掌握。
多媒体
807
社区成员
8,274
社区内容
发帖
与我相关
我的任务
多媒体
VB 多媒体
复制链接
扫一扫
分享
社区描述
VB 多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章