Je vous livre mes premiers codes sources

dim util$(10),mdp$(10),grad$(10)
dim n

for n=2 to 10
util$(n)=""
mdp$(n)="BONJOUR"
grad$(n)=""
next n

util$(1)="JEAN CLAUDE"
mdp$(1)="ADMIN"
grad$(1)="ADMINISTRATEUR"

file_open_write 1,"utilisateur.cfp"
for n=1 to 10
file_writeln 1,util$(n)
file_writeln 1,mdp$(n)
file_writeln 1,grad$(n)
next n
file_close 1
end

label controlmdp,saisimdp,saisiutil,quit,controlutil,verifutil,sauvetf

dim util$(10),mdp$(10),grad$(10)
dim utilp$,mdpp$,echec$,motutil$,nomutil$,gradutil$
dim nt,n,nu

left 0,223:top 0,182:width 0,550:height 0,492
caption 0,"COMPTE FAMILIALE  *  Accès"
 
alpha 1:left 1,121:top 1,19:width 1,305
caption 1,"ENTREZ VOTRE IDENTIFIANT ET VOTRE MOT DE PASSE "

alpha 2:left 2,235:top 2,82
caption 2,"Identifiant"

alpha 3:left 3,231:top 3,190
caption 3,"Mot De Passe"

edit 4:left 4,205:top 4,113
hint 4,"ENTREZ VOTRE IDENTIFIANT"
on_change 4, saisiutil

edit 5:left 5,205:top 5,230
hint 5,"ENTREZ VOTRE MOT DE PASSE"
font_color 5,255,255,255
on_change 5, saisimdp
inactive 5

button 6:left 6,345:top 6,113
caption 6,"OK"
on_click 6,controlutil

button 7:left 7,347:top 7,228
caption 7,"OK"
on_click 7,controlmdp
inactive 7

button 8:left 8,27:top 8,391
caption 8,"QUITTER"
on_click 8,quit

end
rem -----------------------------------------------------------------
saisimdp:
mdpp$=upper$(text$(5))
nt=scancode
if nt<>13 then return
controlmdp:
if len(mdpp$)<2 then beep :message "Vous Devez Saisir 2 Caractères Minimum":return
if motutil$=mdpp$ then gosub sauvetf: execute cfpmenug.exe:terminate
message "Mot de passe: FAUX":terminate
return

saisiutil:
utilp$=upper$(text$(4))
nt=scancode
if nt<>13 then return
controlutil:
if len(utilp$)<3 then beep :message "Vous Devez Saisir 3 Caractères Minimum":return
file_open_read 1,"utilisateur.cfp"
for n=1 to 10
file_readln 1,util$(n)
file_readln 1,mdp$(n)
file_readln 1,grad$(n)
next n
file_close 1
gosub verifutil:if echec$="o" then terminate
if motutil$="BONJOUR" then message " "+utilp$+" vous devez changez votre Mot de Passe Maintenant":execute cfpnovmo.exe:terminate
print_locate 30,235:print utilp$
active 7:active 5
hide 4: hide 6:hide 2
return

verifutil:
echec$=""
for n=1 to 10
if util$(n)="" then echec$="o":message " "+utilp$+" vous n'ete pas enregistrer. Demandez à l'administrateur de créer votre Compte Utilisateur.":return
if utilp$=util$(n) then echec$="n":motutil$=mdp$(n):nomutil$=utilp$:gradutil$=grad$(n):return
next n

sauvetf:
file_open_write 1,"cfptf01.cfp"
file_writeln 1,nomutil$
file_writeln 1,motutil$
file_writeln 1,gradutil$
file_close 1
return

quit:
terminate

label util,quit,sauvetf

dim nomutil$,motutil$,gradutil$


left 0,223
top 0,182
width 0,441
height 0,492
caption 0,"COMPTE FAMILIALE * Menu Général"
 
button 1
left 1,20
top 1,21
width 1,150
caption 1,"Enregistrer une Opération"

button 2
left 2,21
top 2,67
width 2,150
caption 2,"Pointer un Relevé de Compte"

button 3
left 3,21
top 3,121
width 3,150
caption 3,"Button 3"

button 4
left 4,21
top 4,172
width 4,150
caption 4,"Button 4"

