IV.4. PRESENTATION DES
INTERFACES DE L'APPLICATION
MENU GENERAL
ORDRE A DECLARER
T ONE
Quittance de déclaration
Bon à enlever
IV.5 QUELQUES CODES DU
PROGRAMME
Vu le volume du programme, nous ne saurons pas donner tous les
codes, c'est ainsi que nous avons choisi quelques codes seulement à
présenter :
1. Commande d'enregistrement du formulaire gestion du contrat
Private Sub cmdenregistrer_Click()
contrat.Refresh
With contrat.Recordset
.AddNew
!codagence = codeagence.Text
!naturemarch = naturemarch.Text
!poids = poids.Text
!montpay = montpay.Text
!numcont = numcont.Text
!typecont = typecont.Text
!dureecont = dureecont.Text
!numimport = numimport.Text
!datecont = datecont.Text
.Update
End With
Unload Me
frmgestioncont.Show
End Sub
2. Commande modifier le formulaire gestion du contrat
Private Sub cmdmodifier_Click()
contrat.Refresh
With contrat.Recordset
While Not .EOF
If cbnumcont.Text = !numcont Then
!codagence = codeagence.Text
!naturemarch = naturemarch.Text
!montpay = montpay.Text
!typecont = typecont.Text
!dureecont = dureecont.Text
!datecont = datecont.Text
!numimport = numimport.Text
!poids = poids.Text
.Update
End If
.MoveNext
Wend
End With
Unload Me
frmgestioncont.Show
End Sub
3. Commande formulaire manifeste
Private Sub cmdenregistrer_Click()
manifeste.Refresh
With manifeste.Recordset
.AddNew
!nummanif = nummanif.Text
!dateenreg = dateenreg.Text
!paysprov = paysprov.Text
!paysdest = paysdest.Text
!montfact = montfact.Text
!poidsart = poidsart.Text
!assurance = assurance.Text
!fret = fret.Text
!descriptart = descriptart.Text
!montdedecl = montdedecl.Text
!tauxchang = tauxchang.Text
!codagence = codeagence.Text
!codbanq = codbanq.Text
!codbureau = codebureau.Text
!numimport = numimport.Text
.Update
End With
Unload Me
frmmanifeste.Show
4. Commande rechercher
Private Sub rechercher_Click()
Unload Me
frmmanifeste.Show
cbnummanif.Visible = True
nummanif.Visible = False
manifeste.Refresh
With manifeste.Recordset
While Not .EOF
cbnummanif.AddItem !nummanif
.MoveNext
Wend
End With
End Sub
5. Commande Supprimer
Private Sub supprimer_Click()
contrat.Refresh
With contrat.Recordset
While Not .EOF
If (cbnumcont.Text = !numcont) Then
.Delete
End If
.MoveNext
Wend
End With
Unload Me
frmgestioncont.Show
End Sub
| 
