Public Class notsorgu
    Dim conn As New SqlConnection("Data Source=ACER-BILGISAYAR\SQLEXPRESS;Initial Catalog=okul;Integrated Security=True")
    Dim com As SqlCommand = New SqlCommand("select * from notsorgu ", conn)
    Dim dr As SqlDataReader
    Dim dgv As DataGridView
    Dim dt As DataTable
    Dim ds As DataSet
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        anamenu.Show()
        Me.Hide()
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        ogrencibilgileri.Show()
        Me.Hide()
 
    End Sub
 
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        dersler1.Show()
        Me.Hide()
 
    End Sub
 
    Private Sub notsorgu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DataSet11.dersler11' table. You can move, or remove it, as needed.
        '  Me.Dersler11TableAdapter.Fill(Me.DataSet11.dersler11)
 
 
        Dim ds As DataSet = New DataSet()
        Dim da As SqlDataAdapter = New SqlDataAdapter()
        Dim con As SqlConnection = New SqlConnection("Data Source=ACER-BILGISAYAR\SQLEXPRESS;Initial Catalog=okul;Integrated Security=True")
        Dim cmd As SqlCommand = New SqlCommand("select donemadi from dnm", con)
 
        da.SelectCommand = cmd
        da.Fill(ds, "donemadi")
        combodonem.DataSource = ds.Tables("donemadi")
        combodonem.DisplayMember = "donemadi"
        combodonem.ValueMember = "donemid"
        'comboBox1.SelectedIndex = -1;
        'label3.Text = comboBox1.SelectedValue.ToString();
 
        Dim connec As SqlConnection = New SqlConnection("Data Source=ACER-BILGISAYAR\SQLEXPRESS;Initial Catalog=okul;Integrated Security=True")
        Dim cmmd As SqlCommand = New SqlCommand("select * from donem ")
        cmmd.Connection = connec
        connec.Open()
        Dim drdonem As SqlDataReader = cmd.ExecuteReader()
        While drdonem.Read()
            Dim d As donem = New donem()
            d.donemadi = drdonem("donemadi")
            d.donemid = drdonem("donemid")
            combodonem.Items.Add(d)
        End While
        conn.Close()
        connec.Close()
    End Sub
 
    Private Sub combodonem_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combodonem.SelectedIndexChanged
        Dim cmb As ComboBox = CType(sender, ComboBox)
        Dim str As String = ""
 
        If cmb.SelectedIndex = 0 Then
            str = "select * from dersler1 where derskodu like '1%'"
 
            For i As Integer = 0 To 9
 
                Dim lbl As Label = New Label()
 
 
                lbl.Text = ds.Tables("dersler1").Rows(2).Item("derskodu")
 
                lbl.Name = "lblKodu" & (i + 1)
                lbl.Location = New Point(50, 193 + i * 24)
 
                Me.Controls.Add(lbl)
 
            Next
 
        Else
            str = "select * from dersler1 where derskodu like '2%'"
            For i As Integer = 0 To 9
 
                Dim lbl As Label = New Label()
 
 
                lbl.Text = ds.Tables("dersler1").Rows(2).Item("derskodu")
                lbl.Name = "lblKodu" & (i + 1)
                lbl.Location = New Point(50, 193 + i * 24)
 
                Me.Controls.Add(lbl)
 
            Next
 
 
            Dim da As SqlDataAdapter = New SqlDataAdapter(str, conn)
            Dim cmmd As SqlCommand = New SqlCommand("select * from dersler1 ")
            conn.Open()
            dr = SqlCommand1.ExecuteReader
 
        End If
 
 
    End Sub

