ifix 中如何做报表并打印

ifix中如何实现报表功能，如何才能实现?~

在VBA中引用Microsoft Excel 11.0 Object Library和Microsoft ADO 6.0 Library。在画面中添加个按钮。复制以下代码：

‘－－－－－－－－－－开始复制(不包括此行)－－－－－－－－－－－－－－

Option Explicit
Dim rsADO As ADODB.Recordset
Dim cnADO As ADODB.Connection
Private Sub Command1_Click()
Dim StrDir As String
StrDir = "E:\"

Dim i As Long
Dim Sql As String

Sql = "SELECT * FROM THISNODE"
Set cnADO = New ADODB.Connection
Set rsADO = New ADODB.Recordset
cnADO.ConnectionString = "rovider = Microsoft OLE DB Provider for ODBC Drivers;DSN=FIX Dynamics Real Time Data;UID=WD="
cnADO.Open
rsADO.CursorLocation = adUseClient
rsADO.Open Sql, cnADO, adOpenDynamic, adLockUnspecified, -1

If rsADO.RecordCount <= 0 Then
MsgBox "无数据！", vbOKOnly + vbInformation, "信息..."
Set cnADO = Nothing
Set rsADO = Nothing
Exit Sub
End If

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

Set xlApp = New Excel.Application
xlApp.DisplayAlerts = False
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(StrDir & "\报表.xls")'需要文件(E:\报表.xls)
Set xlSheet = xlBook.Worksheets(1)

For i = 1 To rsADO.RecordCount
xlSheet.Cells(i, 1) = rsADO.Fields(1).Value & ""
xlSheet.Cells(i, 2) = rsADO.Fields(2).Value & ""
xlSheet.Cells(i, 3) = rsADO.Fields(3).Value & ""
xlSheet.Cells(i, 4) = rsADO.Fields(4).Value & ""
Next i

xlApp.Visible = True
xlApp.DisplayAlerts = False

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Set cnADO = Nothing
Set rsADO = Nothing
End Sub
‘－－－－－－－－－－结束复制(不包括次行)－－－－－－－－－－－－－－

注意：1.iFix历史数据库只支持读90天的数据，在SQL语句中限定时间即可。

2.也可以读取其他数据源的数据，如ACCESS、SQL SERVER等，只要改一下ConnectionString。

在VBA中引用Microsoft Excel 11.0 Object Library和Microsoft ADO 6.0 Library。在画面中添加个按钮。复制以下代码：

‘－－－－－－－－－－开始复制(不包括此行)－－－－－－－－－－－－－－

Option Explicit
Dim rsADO As ADODB.Recordset
Dim cnADO As ADODB.Connection
Private Sub Command1_Click()
Dim StrDir As String
StrDir = "E:\"

Dim i As Long
Dim Sql As String

Sql = "SELECT * FROM THISNODE"
Set cnADO = New ADODB.Connection
Set rsADO = New ADODB.Recordset
cnADO.ConnectionString = "rovider = Microsoft OLE DB Provider for ODBC Drivers;DSN=FIX Dynamics Real Time Data;UID=WD="
cnADO.Open
rsADO.CursorLocation = adUseClient
rsADO.Open Sql, cnADO, adOpenDynamic, adLockUnspecified, -1

If rsADO.RecordCount <= 0 Then
MsgBox "无数据！", vbOKOnly + vbInformation, "信息"
Set cnADO = Nothing
Set rsADO = Nothing
Exit Sub
End If

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

Set xlApp = New Excel.Application
xlApp.DisplayAlerts = False
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(StrDir "\报表.xls")'需要文件(E:\报表.xls)
Set xlSheet = xlBook.Worksheets(1)

For i = 1 To rsADO.RecordCount
xlSheet.Cells(i, 1) = rsADO.Fields(1).Value ""
xlSheet.Cells(i, 2) = rsADO.Fields(2).Value ""
xlSheet.Cells(i, 3) = rsADO.Fields(3).Value ""
xlSheet.Cells(i, 4) = rsADO.Fields(4).Value ""
Next i

xlApp.Visible = True
xlApp.DisplayAlerts = False

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Set cnADO = Nothing
Set rsADO = Nothing
End Sub
‘－－－－－－－－－－结束复制(不包括次行)－－－－－－－－－－－－－－

注意：1.iFix历史数据库只支持读90天的数据，在SQL语句中限定时间即可。

2.也可以读取其他数据源的数据，如ACCESS、SQL SERVER等，只要改一下ConnectionString。

没用过ifix，你可以将专门的报表软件嵌入进去，然后用专门的报表软件做报表。我知道FineReport报表可以嵌入很多软件系统，并且报表打印时就是直接点击按钮完成的。

这个我也在做！采用外部连接程序，外部连接程序也是自己做的，我觉得程序复杂，而且ifix内需要添加的也很多，是用pen画的，只能对专用数据库打印，。我也在寻找其他简单方法，没确定其他方法，但是我觉得用e xcel加vba脚本应该不错，也在研究HDA读取历史数据库方法

