IV.5.7.3. BREVE
PRESENTATION DE L'APPLICATION
Etats de sortie
- Liste des élèves inscrits ;
- Reçu de paiement ;
- Rapport des paiements.
Les codes utilisés
Private Sub cmdeffacer_Click()
Me.TXTMOTDEPASSE = ""
End Sub
Private Sub cmdok_Click()
Dim ACCES As String
ACCES = "utilisateur"
If Me.TXTMOTDEPASSE = ACCES Then
Unload Me
frmbienvenu.Show
Else
MsgBox "VOUS N'AVEZ PAS LE DROIT D'ACCES POUR CONTINUER.VERIFIER
VOTRE DROIT OU APPUYER SUR QUITTER POUR FERMER L'APPLICATION"
Me.TXTMOTDEPASSE = ""
End If
End Sub
Private Sub cmdquitter_Click()
Unload Me
End Sub
Pour le téléchargement du logiciel
Private Sub Form_Load()
Me.Timer1.Enabled = False
Me.Timer1.Interval = 100
Me.Timer1.Enabled = True
Me.ProgressBar1.Min = 0
Me.ProgressBar1.Max = 50
Me.ProgressBar1.Value = 0
End Sub
Private Sub Timer1_Timer()
Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
If Me.ProgressBar1.Value >= Me.ProgressBar1.Max Then
Me.Timer1.Enabled = False
Unload Me
MDIFrmPrincipal.Show
End If
End Sub
Private Sub btndernierenreg_Click()
On Error GoTo ben
Me.AdodcEleve.Recordset.MoveLast
Exit Sub
ben:
MsgBox err.Description
End Sub
Private Sub btnpremierenreg_Click()
On Error GoTo ben
Me.AdodcEleve.Recordset.MoveFirst
Exit Sub
ben:
MsgBox err.Description
End Sub
Private Sub cmdAjouter_Click()
On Error GoTo ben
Me.AdodcEleve.Recordset.AddNew
Exit Sub
ben:
MsgBox "Veuillez remplir les colonnes", vbInformation, "Gestion
des frais scolaires"
End Sub
Private Sub cmdeffacer_Click()
Me.TxtAdresse.Text = ""
Me.TxtCodeClasse.Text = ""
Me.TxtDateNaiss.Text = ""
Me.TxtLieuNaiss.Text = ""
Me.TxtMatricule.Text = ""
Me.TxtNomElev.Text = ""
Me.TxtNomMère.Text = ""
Me.TxtNomPere.Text = ""
Me.TxtPostnElev.Text = ""
End Sub
Private Sub cmdenregistrer_Click()
On Error GoTo enreg
Dim rs As Integer
rs = MsgBox("Voulez-vous enregistrer", vbYesNo + vbQuestion,
"Gestion des frais scolaires")
If rs = VbMsgBoxResult.vbYes Then
Me.AdodcEleve.Recordset.AddNew
Else
MsgBox "Vous n'avez pas enregistré"
End If
enreg:
End Sub
Private Sub CmdPrecedent_Click()
On Error GoTo ben
Me.AdodcEleve.Recordset.MovePrevious
Exit Sub
ben:
MsgBox "Aucun enregistrement précédent",
vbInformation, "Gestion des frais scolaires"
End Sub
Private Sub CmdSuivant_Click()
On Error GoTo ben
Me.AdodcEleve.Recordset.MoveNext
Exit Sub
ben:
MsgBox "Aucun enregistrement suivant", vbInformation, "Gestion
des frais scolaires"
End Sub
Pour les paiements
Private Sub btn1premier_Click()
On Error GoTo ben
Me.Adodcpaiement.Recordset.MoveFirst
Exit Sub
ben:
MsgBox "Pas d'enregistrement", vbInformation, "Gestion des frais
scolaires"
End Sub
Private Sub btn2dernier_Click()
On Error GoTo ben
Me.Adodcpaiement.Recordset.MoveLast
Exit Sub
ben:
MsgBox "Pas d'enregistrement", vbExclamation, "Gestion des frais
scolaires"
End Sub
Private Sub btn3precedent_Click()
On Error GoTo ben
Me.Adodcpaiement.Recordset.MovePrevious
Exit Sub
ben:
MsgBox err.Description
End Sub
Private Sub btn4suivant_Click()
On Error GoTo ben
Me.Adodcpaiement.Recordset.MoveNext
Exit Sub
ben:
MsgBox err.Description
End Sub
Private Sub btn5payement_Click()
On Error GoTo ben
Me.Adodcpaiement.Recordset.AddNew
Me.TxtMontPaye.Text = ""
Me.TxtSolde.Text = ""
Exit Sub
ben:
MsgBox "Veuillez entrer les enregistrements", vbCritical,
"Gestion des frais scolaires"
End Sub
Private Sub btnOK_Click()
On Error GoTo ben
Me.TxtMontPaye = CStr(CSng(Me.TxtfrConst) + CSng(Me.TxtfrFonct) +
CSng(Me.TxtfrTech) + CSng(Me.TxtfrPrimEn) + CSng(Me.TxtAssur) +
CSng(Me.TxtMinerv))
Rem calcul du solde
Me.TxtRestaPayer = CStr(CSng(Me.TxtBaremeFixe) -
CSng(Me.TxtMontPaye))
Exit Sub
ben:
MsgBox err.Description
End Sub
Private Sub btnprecedent_Click()
On Error GoTo ben
Me.Adodcpaiement.Recordset.MovePrevious
Exit Sub
ben:
MsgBox err.Description
End Sub
Private Sub btnsuivant_Click()
On Error GoTo ben
Me.Adodcpaiement.Recordset.MoveNext
Exit Sub
ben:
MsgBox err.Description
End Sub
Private Sub CmdPrecedVers_Click()
On Error GoTo ben
Me.Adodcpaiement.Recordset.MovePrevious
Me.TxtMontPaye.Text = ""
Me.TxtSolde.Text = ""
Exit Sub
ben:
MsgBox err.Description
End Sub
Private Sub CmdPreceSuiva_Click()
On Error GoTo ben
Me.Adodcpaiement.Recordset.MoveNext
Me.TxtMontPaye.Text = ""
Me.TxtSolde.Text = ""
Exit Sub
ben:
MsgBox err.Description
End Sub
Rapport des paiements effectués
Reçus de paiement
| 
