控件

控件名

描述

ListBox

_list

显示当前加载的报表列表的列表框控件。

C1PrintPreview

_c1ppv

用来预览报表的C1PrintPreview控件

C1ReportDesigner

_c1rd

用做设计并编辑报表的C1ReportDesigner控件。

PropertyGrid

_ppg

用做对设计器选择的对象的属性进行编辑的PropertyGrid控件。

ToolBar

_tb

包含对应着每一个命令按钮的工具栏控件。

C1Report

_c1r

用做在_c1ppv控件中呈现报表的C1Report组件。

Visual Basic

' 字段
Private _fileName As String ' 当前文件名
Private _dirty As Boolean ' 当前文件发生了改变
' 在窗体标题区域显示的标题
Dim _appName As String = "C1ReportDesigner Demo"

C#

// 字段 private string _fileName; // 当前文件名 private bool _dirty; // 当前文件发生了改变
// 在窗体标题区域显示的标题
private const string _appName = "C1ReportDesigner Demo";

Visual Basic

' 在启动时更新界面，以显示窗体标题以并禁用剪贴板以及
' 撤销/重做按钮
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
UpdateUI()
End Sub

Private Sub UpdateUI() ' 更新标题
_fileName = _appName
If _fileName.Length > 0 Then
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="c030c1a7-50b3-45bd-9977-bff7e8382dd7"><ac:plain-text-body><![CDATA[ _fileName = String.Format("{0} - [{1}]", _appName, _fileName)
]]></ac:plain-text-body></ac:structured-macro>
If _dirty Then _fileName = _fileName + " *"
End If

' 按下/释放表示设计或者预览模式的按钮
Dim design As Boolean = _c1rd.Visible AndAlso (Not IsNothing(_c1rd.Report))
_btnDesign.Pushed = design
_btnPreview.Pushed = Not design
' 启用/禁用按钮
_btnCut.Enabled = design AndAlso _c1rd.ClipboardHandler.CanCut
_btnCopy.Enabled = design AndAlso _c1rd.ClipboardHandler.CanCut
_btnPaste.Enabled = design AndAlso _c1rd.ClipboardHandler.CanPaste
_btnUndo.Enabled = design AndAlso _c1rd.UndoStack.CanUndo
_btnRedo.Enabled = design AndAlso _c1rd.UndoStack.CanRedo
Dim reportSelected As Boolean = design AndAlso Not (IsNothing(_list.SelectedItem))
_btnAddReport.Enabled = _c1rd.Visible
_btnDelReport.Enabled = reportSelected
_btnAddField.Enabled = reportSelected
_btnAddLabel.Enabled = reportSelected
End Sub

C#

