KGF_dll - nouvelles versions

dim res% , HD$, HG$, BG$, BD$
width 0,1216
picture 1 : height 1,400 : width 1,600
file_load 1,"c:\temp\Palette.bmp": ' ===> à adapter

picture 2:left 2,600:height 2,400:width 2,600: color 2,120,120,120

DLL_ON "C:\TEST\KGF830.dll": ' ===> à adapter

clipboard_copy 1
res% = dll_call0("LoadPicture")
' HD$ = "400,0"
' HG$ = "100,0"
' BG$ = "0,399"
' BD$ = "599,399"

 HD$ = "400,100"
 HG$ = "0,100"
 BG$ = "0,399"
 BD$ = "599,399"

' tranformer l'image en losange

res% = dll_call4("TorturePicture",adr(HG$),adr(HD$),adr(BD$),adr(BG$))
res% = dll_call0("SavePicture")
clipboard_paste 1
message "picture 1= "+str$(height(1))+chr$(9)+chr$(13)+"picture 2= "+str$(height(2))

' JavaScript_avec_WebBrowser.bas

label exec, close0

dim res%, WB%, jscript$, url$

on_close 0,close0

dll_on "KGF.dll"
button 1 : caption 1,"Exécuter" : on_click 1,exec
memo 2 : full_space 2 : height 2,height_client(0)-30 : top 2,30
text 2,"alert("+chr$(34)+"Hello"+chr$(34)+");"

end

close0:
  if WB%<>0 then res% = dll_call1("WB_Delete",WB%)
  return

exec: 
  jscript$ = text$(2)
  if jscript$="" then return
'  res% = dll_call1("WB_SetBrowserType",0)  : ' iexplore
  res% = dll_call1("WB_SetBrowserType",1)  : ' Mozilla
  if WB%=0 then WB% = dll_call1("WB_Create",handle(0))
  res% = dll_call2("WB_ExecuteJavaScript",WB%,adr(jscript$))
  return
 

' test_KBDD.bas

' démo à l'aide d'un carnet d'adresses:
'  Nom = 40 car.                Clé 0
'  Prénom = 40 car.              Clé 0
'  Date de naissance = 8 car.
'  Adresse = 2 x 40 car.
'  Code postal = 5 car.          Clé 1
'  Ville = 40 car.              Clé 2
'  Tél. = 10 car.               
'  Mail = 40 car.
'
' L'appel de GetInfoKBDD ne sert à rien fonctionnellement.
' C'est juste l'affichage de l'état interne de KBDD, pour information.


label creer, sauver, charger, squeeze, ajouter, lireID, lireNextID, lirePrevID
label precedent, suivant, query, supprimercollection, SelectCollection
label LireIndex0, LireIndex1, LireIndex2, maj, supprimer, restaurer

dim res%, KBDD%, NomKBDD$, no%, PathKBDD$, IndexKBDD$, RecordKBDD$,FieldKBDD$
dim blanc$, aRecord$
dim s1$, s2$, i%, j%, ok%, sQuery$
dim hmemoStatut%, hmemoResultat%, hmemoCollections%
dim hmemoChamps%, hmemoOperateurs%, hmemoValeurs%, hmemoCollection%
dim noChamps%, noOperateurs%, noValeurs%, noCollection%, noOperateursPossibles%
dim noListeCollections%
dim noNomCollection%, NomCollection$
dim noResult%, noID%, ID%, cle$

blanc$ = string$(255," ")
aRecord$ = string$(40+40+8+80+5+40+10+40," ")

full_space 0

no% = 1 : button no% : caption no%,"Créer" : on_click no%,creer
no% = no% + 1 : button no% : left no%,left(no%-1)+width(no%) : caption no%,"Sauver" : on_click no%,sauver
no% = no% + 1 : button no% : left no%,left(no%-1)+width(no%) : caption no%,"Charger" : on_click no%,charger
no% = no% + 1 : button no% : left no%,left(no%-1)+width(no%)+30 : caption no%,"Tasser" : on_click no%,squeeze


