CHAPITRE 3 : REALISATION DU SYSTEME
D'INFORMATION INFORMATISE
Cette étape consiste
à réaliser concrètement dans des langages, sur du
matériel. C'est au cours de cette étape qu'à lieu la
véritable naissance du futur système d'information, la
responsabilité du système d'information est
transférée de l'analyste programmeur (maître d'oeuvre) aux
utilisateurs (maître d'ouvrage).
SECTION 1 :
IMPLEMENTATION DE LA BASE DE DONNEES
Pour l'implémentation de la base de données
« STRUCTURECOL », nous avions opté comme SGBD ;
SQL Server 2008 R2
SECTION 2 :
PRESENTATION ET REALISATION DU LOGICIEL
Apres avoir créé la
source de données et la relier à l'application, Lors du test des
différentes fonctionnalités de nos interfaces (fiches), nous nous
sommes assuré que l'application tournait parfaitement bien. Ainsi, dans
cette section il sera question présenté les interfaces
accompagnées de codes.
a) Page d'Accueil
Codes chargement
PrivateSub Timer1_Timer()
If ProgressBar1.Value <= 99 Then
ProgressBar1.Value = ProgressBar1.Value + 1
Label2.Caption = ProgressBar1.Value & "%"
Else
Timer1.Enabled = False
FenConnexion.Show
ProgressBar1.Visible = False
End If
End Sub
b) Connexion
Codes connexion
PrivateSub Frmconnexion_Click()
Set CN = New ADODB.Connection
CN.Open "STRUCTURE"
Set RS = New ADODB.Recordset
RS.Open "select* from T_connexion where Nom='"
&NOM.Text& "' and pass='" &PASS.Text& "'", CN, adOpenKeyset,
adLockOptimistic
If Not RS.EOF Then
Me.Hide
Menu.Show
Else
MsgBox "Mot de Pass est incorrect"
NOM = ""
PASS = ""
NOM.SetFocus
End If
End Sub
c) Menu principal
Appel des interfaces
PrivateSubAGREMENT_Click()
FrmAgrement.Show
End Sub
Private Sub CLASSE_Click()
FrmClasse.Show
End Sub
Private Sub DISPOSER_Click()
FrmDisposer.Show
End Sub
Private Sub ECOLE_Click()
FrmEcole.Show
End Sub
Private Sub FONCTION_Click()
FrmFonction.Show
End Sub
Private Sub GRADE_Click()
FrmGrade.Show
End Sub
Private Sub NIVEAU_Click()
FrmNiveau.Show
End Sub
Private Sub OPTION_Click()
FrmOption.Show
End Sub
Private Sub PEUT_Click()
FrmPeutAvoir.Show
End Sub
Private Sub QUITTER_Click()
End
End Sub
Private Sub REGIME_Click()
FrmRegime.Show
End Sub
Private Sub RESPONSABLE_Click()
FrmResponsable.Show
End Sub
Private Sub structure_Click()
FrmStructure.Show
End Sub
d) Interface Ecole
e) Interface Structure
Ecriture de Codes
Codes Ajouter
PrivateSubAjouter_Click()
Adodc1.Refresh
Set CN = New ADODB.Connection
CN.Open "STRUCTURE"
Set RS = New ADODB.Recordset
RS.Open "select* from T_ECOLE where code_ecole='" &
Text1.Text & "'", CN, adOpenKeyset, adLockOptimistic
If RS.EOF Then
RS.AddNew
RS!code_ecole = Text1.Text
RS!denomination = Text2.Text
RS!id_secope = Text3.Text
RS!adresse = Text4.Text
RS!AGREMENT = Text5.Text
RS!code_reg = Text6.Text
RS!matri_resp = Text7.Text
RS.Update
Adodc1.Refresh
Initialiser
Else
MsgBox ("ce code existe deja")
Text1 = ""
Text1.SetFocus
End If
End Sub
Codes recherche
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Ltrim(Text1) = "" Then
MsgBox "Veuillez Saisir votre zone de texte SVP!!!"
Text1 = ""
Text1.SetFocus
Else
Set CN = New ADODB.Connection
CN.Open "STRUCTURE"
Set RS = New ADODB.Recordset
RS.Open "select* from T_ECOLE where code_ecole='" &
Text1.Text & "'", CN, adOpenKeyset, adLockOptimistic
If Not RS.EOF Then
Text1.Text = RS!code_ecole
Text2.Text = RS!denomination
Text3.Text = RS!id_secope
Text4.Text = RS!adresse
Text5.Text = RS!AGREMENT
Text6.Text = RS!code_reg
Text7.Text = RS!matri_resp
Else
MsgBox ("Le code Ecole est introuvable")
Text1 = ""
Text1.SetFocus
End If
End If
End If
End Sub
Codes modifier
Private Sub Modifier_Click()
Adodc1.Refresh
Set CN = New ADODB.Connection
CN.Open "STRUCTURE"
Set RS = New ADODB.Recordset
RS.Open "select* from T_ECOLE where code_ecole='" &
Text1.Text & "'", CN, adOpenKeyset, adLockOptimistic
If Not RS.EOF Then
RS!code_ecole = Text1.Text
RS!denomination = Text2.Text
RS!id_secope = Text3.Text
RS!adresse = Text4.Text
RS!AGREMENT = Text5.Text
RS!code_reg = Text6.Text
RS!matri_resp = Text7.Text
RS.Update
Adodc1.Refresh
Initialiser
Else
MsgBox ("Modification non éffectué")
Text1 = ""
Text1.SetFocus
End If
End Sub
Codes suppression
PrivateSubSupprimer_Click()
Adodc1.Refresh
Set CN = New ADODB.Connection
CN.Open "STRUCTURE"
Set RS = New ADODB.Recordset
RS.Open "select* from T_ECOLE where code_ecole='" &
Text1.Text & "'", CN, adOpenKeyset, adLockOptimistic
If Not RS.EOF Then
RS.Delete
Adodc1.Refresh
Initialiser
Else
MsgBox ("Suppression non éffectué")
Text1 = ""
Text1.SetFocus
End If
End Sub
Etats de sortie
| 
