1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
| Public Sub competences_obtenu_apprenant()
datamesproduits = New dempfe.Dataset_groupes
Dim recherche As String = ("SELECT DISTINCT resultat_examen_competence.cde_apprenant, apprenant.nom, apprenant.prenom, apprenant.date_naissance, apprenant.adresse, resultat_examen_competence.cde_competence, resultat_examen_competence.situation_apprenant, resultat_examen_competence.nbh_abscence, resultat_examen_competence.resultat_final, resultat_examen_competence.resultat_examen_reg, resultat_examen_competence.resultat_examen_rec, resultat_examen_competence.resultat_examen_rep" _
& " FROM apprenant,resultat_examen_competence " _
& " where apprenant.cde_apprenant = resultat_examen_competence.cde_apprenant" _
& " and resultat_examen_competence.cde_apprenant=" _
& cin)
Dim myadapter As New OleDb.OleDbDataAdapter(recherche, connection)
myadapter.Fill(datamesproduits.apprenant)
'myadapter.Fill(datamesproduits.resultat_examen_competence)
etat_competences_obtenu_apprenant = New dempfe.competence_obtenue_apprenant
etat_competences_obtenu_apprenant.SetDataSource(datamesproduits)
CrystalReportViewer1.ReportSource = etat_competences_obtenu_apprenant
End Sub
Public Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim feuille5 As New recherche_resultats
'
'CrystalReportViewer1
'
CrystalReportViewer1.ActiveViewIndex = -1
CrystalReportViewer1.DisplayGroupTree = False
CrystalReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
CrystalReportViewer1.Location = New System.Drawing.Point(0, 0)
CrystalReportViewer1.Name = "CrystalReportViewer1"
CrystalReportViewer1.ReportSource = Nothing
CrystalReportViewer1.ShowCloseButton = False
CrystalReportViewer1.ShowGroupTreeButton = False
CrystalReportViewer1.ShowRefreshButton = False
CrystalReportViewer1.ShowTextSearchButton = False
CrystalReportViewer1.Size = New System.Drawing.Size(292, 266)
CrystalReportViewer1.TabIndex = 4
Controls.Add(CrystalReportViewer1)
If appel_etat = "competences_obtenu_apprenant" Then
Call competences_obtenu_apprenant()
ElseIf appel_etat = "Fich_suiveuse" Then
Call Affichage_fiche_suiveuse()
'TextBox1.Text = cmb_grille_groupeSelec.SelectedItem.TOUPPER
Else
'Call (identification_apprenant())()
End If
CrystalReportViewer1.Refresh()
datamesproduits.Clear()
datamesproduits.Dispose()
End Sub
Private Sub btn_impri_resultat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_impri_resultat.Click
cin = txt_recherche_cin.Text
'appel_etat = "competences_obtenu_apprenant"
Dim ma_forme As New Form6
ma_forme.ShowDialog()
End Sub |
Partager