这个有很多方法，比如采用ODBC，或者使用HDA读取历史数据库，
具体看看视频
http://v.youku.com/v_playlist/f4166901o1p7.html

---

临河区19225914859： ifix 中如何做报表并打印 - ？
年菲佳琪： 这个我也在做!采用外部连接程序,外部连接程序也是自己做的,我觉得程序复杂,而且ifix内需要添加的也很多,是用pen画的,只能对专用数据库打印,.我也在寻找其他简单方法,没确定其他方法,但是我觉得用e xcel加vba脚本应该不错,也在研究HDA读取历史数据库方法

临河区19225914859： IFix报表制作功能如何实现? - ？
年菲佳琪： 1.采用IE控件实现简单报表2.复杂报表建议用开发软件在IFIX之外开发

临河区19225914859： ifix中如何实现报表功能,如何才能实现? - ？
年菲佳琪： 在VBA中引用Microsoft Excel 11.0 Object Library和Microsoft ADO 6.0 Library.在画面中添加个按钮.复制以下代码:'----------开始复制(不包括此行)-------------- Option Explicit Dim rsADO As ADODB.Recordset Dim cnADO As ADODB....

临河区19225914859： ifix演示系统中报表Chart是怎么做的? - ？
年菲佳琪： 我们经常接触的扩展名有doc(Word文档,用微软的word等软件打开)、wps(Wps文档,用金山公司的wps软件打开)、xls(Excel电子表格,用微软的excel软件打开)、ppt(Powerpoint演示文稿,用微软的powerpoint等软件打开)、jpg(图片)、txt(纯文本,用记事本、写字板、word等都可以打开)、rar(Winrar压缩文件,用winrar打开)、htm(网页文件,用浏览器打开)、pdf(用pdf阅读器打开、用pdf编辑器编辑)、dwg(CAD图形文件,用AutoCAD等软件打开)等等.

临河区19225914859： 如何在金蝶财务软件中设置报表 - ？
年菲佳琪： 前面的人回答得已经很完善了,你按照他说的做做试试,看看还有没有什么问题,我用的是帆软公司开发的Finereport,它的报表设置比较简单,上手也很快,我比较喜欢用它....

临河区19225914859： 如何在金蝶财务软件中设置报表 - ？
年菲佳琪： 1、表体的创建 自定义报表→单击“文件”菜单中的“新建”或单击屏幕左上角的白色按钮→先在白色的格子中打入表头.如:“科目编号”,“行次”等→输入表体,例如:“121 现金”等具体项目. 2、公式的定义 单击需要定义公式的单...

临河区19225914859： 用友财务软件,结账后,怎么生成财务报表? - ？
年菲佳琪： 1、找到桌面的企业应用平台图标,点击进入百到财务软件系统界面. 2、找到财务会计-总账-UFO报表,双击进入UFO报表图标.度 3、进入后,找到文件菜单,点击进入后,找到打开按钮,打开电脑所在财务报表的模板,单击确定. 4、打开后的界面就如下图所示. 5、点击数据后,找到关键字图标,打开后,输入年份,月专份等信息,单击确定按钮. 6、报表数据已经生成,单击左上角的打印机按属钮,进行打印,确定需要打印的张数,点击确定即可.

临河区19225914859： 我要用EXCEL做个表格打印出来怎么做 - ？
年菲佳琪： 第一步:选中左上角菜单栏的“文件”,找到下拉菜单中的打印,如图中的红色框1,点击进入打印设置界面;第二步:找到如图中红色框2,点击“页面设置”,进入页面设置界面.第三步:在缩放中选择“一页宽”和“一页高”,其中右侧为预览界面.第四步:调整好后,直接点击“打印”即可.

临河区19225914859： 如何在Access中用Excel的格式做成报表,然后打印? - ？
年菲佳琪： 如果楼主是想做一个以Access为主,Excel为数据源的报表系统,则建议楼主可在Access中,利用链接表的功能将Excel链接到Access中,再在Access中进行报表开发即可.相反如果楼主是想以Excel为主,Access为数据源,即是想在Excel中做报表的话,那么可以建议采用excel中的“数据”,“导入外部数据”,“导入数据”进行操作,不过如果这样操作的话,将会使Acces变为只读属性,无法再进行数据添加.因此,建议楼主可以使用Access中的数据导出功能,将数据导出为Excel格式再进行报表制作.希望我的回答对你有帮助,如有疑问可以留言或在线交流.

临河区19225914859： 电子报表怎么做? - ？
年菲佳琪： 打开电子表格——先设置页边距——就会有虚线框出现——你在虚线框内编辑——不要超出虚线框外——不然超出部分打印不出来的——第一行一般都是标题行——从第二行或者第三行开始——输入你的资料,不论有多少列,都必须在虚线框内...