4.2. CARACTERISTIQUES DE L'ORDINATEUR
Le bon fonctionnement d'une application est assez souvent
fonction du matériel que l'on utilise. C'est pourquoi, pour profiter de
ce logiciel, voici les quelques caractéristiques minimales que doit
avoir l'ordinateur qui recevra cette application :
- Système d'exploitation : Windows 7
Professionnel
- Processeur : 1Ghz au minimum
- Mémoire RAM : 1GB au minimum
- Disque dur : 16GB au minimum
- Lecteur de disque optique
- Port USB
4.3. LES FORMULAIRES
Dans cette partie, nous allons essayer de présenter et
décrire quelques formulaires de notre application connectée
à la base de données de la gestion des ressources humaines et les
codes VB.net associés à ces formulaires
4.3.1.Le formulaire d'identification de l'agent
a. Forme
Ce formulaire permet de saisir l'identité de l'agent
à insérer dans la base de données. Il permet aussi
à l'utilisateur de manipuler les données de la base de
données à travers les boutons de commande.
Le bouton Rechercher permet de chercher un
enregistrement de la base de données à partir d'un critère
(ici c'est avec le numéro matricule de l'agent)
Le bouton Supprimer permet de supprimer
l'enregistrement de la base de données qui est affiché sur le
formulaire.
Le bouton Insérer pour insérer
un enregistrement dans la base de données
Le bouton Nouveau pour nettoyer les zones de
texte (les rendre prêt à recevoir l'identité d'un nouvel
agent).
Les quatre autres boutons
(Précédent, Suivant,
Premier, Dernier) permettent à
l'utilisateur de faire le défilement des données de la base.
b. Codes du formulaire
Imports System.Data
Imports System.Data.OleDb
Public Class frmAgent
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 frmAgent_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 AGENT"
cmd.Connection = con
da = New OleDbDataAdapter(cmd)
ds = New DataSet
da.Fill(ds, "AGENT")
x = 0
NbreEnreg = ds.Tables("AGENT").Rows.Count
Afficher()
con.Close()
End Sub
Private Sub Afficher()
txtMatricule.Text = ds.Tables("AGENT").Rows(x).Item(0)
txtCarte.Text = ds.Tables("AGENT").Rows(x).Item(1)
txtNomAgent.Text = ds.Tables("AGENT").Rows(x).Item(2)
txtPostnomAg.Text = ds.Tables("AGENT").Rows(x).Item(3)
txtPrenom.Text = ds.Tables("AGENT").Rows(x).Item(4)
txtSexe.Text = ds.Tables("AGENT").Rows(x).Item(5)
txtLieuNaiss.Text = ds.Tables("AGENT").Rows(x).Item(6)
txtDateNaiss.Text = ds.Tables("AGENT").Rows(x).Item(7)
txtEtatcivil.Text = ds.Tables("AGENT").Rows(x).Item(8)
txtNomConj.Text = ds.Tables("AGENT").Rows(x).Item(9)
txtNbrEnfant.Text =
ds.Tables("AGENT").Rows(x).Item(10)
txtNompere.Text = ds.Tables("AGENT").Rows(x).Item(11)
txtNomMere.Text = ds.Tables("AGENT").Rows(x).Item(12)
txtProvinceOrig.Text =
ds.Tables("AGENT").Rows(x).Item(13)
txtTerritOrigin.Text =
ds.Tables("AGENT").Rows(x).Item(14)
txtVillageOrig.Text =
ds.Tables("AGENT").Rows(x).Item(15)
txtCodeAdress.Text =
ds.Tables("AGENT").Rows(x).Item(16)
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 dernier agent")
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 premier agent")
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 premier agent")
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 dernier agent")
End If
End Sub
Private Sub CmdNouveau_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CmdNouveau.Click
txtMatricule.Text = ""
txtCarte.Text = ""
txtNomAgent.Text = ""
txtPostnomAg.Text = ""
txtPrenom.Text = ""
txtSexe.Text = ""
txtLieuNaiss.Text = ""
txtDateNaiss.Text = ""
txtEtatcivil.Text = ""
txtNomConj.Text = ""
txtNbrEnfant.Text = ""
txtNompere.Text = ""
txtNomMere.Text = ""
txtProvinceOrig.Text = ""
txtTerritOrigin.Text = ""
txtVillageOrig.Text = ""
txtCodeAdress.Text = ""
txtMatricule.Focus()
End Sub
Private Sub CmdSupprimer_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CmdSupprimer.Click
Try
con.Open()
Dim cmdSuppr As OleDbCommand
cmdSuppr = New OleDbCommand
cmdSuppr.CommandText = "Delete From AGENT Where
NUMMATR=" & txtMatricule.Text & ""
cmdSuppr.CommandType = CommandType.Text
cmdSuppr.Connection = con
cmdSuppr.ExecuteNonQuery()
con.Close()
MsgBox("Un agent a été supprimé
avec succes")
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
Private Sub CmdInserer_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles CmdInserer.Click
Try
Dim d As Boolean
d = IsDate(txtDateNaiss.Text)
If d = True Then
con.Open()
Dim cmdAjout As OleDbCommand
cmdAjout = New OleDbCommand
cmdAjout.Connection = con
cmdAjout.CommandText = "Insert into AGENT values
('" & txtMatricule.Text & "','" & txtCarte.Text & "','" &
txtNomAgent.Text & "','" & txtPostnomAg.Text & "','" &
txtPrenom.Text & "','" & txtSexe.Text & "','" &
txtLieuNaiss.Text & "','" & txtDateNaiss.Text & "','" &
txtEtatcivil.Text & "','" & txtNomConj.Text & "','" &
txtNbrEnfant.Text & "','" & txtNompere.Text & "','" &
txtNomMere.Text & "','" & txtProvinceOrig.Text & "','" &
txtTerritOrigin.Text & "','" & txtVillageOrig.Text & "','" &
txtCodeAdress.Text & "')"
cmdAjout.CommandType = CommandType.Text
cmdAjout.ExecuteNonQuery()
MsgBox("Felicitation, une agent a
été ajouté")
con.Close()
Else
MsgBox("Tu n'as pas saisi une date valide,
saisissez de nouveau")
txtDateNaiss.Text = ""
txtDateNaiss.Focus()
End If
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 matricule de
l'agent")
Recherche.CommandText = "select * from AGENT where
NUMMATR= " & p & ""
Recherche.Connection = con
Dim dbreader As OleDbDataReader
dbreader = Recherche.ExecuteReader
If dbreader.Read = True Then
txtMatricule.Text = dbreader.Item(0)
txtCarte.Text = dbreader.Item(1)
txtNomAgent.Text = dbreader.Item(2)
txtPostnomAg.Text = dbreader.Item(3)
txtPrenom.Text = dbreader.Item(4)
txtSexe.Text = dbreader.Item(5)
txtLieuNaiss.Text = dbreader.Item(6)
txtDateNaiss.Text = dbreader.Item(7)
txtEtatcivil.Text = dbreader.Item(8)
txtNomConj.Text = dbreader.Item(9)
txtNbrEnfant.Text = dbreader.Item(10)
txtNompere.Text = dbreader.Item(11)
txtNomMere.Text = dbreader.Item(12)
txtProvinceOrig.Text = dbreader.Item(13)
txtTerritOrigin.Text = dbreader.Item(14)
txtVillageOrig.Text = dbreader.Item(15)
txtCodeAdress.Text = dbreader.Item(16)
Else
MsgBox("Aucun agent n'a ce numéro
matricule ")
End If
con.Close()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
End Class
| 
