Imports System.Data.OleDb
Public Class Form1
Dim provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DOUSSA.mdb;Persist Security Info=True"
Dim Conn As OleDbConnection = New OleDbConnection(provider)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim da As New OleDbDataAdapter("SELECT [ANNEE], [MASCULIN] , [FEMININ]FROM [MMSHART]", Conn)
Dim dt As New DataTable
da.Fill(dt)
Chart1.DataSource = dt
Chart1.Titles.Clear()
With Chart1.Titles.Add("إحصائية لعدد الذكور والإناث")
.TextStyle = DataVisualization.Charting.TextStyle.Shadow
.Font = New Font("Times New Roman", 20, FontStyle.Bold)
.ForeColor = Color.Brown
End With
With Chart1.Titles.Add("الإحصائية للأعوام من سنة 2000")
.TextStyle = DataVisualization.Charting.TextStyle.Shadow
.Font = New Font("Times New Roman", 12, FontStyle.Bold)
.ForeColor = Color.Brown
End With
Chart1.Series.Clear()
With Chart1.Series.Add("الذكور")
.Color = Color.Blue
.XValueMember = "ANNEE"
.YValueMembers = "MASCULIN"
End With
With Chart1.Series.Add("الإناث")
.Color = Color.DeepPink
.XValueMember = "ANNEE"
.YValueMembers = "FEMININ"
End With
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Me.Hide()
Form2.Show()
End Sub
End Class
