or
linePrice =
new
DataTable();
linePrice.Columns.Add(
"Price"
,
typeof
(
float
));
linePrice.Columns.Add(
"Date"
,
typeof
(DateTime));
LineSeries lineSeria =
new
LineSeries();
radChartView1.Series.Add(lineSeria);
lineSeria.ShowLabels =
true
;
lineSeria.LabelFormat =
"{0:C}"
;
lineSeria.ValueMember =
"Price
"
;
lineSeria.CategoryMember =
"Date
"
;
lineSeria.DataSource = linePrice
;
DateTimeCategoricalAxis categoricalAxis =
new
DateTimeCategoricalAxis();
categoricalAxis.DateTimeComponent = DateTimeComponent.Day;
categoricalAxis.MajorTickInterval = 1;
categoricalAxis.PlotMode = AxisPlotMode.BetweenTicks;
categoricalAxis.LabelFormat =
"{0:dd}.{0:MM}.{0:yyyy}"
;
lineSeria.HorizontalAxis = categoricalAxis;
Private Function GetDummyList() As BindingList(Of RateShockData)
Dim l As New BindingList(Of RateShockData)
l.Add(New RateShockData("+300", "-13.9"))
l.Add(New RateShockData("+200", "-9"))
l.Add(New RateShockData("+100", "-3.9"))
l.Add(New RateShockData("even", "0"))
l.Add(New RateShockData("-100", "-.2"))
l.Add(New RateShockData("-200", "1"))
l.Add(New RateShockData("-300", "2.2"))
Return l
End Function
Private Function BuildChart()
Dim c1 As New RadChartView
Dim bs As New BarSeries
bs.Name = "Market % Change"
bs.ValueMember = "MVPctChange"
bs.CategoryMember = "BPChange"
bs.DataSource = GetDummyList()
c1.Series.Clear()
c1.Series.Add(bs)
Dim bitM As New Bitmap(c1.Width, c1.Height)
c1.DrawToBitmap(bitM, c1.Bounds)
Dim imageFileName As String = Guid.NewGuid.ToString + ".jpg"
bitM.Save(imageFileName, Drawing.Imaging.ImageFormat.Jpeg)
End Function
Private Sub RadButton2_Click(sender As Object, e As EventArgs) Handles RadButton2.Click
BuildChart()
End Sub
Public Class RateShockData
Property BPChange As String
Property MVPctChange As String
Public Sub New(bpc As String, mvpc As String)
BPChange = bpc
MVPctChange = mvpc
End Sub
End Class
c1.Area.View.Palette = KnownPalette.Grayscale
Private
Sub
FrmKundenliste_Load(sender
As
Object
, e
As
EventArgs)
Handles
MyBase
.Load
Dim
objconn
As
New
SqlConnection(My.Settings.SQL_V4)
Dim
rs
As
New
SqlCommand(
""
, objconn)
Dim
dr
As
DbDataReader
rs.CommandText = "Select * from dbo.ApplicationMain"
Try
objconn.Open()
dr = rs.ExecuteReader
If
dr.Read()
Then
RadGridView1.DataSource = dr
Dim
objconn_detail
As
New
SqlConnection(My.Settings.SQL_V4)
Dim
rs_detail
As
New
SqlCommand(
""
, objconn_detail)
Dim
dr_detail
As
DbDataReader
objconn_detail.Open()
rs_detail.CommandText =
"Select * from dbo.ApplicationDetail"
dr_detail = rs_detail.ExecuteReader
If
dr_detail.Read()
Then
Dim
template
As
New
GridViewTemplate()
template.DataSource = dr_detail
RadGridView1.MasterTemplate.Templates.Add(template)
Dim
relation
As
New
GridViewRelation(RadGridView1.MasterTemplate)
relation.ChildTemplate = template
relation.RelationName =
"ApplicationDetails"
relation.ParentColumnNames.Add(
"Id"
)
relation.ChildColumnNames.Add(
"ApplicationId"
)
RadGridView1.Relations.Add(relation)
End
If
End
If
Catch
ex
As
Exception
End
Try
End
Sub