<?xml version="1.0" encoding="utf-8"?><Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2003/10/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner"> <CodeModules> <CodeModule>System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</CodeModule> </CodeModules> <RightMargin>1in</RightMargin> <Body> <ReportItems> <Table Name="table1"> <Height>0.52778in</Height> <Style /> <Header> <TableRows> <TableRow> <Height>0.25in</Height> <TableCells> <TableCell> <ReportItems> <Textbox Name="textbox1"> <Style /> <ZIndex>5</ZIndex> <rd:DefaultName>textbox1</rd:DefaultName> <CanGrow>true</CanGrow> <Value>Choice</Value> </Textbox> </ReportItems> </TableCell> <TableCell> <ReportItems> <Textbox Name="textbox2"> <Style> <PaddingBottom>2pt</PaddingBottom> </Style> <ZIndex>4</ZIndex> <rd:DefaultName>textbox2</rd:DefaultName> <CanGrow>true</CanGrow> <Value>Percentage</Value> </Textbox> </ReportItems> </TableCell> <TableCell> <ReportItems> <Textbox Name="textbox3"> <Style /> <ZIndex>3</ZIndex> <rd:DefaultName>textbox3</rd:DefaultName> <CanGrow>true</CanGrow> <Value /> </Textbox> </ReportItems> </TableCell> </TableCells> </TableRow> </TableRows> </Header> <Details> <TableRows> <TableRow> <Height>0.27778in</Height> <TableCells> <TableCell> <ReportItems> <Textbox Name="Answer"> <Style /> <ZIndex>2</ZIndex> <rd:DefaultName>Answer</rd:DefaultName> <CanGrow>true</CanGrow> <Value>=Fields!Answer.Value</Value> </Textbox> </ReportItems> </TableCell> <TableCell> <ReportItems> <Textbox Name="Percentage"> <Style> <Format>F</Format> <TextAlign>Left</TextAlign> </Style> <ZIndex>1</ZIndex> <rd:DefaultName>Percentage</rd:DefaultName> <CanGrow>true</CanGrow> <Value>=Fields!Percentage.Value</Value> </Textbox> </ReportItems> </TableCell> <TableCell> <ReportItems> <Image Name="image1"> <MIMEType>image/bmp</MIMEType> <Source>Database</Source> <Style> <BorderColor> <Default>MediumTurquoise</Default> </BorderColor> </Style> <Value>=Code.GenImage(100,8, Fields!Percentage.Value, iif( Fields!Answer.Value="Yes", System.Drawing.Color.Red, System.Drawing.Color.Blue), System.Drawing.Color.Aqua )</Value> <Sizing>FitProportional</Sizing> </Image> </ReportItems> </TableCell> </TableCells> </TableRow> </TableRows> </Details> <DataSetName>DataSet1</DataSetName> <Width>4.875in</Width> <TableColumns> <TableColumn> <Width>1.75in</Width> </TableColumn> <TableColumn> <Width>1.125in</Width> </TableColumn> <TableColumn> <Width>2in</Width> </TableColumn> </TableColumns> </Table> </ReportItems> <Style /> <Height>0.77778in</Height> </Body> <TopMargin>1in</TopMargin> <DataSources> <DataSource Name="northwind"> <rd:DataSourceID>7459c22f-a4c2-4a3a-9c4c-341aa300a830</rd:DataSourceID> <ConnectionProperties> <DataProvider>SQL</DataProvider> <ConnectString>data source=.;initial catalog=northwind</ConnectString> </ConnectionProperties> </DataSource> </DataSources> <Code> Public Shared Function GenImage(ByVal w As Integer, ByVal h As Integer, ByVal p As Double, byVal color1 as System.Drawing.Color, ByVal color2 as System.Drawing.Color ) As Byte() Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(w, h) Dim i, j As Integer For i = 0 To w - 1 For j = 0 To h - 1 If (i * 1.0 / w < p / 100.0) Then bmp.SetPixel(i, j, color1) Else bmp.SetPixel(i, j, color2) End If Next Next
Dim imageBytes() As Byte = Nothing
Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream
bmp.Save(memoryStream,System.Drawing.Imaging.ImageFormat.Bmp) bmp.Dispose()
imageBytes = memoryStream.ToArray() memoryStream.Close()
Return (imageBytes)
End Function</Code> <Width>5.01389in</Width> <DataSets> <DataSet Name="DataSet1"> <Fields> <Field Name="Percentage"> <DataField>Percentage</DataField> <rd:TypeName>System.Int32</rd:TypeName> </Field> <Field Name="Answer"> <DataField>Answer</DataField> <rd:TypeName>System.String</rd:TypeName> </Field> </Fields> <Query> <DataSourceName>northwind</DataSourceName> <CommandText>Select 73 as Percentage, 'Yes' as Answerunion allSelect 27 as Percentage, 'No' as Answer</CommandText> <rd:UseGenericDesigner>true</rd:UseGenericDesigner> </Query> </DataSet> </DataSets> <LeftMargin>1in</LeftMargin> <rd:SnapToGrid>true</rd:SnapToGrid> <rd:DrawGrid>true</rd:DrawGrid> <Description /> <rd:ReportID>e85dcc26-799a-42ea-9139-9f4cb1172711</rd:ReportID> <BottomMargin>1in</BottomMargin> <Language>en-US</Language></Report>