小区物业管理系统-信息统计

小区物业管理系统-信息统计

做图形式

Public Class TJ
    Dim sb1 As New SolidBrush(Color.Black)
    Dim sb2 As New SolidBrush(Color.Red)

    Public Sub New(u As String)
        InitializeComponent()
    End Sub
    Private Sub TJ_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label16.Text = Format(Now, "yyyy-mm-dd")
        Label11.Text = Format(Now, "hh:mm:ss")
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        '绘制折线
        Dim g As Graphics
        g = PictureBox1.CreateGraphics

        PictureBox1.Refresh()
        Dim zhiwei(4) As String
        Dim People(4) As Integer
        zhiwei(1) = "A区"
        zhiwei(2) = "B区"
        zhiwei(3) = "C区"
        zhiwei(4) = "D区"
        People(1) = proprietorCountLike("A")
        People(2) = proprietorCountLike("B")
        People(3) = proprietorCountLike("C")
        People(4) = proprietorCountLike("D")

        ' seasonValue(0) = nudSeason1.Value

        DrawAxis(g)
        Dim signX, signY As Integer
        Dim pointSign() As Point
        ReDim pointSign(4)

        signX = 100
        For i As Integer = 1 To 4

            signY = 320 - People(i) * 4
            pointSign(i) = New Point(signX, signY)
            g.FillEllipse(New SolidBrush(Color.DarkRed), New Rectangle(signX - 4, signY - 4, 8, 8))
            signX = signX + 130
        Next

        Dim penSign As New Pen(Color.DarkOrange, 2)
        For i As Integer = 1 To 3
            g.DrawLine(penSign, pointSign(i), pointSign(i + 1))
        Next

        Dim strX, strY As Integer
        strX = 100
        For i As Integer = 1 To 4

            strY = 325
            g.DrawString(zhiwei(i), New Font("方正舒体", 15), New SolidBrush(Color.Black), New Point(strX, strY))
            strX = strX + 130
        Next
    End Sub
    Private Sub DrawAxis(g As Graphics)

        Dim p As New Pen(Color.Black, 1)

        p.EndCap = Drawing2D.LineCap.ArrowAnchor

        Dim originX As Integer = 40
        Dim originY As Integer = 320
        Dim originPoint As Point = New Point(originX, originY)
        g.DrawLine(p, originPoint, New Point(540, 320))
        g.DrawLine(p, originPoint, New Point(40, 20))

        Dim pAxisY As New Pen(Color.Black, 1)
        Dim AxisYPos As Point
        Dim AxisYValue As String

        For i As Integer = 0 To 9
            AxisYValue = (i * 10).ToString
            AxisYPos = New Point(20, originY - i * 30 - 5)
            g.DrawString(AxisYValue, New Font("方正舒体", 10), New SolidBrush(Color.Black), AxisYPos)
            g.DrawLine(pAxisY, New Point(40, originY - i * 30), New Point(50, originY - i * 30))
        Next
    End Sub

    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
        Dim g As Graphics
        g = PictureBox1.CreateGraphics
        PictureBox1.Refresh()
        DrawAxis(g)
        Dim zhiwei(2) As String
        Dim People(2) As Integer
        zhiwei(1) = "男"
        zhiwei(2) = "女"
        People(1) = proprietorCountLike("男")
        People(2) = proprietorCountLike("女")
        Dim recX, recY As Integer
        recX = 150
        For i As Integer = 1 To 2
            recY = 320 - People(i) * 3
            g.FillRectangle(New SolidBrush(Color.Salmon), New Rectangle(recX, recY, 70, People(i) * 3))
            recX = recX + 200
        Next
        Dim strX, strY As Integer
        strX = 160
        For i As Integer = 1 To 2
            strY = 325
            g.DrawString(zhiwei(i), New Font("方正舒体", 15), New SolidBrush(Color.Black), New Point(strX, strY))
            strX = strX + 200
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

报表形式

Imports Microsoft.Reporting.WinForms

Public Class TJ2
    Public Sub New(u As String)
        InitializeComponent()
    End Sub
    Private Sub TJ2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ReportViewer1.RefreshReport()
        Dim DataSet3 As DataSet = ProSe()

        ReportViewer1.LocalReport.ReportPath = "tj.rdlc"

        Dim NowDateTime1 As Date
        NowDateTime1 = Now()
        '下边两名是给报表参数NowDateTime传递具体的值
        'Dim _qr As ReportParameter '声明报表变量
        ' _qr = New ReportParameter("NowDateTime", NowDateTime1) '声明报表变量实例，引号里的字符串是在报表里设计的参数名称，逗号后的是要传进去的值
        ' ReportViewer1.LocalReport.SetParameters(New ReportParameter() {_qr})
        '注意报表参数不能超过9个！

        ReportViewer1.LocalReport.DataSources.Clear()
        ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet3", DataSet3.Tables(0)))
        ReportViewer1.RefreshReport()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class