// 在启动时更新界面，以显示窗体标题以并禁用剪贴板以及
// 撤销/重做按钮
private void Form1_Load(object sender, System.EventArgs e) {
UpdateUI(); } private void UpdateUI() {
// update caption
Text = (_fileName != null && _fileName.Length > 0)
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="a75c7db6-0b07-4ab4-8aa2-b2e8130ef607"><ac:plain-text-body><![CDATA[ ? string.Format("{0} - [{1}] {2}", _appName, _fileName, _dirty? "*": "")
]]></ac:plain-text-body></ac:structured-macro>
: _appName;

// push/release design/preview mode buttons bool design = _c1rd.Visible && _c1rd.Report != null; _btnDesign.Pushed = design;
_btnPreview.Pushed = !design;

// 启用/禁用按钮
_btnCut.Enabled = design && _c1rd.ClipboardHandler.CanCut;
_btnCopy.Enabled = design && _c1rd.ClipboardHandler.CanCut;
_btnPaste.Enabled = design && _c1rd.ClipboardHandler.CanPaste;
_btnUndo.Enabled = design && _c1rd.UndoStack.CanUndo;

Visual Basic

' 在工具栏按钮上处理单击事件
Private Sub _tb_ButtonClick(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.ToolBarButtonClickEventArgs) Handles _tb.ButtonClick

' 设计/预览模式
If e.Button.Equals(_btnDesign) Then
SetDesignMode(True)
End If
If e.Button.Equals(_btnPreview) Then
SetDesignMode(False)

'文件命令
If e.Button.Equals(_btnNew) Then
NewFile()
If e.Button.Equals(_btnOpen) Then
OpenFile()
If e.Button.Equals(_btnSave) Then
SaveFile()

'允许用户撤销剪贴板操作
If e.Button.Equals(_btnCut) Or e.Button.Equals(_btnPaste) Then
_c1rd.UndoStack.SaveState()
End If

' 剪贴板
If e.Button.Equals(_btnCut) Then
_c1rd.ClipboardHandler.Cut()
If e.Button.Equals(_btnCopy) Then
_c1rd.ClipboardHandler.Copy()
If e.Button.Equals(_btnPaste) Then
_c1rd.ClipboardHandler.Paste()

C#

// 在工具栏按钮上处理单击事件
private void _tb_ButtonClick(object sender, System.Windows.Forms.ToolBarButtonClickEventArgs e)
{
// 设计/预览模式
if (e.Button == _btnDesign) SetDesignMode(true); if (e.Button == _btnPreview) SetDesignMode(false);
//文件命令
if (e.Button == _btnNew) NewFile(); if (e.Button == _btnOpen) OpenFile(); if (e.Button == _btnSave) SaveFile();

//允许用户撤销剪贴板操作
if (e.Button == _btnCut

// 撤消/重做
if (e.Button == _btnAddReport) NewReport(); if (e.Button == _btnDelReport) DeleteReport();
// 添加字段
// （只需要设置创建信息并等待来自设计器的CreateField事件）
if (e.Button == _btnAddField) _c1rd.CreateFieldInfo = e.Button; if (e.Button == _btnAddLabel) _c1rd.CreateFieldInfo = e.Button;
}

Visual Basic

Private Sub SetDesignMode(ByVal design As Boolean)
' 显示/隐藏预览/设计面板
_c1rd.Visible = design
_c1ppv.Visible = Not design

'在预览模式不显示属性
If Not design Then
_lblPropGrid.Text = "Properties"
_ppg.SelectedObject = Nothing
End If

' 将报表的一个副本关联到预览控件
' （因此脚本所引发的变更不会保存）
If Not design Then
_c1ppv.Document = Nothing
_c1r.CopyFrom(_c1rd.Report)
Cursor = Cursors.WaitCursor
_c1r.Render()
If _c1r.PageImages.Count > 0 Then
_c1ppv.Document = _c1r
End If
Cursor = Cursors.Default
End If

C#

private void SetDesignMode( bool design)
{
// 显示/隐藏预览/设计面板
_c1rd.Visible = design;
_c1ppv.Visible = !design;
//在预览模式不显示属性
if (!design ) {
_lblPropGrid.Text = "Properties";
_ppg.SelectedObject = null;
}

// 将报表的一个副本关联到预览控件
// （因此脚本所引发的变更不会保存）
if (!design ) {
_c1ppv.Document = null;
_c1r.CopyFrom(_c1rd.Report);
Cursor = Cursors.WaitCursor; _c1r.Render(); if (_c1r.PageImages.Count > 0 ) _c1ppv.Document = _c1r;
Cursor = Cursors.Default;
}
// 完成，更新UI
UpdateUI();
}

Visual Basic

Private Sub NewFile()
_fileName = ""
_dirty = False
_list.Items.Clear()
_c1ppv.Document = Nothing
_c1rd.Report = Nothing
UpdateUI()
End Sub

C#

private void NewFile() {
_fileName = "";
_dirty = false;
_list.Items.Clear();
_c1ppv.Document = null;
_c1rd.Report = null; UpdateUI();
}

Visual Basic

Public Sub OpenFile()
' 获取打开文件的名称
Dim dlg As New OpenFileDialog dlg.FileName = "*.xml"
dlg.Title = "Open Report Definition File" If dlg.ShowDialog() <> DialogResult.OK Then
Return
End If

' 检查所选的文件
Try
reports = _c1r.GetReportInfo(dlg.FileName) Catch
If IsNothing(reports) OrElse reports.Length = 0 Then
MessageBox.Show("Invalid (or empty) report definition file")
Return
End If
End Try ' 清除列表
NewFile()
' 加载新的文件

Cursor = Cursors.WaitCursor
_fileName = dlg.FileName
Dim reportName As String
For Each reportName In reports Dim rpt As New C1Report() rpt.Load(_fileName, reportName) _list.Items.Add(New ReportHolder(rpt))
Next
Cursor = Cursors.Default

' 选择第一个报表
_list.SelectedIndex = 0
End Sub

' ReportHolder
' 用作在列表框中保存报表的辅助类
' 它所做的主要的事情就是复写了ToString()方法，以呈现报表名称
Public Class ReportHolder
Public Sub New(ByVal report As C1Report)
Me.Report = report
End Sub
Public Overrides Function ToString() As String
Dim text As String = Me.Report.ReportName
If text.Length = 0 Then text = "Unnamed Report"
Return text
End Function Public ReadOnly Report As C1Report
End Class

C#

public void OpenFile()
{
// 获取打开文件的名称
OpenFileDialog dlg = new OpenFileDialog(); dlg.FileName = "*.xml"; dlg.Title = "Open Report Definition File"; if (dlg.ShowDialog() != DialogResult.OK) return;
// 检查所选的文件
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="28272d9b-6ef4-418b-9f09-7efc2e963473"><ac:plain-text-body><![CDATA[ string[] reports = null; try {
]]></ac:plain-text-body></ac:structured-macro>
reports = _c1r.GetReportInfo(dlg.FileName); } catch {} if (reports == null

NewFile();

// 加载新的文件
Cursor = Cursors.WaitCursor; _fileName = dlg.FileName; foreach (string reportName in reports) { C1Report rpt = new C1Report(); rpt.Load(_fileName, reportName); _list.Items.Add(new ReportHolder(rpt));
}
Cursor = Cursors.Default;

// 选择第一个报表
_list.SelectedIndex = 0;
}
// ReportHolder
// 用作在列表框中保存报表的辅助类
// 它所做的主要的事情就是复写了ToString()方法，以呈现报表名称 public class ReportHolder { public readonly C1Report Report; public ReportHolder(C1Report report) {
Report = report; } override public string ToString() { string s = Report.ReportName; return (s != null && s.Length > 0)? s: "Unnamed Report"; }
}

Visual Basic

Public Sub SaveFile()
' 获取打开文件的名称
Dim dlg As New SaveFileDialog() dlg.FileName = _fileName
dlg.Title = "Save Report Definition File" If dlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return
' 保存文件
Dim w As New XmlTextWriter(dlg.FileName, System.Text.Encoding.Default)
w.Formatting = Formatting.Indented
w.Indentation = 2
w.WriteStartDocument()
' 写入所有报表
Cursor = Cursors.WaitCursor
w.WriteStartElement("Reports")
Dim rh As ReportHolder

For Each rh In _list.Items
rh.Report.Save(w) 'rh.Report.ReportName Next
w.WriteEndElement() Cursor = Cursors.Default

' 关闭文件
w.Close()
' 完成
_fileName = dlg.FileName
_dirty = False
UpdateUI()
End Sub

C#

public void SaveFile()
{
// 获取打开文件的名称
SaveFileDialog dlg = new SaveFileDialog(); dlg.FileName = _fileName;
dlg.Title = "Save Report Definition File"; if (dlg.ShowDialog() != DialogResult.OK) return;

// 保存文件
XmlTextWriter w = new XmlTextWriter(dlg.FileName, System.Text.Encoding.Default); w.Formatting = Formatting.Indented;
w.Indentation = 2;
w.WriteStartDocument();
// 写入所有报表
Cursor = Cursors.WaitCursor;
w.WriteStartElement("Reports"); foreach (ReportHolder rh in _list.Items) rh.Report.Save(w); //rh.Report.ReportName;
w.WriteEndElement(); Cursor = Cursors.Default;
// 关闭文件
w.Close();
// 完成
_fileName = dlg.FileName;
_dirty = false;
UpdateUI();
}

Visual Basic

' 选中了一个新报表：切换到设计模式并显示
Private Sub _list_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles _list.SelectedIndexChanged
' 切换到设计模式
SetDesignMode(True)

' 将选中的报表关联到设计器以及预览控件
_c1rd.Report = Nothing
_c1ppv.Document = Nothing
If _list.SelectedIndex > -1 Then _c1rd.Report = _list.SelectedItem.Report
End If
End Sub

C#

private void _list_SelectedIndexChanged(object sender, System.EventArgs e) {

// 切换到设计模式
SetDesignMode(true);

// 将选中的报表关联到设计器以及预览控件
_c1rd.Report = null; _c1ppv.Document = null; if (_list.SelectedItem != null) _c1rd.Report = ((ReportHolder)_list.SelectedItem).Report;
}

Visual Basic

' 选择发生变化，需要更新PropertyGrid并显示选中对象的属性
' properties of the selected object
Private Sub _c1rd_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Handles _c1rd.SelectionChanged
Dim sel As Object() = _c1rd.SelectedFields
If (sel.Length > 0) Then
_lblPropGrid.Text = "Field Properties"
_ppg.SelectedObjects = sel

C#

// 选择发生变化，需要更新PropertyGrid并显示选中对象的属性
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="386038fa-9fac-4558-8f30-3597d5157da3"><ac:plain-text-body><![CDATA[private void _c1rd_SelectionChanged(object sender, System.EventArgs e) { object[] sel = _c1rd.SelectedFields; if (sel.Length > 0) {
]]></ac:plain-text-body></ac:structured-macro>
_lblPropGrid.Text = "Field Properties";
_ppg.SelectedObjects = sel; } else if (_c1rd.SelectedSection != null) {
_lblPropGrid.Text = "Section Properties";
_ppg.SelectedObject = _c1rd.SelectedSection; } else if (_c1rd.Report != null) {
_lblPropGrid.Text = "Report Properties";
_ppg.SelectedObject = _c1rd.Report;
} else // 没有对象选中
{
_lblPropGrid.Text = "Properties";
_ppg.SelectedObject = null;
}

//完成
UpdateUI();
}

Visual Basic

C#

// when a value changes in the property window, refresh the designer
// to show the changes
private void _ppg_PropertyValueChanged(object s,
Systems.Windows.Forms.PropertyValueChangedEventArgs e)
{
_c1rd.Refresh();
_dirty = true;
UpdateUI();
}
// when properties of the selected objects change in the designer,
// update the property window to show the changes private void _c1rd_ValuesChanged(object sender, System.EventArgs e) {
_ppg.Refresh();
_dirty = true;
UpdateUI();
}

