rendered paste bodyPublic 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