button 5
left 5,21
top 5,219
width 5,150
caption 5,"Button 5"

button 6
left 6,22
top 6,269
width 6,150
caption 6,"Button 6"

button 7
left 7,251
top 7,21
width 7,150
caption 7,"Gestion des Utilisateurs"
on_click 7,util

button 8
left 8,250
top 8,69
width 8,150
caption 8,"Button 8"

button 9
left 9,249
top 9,119
width 9,150
caption 9,"Button 9"

button 10
left 10,251
top 10,173
width 10,150
caption 10,"Button 10"

button 11
left 11,249
top 11,219
width 11,150
caption 11,"Button 11"

button 12
left 12,250
top 12,270
width 12,150
caption 12,"Button 12"

alpha 13
left 13,116
top 13,376
width 13,177
height 13,14
caption 13," CLIQUEZ SUR L'ACTION CHOISIE"

button 14
left 14,155
top 14,410
width 14,100
caption 14,"QUITTER"
on_click 14,quit

file_open_read 1,"cfptf01.cfp"
file_readln 1,nomutil$
file_readln 1,motutil$
file_readln 1,gradutil$
file_close 1

end
rem -------------------------------------------------------------

util:
if gradutil$<>"ADMINISTRATEUR" then message " "+nomutil$+": Cette Option est réservée à l'Administrateur":return
execute cfpgutil.exe
terminate

quit:
gosub sauvetf
terminate

sauvetf:
nomutil$="":motutil$="":gradutil$=""
file_open_write 1,"cfptf01.cfp"
file_writeln 1,nomutil$
file_writeln 1,motutil$
file_writeln 1,gradutil$
file_close 1
return

label quit,demar,aide,selection,lignesup,supprim,supprime,enregistre
label nouveau,ajoute,doublon,tri,insert,modifgrad

dim util$(10),mdp$(10),grad$(10)
dim utilt$(10),mdpt$(10),gradt$(10)
dim utilsel$,ligsup$,utilp$,doublon$,echec$,gradp$
dim n,nu,t,lv,ng

left 0,50:top 0,50:width 0,587:height 0,537
caption 0,"COMPTE FAMILIALE *  Gestion Des Utilisateurs *"
on_click 0,selection

alpha 1
left 1,93:top 1,34:width 1,113
caption 1," Liste Des Utilisateurs"

list 2
left 2,61:top 2,61:width 2,170:height 2,149
on_click 2,selection

button 3
left 3,108:top 3,377
caption 3,"Ajouter "
inactive 3
on_click 3,ajoute

button 4
left 4,110:top 4,231
caption 4,"Supprimer"
on_click 4,supprim
inactive 4

edit 5
left 5,84:top 5,346
inactive 5
on_change 5,nouveau

alpha 6
left 6,113:top 6,319
caption 6,"  Nouveau"
inactive 6


button 8
left 8,421:top 8,377
caption 8,"Quitter"
on_click 8, quit

memo 9
left 9,261:top 9,61:width 9,110:height 9,149
font_color 9,0,0,255

alpha 10
left 10,270:top 10,35
caption 10,"    Statut"

combo 12
left 12,400:top 12,61
item_add 12,""
item_add 12,"ADMINISTRATEUR"
item_add 12,"ACTIF"
item_add 12,"INNACTIF"
inactive 12
on_click 12,modifgrad
alpha 13
left 13,420:top 13,39:width 13,127
caption 13,"Changer le Statut"
inactive 13

button 15
left 15,4:top 15,3:width 15,41
caption 15,"AIDE"
on_click 15,aide

form 16
left 16,650:top 16,50:width 16,587:height 16,537
caption 16,"Gestion Des Utilisateurs * Aide *"
hide 16
color 16,255,255,255
font_color 16,0,0,255

button 17
left 17,70:top 17,231:width 17,150
caption 17,"Confirmer la Suppression"
on_click 17,supprime
hide 17


rem -------------------------------------------------------------------
gosub demar

end
rem -------------------------------------------------------------------

modifgrad:
gosub selection
ng=item_index(12)
gradp$=item_read$(12,ng)
if gradp$="" then message "Attention: la ligne est vide": return
item_insert 9,nu,gradp$
grad$(nu)=gradp$
gosub quit
return

