Public Class clCient 'Dim ObjetDB As New classDB(Application.StartupPath.Substring(0, Application.StartupPath.LastIndexOf("SRC_GRANDIOSE") + "SRC_GRANDIOSE".Length) & "\projetgrandiose.mdb") Dim itmListItem As ListViewItem Dim ctr As Byte 'Public ObjetPersonneInterne As New classDB(My.MySettings.Default.PathDB) 'Public ObjetClient As New classDB(My.MySettings.Default.PathDB) 'Public ObjetTuteur As New classDB(My.MySettings.Default.PathDB) 'Public ObjetClientTuteur As New classDB(My.MySettings.Default.PathDB) 'Public ObjetTransporteur As New classDB(My.MySettings.Default.PathDB) 'Public ObjetFrereSoeur As New classDB(My.MySettings.Default.PathDB) 'Public ObjetEcole As New classDB(My.MySettings.Default.PathDB) 'Public ObjetDiagnostic As New classDB(My.MySettings.Default.PathDB) 'Public ObjetMedicament As New classDB(My.MySettings.Default.PathDB) 'Public objetPosologie As New classDB(My.MySettings.Default.PathDB) 'Public ObjetAllergie As New classDB(My.MySettings.Default.PathDB) Private ObjetUtile As New ClassUtilitaires Sub New() ''Création des objets pour la classe Employe 'ObjetPersonneInterne.Connecter() 'ObjetClient.Connecter() 'ObjetTuteur.Connecter() 'ObjetClientTuteur.Connecter() 'ObjetTransporteur.Connecter() 'ObjetFrereSoeur.Connecter() 'ObjetEcole.Connecter() 'ObjetDiagnostic.Connecter() 'ObjetMedicament.Connecter() 'objetPosologie.connecter() 'ObjetAllergie.Connecter() 'ObjetPersonneInterne.Remplir("Select * from PersonneInterne", "PersonneInterne") 'ObjetClient.Remplir("Select * from Client", "Client") 'ObjetTuteur.Remplir("Select * From Tuteur", "Tuteur") 'ObjetTransporteur.Remplir("Select * from Transporteur", "Transporteur") 'ObjetFrereSoeur.Remplir("Select * from FrereSoeur", "FrereSoeur") 'ObjetEcole.Remplir("Select * from Ecole", "Ecole") 'ObjetDiagnostic.Remplir("Select * from Diagnostic", "Diagnostic") 'ObjetMedicament.Remplir("Select * from Medicament", "Medicament") 'objetPosologie.Remplir("Select * from Posologie", "Posologie") 'ObjetAllergie.Remplir("Select * from Allergie", "Allergie") End Sub Sub Chargement(Optional ByVal AssMaladie As String = "BPRA 1234 1234") 'Dim iRowClient As Integer = ObjetClient.FindRow("NoClient", AssMaladie) 'Dim iRowPerInt As Integer = ObjetPersonneInterne.FindRow("AssuranceMaladie", AssMaladie) 'Dim iRowPerIntTut As Integer 'Dim iRowTuteur As Integer = ObjetTuteur.FindRow("NoTuteur", AssMaladie) 'Dim iRowTransporteur As Integer 'Dim iRowFrereSoeur As Integer 'Dim iRowEcole As Integer = ObjetEcole.FindRow("NoEcole", ObjetClient.GetItem(iRowClient, "NoEcole")) 'Dim iRowDiagnostic As Integer 'Dim iRowMedicament As Integer 'Dim iRowAllergie As Integer If Not db.execute("SELECT TOP 1 * FROM PersonneInterne", dataSet(TABLE_PERSONNEL)) Then Return End If 'Champs de la super classe Personne Interne frmGestionClient.mtxtAssMaladie.Text = dataSet(TABLE_PERSONNEL).Tables(dataSet(TABLE_PERSONNEL).DataSetName).Rows(0).Item("AssuranceMaladie") frmGestionClient.txtAdresseClient.Text = dataSet(TABLE_PERSONNEL).Tables(dataSet(TABLE_PERSONNEL).DataSetName).Rows(0).Item("AdresseResidence") frmGestionClient.cmbxVilleClient.Text = dataSet(TABLE_PERSONNEL).Tables(dataSet(TABLE_PERSONNEL).DataSetName).Rows(0).Item("Ville") frmGestionClient.mtxtCodePostal.Text = dataSet(TABLE_PERSONNEL).Tables(dataSet(TABLE_PERSONNEL).DataSetName).Rows(0).Item("CodePostal") frmGestionClient.dtpDateNaissClient.Value = dataSet(TABLE_PERSONNEL).Tables(dataSet(TABLE_PERSONNEL).DataSetName).Rows(0).Item("DateNaissance") frmGestionClient.txtCourrielClient.Text = dataSet(TABLE_PERSONNEL).Tables(dataSet(TABLE_PERSONNEL).DataSetName).Rows(0).Item("Courriel") 'Chargement du numéro de téléphone et du poste frmGestionClient.mtxtTelClient.Text = dataSet(TABLE_PERSONNEL).Tables(dataSet(TABLE_PERSONNEL).DataSetName).Rows(0).Item("Tel1") 'frmGestionEmploye.mtxtTel2.Text = dataSet.Tables("PersonneInterne").Rows(0).Item("Tel2") 'frmGestionEmploye.mtxtPoste2.Text = dataSet.Tables("PersonneInterne").Rows(0).Item("PosteTel2") frmGestionClient.mtxtTelUrgenceClient.Text = dataSet(TABLE_PERSONNEL).Tables(dataSet(TABLE_PERSONNEL).DataSetName).Rows(0).Item("TelUrgence") 'frmGestionClient.txtPoste2.Text = dataSet.Tables("PersonneInterne").Rows(0).Item("PosteTelUrg") 'Champs de la table Client seulement 'If dataSet.Tables("Client").Rows(0).Item("Sexe") = True Then ' frmGestionClient.rbtnMClient.Checked = True 'Else : frmGestionClient.rbtnFClient.Checked = True ' If dataSet.Tables("Client").Rows(0).Item("ParutionAutorisee") = True Then ' frmGestionClient.rbtnParutionOui.Checked = True ' Else : frmGestionClient.rbtnParutionNon.Checked = True ' End If 'End If Dim tuteurSet As New DataSet 'Champs de la table Tuteur 'ObjetDB.executeDataSet("SELECT * FROM", "", tuteurSet) 'pas sure de comprendre isi se que tu veux faire 'For ctr = 0 To 1 ' iRowTuteur = ObjetTuteur.FindRow("NoTuteur", ObjetClientTuteur.GetItem(ctr, "NoTuteur")) ' iRowPerIntTut = ObjetPersonneInterne.FindRow("AssuranceMaladie", ObjetTuteur.GetItem(iRowTuteur, "NoTuteur")) ' itmListItem = New ListViewItem() ' itmListItem.Text = ObjetPersonneInterne.GetItem(iRowPerIntTut, "NomComplet") ' itmListItem.SubItems.Add(ObjetPersonneInterne.GetItem(iRowPerIntTut, "Tel1")) ' frmGestionClient.lvwTuteur.Items.Add(itmListItem) 'Next 'MsgBox("Chargement terminé", MsgBoxStyle.Information, "Yeah !!!") End Sub Sub ClearTout() frmGestionClient.txtAdresseClient.Clear() frmGestionClient.txtAdresseTuteur.Clear() frmGestionClient.txtLienTransporteur.Clear() frmGestionClient.txtNomClient.Clear() frmGestionClient.txtNomFrereSoeur.Clear() frmGestionClient.txtNomTransporteur.Clear() frmGestionClient.txtNomTuteur.Clear() frmGestionClient.txtCourrielClient.Clear() frmGestionClient.txtPoste1.Clear() frmGestionClient.txtPoste2.Clear() frmGestionClient.txtPosteTransporteur.Clear() frmGestionClient.txtPosteTuteur.Clear() frmGestionClient.txtFrequence.Clear() frmGestionClient.txtPosologie.Clear() frmGestionClient.mtxtAssMaladie.Clear() frmGestionClient.mtxtCodePostal.Clear() frmGestionClient.mtxtTel2Client.Clear() frmGestionClient.mtxtTel2Client.Text = My.MySettings.Default.IndicatifparDefaut frmGestionClient.mtxtTelClient.Clear() frmGestionClient.mtxtTelClient.Text = My.MySettings.Default.IndicatifparDefaut frmGestionClient.mtxtTelEcole.Clear() frmGestionClient.mtxtTelEcole.Text = My.MySettings.Default.IndicatifparDefaut frmGestionClient.mtxtTelTransporteur.Clear() frmGestionClient.mtxtTelTransporteur.Text = My.MySettings.Default.IndicatifparDefaut frmGestionClient.mtxtTelTuteur.Clear() frmGestionClient.mtxtTelTuteur.Text = My.MySettings.Default.IndicatifparDefaut frmGestionClient.mtxtTelUrgenceClient.Clear() frmGestionClient.mtxtTelUrgenceClient.Text = My.MySettings.Default.IndicatifparDefaut frmGestionClient.mtxtTelUrgenceTuteur.Clear() frmGestionClient.mtxtTelUrgenceTuteur.Text = My.MySettings.Default.IndicatifparDefaut frmGestionClient.mtxtTelUrgenceTransporteur.Clear() frmGestionClient.mtxtTelUrgenceTransporteur.Text = My.MySettings.Default.IndicatifparDefaut frmGestionClient.rbtnBanirNon.Checked = True frmGestionClient.rbtnBanirOui.Checked = False frmGestionClient.rbtnFClient.Checked = False frmGestionClient.rbtnFSoeur.Checked = False frmGestionClient.rbtnMClient.Checked = True frmGestionClient.rbtnMFrere.Checked = True frmGestionClient.rbtnParutionNon.Checked = False frmGestionClient.rbtnParutionOui.Checked = True frmGestionClient.rtxtDirectives.Clear() frmGestionClient.rtxtSoinsParticuliers.Clear() frmGestionClient.lvwTuteur.Clear() frmGestionClient.lvwTransporteur.Clear() frmGestionClient.lvwFrereSoeur.Clear() frmGestionClient.lvwMedical.Clear() frmGestionClient.lklblDetails.Enabled = False frmGestionClient.dtpDateNaissClient.Value = Now frmGestionClient.dtpDateNaissFS.Value = Now frmGestionClient.cmbxVilleClient.Text = My.MySettings.Default.VilleparDefaut frmGestionClient.cmbxVilleEcole.Text = My.MySettings.Default.VilleparDefaut InitaliserListView() End Sub Sub DésactiverTout() frmGestionClient.gbxClient.Enabled = False frmGestionClient.btnAjouterAllergie.Enabled = False frmGestionClient.btnAjouterDiagnostic.Enabled = False frmGestionClient.btnAjouterFS.Enabled = False frmGestionClient.btnAjouterMedical.Enabled = False frmGestionClient.btnAjouterTransporteur.Enabled = False frmGestionClient.btnAjouterTuteur.Enabled = False frmGestionClient.btnEnregistrer.Enabled = False frmGestionClient.btnFermer.Enabled = False frmGestionClient.btnModifierAllergie.Enabled = False frmGestionClient.btnModifierDiagnostic.Enabled = False frmGestionClient.btnModifierMedical.Enabled = False frmGestionClient.btnModifierTransporteur.Enabled = False frmGestionClient.btnModifierTuteur.Enabled = False frmGestionClient.btnNouveauDossier.Enabled = False frmGestionClient.btnOuvrirDossier.Enabled = False frmGestionClient.btnSupprimerAllergie.Enabled = False frmGestionClient.btnSupprimerDiagnostic.Enabled = False frmGestionClient.btnSupprimerFS.Enabled = False frmGestionClient.btnSupprimerMedical.Enabled = False frmGestionClient.btnSupprimerTransporteur.Enabled = False frmGestionClient.btnSupprimerTuteur.Enabled = False frmGestionClient.txtAdresseTuteur.Enabled = False frmGestionClient.txtFrequence.Enabled = False frmGestionClient.txtLienTransporteur.Enabled = False frmGestionClient.txtNomFrereSoeur.Enabled = False frmGestionClient.txtNomTransporteur.Enabled = False frmGestionClient.txtNomTuteur.Enabled = False frmGestionClient.txtPosteTransporteur.Enabled = False frmGestionClient.txtPosteTuteur.Enabled = False frmGestionClient.rtxtDirectives.Enabled = False frmGestionClient.rtxtSoinsParticuliers.Enabled = False frmGestionClient.rbtnFSoeur.Enabled = False frmGestionClient.rbtnMFrere.Enabled = False frmGestionClient.mtxtTelTransporteur.Enabled = False frmGestionClient.mtxtTelTuteur.Enabled = False frmGestionClient.mtxtTelUrgenceTransporteur.Enabled = False frmGestionClient.mtxtTelUrgenceTuteur.Enabled = False frmGestionClient.mtxtTelEcole.Enabled = False frmGestionClient.lvwFrereSoeur.Enabled = False frmGestionClient.lvwMedical.Enabled = False frmGestionClient.lvwTransporteur.Enabled = False frmGestionClient.lvwTuteur.Enabled = False frmGestionClient.cmbxMedicament.Enabled = False frmGestionClient.cmbxNomEcole.Enabled = False frmGestionClient.cmbxVilleEcole.Enabled = False frmGestionClient.clbxAllergie.Enabled = False frmGestionClient.clbxDiagnostic.Enabled = False frmGestionClient.dtpDateNaissFS.Enabled = False End Sub Sub ActiverTout() frmGestionClient.gbxClient.Enabled = True frmGestionClient.btnAjouterAllergie.Enabled = True frmGestionClient.btnAjouterDiagnostic.Enabled = True frmGestionClient.btnAjouterFS.Enabled = True frmGestionClient.btnAjouterMedical.Enabled = True frmGestionClient.btnAjouterTransporteur.Enabled = True frmGestionClient.btnAjouterTuteur.Enabled = True frmGestionClient.btnEnregistrer.Enabled = True frmGestionClient.btnFermer.Enabled = True frmGestionClient.btnModifierAllergie.Enabled = True frmGestionClient.btnModifierDiagnostic.Enabled = True frmGestionClient.btnModifierMedical.Enabled = True frmGestionClient.btnModifierTransporteur.Enabled = True frmGestionClient.btnModifierTuteur.Enabled = True frmGestionClient.btnNouveauDossier.Enabled = True frmGestionClient.btnOuvrirDossier.Enabled = True frmGestionClient.btnSupprimerAllergie.Enabled = True frmGestionClient.btnSupprimerDiagnostic.Enabled = True frmGestionClient.btnSupprimerFS.Enabled = True frmGestionClient.btnSupprimerMedical.Enabled = True frmGestionClient.btnSupprimerTransporteur.Enabled = True frmGestionClient.btnSupprimerTuteur.Enabled = True frmGestionClient.txtAdresseTuteur.Enabled = True frmGestionClient.txtLienTransporteur.Enabled = True frmGestionClient.txtNomFrereSoeur.Enabled = True frmGestionClient.txtNomTransporteur.Enabled = True frmGestionClient.txtNomTuteur.Enabled = True frmGestionClient.txtPosteTransporteur.Enabled = True frmGestionClient.txtPosteTuteur.Enabled = True frmGestionClient.rtxtDirectives.Enabled = True frmGestionClient.rtxtSoinsParticuliers.Enabled = True frmGestionClient.rbtnFSoeur.Enabled = True frmGestionClient.rbtnMFrere.Enabled = True frmGestionClient.mtxtTelTransporteur.Enabled = True frmGestionClient.mtxtTelTuteur.Enabled = True frmGestionClient.mtxtTelUrgenceTransporteur.Enabled = True frmGestionClient.mtxtTelUrgenceTuteur.Enabled = True frmGestionClient.mtxtTelEcole.Enabled = True frmGestionClient.lvwFrereSoeur.Enabled = True frmGestionClient.lvwMedical.Enabled = True frmGestionClient.lvwTransporteur.Enabled = True frmGestionClient.lvwTuteur.Enabled = True frmGestionClient.cmbxMedicament.Enabled = True frmGestionClient.cmbxNomEcole.Enabled = True frmGestionClient.cmbxVilleEcole.Enabled = True frmGestionClient.clbxAllergie.Enabled = True frmGestionClient.clbxDiagnostic.Enabled = True frmGestionClient.dtpDateNaissFS.Enabled = True End Sub Sub DesactiverModSupp() frmGestionClient.btnModifierAllergie.Enabled = False frmGestionClient.btnModifierDiagnostic.Enabled = False frmGestionClient.btnModifierMedical.Enabled = False frmGestionClient.btnModifierTransporteur.Enabled = False frmGestionClient.btnModifierTuteur.Enabled = False frmGestionClient.btnSupprimerAllergie.Enabled = False frmGestionClient.btnSupprimerDiagnostic.Enabled = False frmGestionClient.btnSupprimerFS.Enabled = False frmGestionClient.btnSupprimerMedical.Enabled = False frmGestionClient.btnSupprimerTransporteur.Enabled = False frmGestionClient.btnSupprimerTuteur.Enabled = False End Sub Sub InitaliserListView() frmGestionClient.lvwFrereSoeur.Columns.Add("Nom", 120, HorizontalAlignment.Left) frmGestionClient.lvwFrereSoeur.Columns.Add("Sexe", 43, HorizontalAlignment.Left) frmGestionClient.lvwFrereSoeur.Columns.Add("Age", 43, HorizontalAlignment.Left) frmGestionClient.lvwTransporteur.Columns.Add("Nom", 120, HorizontalAlignment.Left) frmGestionClient.lvwTransporteur.Columns.Add("Téléphone", 135, HorizontalAlignment.Left) frmGestionClient.lvwTuteur.Columns.Add("Nom", 120, HorizontalAlignment.Left) frmGestionClient.lvwTuteur.Columns.Add("Téléphone", 135, HorizontalAlignment.Left) frmGestionClient.lvwMedical.Columns.Add("Médicament", 101, HorizontalAlignment.Left) frmGestionClient.lvwMedical.Columns.Add("Posologie", 60, HorizontalAlignment.Left) frmGestionClient.lvwMedical.Columns.Add("Fréquence", 102, HorizontalAlignment.Left) End Sub Sub AjouterTuteur() itmListItem = New ListViewItem() itmListItem.Text = frmGestionClient.txtNomTuteur.Text itmListItem.SubItems.Add(frmGestionClient.mtxtTelTuteur.Text) frmGestionClient.lvwTuteur.Items.Add(itmListItem) End Sub Sub ModifierTuteur() End Sub Sub ChargerTuteur() frmGestionClient.txtNomTuteur.Text = "" frmGestionClient.txtAdresseTuteur.Text = "" frmGestionClient.mtxtTelTuteur.Text = "" frmGestionClient.mtxtTelUrgenceTuteur.Text = "" frmGestionClient.txtPosteTuteur.Text = "" End Sub Sub AjouterTransporteur() itmListItem = New ListViewItem() itmListItem.Text = frmGestionClient.txtNomTransporteur.Text itmListItem.SubItems.Add(frmGestionClient.mtxtTelTransporteur.Text) frmGestionClient.lvwTransporteur.Items.Add(itmListItem) End Sub Sub ModifierTransporteur() End Sub Sub ChargerTransporteur() frmGestionClient.txtNomTransporteur.Text = "" frmGestionClient.txtLienTransporteur.Text = "" frmGestionClient.mtxtTelTransporteur.Text = "" frmGestionClient.mtxtTelUrgenceTransporteur.Text = "" frmGestionClient.txtPosteTransporteur.Text = "" End Sub Sub AjouterFrereSoeur() 'Déclarations Dim sexe As Char Dim age As Byte 'Détermination du sexe If frmGestionClient.rbtnMFrere.Checked = True Then sexe = "M" Else : sexe = "F" End If 'Détermination de l'age age = CInt(Now.Year - frmGestionClient.dtpDateNaissFS.Value.Year) If (frmGestionClient.dtpDateNaissFS.Value.Month > Now.Month) Then age = age - 1 End If If ((frmGestionClient.dtpDateNaissFS.Value.Month = Now.Month) And (frmGestionClient.dtpDateNaissFS.Value.Day > Now.Day)) Then age = age - 1 End If 'Ajouter les item itmListItem = New ListViewItem() itmListItem.Text = frmGestionClient.txtNomFrereSoeur.Text itmListItem.SubItems.Add(sexe) itmListItem.SubItems.Add(age) 'Ajouter au listview frmGestionClient.lvwFrereSoeur.Items.Add(itmListItem) End Sub Sub AjouterMedical() itmListItem = New ListViewItem() itmListItem.Text = frmGestionClient.cmbxMedicament.SelectedItem itmListItem.SubItems.Add(frmGestionClient.txtPosologie.Text) itmListItem.SubItems.Add(frmGestionClient.txtFrequence.Text) frmGestionClient.lvwMedical.Items.Add(itmListItem) End Sub Sub ModifierMedical() End Sub Sub ChargerMedical() frmGestionClient.txtPosologie.Text = "" frmGestionClient.txtFrequence.Text = "" End Sub Sub GestionTab() frmGestionClient.mtxtAssMaladie.Focus() frmGestionClient.mtxtAssMaladie.TabIndex = 1 frmGestionClient.txtNomClient.TabIndex = 2 frmGestionClient.dtpDateNaissClient.TabIndex = 3 frmGestionClient.rbtnMClient.TabIndex = 4 frmGestionClient.txtAdresseClient.TabIndex = 5 frmGestionClient.cmbxVilleClient.TabIndex = 6 frmGestionClient.mtxtCodePostal.TabIndex = 7 frmGestionClient.mtxtTelClient.TabIndex = 8 frmGestionClient.mtxtTel2Client.TabIndex = 9 frmGestionClient.txtPoste1.TabIndex = 10 frmGestionClient.mtxtTelUrgenceClient.TabIndex = 11 frmGestionClient.txtPoste2.TabIndex = 12 frmGestionClient.txtCourrielClient.TabIndex = 13 End Sub Sub loadListView(ByVal temp As ListView) 'ObjetDB.Remplir("select * from Diagnostic", "Diagnostic") 'If temp.Name = frmGestionClient.lvwAllergies.Name Then ' frmGestionClient.lvwAllergies.Columns.Add("Allergies", 75, HorizontalAlignment.Left) ' frmGestionClient.lvwAllergies.Columns.Add("Spécifications", 133, HorizontalAlignment.Left) 'ElseIf temp.Name = frmGestionClient.lvwDiagnostic.Name Then ' ' For i As Byte = 0 To ObjetDB.Count() ' 'frmGestionClient.lvwDiagnostic.Items.Add(ObjetDB.GetRow(i).Item(0)) ' 'Next 'ElseIf temp.Name = frmGestionClient.lvwFrereSoeur.Name Then ' frmGestionClient.lvwFrereSoeur.Columns.Add("Nom", 120, HorizontalAlignment.Left) ' frmGestionClient.lvwFrereSoeur.Columns.Add("Sexe", 43, HorizontalAlignment.Left) ' frmGestionClient.lvwFrereSoeur.Columns.Add("Age", 36, HorizontalAlignment.Left) 'ElseIf temp.Name = frmGestionClient.lvwMedicament.Name Then ' frmGestionClient.lvwMedicament.Columns.Add("Médicaments", 81, HorizontalAlignment.Left) ' frmGestionClient.lvwMedicament.Columns.Add("Posologie", 61, HorizontalAlignment.Left) ' frmGestionClient.lvwMedicament.Columns.Add("Fréquence", 66, HorizontalAlignment.Left) 'End If End Sub End Class 'Tiafan [USS] dit : 'CLinterets.SetItemChecked(j, True) 'Tiafan [USS] dit : 'CLinterets.Items(j).ToString() 'Tiafan [USS] dit : 'ca c pour avoir le text