博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
ReportMachine OCX
阅读量:6282 次
发布时间:2019-06-22

本文共 2934 字,大约阅读时间需要 9 分钟。

http://rmachine.haotui.com/thread-55-1-1.html

偏高偏低提示

[IF( [RMDBDataSet1."abnormalIndicator"]='h','↑',IF( [RMDBDataSet1."abnormalIndicator"]='l','↓',''))]

 

RMReport.ocx

RMEngine.Init(1); // 初始化RMEngine.LoadFromFile('c:\1.rmf'); // 读入报表模版RMEngine.AddDataSet(DataModule2.Customers, 'CustomersDS'); // 增加一个数据表RMEngine.DesignReport; // 设计报表RMReport.ShowReport; // 预览报表

 

c#调用

this.dataSet1 = new System.Data.DataSet();this.dataView1 = new System.Data.DataView();this.rmReport1 = new RMReportEngine.RMReport();this.dataSet1.Reset();            this.oleDbDataAdapter1.SelectCommand.CommandText = "select * from Customer";            this.oleDbDataAdapter1.Fill(this.dataSet1, "Customer");            this.dataView1.Table = this.dataSet1.Tables["Customer"];            this.dataView1.RowFilter = "CustNo >= 3000";            //this.dataGrid1.DataSource = this.dataView1;            rmReport1.ModifyPrepared = false;            rmReport1.Init(this, TxRMReportType.rmrtReport);            //rmReport1.PreviewOptions.BtnDesignVisible = true;            //rmReport1.AddDataSet(this.dataSet1.Tables["Customer"], "db1");            rmReport1.AddDataSet(this.dataView1, "db1");            rmReport1.LoadFromFile(MainPath + "reports\\SimpleList.rmf"); //SimpleList.rmf            rmReport1.AddVariable("公司名称", "我的公司名称", true);            rmReport1.AddVariable("公司简称", "我的公司简称", true);            rmReport1.AddVariable("公司电话", "我的公司电话", true);            if (radioButton1.Checked)            {                    rmReport1.ShowReport();            }            else            {                rmReport1.DesignReport();            }

 

 

public void AddDataSet(System.Data.DataView aDataView, string aDatasetName)

public void AddDataSet(System.Data.DataTable aDataTable, string aDatasetName)

public void AddDetailDataSet(System.Data.DataTable aDataTable, string aDatasetName, string aMasterName, System.Data.DataRelation aDataRelation)

public void AddVariable(string aVarName, object aVarValue, bool aIsString)

public void GetReportData(ref string aReportData)

public void Init(System.Windows.Forms.Form aOwner, RMReportEngine.RMReportType aReportType)

 

 

web版 RMViewer.ocx

http://rmachine.haotui.com/thread-56-1-1.html

编译client_ActiveForm目录中的项目就会生成RMViewer.ocx

 

com版本

COM控件(ocx)可以在VB、.Net、VC、Delphi等支持ADO的开发工具中使用

ocx版本

Dim conn    Dim rs    Dim sql    Dim rq    Dim Engine    Set conn = OpenDBConnection    Set rs = Server.CreateObject ("ADODB.recordset")    sql = "SELECT * from customer"    rs.Open sql, conn, 1, 1    Set Engine = Server.CreateObject("RMEngine.Engine")    Engine.Init    Engine.AddDataSet "db1", rs    Engine.SetReportFile RootPath & "SimpleList.rmf"    Engine.ViewerVersion = ViewerVersion    Engine.ViewerFileName = ViewerFileName    Engine.SaveReportURL = "asp/DesignReportSave.asp?Report=" & "SimpleList.rmf"     Engine.AddVariable "NowTime", Now, false    Engine.ShowProgress = True    Set rs = nothing    conn.Close    Set conn = nothing

 

转载地址:http://ouiva.baihongyu.com/

你可能感兴趣的文章
ArcGIS Engine 符号自动化配置工具实现
查看>>
小程序 · 跳转带参数写法,兼容url的出错
查看>>
flutter error
查看>>
Flask框架从入门到精通之模型数据库配置(十一)
查看>>
10年重新出发
查看>>
2019年-年终总结
查看>>
聊聊elasticsearch的RoutingService
查看>>
让人抓头的Java并发(一) 轻松认识多线程
查看>>
从源码剖析useState的执行过程
查看>>
地包天如何矫正?
查看>>
中间件
查看>>
Android SharedPreferences
查看>>
css面试题
查看>>
Vue组建通信
查看>>
用CSS画一个带阴影的三角形
查看>>
前端Vue:函数式组件
查看>>
程鑫峰:1.26特朗.普力挺美元力挽狂澜,伦敦金行情分析
查看>>
safari下video标签无法播放视频的问题
查看>>
01 iOS中UISearchBar 如何更改背景颜色,如何去掉两条黑线
查看>>
对象的继承及对象相关内容探究
查看>>