Ajoute:
gosub doublon
inactive 5:inactive 6:inactive 3
item_insert 2,nu,utilp$
item_delete 2,11
if doublon$="o" then utilp$="":item_delete 2,nu:util$(nu)="":message "Cet utilisateur existe déja":text 5,"":return
if doublon$="" then util$(nu)=utilp$
show 12
mdp$(nu)="BONJOUR":text 5,""
gosub enregistre
return

rem
doublon:
doublon$=""
for n=1 to 10
if util$(n)=utilp$ and n<>nu then doublon$="o":return
next n
return

nouveau:
utilp$=upper$(text$(5))
if len(utilp$)<3 then return
active 3
return

supprime:
item_delete 2,nu:util$(nu)="":item_delete 9,nu:grad$(nu)="":mdp$(nu)=""
hide 17
gosub enregistre
return

supprim:
inactive 4
message "RAPPEL: supprimer un utilisateur provoque l'éffacement de tous les fichiers le concernant "
show 17
return

selection:
hide 17:inactive 12:inactive 13
utilsel$=item_index$(2):nu=item_index(2):active 4
print_locate 30,50:print "  ":print_locate 30,50:print nu
if nu=1 and utilsel$="" then inactive 4:active 5:active 6:return
if utilsel$="" then gosub lignesup:inactive 4:inactive 12:return
inactive 5:inactive 6:active 12:active 13
return

rem pour eviter un blanc entre 2 lignes
lignesup:
n=nu-1:if n<1 then return
ligsup$=item_read$(2,n)
if ligsup$ = "" and n<9 then inactive 5:inactive 6:inactive 12:return
active 5:active 6
return

aide:
show 16
print_target_is 16
print_locate 10,20
print " - Pour Ajouter un nouvel utilisateur sélectionner un champ vide dans le champ 'Liste des utilisateurs', inscrivez son nom "
print "  dans le champs 'Nouveau' et cliquez sur Ajouter. Remarque: le nom de l'utilisateur ne sera plus modifiable "
print_locate 10,70
print " - Pour Supprimer un utilisateur sélectionnez son nom dans le champ 'Liste des utilisateurs' et cliquez sur Supprimer"
print_locate 30,90
print "Remarque: supprimer un utilisateur provoque l'éffacement de tous les fichiers le concernant "
print_locate 30,110
print "Il est préférable de modifier son statut"
print_locate 10,150
print " - Pour Modifier le Statut d'un utilisateur sélectionnez son nom dans le champ 'Liste des utilisateurs', séléctionnez"
print "  le Statut souhaité dans le champ 'Changer le Statut' "
print_locate 30,200
print "Remarque: le Statut Inactif autorise seulement l'utilisateur concerné de visualiser"
print_locate 30,220
print "                  le Statut Administrateur autorise la gestion des Utilisateurs, sauf leur mot de passe "
print_target_is 0
return

demar:
file_open_read 1,"utilisateur.cfp"
for n=1 to 10
file_readln 1,util$(n)
file_readln 1,mdp$(n)
file_readln 1,grad$(n)
item_add 2,util$(n)
item_add 9,grad$(n)
next n
file_close 1
return

enregistre:
echec$=""
gosub tri
file_open_write 1,"utilisateur.cfp"
for n=1 to 10
file_writeln 1,util$(n)
file_writeln 1,mdp$(n)
file_writeln 1,grad$(n)
next n
file_close 1
return

tri:
t=0:lv=0
for n=1 to 10
 if util$(n)<>"" then gosub insert
 if util$(n)="" then lv=lv+1
next n
for n=1 to 10
util$(n)=utilt$(n)
mdp$(n)=mdpt$(n)
grad$(n)=gradt$(n)
if grad$(n)="" and util$(n)<>"" then echec$="o": message "Vous devez attribuer un Statut à "+util$(n):return
next n
n=10-(lv-1)
util$(n)="":mdp$(n)="":grad$(n)=""
return
insert:
t=t+1
utilt$(t)=util$(n)
mdpt$(t)=mdp$(n)
gradt$(t)=grad$(n)
return

quit:
gosub enregistre
if echec$="o" then return
execute cfpmenug.exe
terminate