no% = no% + 1 : alpha no% : top no%,40 : left no%,10 : caption no%,"Nom:"
edit 1001 : top 1001,40 : left 1001,100 : width 1001,300
no% = no% + 1 : alpha no% : top no%,65 : left no%,10 : caption no%,"Prénom:"
edit 1002 : top 1002,65 : left 1002,100 : width 1002,300
no% = no% + 1 : alpha no% : top no%,90 : left no%,10 : caption no%,"Né(e) le:"
edit 1003 : top 1003,90 : left 1003,100 : width 1003,100
no% = no% + 1 : alpha no% : top no%,90 : left no%,220 : caption no%,"( aaaammjj )"
no% = no% + 1 : alpha no% : top no%,115 : left no%,10 : caption no%,"Adresse:"
edit 1004 : top 1004,115 : left 1004,100 : width 1004,300
edit 1005 : top 1005,140 : left 1005,100 : width 1005,300
no% = no% + 1 : alpha no% : top no%,165 : left no%,10 : caption no%,"Code postal:"
edit 1006 : top 1006,165 : left 1006,100 : width 1006,100
no% = no% + 1 : alpha no% : top no%,190 : left no%,10 : caption no%,"Ville:"
edit 1007 : top 1007,190 : left 1007,100 : width 1007,300
no% = no% + 1 : alpha no% : top no%,215 : left no%,10 : caption no%,"Téléphone:"
edit 1008 : top 1008,215 : left 1008,100 : width 1008,100
no% = no% + 1 : alpha no% : top no%,240 : left no%,10 : caption no%,"Mail:"
edit 1009 : top 1009,240 : left 1009,100 : width 1009,300

no% = no% + 1 : alpha no% : top no%,40 : left no%,430 : caption no%,"Statut:"
no% =  no% + 1 : memo no% : top no%,40 : left no%,470 : width no%,300 : height no%,300 : bar_both no%
  hmemoStatut% = handle(no%)
no% = no% + 1 : alpha no% : top no%,40 : left no%,800 : caption no%,"Résultat:"
no% =  no% + 1 : memo no% : top no%,40 : left no%,850 : width no%,200 : height no%,300 : bar_both no%
  hmemoResultat% = handle(no%) : noResult% = no%
no% = no% + 1 : alpha no% : top no%,40 : left no%,1070 : caption no%,"Collections:"
no% =  no% + 1 : memo no% : top no%,40 : left no%,1130 : width no%,200 : height no%,300 : bar_both no% : on_click no%,SelectCollection
  hmemoCollections% = handle(no%) : noListeCollections% = no%
 
 
no% = no% + 1 : button no% : top no%,280 : caption no%,"Ajouter" : on_click no%,ajouter
no% = no% + 1 : button no% : top no%,280 : left no%,left(no%-1)+width(no%-1) : caption no%,"Lire index 0" : on_click no%,LireIndex0
no% = no% + 1 : button no% : top no%,280 : left no%,left(no%-1)+width(no%-1) : caption no%,"Lire index 1" : on_click no%,LireIndex1
no% = no% + 1 : button no% : top no%,280 : left no%,left(no%-1)+width(no%-1) : caption no%,"Lire index 2" : on_click no%,LireIndex2
no% = no% + 1 : button no% : top no%,280 : left no%,left(no%-1)+width(no%-1) : caption no%,"Maj" : on_click no%,maj
no% = no% + 1 : button no% : top no%,280 : left no%,left(no%-1)+width(no%-1) : caption no%,"Supprimer" : on_click no%,supprimer
no% = no% + 1 : button no% : top no%,305 : left no%,left(no%-1) : caption no%,"Restaurer" : on_click no%,restaurer

no% = no% + 1 : button no% : top no%,305 : left no%,110 : caption no%,"Précédent" : on_click no%,precedent
no% = no% + 1 : button no% : top no%,305 : left no%,left(no%-1)+width(no%-1) : caption no%,"Suivant" : on_click no%,suivant

no% = no% + 1 : alpha no% : top no%,360 : caption no%,"ID:"
no% = no% + 1 : spin no% : top no%,360 : left no%,20 : width no%,100 : min no%,0 : max no%,3000 : position no%,0
  noID% = no%
