Bienvenue à "Ouf ca passe"

' Carnet_d'adresse_7
error_french
Declarations()
Object()
Menu_Form_Menu()
' Chargement
' Saisie
' Validation
' Sauvegarde
' ......
END
'
' REGROUPEMENT DES PROCEDURES LABEL
'
Fin:
terminate
return
'
Modif_Contact:
' ----- à développer
return
'
New_Contact:
' ----- à développer
return
'
Start:
' ----- à développer
return
'
' REGROUPEMENT DES PROCEDURES SUB
'
Menu_Form_Menu()
' =========== Le Menu
Sub Menu_Form_Menu()
' le menu du formulaire Carnet d'adresse
  dim Menu_Cree_Contact%
  dim Menu_Fichier%
  dim Menu_Form_Menu%
  dim Menu_Gestion_Contact%
  dim Menu_Modif_Contact%
  dim Menu_Quitter%
  dim Menu_Start%
'
  command_target_is Form_Menu%
'
  no%=no%+1
  Menu_Form_Menu%=no%
  main_menu no%
'
  no%=no%+1
  Menu_Fichier%=no%
  sub_menu no%
  parent no%,Menu_Form_Menu%
  caption no%," Fichier "
'
  no%=no%+1
  Menu_Start%=no%
  sub_menu no%
  parent no%,Menu_Fichier%
  caption no%," Démarrer "
'
  no%=no%+1
  Menu_Quitter%=no%
  sub_menu no%
  parent no%,Menu_Fichier%
  caption no%," Quitter "
'
  no%=no%+1
  Menu_Gestion_Contact%=no%
  sub_menu no%
  parent no%,Menu_Form_Menu%
  caption no%," Gestion des Contacts "
  hide no%
'
  no%=no%+1
  Menu_Cree_Contact%=no%
  sub_menu no%
  parent no%,Menu_Gestion_Contact%
  caption no%," Créer un Contact "
'
  no%=no%+1
  Menu_Modif_Contact%=no%
  sub_menu no%
  parent no%,Menu_Gestion_Contact%
  caption no%," Modifier ou Supprimer un Contact "
'
' REGROUPEMENT DES on_click du menu
' ET DES labels correspondants
  label Start
  label New_Contact
  label Modif_Contact
  on_click Menu_Quitter%,fin
  on_click Menu_Start%,Start
  on_click Menu_Cree_Contact%,New_Contact
  on_click Menu_Modif_Contact%,Modif_Contact
end_sub
sub Object()
' REGROUPEMENT DES déclarations des objets et leurs attributs
' FORM 0
  hide 0
' FORM_MENU
  no%=no%+1
  Form_Menu%=no%
  form no%
  caption no%,"Carnet d'adresse"
  on_close no%,fin
' -----------
' FICHE INDIVIDUELLE DU CONTACT:
' tous les objets de la fiche individuelle du contact
' FORM_FICHE
  no%=no%+1
  Form_Fiche%=no%
  form no%
  caption no%,"Fiche Individuelle"
  width no%,500
  height no%,500
' SAISIE DU NOM
  no%=no%+1
  edit_nom%=no%
  edit no%
  parent no%,Form_Fiche%
  top no%,50
  left no%,50
  width no%,180
  no%=no%+1
  alpha_nom%=no%
  alpha no%
  parent no%,Form_Fiche%
  top no%,top(edit_nom%)-15
  left no%,left(edit_nom%)+45
  Caption no%,"NOM *"
  left no%,left(edit_nom%)+width(edit_nom%)/2-width(no%)/2
' SAISIE DU PRENOM
  no%=no%+1
  edit_prenom%=no%
  edit no%
  parent no%,Form_Fiche%
  top no%,top(edit_nom%)
  left no%,left(edit_nom%)+width(edit_nom%)+20
  width no%,180
  no%=no%+1
  alpha_prenom%=no%
  alpha no%
  parent no%,Form_Fiche%
  top no%,top(edit_prenom%)-15
  Caption no%,"PRENOM *"
  left no%,left(edit_prenom%)+width(edit_prenom%)/2-width(no%)/2
end_sub
sub Declarations()
  Dim alpha_prenom%
  dim alpha_nom%
  Dim edit_prenom%
  Dim edit_nom%
  Dim Form_Fiche%
  Dim Form_Menu%
  Dim No%
  label fin
  No%=10
end_sub