Create an Interactive Polling

• Dec 01, 2020
• 6 minutes to read

This tutorial describes how to create a polling report with various types of questions, make this report fillable in Print Preview and analyze the resulting data.

Tip

Open an existing reporting application or create a new one from scratch to get started with this tutorial. See Adding a Report to Your .NET Application to learn how to create a reporting application on the platform of your choice.

Prepare a Data Source

Prepare a data source to provide polling data to your report. In this tutorial, the report is bound to an Excel file, whose content is shown below.

The data source stores several questions with their IDs, available answers, answer types and answer IDs.

The AnswerType column specifies each question’s response format.

• Check - Answers are displayed with checkboxes, and users can select multiple answers for each question.
• Radio - Answers are displayed with checkboxes, and users can select only one answer for each question.
• Text - Open-ended questions provided with a text editor, where users can type a custom answer.
• Number - Open-ended questions provided with a text editor for entering numbers only.
• RadioText - An answer is displayed with a checkbox and a text editor for entering custom values.

Construct the Report Layout

Do the following to construct the polling report layout:

1. Bind a report to a required data source. See Bind a Report to an Excel Workbook to learn about binding to an Excel file.

2. Group report data by questions using the Group and Sort Panel. Click Add a Group, and in the invoked list, select the QuestionID data member. Enable the Show Header option to add the Group Header band to the report.

   

3. Drop the Question data field from the Field List onto the Group Header to display the question text before each group of answers.

   

4. Drop the Table control from the Toolbox onto the Detail band to display answers in the report.

   

5. Remove two table cells by selecting them and pressing DELETE. Add two new rows by right-clicking the table and selecting Insert | Row Below.

   

6. Add the required controls to the created table rows, such as check boxes and labels.

   

7. Define the table rows’ visibility based on the specified answers. Select a table row. Switch to the Properties window’s Expressions tab and click the Visible property’s ellipsis button. In the invoked Expression Editor, specify the following logical condition depending on the row’s number and purpose:

   1. Iif(Contains([AnswerType], ‘Check’) Or Contains([AnswerType], ‘Radio’), ‘True’, ‘False’)
   2. Iif([AnswerType] == ‘RadioText’, ‘True’, ‘False’)
   3. Iif([AnswerType] == ‘Text’ Or [AnswerType] == ‘Number’, ‘True’, ‘False’)

   

   Note

   If your report uses legacy data bindings (the UserDesignerOptions.DataBindingMode is set to DataBindingMode.Bindings), hide all table rows by default by disabling their XRControl.Visible option and create the corresponding formatting rules with the following logical conditions:

   1. Contains([AnswerType], ‘Check’) Or Contains([AnswerType], ‘Radio’)
   2. [AnswerType] == ‘RadioText’
   3. [AnswerType] == ‘Text’ Or [AnswerType] == ‘Number’

8. Specify that the check box displays the answer and stores information about the answer type. Go to the Properties window’s Expressions tab, assign the Answer data field to the XRControl.Text property and the AnswerType data field to the XRControl.Tag property.

   

   Note

   In the legacy binding mode (the UserDesignerOptions.DataBindingMode is set to DataBindingMode.Bindings), you can access the Text and Tag properties in the Properties tab’s DataBindings group.

9. Specify labels’ border settings to display bounds around text editors.

   

10. Add the Report Header band to display the report title and specify the report’s appearance settings.

    

Enable Editing in Print Preview

Do the following to enable editing the created report in Print Preview:

1. Enable content editing for the checkbox and labels in the Detail band. Select these controls, and in the Properties window, set the EditOptions.Enabled property to True.

   

   For the label corresponding to a RadioText type answer, set the EditOptions.ReadOnly property to True to disable the text editor by default.

2. Handle the Detail band’s XRControl.BeforePrint event. In the event handler, do the following:

   • Provide the answer ID to the EditOptions.ID property.
   • Specify the CheckEditOptions.GroupID property to combine the Radio type answers into logical groups.
   • Set the TextEditOptions.EditorName property to EditingFieldEditorNames.IntegerPositive to assign masked editors to numeric fields.
   C#

   using DevExpress.XtraPrinting;
   // ...
   
   private void Detail_BeforePrint(object sender, System.Drawing.Printing.PrintEventArgs e) {
       string id = Report.GetCurrentColumnValue("AnswerID").ToString();
       xrCheckBox1.EditOptions.ID = xrLabel2.EditOptions.ID = xrLabel3.EditOptions.ID = id;
   
       if (Report.GetCurrentColumnValue("AnswerType").ToString().Contains("Radio")) {
           string id2 = Report.GetCurrentColumnValue("QuestionID").ToString();
           xrCheckBox1.EditOptions.GroupID = id2;
       }
       if (Report.GetCurrentColumnValue("AnswerType").ToString() == "Number")
           xrLabel3.EditOptions.EditorName = EditingFieldEditorNames.IntegerPositive;
   }
   

   VB.NET

   Imports DevExpress.XtraPrinting
   ' ...
   
   Private Sub Detail_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs)
       Dim id As String = Report.GetCurrentColumnValue("AnswerID").ToString()
       xrCheckBox1.EditOptions.ID = id
       xrLabel2.EditOptions.ID = id
       xrLabel3.EditOptions.ID = id
   
       If Report.GetCurrentColumnValue("AnswerType").ToString().Contains("Radio") Then
           Dim id2 As String = Report.GetCurrentColumnValue("QuestionID").ToString()
           xrCheckBox1.EditOptions.GroupID = id2
       End If
       If Report.GetCurrentColumnValue("AnswerType").ToString() = "Number" Then
           xrLabel3.EditOptions.EditorName = EditingFieldEditorNames.IntegerPositive
       End If
   End Sub
   