no% = no% + 1 : button no% : top no%,360 : left no%,left(no%-1)+width(no%)+25 : caption no%,"Read ID" : on_click no%,lireID
no% = no% + 1 : button no% : top no%,360 : left no%,left(no%-1)+width(no%) : caption no%,"Read next" : on_click no%,lireNextID
no% = no% + 1 : button no% : top no%,360 : left no%,left(no%-1)+width(no%) : caption no%,"Read prev" : on_click no%,lirePrevID

no% = no% + 1 : dlist no% : noOperateursPossibles% = no%
no% = no% + 1 : alpha no% : top no%,400 : caption no%,"Création de collections:    Nom:"
no% = no% + 1 : edit no% : top no%,400 : left no%,160 : noNomCollection% = no%
no% = no% + 1 : button no% : top no%,400 :left no%,left(no%-1)+width(no%) : caption no%,"Supprimer" : on_click no%,supprimercollection
no% = no% + 1 : alpha no% : top no%,430 : caption no%,"Champs:"
no% = no% + 1 : memo no% : top no%,450 : width no%,150 : height no%,200
  hmemoChamps% = handle(no%) : noChamps% = no%
no% = no% + 1 : alpha no% : top no%,430 : left no%,left(no%-1)+width(no%-1)+10 : caption no%,"Opérateurs:"
no% = no% + 1 : memo no% : top no%,450 : left no%,left(no%-1) : width no%,60 : height no%,200
  hmemoOperateurs% = handle(no%) : noOperateurs% = no%
no% = no% + 1 : alpha no% : top no%,430 : left no%,left(no%-1)+width(no%-1)+10 : caption no%,"Valeurs:"
no% = no% + 1 : memo no% : top no%,450 : left no%,left(no%-1) : width no%,200 : height no%,200
  hmemoValeurs% = handle(no%) : noValeurs% = no%
no% = no% + 1 : button no% : top no%,top(no%-1)+height(no%-1)/2-10 : left no%,left(no%-1)+width(no%-1)+10 : caption no%,"Query" : on_click no%,query
no% = no% + 1 : alpha no% : top no%,430 : left no%,left(no%-1)+width(no%-1)+10 : caption no%,"Collection:"
no% = no% + 1 : memo no% : top no%,450 : left no%,left(no%-1) : width no%,60 : height no%,200
  hmemoCollection% = handle(no%) : noCollection% = no%
 
item_add noOperateursPossibles%,"="
item_add noOperateursPossibles%,"<"
item_add noOperateursPossibles%,">"
item_add noOperateursPossibles%,"<>"
item_add noOperateursPossibles%,"<="
item_add noOperateursPossibles%,">="
 
dll_on "KGF.dll"

NomKBDD$ = "Test_de_KBDD"
PathKBDD$ = ".\" : ' ".\TestKBDD"
if dir_exists(PathKBDD$)=0 then dir_make PathKBDD$
 
end

creer:
  KBDD% = dll_call1("CreateKBDD",adr(NomKBDD$))
  IndexKBDD$ = "NomPrenom"
  res% = dll_call5("DefineIndexKBDD",KBDD%,adr(IndexKBDD$),2,1,80)
  IndexKBDD$ = "CodPost"
  res% = dll_call5("DefineIndexKBDD",KBDD%,adr(IndexKBDD$),1,169,5)
  IndexKBDD$ = "Ville"
  res% = dll_call5("DefineIndexKBDD",KBDD%,adr(IndexKBDD$),2,174,40)

  FieldKBDD$ = "Nom"
  res% = dll_call5("AddFieldForKDDB",KBDD%,adr(FieldKBDD$),2,1,40)
  FieldKBDD$ = "Prénom"
  res% = dll_call5("AddFieldForKDDB",KBDD%,adr(FieldKBDD$),2,41,40)
  FieldKBDD$ = "Naissance"
  res% = dll_call5("AddFieldForKDDB",KBDD%,adr(FieldKBDD$),3,81,8)
  FieldKBDD$ = "Adresse 1"
  res% = dll_call5("AddFieldForKDDB",KBDD%,adr(FieldKBDD$),2,89,40)
  FieldKBDD$ = "Adresse 2"
  res% = dll_call5("AddFieldForKDDB",KBDD%,adr(FieldKBDD$),2,129,40)
  FieldKBDD$ = "Codepostal"
  res% = dll_call5("AddFieldForKDDB",KBDD%,adr(FieldKBDD$),1,169,5)
  FieldKBDD$ = "Ville"
  res% = dll_call5("AddFieldForKDDB",KBDD%,adr(FieldKBDD$),2,174,40)
  FieldKBDD$ = "Téléphone"
  res% = dll_call5("AddFieldForKDDB",KBDD%,adr(FieldKBDD$),1,214,10)
  FieldKBDD$ = "Mail"
  res% = dll_call5("AddFieldForKDDB",KBDD%,adr(FieldKBDD$),2,224,40)
 
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  return
 
