ANNEXES
I. LES INTERFACES ET CODES ASSOCIES
Voici donc quelques interfaces et les codes Visual basic
I.1. INTERFACE PAGE D'ACCUEIL
Cette interface représente la page d'accueille de notre
application, elle spécifie le début et commencement d'utilisation
lors de l'ouverture de notre programme.
I.2. CODES
Private Sub Concepteur_Click() FrmConcepteur.Show
End Sub
Private Sub HistSanction_Click() DataHistSanctions.Show
End Sub
Private Sub ListedesEmploye_Click()
Load DataEnvironment1
With DataEnvironment1
If .rsCommand1_Regroupeme.State <> 0 Then
.rsCommand1_Regroupeme.Close
End With
DataListeDesemployes.Refresh
If DataListeDesemployes.Visible = False Then
DataListeDesemployes.Show
End Sub
Private Sub listeSanction_Click()
Load DataEnvironment1
With DataEnvironment1
If .rsCmdListeSanctions.State <> 0 Then
.rsCmdListeSanctions.Close End With
DataListeDeSanctions.Refresh
If DataListeDeSanctions.Visible = False Then
DataListeDeSanctions.Show
End Sub
Private Sub MDIForm_Load()
End Sub
Private Sub smnuFermer_Click()
On Error Resume Next
Dim msg As String
msg = MsgBox("Voulez vous fermer ce formulaire?", vbYesNo +
vbQuestion, "information")
If msg = vbYes Then
Unload MDIMenuPrincipal.ActiveForm
End If
End Sub
Private Sub smnuInitiale_Click() FrmLesInitiales.Show
End Sub
Private Sub smnuQuitter_Click()
On Error Resume Next Dim msg As String
msg = MsgBox("voulez vous quitter cette application?", vbYesNo +
vbCritical, "Quitter")
If msg = vbYes Then
End
End If
End Sub
Private Sub smnurecherche_Click() FrmRecherche.Show
End Sub
Private Sub smnuSanctionner_Click() FrmSanctionner.Show
End Sub
I.3. INTERFACE DE L'INITIALES
Cette interface nous permet d'enregistrer toute les
employés, la sanction des employés et les services d'affectation
des employés au sein de l'entreprise.
Private Sub CmbNumServ_CLICK()
Me.AdoService.Refresh
With AdoService.Recordset
While Not .EOF
If Me.CmbNumServ.Text = !NumServ Then
Me.txtNomServ.Text = !NomServ
Me.txtAdresseServ.Text = !AdresseServ
End If
.MoveNext
Wend End With End Sub
Private Sub CmdAnnuler_Click() On Error Resume Next
If Me.OptEmploye.Value = True Then txtMatriEmpl.Text = ""
txtNomEmpl.Text = ""
I .4 INTERFACE DE SANCTION
Cette interface nous permet de sanctionné les agents au
sein de l'entreprise et dans registrer le rapport de sanction pour imprimer.
Private Sub CmbCodeSanct_Click()
Me.AdoSanction.Refresh
With AdoSanction.Recordset
While Not .EOF
If Me.CmbCodeSanct.Text = !CodeSanct
Then
Me.LblMotifSanct.Caption = !MotifSanct
Me.LblCauseSanct.Caption = !CauseSanct Me.LblDureeSanct.Caption =
!DureeSanct
End If
.MoveNext
Wend End With End Sub
Private Sub CmbMatriEmpl_Click()
Me.AdoEmploye.Refresh
With AdoEmploye.Recordset
While Not .EOF
If Me.CmbMatriEmpl.Text = !MatriEmpl Then
Me.LblNomEmpl.Caption = !NomEmpl
Me.LblFonctEmpl.Caption = !FonctEmpl End If
HISTORIQUE DE SANCTION
Cette interface nous permet d'afficher l'historique de sanction
dans l'entreprise.
LETTRE DE SANCTION
C'est une représentation de lettre de sanction d'un
employé qui à étais sanctionné dans
l'entreprise.
| 