3. Handle the detail band’s XRControl.AfterPrint event and clear the required edit options (such as GroupID, EditorName, etc.).

   C#

   using System;
   // ...
   
   private void Detail_AfterPrint(object sender, EventArgs e) {
       xrCheckBox1.EditOptions.ID = xrLabel2.EditOptions.ID = xrLabel3.EditOptions.ID = string.Empty;
       xrCheckBox1.EditOptions.GroupID = string.Empty;
       xrLabel3.EditOptions.EditorName = string.Empty;
   }
   

   VB.NET

   Imports System
   ' ...
   
   Private Sub Detail_AfterPrint(ByVal sender As Object, ByVal e As EventArgs)
       xrCheckBox1.EditOptions.ID = String.Empty
       xrLabel2.EditOptions.ID = String.Empty
       xrLabel3.EditOptions.ID = String.Empty
       xrCheckBox1.EditOptions.GroupID = String.Empty
       xrLabel3.EditOptions.EditorName = String.Empty
   End Sub
   

4. In the report’s XRControl.BeforePrint event handler, subscribe to the PrintingSystemBase.EditingFieldChanged event, which occurs each time a control’s content changes in Print Preview. In the EditingFieldChanged event handler, identify the RadioText answer type’s editing field. Then, change the field’s EditOptions.ReadOnly property and the foreground color based on the corresponding checkbox’s state.

   C#

   using DevExpress.XtraPrinting;
   using System.Collections.Generic;
   using System.Linq;
   using System.Windows.Forms;
   // ...
   
   private void XtraReport1_BeforePrint(object sender, System.Drawing.Printing.PrintEventArgs e) {
       PrintingSystem.EditingFieldChanged += PrintingSystem_EditingFieldChanged;
   }
   
   private void PrintingSystem_EditingFieldChanged(object sender, EditingFieldEventArgs e) {
       if (Equals("RadioText", e.EditingField.Brick.Value)) {
           IEnumerable<EditingField> EditingFields = PrintingSystem.EditingFields.Where
               <EditingField>(item => item.ID == e.EditingField.ID);
           foreach (EditingField item in EditingFields)
               if (!ReferenceEquals(item, e.EditingField)) {
                   item.ReadOnly = e.EditingField.EditValue.Equals(CheckState.Unchecked);
                   ((TextBrick)item.Brick).ForeColor = item.ReadOnly ? 
                       System.Drawing.Color.LightGray : System.Drawing.Color.Black;
               }
       }
   }
   

   VB.NET

   Imports DevExpress.XtraPrinting
   Imports System.Collections.Generic
   Imports System.Linq
   Imports System.Windows.Forms
   ' ...
   
   Private Sub XtraReport1_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs)
       AddHandler PrintingSystem.EditingFieldChanged, AddressOf PrintingSystem_EditingFieldChanged
   End Sub
   
   Private Sub PrintingSystem_EditingFieldChanged(ByVal sender As Object, ByVal e As EditingFieldEventArgs)
       If Equals("RadioText", e.EditingField.Brick.Value) Then
           Dim EditingFields As IEnumerable(Of EditingField) = PrintingSystem.EditingFields.Where(Function(item) item.ID = e.EditingField.ID)
           For Each item As EditingField In EditingFields
               If Not ReferenceEquals(item, e.EditingField) Then
                   item.ReadOnly = e.EditingField.EditValue.Equals(CheckState.Unchecked)
                   CType(item.Brick, TextBrick).ForeColor = If(item.ReadOnly, System.Drawing.Color.LightGray, System.Drawing.Color.Black)
               End If
           Next item
       End If
   End Sub
   

5. Switch to the report designer and add the Report Footer band. Drop a Label control onto this band, change the control’s text and specify appearance settings. Handle the label’s XRControl.PreviewClick event and write your logic to analyze answers.

   

   C#

   private void xrLabel5_PreviewClick(object sender, DevExpress.XtraReports.UI.PreviewMouseEventArgs e) {
       // Insert your logic to analyze the resulting data. 
       // ...
   }
   

   VB.NET

   Private Sub xrLabel5_PreviewClick(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.PreviewMouseEventArgs)
       ' Insert your logic to analyze the resulting data. 
       ' ...
   End Sub
   

The polling report is now ready. Switch to the Preview tab to view the result.