[طالب برمجة]

بالنسبة للمرفق الأول - الفورم الأول

PHP كود :

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

        Chart1.Series.Add("MASCULIN")
        Chart1.Series.Add("FEMININ")

        Dim da As New OleDbDataAdapter("SELECT [YYear], [NNumber] FROM [MASCULIN]", Conn)
        Dim dt As New DataTable
        da.Fill(dt)
        Chart1.DataSource = dt
        Chart1.Series(0).XValueMember = "YYear"
        Chart1.Series(0).YValueMembers = "NNumber"

    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