今天给各位分享怎么获取网站的表量源码分享的知识,其中也会对列表网站源码进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!
前面演示了如何从金蝶K3系统中提取核算项目资料,从这些示例中我们可以看出程序包括两部分组成,一部分是工作表的设置,如清空工作表、设置标题、设置自动筛选等,另一部分是连接指定数据库,并从数据库表中提取数据。
我们现在的主要目的是从数据库中提取数据,暂时不演示如何设置工作表,重点是从数据库中如何计算并提取符合需求的数据,实际上也就是如何编写具体的sql查询语句,从而达到快速生成报表的目的。前面三节都是从一个表中提取数据,这节我们会从多个相关的表中提取数据。
本节需求,从数据库中提取指定期间的销售数据(销售发票)明细。
销售发票在数据库中存放在两个表中,ICSale存放表头,ICSaleEntry存放表体,先看一下这两个表的具体内容:
上部分是表头,下部分是表体,表头中的FCustID是客户字段,表体中的FItemID是物料字段,这两个字段存放的都是核算项目的内码,需要比对核算项目表才能显示其名称。
本节目的是提取销售明细,需要提取的字段是单据编号、单据日期、客户、摘要、物料名称、规格、单位、数量、单价、金额、税额、价税合计。
因为数据量较大,我们需要有选择的提取数据,如按年度、月度、周、日,或指定期间提取数据,这里我们按月份来提取,就需要指定提取数据的年度和月份,可以仿照上节的方法,将工作表分为上下两个部分,上部分是条件筛选区,下部分是数据显示区。
为了提高代码编辑效率,我们可以直接把前面的代码复制过来进行改造,其中工作表格式和连接数据库的代码都是一样的,我们只需要重新组合SQL语句就能得到想要的结果。
点击按钮看结果:
我们可以尝试改变年度和月份,看看不同的查询结果是否与金蝶系统数据相符。
以上就是从金蝶数据库中提取销售明细的方法,各位有什么想法和疑问可以在评论区中留言,共同探讨。如果您觉得对工作有帮助,请关注、点赞、留言,让更多的同学交流学习。
附源代码:
OptionExplicit\nPrivateSubCommandButton1_Click()\nDimadoAsObject\nDimrstAsObject\nDimstrAsString\nDimsqlAsString\n\nDimdbIPAsString\nDimdbsaAsString\nDimdbpwdAsString\nDimdbnameAsString\n\n&34;4:&39;如果没有录入查询年度和月份,退出\nIfVal(Range(&34;))=0OrVal(Range(&34;))=0ThenExitSub\n\n&34;A3&39;设置数据库连接字符串\ndbIP=&34;&34;sa&39;SQLServer数据库的登录用户名\ndbpwd=&34;&34;AIS20210318095953&39;需要提取数据的金蝶数据库名\n\nstr=&34;\nstr=str&&34;&dbIP&&34;\nstr=str&&34;\nstr=str&&34;&dbsa&&34;\nstr=str&&34;&dbpwd&&34;\nstr=str&&34;&dbname&&34;\n\n&34;ADODB.Connection&39;构造提取数据的SQL语句\nsql=&34;\nsql=sql&&34;\nsql=sql&&34;\n&34;leftjoint_icitemcona.FItemID=c.FItemID&39;关联客户表\nsql=sql&&34;\n&34;leftjoint_MeasureUniteona.FUnitID=e.FItemID&39;增加筛选条件,按指定的年度和月份\nsql=sql&&34;&Range(&34;)&&34;&Range(&34;)&&34;\n&34;OrderByb.FBillno&34;A4&39;提取数据后加上自动筛选\nRange(&34;).Resize(1,Range(&34;).End(xlToRight).Column).AutoFilter\nEndSub
关于本次怎么获取网站的表量源码分享和列表网站源码的问题分享到这里就结束了,如果解决了您的问题,我们非常高兴。