Visual Basic

' 完成从列表中移除当前报表
Private Sub DeleteReport() ' 必须选中一个报表
Dim index As Integer = _list.SelectedIndex
If (index < 0) Then Return

C#

// 完成从列表中移除当前报表
private void DeleteReport()
{
// 必须选中一个报表
int index = _list.SelectedIndex; if (index < 0) return;
//从设计器以及列表中移除报表
_c1rd.Report = null;
_list.Items.RemoveAt(index);
// 如果可以，选择另一个报表
if (index > _list.Items.Count-1) index = _list.Items.Count-1; if (index > -1) _list.SelectedIndex = index;
// 完成
_dirty = true;
UpdateUI();
}

Visual Basic

Private Sub NewReport()
' 选择数据源（在这个示例只允许MDB文件）
Dim dlg As New OpenFileDialog() dlg.FileName = "*.mdb" dlg.Title = "Select report data source"

C#

private void NewReport()
{
// 选择数据源（在这个示例只允许MDB文件）
OpenFileDialog dlg = new OpenFileDialog(); dlg.FileName = "*.mdb"; dlg.Title = "Select report data source"; if (dlg.ShowDialog() != DialogResult.OK) return;
// 选择数据源中第一张表
string connString =
string.Format(@"Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};", dlg.FileName); string tableName = GetFirstTable(connString); if (tableName == null

]]></ac:plain-text-body></ac:structured-macro>