sauver:
  res% = dll_calL2("SaveKBDD",KBDD%,adr(PathKBDD$))
  return
 
charger:
  res% = dll_calL2("LoadKBDD",KBDD%,adr(PathKBDD$)) 
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  return
 
ajouter:
  RecordKBDD$ = ""
  RecordKBDD$ = RecordKBDD$ + left$(text$(1001)+blanc$,40) : ' nom
  RecordKBDD$ = RecordKBDD$ + left$(text$(1002)+blanc$,40) : ' prénom
  RecordKBDD$ = RecordKBDD$ + left$(text$(1003)+blanc$,8)  : ' date de naissance
  RecordKBDD$ = RecordKBDD$ + left$(text$(1004)+blanc$,40) : ' adresse ligne 1
  RecordKBDD$ = RecordKBDD$ + left$(text$(1005)+blanc$,40) : ' adresse ligne 2
  RecordKBDD$ = RecordKBDD$ + left$(text$(1006)+blanc$,5)  : ' code postal
  RecordKBDD$ = RecordKBDD$ + left$(text$(1007)+blanc$,40) : ' ville
  RecordKBDD$ = RecordKBDD$ + left$(text$(1008)+blanc$,10) : ' téléphone
  RecordKBDD$ = RecordKBDD$ + left$(text$(1009)+blanc$,40) : ' mail
  ID% = dll_call2("AddRecordKBDD",KBDD%,adr(RecordKBDD$))
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  position noID%,ID%
  return 
 
lireID:
  ID% = dll_call3("ReadByIdKBDD",KBDD%,position(noID%),adr(aRecord$))
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  clear noResult%
  if ID%<0
    item_add noResult%,"Erreur e lecture ID="+str$(position(noID%))
  else
    s1$ = trim$(left$(aRecord$,40))
    s2$ = trim$(mid$(aRecord$,41,40))
    item_add noResult%,"ID="+str$(ID%)+": "+s1$+", "+s2$
    AfficherRecord()
  end_if
  return
 
lireNextID:
  position noID%,position(noID%)+1
  gosub LireID
  return

lirePrevID:
  if position(noID%)=0 then return
  position noID%,position(noID%)-1
  gosub LireID
  return
 
LireIndex0:
  cle$ =        left$(text$(1001)+blanc$,40) : ' nom
  cle$ = cle$ + left$(text$(1002)+blanc$,40) : ' prénom
  ID% = dll_call4("ReadByIndexKBDD",KBDD%,0,adr(cle$),adr(aRecord$))
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  clear noResult%
  if ID%<0
    item_add noResult%,"Erreur e lecture Index 0 ="+cle$
  else
    s1$ = trim$(left$(aRecord$,40))
    s2$ = trim$(mid$(aRecord$,41,40))
    item_add noResult%,"ID="+str$(ID%)+": "+s1$+", "+s2$
    position noID%,ID%
    AfficherRecord()
  end_if
  return
 
