III.4. Présentation du Visual Basic 6.0
Visual Basic est un outil développé par
l'entreprise Microsoft pour un développement facile des applications
fonctionnant sur les plates-formes Microsoft.
Visual Basic est un outil visuel permettant de créer
des Interfaces Graphiques utilisateur (GUI - Graphical User Interface)
puissants en disposant à l'aide de la souris des éléments
graphiques (boutons, images, champs du texte, menu déroulant, ...).
L'intérêt de ce langage est de pouvoir associer
aux éléments de l'interface des portions de code source
associées à des événements tels que le clic, le
change, la move, etc...
L'édition utilisée dans ce travail est celle
professionnelle.
III.4.1. Ecran Visual Basic 6.0
Tableau 1: Plate-form Visual Basic 6.0
44
III.4.2.Présentation de quelques interfaces et
leur code source ? Page d'Accueil
Figure 2:Interface Accueil
ProgressBar1.Value = ProgressBar1.Value + 1
LblCompteur.Caption = Int ((mini * 101) / maxi)
&
"%"
If Int((mini * 101) / maxi) Then
End If
Next mini
Unload Me
FrmConnexion.Visible = True
End Sub
? Code source
Private Sub LblApplici_Click (J lblTelecharg.Visible =
True ProgressBar1.Visible = True Dim mini, maxi As Integer maxi = 3100
ProgressBar1.Max = 3100 For mini = 1 To maxi DoEvents
45
? Ecran de saisie de Connexion
Figure 3: Interface connexion
? Code source
Private Sub Cmd_Connexion_Click (J
If TxtUtilisateur.Text = "INTENDANT" Or
TxtUtilisateur.Text =
"intendant" And TxtPass.Text = "12345" Then
MsgBox ("Votre mot de passe est Correcte"),
vbInformation
MDIMenuGenrl.Show
FrmConnexion.Hide
Else
MsgBox ("Votre mot de passe est Incorrecte"),
vbExclamation
End If
End Sub
?
46
? Ecran de Menu Général
Figure 4: Interface Menu
Général
? Code source
Private Sub Déconnecter_Click() Unload
Me
FrmConnexion.Visible = True FrmConnexion.TxtUtilisateur = ""
FrmConnexion.TxtPass = "" FrmConnexion.TxtCode = "" FrmConnexion.CmdOk.Visible
= False End Sub
Private Sub SaisieEnseignants_Click()
FrmEnseignant.Show
End Sub
Private Sub SaisiedesSalaires_Click()
FrmSalaires.Show
End Sub
Private Sub Saisidesprestations_Click()
FrmPrestation.Show
End Sub
Private Sub SaisiedesDirecteur_Click()
FrmIntendant.Show
End Sub
Private Sub SaisiedesDeterminers_Click()
FrmDeterm.Show
End Sub
Private Sub Saisiedesdirecteurs_Click()
FrmDirecteur.Show
End Sub
Private Sub SaisiedesIntendant_Click()
FrmIntendant.Show
End Sub
? Ecran de saisie Enseignant
47
Figure 5: Interface Enseignant
? Code source
Private Sub Cmd_Ajouter_Click (J
Ad.Recordset.AddNew
End Sub
Private Sub Cmd_Save_Click (J
Ad.Recordset.Update
End Sub
Private Sub Cmd_Effacer_Click (J
Ad.Recordset.Delete
End Sub
Private Sub Cmd_Quittre_Click (J Unload Me
End Sub
Private Sub TxtRech_Change (J
If Option1 = True Then
Ad.RecordSource = "select*from TEnseignant where
MatriEnseig like'" +
TxtRech + "%'"
Ad.Refresh
Else
If Option2 = True Then
Ad.RecordSource = "select*from TEnseignant where Nom
like'" + TxtRech +"%'"
Ad.Refresh
End If
End If
End Sub
? Ecran de saisie Intendant
48
Figure 6: Interface Intendant
? Code source
Private Sub Cmd_Ajouter_Click (J
Ad.Recordset.AddNew
End Sub
Private Sub Cmd_Save_Click(J
Ad.Recordset.Update
End Sub
Private Sub Cmd_Effacer_Click(J
Ad.Recordset.Delete
End Sub
Private Sub Cmd_Quitter_Click(J Unload Me
End Sub
Private Sub Txt_Recher_Change(J If Option2 = True
Then
Ad.RecordSource = "select*from
TIntendant where
MatrIntend like'" + Text7 + "%'"
Ad.Refresh
Else
If Option1 = True Then
Ad.RecordSource = "select*from
TIntendant where Tel
like'" + Text7 + "%'" Ad.Refresh
Else
If Option3 = True Then
Ad.RecordSource = "select*from
TIntendant where Nom like'" + Text7 +
"%'"
Ad.Refresh
End If
End If
End If
End Sub
? Ecran de Saisie Prestation
49
Figure 7: Interface Prestation
|
? Code source
Private Sub Cmd_Ajouter_Click (J
Prest.Recordset.AddNew
End Sub
Private Sub Cmd_Save_Click (J Prest.Recordset.Update
End Sub
Private Sub Cmd_Effacer_Click(J
Prest.Recordset.Delete
End Sub
Private Sub Cmd_Quitter_Click(J Unload Me
End Sub
|
Private Sub Form_Load(J
Dim I As Integer
Dim TAB_obs(340) As String * 30 For I = O To 340
TAB_obs(I) = Format(Date + I, "dd/mm/yyyy") Cmb_Date.AddItem TAB_obs(I) Next
I
Cmb_Date.Text = TAB_obs(0)
End Sub
Private Sub Text6_Change(J
If recher = True Then
Prest.RecordSource = "select * from TPrestation where
MatrEnseig like'" + Text6 + "%'"
Prest.Refresh
End If
End Sub
|
50
? Ecran de saisie Directeur
Figure 8: Interface Directeur
? Code source
Private Sub CmdAdd_Click(J Ad.Recordset.AddNew
End Sub
Private Sub CmdEffac_Click(J
Ad.Recordset.Delete
End Sub
Private Sub CmdQuitter_Click (J Unload Me
End Sub
Private Sub TxtRecher_Change(J If Option2 = True
Then
Ad.RecordSource =
|
Private Sub CmdEnreg_Click (J
Ad.Recordset.Update
End Sub
|
"select*from TDirecteur where MatrDirect like'" +
TxtRecher + "%'"
Ad.Refresh
End If
End Sub
|
51
? Ecran de saisie Salaire
Figure 9: Interface Salaire
? Code source
Private Sub Cmd_Ajouter_Click (J
Ad.Recordset.AddNew
End Sub
Private Sub Cmd_Save_Click(J
Ad.Recordset.Update
End Sub
Private Sub Cmd_Effacer_Click(J
Ad.Recordset.Delete
End Sub
Private Sub Cmd_Quitter_Click(J Unload Me
End Sub
Private Sub TxtRecherch_Change(J
If Option1 = True Then
Ad.RecordSource = "select *from TSalaire where
MatriEnseig like'" +
TxtRecherch + "%'"
Ad.Refresh
End If
End Sub
52
| 