s.Visible = true;
s.Height = 400; Rectangle rc = new Rectangle(0, 0, 1000, (int)s.Height); for (int i = 0; i < cnt; i++) {
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="af118513-a8d4-4320-b9b4-8b839088ba0f"><ac:plain-text-body><![CDATA[ f = s.Fields.Add("TitleField", fieldNames[i], rc);
]]></ac:plain-text-body></ac:structured-macro>
f.Font.Bold = true; rc.Offset(rc.Width, 0); }
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="71793210-718d-4077-afe6-a6dca47ac52f"><ac:plain-text-body><![CDATA[ //添加detail区域 s = rpt.Sections[SectionTypeEnum.Detail];
]]></ac:plain-text-body></ac:structured-macro>
s.Visible = true;
s.Height = 300;
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="b6079b54-c5ea-4eba-8a0a-d3e0df2622bb"><ac:plain-text-body><![CDATA[ rc = new Rectangle(0, 0, 1000, (int)s.Height); for (int i = 0; i < cnt; i++) { f = s.Fields.Add("TitleField", fieldNames[i], rc);
]]></ac:plain-text-body></ac:structured-macro>
f.Calculated = true; rc.Offset(rc.Width, 0); }
// 向列表添加新报表然后选中它
_list.Items.Add(new ReportHolder(rpt));
_list.SelectedIndex = _list.Items.Count-1;
// 完成
_dirty = true;
UpdateUI();
}

