4.3.2.Formulaire d'adresses des agents
a. Forme
Ce formulaire permet aussi à l'utilisateur
d'insérer et d'afficher les adresses des agents. Les informations
inscrites sur ce formulaire peuvent aussi être manipulé comme pour
le formulaire d'identité des agents, en utilisant les boutons de
commande (Premier, Précédent,
Suivant, Dernier, Nouveau,
Inserer, Supprimer et
Rechercher).
b. Codes du formulaire d'adresses
Imports System.Data
Imports System.Data.OleDb
Public Class frmAdresse
Dim con As OleDbConnection
Dim cmd As OleDbCommand
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim x As Integer
Dim NbreEnreg As Integer
Private Sub frmAdresse_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
con = New OleDbConnection
con.ConnectionString =
"Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\ZADO\Documents\GESTION_RESSOURCES_HUMAINES_DB.accdb"
con.Open()
cmd = New OleDbCommand
cmd.CommandText = "Select*From ADRESSE"
cmd.Connection = con
da = New OleDbDataAdapter(cmd)
ds = New DataSet
da.Fill(ds, "ADRESSE")
x = 0
NbreEnreg = ds.Tables("ADRESSE").Rows.Count
Afficher()
con.Close()
End Sub
Private Sub Afficher()
txtCodeAdress.Text =
ds.Tables("ADRESSE").Rows(x).Item(0)
txtVille.Text = ds.Tables("ADRESSE").Rows(x).Item(1)
txtCommune.Text = ds.Tables("ADRESSE").Rows(x).Item(2)
txtQuartier.Text =
ds.Tables("ADRESSE").Rows(x).Item(3)
txtAvenue.Text = ds.Tables("ADRESSE").Rows(x).Item(4)
txtNumParc.Text = ds.Tables("ADRESSE").Rows(x).Item(5)
txtNumtel.Text = ds.Tables("ADRESSE").Rows(x).Item(6)
txtMail.Text = ds.Tables("ADRESSE").Rows(x).Item(7)
End Sub
Private Sub CmdSuivant_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CmdSuivant.Click
If x < NbreEnreg - 1 Then
x = x + 1
Afficher()
Else
MsgBox("Attention dernière adresse")
End If
End Sub
Private Sub CmdPrecedent_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CmdPrecedent.Click
If x <> 0 Then
x = x - 1
Afficher()
Else
MsgBox("Attention première adresse")
End If
End Sub
Private Sub CmdPremier_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CmdPremier.Click
If x <> 0 Then
x = 0
Afficher()
Else
MsgBox("Attention première adresse")
End If
End Sub
Private Sub CmdDernier_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CmdDernier.Click
If x <> NbreEnreg - 1 Then
x = NbreEnreg - 1
Afficher()
Else
MsgBox("Attention dernière adresse")
End If
End Sub
Private Sub CmdNouveau_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CmdNouveau.Click
txtCodeAdress.Text = ""
txtVille.Text = ""
txtCommune.Text = ""
txtQuartier.Text = ""
txtAvenue.Text = ""
txtNumParc.Text = ""
txtNumtel.Text = ""
txtMail.Text = ""
txtCodeAdress.Focus()
End Sub
Private Sub CmdInsert_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CmdInsert.Click
con.Open()
Dim cmdAjout As OleDbCommand
cmdAjout = New OleDbCommand
cmdAjout.Connection = con
cmdAjout.CommandText = "Insert into ADRESSE values ('"
& txtCodeAdress.Text & "','" & txtVille.Text & "','" &
txtCommune.Text & "','" & txtQuartier.Text & "','" &
txtAvenue.Text & "','" & txtNumParc.Text & "','" &
txtNumtel.Text & "','" & txtMail.Text & "')"
cmdAjout.CommandType = CommandType.Text
cmdAjout.ExecuteNonQuery()
MsgBox("Felicitation, une adresse a été
ajoutée")
con.Close()
End Sub
Private Sub CmdSuppr_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CmdSuppr.Click
Try
con.Open()
Dim cmdSuppr As OleDbCommand
cmdSuppr = New OleDbCommand
cmdSuppr.CommandText = "Delete From ADRESSE Where
CODEADRESS='" & txtCodeAdress.Text & "'"
cmdSuppr.CommandType = CommandType.Text
cmdSuppr.Connection = con
cmdSuppr.ExecuteNonQuery()
con.Close()
MsgBox("L'adresse a été
supprimée avec succes")
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
Private Sub cmdRecherche_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles cmdRecherche.Click
Try
con.Open()
Dim Recherche As New OleDbCommand
Dim p As String
p = InputBox("Entrer le numéro de
telephone")
Recherche.CommandText = "select * from ADRESSE where
NOTEL= '" & p & "'"
Recherche.Connection = con
Dim dbreader As OleDbDataReader
dbreader = Recherche.ExecuteReader
If dbreader.Read = True Then
txtCodeAdress.Text = dbreader.Item(0)
txtVille.Text = dbreader.Item(1)
txtCommune.Text = dbreader.Item(2)
txtQuartier.Text = dbreader.Item(3)
txtAvenue.Text = dbreader.Item(4)
txtNumParc.Text = dbreader.Item(5)
txtNumtel.Text = dbreader.Item(6)
txtMail.Text = dbreader.Item(7)
Else
MsgBox("Ce numéro n'existe pas dans notre
base de données ")
End If
con.Close()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
End Class
| 