LireIndex1:
  cle$ = left$(text$(1006)+blanc$,5)  : ' code postal
  ID% = dll_call4("ReadByIndexKBDD",KBDD%,1,adr(cle$),adr(aRecord$))
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  clear noResult%
  if ID%<0
    item_add noResult%,"Erreur e lecture Index 1 ="+cle$
  else
    s1$ = trim$(left$(aRecord$,40))
    s2$ = trim$(mid$(aRecord$,41,40))
    item_add noResult%,"ID="+str$(ID%)+": "+s1$+", "+s2$
    position noID%,ID%
    AfficherRecord()
  end_if
  return

LireIndex2:
  cle$ = left$(text$(1007)+blanc$,40) : ' ville
  ID% = dll_call4("ReadByIndexKBDD",KBDD%,2,adr(cle$),adr(aRecord$))
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  clear noResult%
  if ID%<0
    item_add noResult%,"Erreur en lecture Index 2 ="+cle$
  else
    s1$ = trim$(left$(aRecord$,40))
    s2$ = trim$(mid$(aRecord$,41,40))
    item_add noResult%,"ID="+str$(ID%)+": "+s1$+", "+s2$
    position noID%,ID%
    AfficherRecord()
  end_if
  return
 
precedent:
  ID% = dll_call2("ReadPreceedingIndexKBDD",KBDD%,adr(aRecord$))
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  clear noResult%
  if ID%<0
    item_add noResult%,"Erreur en lecture précédent ="+cle$
  else
    s1$ = trim$(left$(aRecord$,40))
    s2$ = trim$(mid$(aRecord$,41,40))
    item_add noResult%,"ID="+str$(ID%)+": "+s1$+", "+s2$
    position noID%,ID%
    AfficherRecord()
  end_if
  return
 
suivant:
  ID% = dll_call2("ReadNextIndexKBDD",KBDD%,adr(aRecord$))
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  clear noResult%
  if ID%<0
    item_add noResult%,"Erreur en lecture suivant ="+cle$
  else
    s1$ = trim$(left$(aRecord$,40))
    s2$ = trim$(mid$(aRecord$,41,40))
    item_add noResult%,"ID="+str$(ID%)+": "+s1$+", "+s2$
    position noID%,ID%
    AfficherRecord()
  end_if
  return

maj:
  RecordKBDD$ = ""
  RecordKBDD$ = RecordKBDD$ + left$(text$(1001)+blanc$,40) : ' nom
  RecordKBDD$ = RecordKBDD$ + left$(text$(1002)+blanc$,40) : ' prénom
  RecordKBDD$ = RecordKBDD$ + left$(text$(1003)+blanc$,8)  : ' date de naissance
  RecordKBDD$ = RecordKBDD$ + left$(text$(1004)+blanc$,40) : ' adresse ligne 1
  RecordKBDD$ = RecordKBDD$ + left$(text$(1005)+blanc$,40) : ' adresse ligne 2
  RecordKBDD$ = RecordKBDD$ + left$(text$(1006)+blanc$,5)  : ' code postal
  RecordKBDD$ = RecordKBDD$ + left$(text$(1007)+blanc$,40) : ' ville
  RecordKBDD$ = RecordKBDD$ + left$(text$(1008)+blanc$,10) : ' téléphone
  RecordKBDD$ = RecordKBDD$ + left$(text$(1009)+blanc$,40) : ' mail
  ID% = dll_call2("UpdateRecordKBDD",KBDD%,adr(RecordKBDD$))
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  position noID%,ID%
  return

supprimer:
  ID% = dll_call2("DeleteRecordByIdKBDD",KBDD%,ID%)
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  clear noResult%
  if ID%<0
    item_add noResult%,"Erreur en suppression"
  else
    s1$ = trim$(left$(aRecord$,40))
    s2$ = trim$(mid$(aRecord$,41,40))
    item_add noResult%,"ID="+str$(ID%)+": "+s1$+", "+s2$
    position noID%,ID%
  end_if
  return

restaurer:
  ID% = dll_call2("UndeleteRecordByIdKBDD",KBDD%,position(noID%))
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  clear noResult%
  if ID%<0
    item_add noResult%,"Erreur en restauration"
  else
    s1$ = trim$(left$(aRecord$,40))
    s2$ = trim$(mid$(aRecord$,41,40))
    item_add noResult%,"ID="+str$(position(noID%))+": relire l'enregistrement !"
    position noID%,ID%
  end_if
  return
 
