Section 2 :
Programmation
2.1. Présentation des interfaces
2.1.1. Écran d'accueil ou logo
2.1.2. Menu connexion
2.1.3. Formulaires
2.1.4 Présentation des
états
2.2. Extrait des codes
sources
.commandText = `' insert into T.Aboonnée
(Numabon, Matrirecep, Matrigestabon, Categabon, Nom, Post nom, Prénom,
Sexe, Adresse, Téléphone) `' & `' Values (`' ` &
(Me.Num_abon.Text) & `' ` , ` `' & (Me.matri_recep.Text) & `' ` , `
`' & (Me.matri_gest.Text) & `' ` ,' `' & (Me.cate_abon.Text) &
`' ` , ` `' & (Me.nom_abon.Text) & `' ` , ` `' &
(Me.post_abon.Text) & `' ` , ` `' & (Me.pre_abon.Text) & `' ` , `
`' & (Me.sexe_abon.Text) & `' ` , ` `' & (Me.adr_abon.Text) &
`' ` , ` `' & (Me.tele_abon.Text) & `' `)''
ExecuteNomQuery()
MessageBox.show(`' l'enregistrement effectuer avec
succés'' , `' GESTION DES ABONNEES `' , MessageBoxButtons.OK,
MessageBoxIcon.Information'')
Me.Num_abon.clear()
Me.matri_recep.clear()
Me.matri_gest.clear()
Me.cate.clear()
Me.nom_abon.clear()
Me.post_abon.clear()
Me.pre_abon.clear()
Me.sexe_abon.clear()
Me.adr_abon.clear()
Me.tele_abon.clear()
Call Me.charger grille ()
******************************************************************************************************************************************************
.CommandText= `' Delete from T_Abonnée
where Numabon=' `' Num_abon.Text & `' ` `'
.connectio=con
.ExecuteReader()
MsgBox(`' l'information supprimée'')
Bttn_enr.Enabled=True
Bttn_ann.Enabled=True
Btnn_mod.Enabled=True
Bttn_sup.Enabled=Flase
Bttn_quit.Enabled=False
End with
Catch ex As Exception
******************************************************************************************************************************************************
.CommandTexet= `' Update T_Abonnée set
Matrirecep= ` `' &(Me.matri_recep.Text) & `' `, Matrigestabon=' `'
&(Me.matri_gest.Text) & ` `', Categabon=' `' & (Me.cate_abon.Text)
& `' `, Nom=' `' & (Me.noù_abon.Text) &`' `, Post nom=' `'
& (Me.post_abon.Text) & `' `, Prenom= ` `' & (Me.pre_abon.Text)
& `' `, Sexe= ` `' & (Me.sexe_abon.Text) & `' `, Adresse= ` `'
& (Me.adr_abon.Text) & `' `, Telephone= ` `' & (Me.tele_abon.Text)
& `' where Numabon=' `' & (Me.num_abon.Text) & `' ` `'
.connection=con
.ExecuteReader()
Con.Close()
MsgBox(`'l'information modifiée'')
Me.Num_abon.clear()
Me.matri_recep.clear()
Me.matri_gest.clear()
Me.cate.clear()
Me.nom_abon.clear()
Me.post_abon.clear()
Me.pre_abon.clear()
Me.sexe_abon.clear()
Me.adr_abon.clear()
Me.tele_abon.clear()
Bttn_enr.Enabled=True
Bttn_ann.Enabled=True
Btnn_mod.Enabled=True
Bttn_sup.Enabled=Flase
Bttn_quit.Enabled=False
Call Me.charger grille ()
******************************************************************************************************************************************************
Private Sub Bttn Quit_Click(Sender As Objet, e As EventArgs)
Handles Bttn Quit.Click
Application.Exit ()
******************************************************************************************************************************************************
| 
