楼主 jangogo
积 分：5679
总帖数：172
2007928142559-576.rar (2007-9-28 14:25:59,18.02K)
修改 删除 引用 回复楼主 jangogo 积 分：5679 总帖数：172 |
2007928142559-576.rar (2007-9-28 14:25:59,18.02K) |
| 2007-9-24 13:48:00 | 修改 删除 引用 回复 |
|
1楼 jangogo  积 分：5679 总帖数：172 |
1.注册组件 regsvr32 HiReportDataInterface.dll 2.引用 set o=createobject("HiReportDataInterface.dev") 3.取得ACCESS数据库密码 str_password=o.AccessDBPassword 4.初始化 o.Create iYear, str_SysDB, str_AccDB, Optional likeAllChr As String = "%", Optional DateBrackets As String = "'" 'iyear 帐套年份 'str_SysDB Sys.mdb 或者 DB4F_Sys 的数据库链接字符串 'str_AccDB 当前帐套数据库链接字符串 'likeAllChr SQL语句中 Like ...表示类似所有的通配符 'DateBrackets SQL语句中日期格式数据的引用符 SQL Server用单引号 ， ACCESS用# 5.取得报表数据 Public Function GetReportData(dCN As ADODB.Connection, Sid As String, Optional rdt As ReportDataType = 本月, _ Optional M1 As Integer = 0, Optional M2 As Integer = 0, Optional YY As Integer = 0, _ Optional Project As String = "", Optional Department As String = "", _ Optional Goods As String = "", Optional Company As String = "", _ Optional ForeignCur As String = "", Optional isQuantity As Boolean = False, _ Optional isIgnoreACL As Boolean = False, _ Optional Dx1 As String = "", _ Optional Dx2 As String = "", _ Optional isFCur2RMB As Boolean = False _ ) As Currency dCN 已经和当前帐套数据建立好的数据库链接 Sid 科目代码 可以是 多个代码相加减 rdt 公式类型ID 定义如下： Public Enum ReportDataType ''以下是帐务系统报表名目 年初 = 0 期初 = 1 本月 = 2 本期 = 3 累计 = 4 期末 = 5 借方 = 6 贷方 = 7 流入 = 8 流出 = 9 ''以下是进销存自定义报表栏目 采购 = 10 销售 = 11 领用 = 12 结存 = 13 ''上期结存 库存 = 14 ''本期末结存 进库 = 15 出库 = 16 单据 = 17 ''以下是工资系统自定义报表 工资 = 18 ''以下是新增加帐务系统报表名目 借余 = 19 贷余 = 20 年初借余 = 21 年初贷余 = 22 End Enum M1 开始月份 M2 结束月份 YY 会计年份 Project Department Company Goods ForeignCur 分别为 项目 部门员工 往来单位 货品 外币币种 都可以用加减号代表求和或者求差 isQuantity 是否是返回数量？不是返回金额 isIgnoreACL 这个参数请设置为true Dx1 Dx2 设置为 空串 isFCur2RMB 是否求外币对应的本币金额 ，请设置为false 6. 完成所有处理后，销毁本对象set o=nothing |
| 2007-9-24 13:49:00 | 修改 删除 引用 回复 |