query:
  ' vérifier la cohérence des paramètres
  NomCollection$ = trim$(text$(NoNomCollection%))
  if NomCollection$="" then return
  if count(noChamps%)=0 then return
  if count(noChamps%)<>count(noOperateurs%) then return
  if count(noChamps%)<>count(noValeurs%) then return
  for i%=1 to count(noOperateurs%)
    ok% = 0
    for j%=1 to count(noOperateursPossibles%)
      if item_read$(noOperateurs%,i%)=item_read$(noOperateursPossibles%,j%) then ok% = 1
    next j%
    if ok% = 0 then return
  next i%

  ' créer la collection
  res% = dll_call2("CreateCollectionForKBDD",KBDD%,adr(NomCollection$))
  if res%<0 then message "Remplacement de la collection "+NomCollection$
  ' effectuer la requête
  res% = dll_call6("QueryCollectionForKBDD",KBDD%,adr(NomCollection$),hmemoChamps%,hmemoOperateurs%,hmemoValeurs%,hmemoCollection%)

  ' afficher le résultat               
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  return

supprimercollection:
  NomCollection$ = trim$(text$(NoNomCollection%))
  res% = dll_call2("DeleteCollectionFromKDDB",KBDD%,adr(NomCollection$))
  res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
  res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  return
 
SelectCollection:
  i% = dll_call1("GetActiveMemoLine",hmemoCollections%)
  if i%>0
    NomCollection$ = item_read$(noListeCollections%,i%)
    text noNomCollection%,NomCollection$
    res% = dll_call3("GetCollectionKBDD",KBDD%,adr(NomCollection$),hmemoCollection%)
    sQuery$ = string$(500," ")
    j% = dll_call4("GetCollectionQueryKBDD",KBDD%,adr(NomCollection$),0,0)
    clear noChamps%
    clear noOperateurs%
    clear noValeurs%
    for i%=1 to j%
      res% = dll_call4("GetCollectionQueryKBDD",KBDD%,adr(NomCollection$),i%,adr(sQuery$))
      AfficherQuery(sQuery$)
    next i%
  end_if
  return 
 
squeeze:
  res% = dll_call1("SqueezeKBDD",KBDD%)
  clear noResult%
  if res%<0
    item_add noResult%,"Erreur en compression"
  else
    res% = dll_call2("GetInfoKBDD",KBDD%,hmemoStatut%)
    res% = dll_call2("GetCollectionsKBDD",KBDD%,hmemoCollections%)
  end_if
  return
 
 

sub AfficherRecord()
'  Nom = 40 car.                Clé 0
'  Prénom = 40 car.              Clé 0
'  Date de naissance = 8 car.
'  Adresse = 2 x 40 car.
'  Code postal = 5 car.          Clé 1
'  Ville = 40 car.              Clé 2
'  Tél. = 10 car.               
'  Mail = 40 car.
  text 1001,trim$(left$(aRecord$,40))
  text 1002,trim$(mid$(aRecord$,41,40))
  text 1003,trim$(mid$(aRecord$,81,8))
  text 1004,trim$(mid$(aRecord$,89,40))
  text 1005,trim$(mid$(aRecord$,129,40))
  text 1006,trim$(mid$(aRecord$,169,5))
  text 1007,trim$(mid$(aRecord$,174,40))
  text 1008,trim$(mid$(aRecord$,214,10))
  text 1009,trim$(mid$(aRecord$,224,40))
end_sub


sub AfficherQuery(s$)
  dim_local p%, s1$
  s1$ = s$
  p% = instr(s1$,":")
  item_add noChamps%,left$(s1$,p%-1)
  s1$ = mid$(s1$,p%+1,len(s1$))
  p% = instr(s1$,":")
  item_add noOperateurs%,left$(s1$,p%-1)
  s1$ = mid$(s1$,p%+1,len(s1$))
  item_add noValeurs%,s1$
end_sub