Visual Basic

Private Function GetFirstTable(connString As String) As String
Dim conn As New OleDbConnection(connString)
Try
' 获取数据库架构 conn.Open() Dim dt As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
Dim dr As DataRow
For Each dr In dt.Rows
' 检查表类型
Dim type As String = dr("TABLE_TYPE").ToString().ToUpper() If (type <> "TABLE" AndAlso type <> "VIEW" AndAlso type <> "LINK" Then
'skip this one
Else '获取表名
tableName = dr("TABLE_NAME").ToString() Exit For
End If
Next
' 完成 conn.Close()

C#

private string GetFirstTable(string connString) {
string tableName = null; OleDbConnection conn = new OleDbConnection(connString); try
{
// 获取数据库架构 conn.Open();
DataTable dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null); foreach (DataRow dr in dt.Rows) {
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="c26efb8b-525d-40f2-8d5e-870c39715069"><ac:plain-text-body><![CDATA[ // 检查表类型 string type = dr["TABLE_TYPE"].ToString().ToUpper(); if (type != "TABLE" && type != "VIEW" && type != "LINK") continue;
]]></ac:plain-text-body></ac:structured-macro>
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="e519416d-2139-4fd3-b008-d3891726c35e"><ac:plain-text-body><![CDATA[ //获取表名 tableName = dr["TABLE_NAME"].ToString(); break; }
]]></ac:plain-text-body></ac:structured-macro>
// 完成 conn.Close(); } catch {}
// 返回找到的第一张表 return tableName;
}

Visual Basic

'在工具栏按钮上处理单击事件

C#

//在工具栏按钮上处理单击事件
private void _tb_ButtonClick(object sender,
System.Windows.Forms.ToolBarButtonClickEventArgs e)
{
// 添加字段
// (仅设置创建信息，并等待设计器的CreateField事件)
if (e.Button == _btnAddField) _c1rd.CreateFieldInfo = e.Button; if (e.Button == _btnAddLabel) _c1rd.CreateFieldInfo = e.Button;
}

Visual Basic

Dim _ctr As Integer

Private Sub _c1rd_CreateField(ByVal sender As Object, ByVal e As
C1.Win.C1ReportDesigner.CreateFieldEventArgs) Handles _c1rd.CreateField
' 保存撤销信息
_c1rd.UndoStack.SaveState()

' 添加label字段
_ctr = _ctr + 1
Dim fieldName As String = String.Format("NewField{0}", _ctr)
Dim fieldText As String = fieldName
Dim f As Field = e.Section.Fields.Add(fieldName, fieldText, e.FieldBounds)
' 如果这是一个计算字段,
' 改变Text和Calculated属性
If e.CreateFieldInfo.Equals(_btnAddField) Then
Dim fieldNames As String() = _c1rd.Report.DataSource.GetDBFieldList(True) If (fieldNames.Length > 0) Then
f.Text = fieldNames(0)
f.Calculated = True
End If

C#

int _ctr = 0;
private void _c1rd_CreateField(object sender, C1.Win.C1ReportDesigner.CreateFieldEventArgs e)
{
// 保存撤销信息
_c1rd.UndoStack.SaveState();

// 添加label字段
string fieldName = string.Format("NewField{0}", ++_ctr); string fieldText = fieldName; Field f = e.Section.Fields.Add(fieldName, fieldText, e.FieldBounds);

<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="cd7776bd-6f52-425a-93fd-eb17fc4dadc3"><ac:plain-text-body><![CDATA[ // 如果这是一个计算字段, // 改变Text和Calculated属性 if (e.CreateFieldInfo == _btnAddField) { string[] fieldNames = _c1rd.Report.DataSource.GetDBFieldList(true); if (fieldNames.Length > 0) {
]]></ac:plain-text-body></ac:structured-macro>
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="c9a7509c-b1f1-4df3-a6f6-33a86e4d5b10"><ac:plain-text-body><![CDATA[ f.Text = fieldNames[0];
]]></ac:plain-text-body></ac:structured-macro>
f.Calculated = true; }
}
}