Private Sub combodonem_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combodonem.SelectedIndexChanged 'COMBOBOX A YAZMAMIZIN SEBEBİ GÜZ VE BAHAR SEÇENEKLERİNİ CLASS TAN ALMAMIZDIR 
        Dim labelbaglanti As SqlConnection = New SqlConnection("Data Source=ACER-BILGISAYAR\SQLEXPRESS;Initial Catalog=okul;Integrated Security=True")' BURADA YENİ BİR CONNECTİON TANIMLIYORUM 
        Dim cmb As ComboBox = CType(sender, ComboBox)
        Dim str As String = ""
        If cmb.SelectedIndex = 1 Then
            str = "select * from dersler1 where derskodu like '1%'" ' DERSLER1 TABLOMUZDA BULUNAN VERİLERİ ÇEKİYORUZ 
        ElseIf cmb.SelectedIndex = 2 Then
            str = "select * from dersler1 where derskodu like '2%'"
        Else
            Return
        End If
        Dim da As SqlDataAdapter = New SqlDataAdapter(str, labelbaglanti)
        Dim dt As DataTable = New DataTable()
        da.Fill(dt)
 
        For i As Integer = 0 To 9
 
            Dim lbl As Label = New Label() ' BU LABEL IMIZI DERSKODU İÇİN 
            Dim lbl2 As Label = New Label() ' BU LABEL IMIZI DERS ADLARI İÇİN TANIMLADIK
            Dim txtas1 As TextBox = New TextBox() 
            Dim txtfinal As TextBox = New TextBox()
            Dim txtort As TextBox = New TextBox()
            Dim txtdd As TextBox = New TextBox()
            Dim txth As TextBox = New TextBox() ' YENİ TEXBOXLARIMIZI OLUŞTURDUK
 
            txtas1.Width = 45 ' BURADA TEXTBOX IN GENİŞLİĞİNİ KENDİMİZ BELİLEDİK
            txtas1.MaxLength = 2 ' BURDADA TEXTBOX A GİRİLEBİLECEK KARAKTER SAYISINI BELİRLEDİK
            txtfinal.Width = 45
            txtfinal.MaxLength = 2
            txtort.Width = 45
            txtort.MaxLength = 2
            txtort.ReadOnly = True
            txtdd.Width = 45
            txtdd.MaxLength = 1
            txtdd.ReadOnly = True
            txth.Width = 45
            txth.MaxLength = 2
            txth.ReadOnly = True
 
            lbl.Text = dt.Rows(i)("derskodu").ToString() ' LABEL LERİMİZE DERSLER1 TABLOMUZDA BULUNAN VERİLERİ ÇEKTİK
            lbl2.Text = dt.Rows(i)("dersadi").ToString() ' LABEL2 YE DE DERS ADLARINI ÇEKTİK
            txtas1.Text = "".ToString() ' TEXTBOXLARIMIZIN BOŞ GELMESİNİ SAĞLADIK
            txtfinal.Text = "".ToString()
            txtort.Text = "".ToString()
            txtdd.Text = "".ToString()
            txth.Text = "".ToString()
            lbl.Name = "lblKodu" & (i + 1) ' OLUŞAN LABEL LERİN ADLARINI VERDİK VE İ DEĞİŞKENİNİ 1 ER ARTIRDIK (FOR DÖNGÜSÜNDE 0 DAN 9 A KADAR OLUŞMASINI İSTEMİŞTİK BUNUN İÇİN HER OLUŞAN LABEL DE +1 OLUŞUYOR VE 9 DA LABEL OLUŞUMU SONA ERİYOR). AYNILARINI DİĞER TEXTBOXLARA UYGULADIK
            lbl2.Name = "lblAdi" & (i + 1)
            txtas1.Name = "txtarasinav" & (i + 1)
            txtfinal.Name = "txtfinal" & (i + 1)
            txtort.Name = "txtortalama" & (i + 1)
            txtdd.Name = "txtdurum" & (i + 1)
            txth.Name = "txtharf" & (i + 1)
            lbl.Location = New Point(20, 66 + i * 23)' BURADA OLUŞACAK LABEL LARIN LOCATİONLARINI BELİRTTİK(FORMDAKİ KONUMLARI)
            lbl2.Location = New Point(20 + lbl.Width, 66 + i * 23)
            txtas1.Location = New Point(190 + lbl2.Width, 66 + i * 23)
            txtfinal.Location = New Point(295 + txtas1.Width, 66 + i * 23)
            txtort.Location = New Point(345 + txtfinal.Width, 66 + i * 23)
            txtdd.Location = New Point(395 + txtort.Width, 66 + i * 23)
            txth.Location = New Point(445 + txtdd.Width, 66 + i * 23)
 
            lbl.Visible = True
            GroupBox1.Controls.Add(lbl)' BÜTÜN OLUŞAN ŞEYLERİ GROUPBOX IN İÇİNDE OLMASINI İSTEMİŞTİM BU YÜZDEN GROUPBOZX CONTROLÜ YAPTIK. EĞER Kİ FORMDA OLUŞMASINI İSTİYORSAK ME.CONTROLS.ADD YAZMAMIZ YETERLİ OLACAKTIR
            GroupBox1.Controls.Add(lbl2)
            GroupBox1.Controls.Add(txtas1)
            GroupBox1.Controls.Add(txtfinal)
            GroupBox1.Controls.Add(txtort)
            GroupBox1.Controls.Add(txtdd)
            GroupBox1.Controls.Add(txth)
     ' TÜM TEXTBOX VE LABELLERİ EKLEDİKTEN SONRA BİTİRİYORUZ    
        Next
 
    End Sub