archivio1

--PRO48
--ESEMPIO ARCHIVIAZIONE RECORD
--inizio da record 1
on mousedown
  put "" into cd fld 1
  put "" into cd fld 2
  put "" into cd fld 3
  put "" into cd fld 7
  put "archivio con 40 record e 3 campi" into cd fld 7
  ask "indica totale record archivio"
  put it into totale1
  ask "indica numero campi per record"
  put it into campi
  

  put "attendere ricerca in corso" into cd fld 7
  

  put "rossi mario via_verona_8_Pd verdi aldo via_padova_9_Vr" into a1
  put "bassi anna via_verona_7_Tv basso maria via_treviso_4_Pd" into a2 
  put "verdi luigi via_verona_4_Pd zanella paolo via_verona_4_Pn" into a3 
  put "cleva mario via_tolmezzo_4_Ud neri alvise via_milano_5_Vr" into a4
  put "pascoli mario via_padova_5_Pd rossini luigi via_padova_4" into a5
  

  put "carducci mario via_verona_8_Pd grasso aldo via_padova_9_Vr" into a6
  put "bassetti anna via_verona_7_Tv bassoni maria via_treviso_4_Pd" into a7 
  put "verdini luigi via_verona_4_Pd zanetti paolo via_verona_4_Pn" into a8 
  put "clevare mario via_tolmezzo_4_Ud nerini alvise via_milano_5_Vr" into a9
  put "pasco mario via_padova_5_Pd rossetto luigi via_padova_4" into a10
  

  put "rosi mario via_verona_8_Pd verdia aldo via_padova_9_Vr" into a11 
  put "basi anna via_verona_7_Tv bassotto maria via_treviso_4_Pd" into a12 
  put "grasso luigi via_verona_4_Pd zane paolo via_verona_4_Pn" into a13 
  put "erina mario via_tolmezzo_4_Ud nerini alvise via_milano_5_Vr" into a14
  put "passeri mario via_padova_5_Pd rosini luigi via_padova_4" into a15
  

  PUT a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5 into s1
  put a6 & " " & a7 & " " & a8 & " " & a9 & " " & a11 into s2
  put a12 & " " & a13 & " " & a14 & " " & a15 into s3
  put s1 & " " & s2 & " " & s3 & " " into a12
  

  set the textcolor of cd fld 1 to 22
  set the textcolor of cd fld 2 to 33
  set the textcolor of cd fld 3 to 54
  set the textstyle of cd fld 1 to "bold"
  

  put 1 into r
  put 1 into c
  repeat with d=1 to totale1
    repeat with k=1 to campi   
      put r & " " & word c of a12 into line d of cd fld 1
      put word c+1 of a12 into line d of cd fld 2
      put word c+2 of a12 into line d of cd fld 3
      PUT "rec n." & r into cd fld 8
    end repeat  
    put r+1 into r
    put c+campi into c
  end repeat 
  put "fine ricerca:scrolling finestre" into cd fld 7
  beep
end mousedown

--PRO50
--ESEMPIO ARCHIVIAZIONE RECORD
--inizio da record 1
--finestra tipo SCROLLING
--ricerca testo con FIND
on mousedown
  put "" into cd fld 1
  put "" into cd fld 2
  put "" into cd fld 3
  put "" into cd fld 7
  put "archivio con 40 record e 3 campi" into cd fld 7
  ask "indica totale record archivio"
  put it into totale1
  ask "indica numero campi per record"
  put it into campi
  

  put "attendere ricerca in corso" into cd fld 7
  

  put "rossi mario via_verona_8_Pd verdi aldo via_padova_9_Vr" into a1
  put "bassi anna via_verona_7_Tv basso maria via_treviso_4_Pd" into a2 
  put "verdi luigi via_verona_4_Pd zanella paolo via_verona_4_Pn" into a3 
  put "cleva mario via_tolmezzo_4_Ud neri alvise via_milano_5_Vr" into a4
  put "pascoli mario via_padova_5_Pd rossini luigi via_padova_4" into a5
  

  put "carducci mario via_verona_8_Pd grasso aldo via_padova_9_Vr" into a6
  put "bassetti anna via_verona_7_Tv bassoni maria via_treviso_4_Pd" into a7 
  put "verdini luigi via_verona_4_Pd zanetti paolo via_verona_4_Pn" into a8 
  put "clevare mario via_tolmezzo_4_Ud nerini alvise via_milano_5_Vr" into a9
  put "pasco mario via_padova_5_Pd rossetto luigi via_padova_4" into a10
  

  put "rosi mario via_verona_8_Pd verdia aldo via_padova_9_Vr" into a11 
  put "basi anna via_verona_7_Tv bassotto maria via_treviso_4_Pd" into a12 
  put "grasso luigi via_verona_4_Pd zane paolo via_verona_4_Pn" into a13 
  put "erina mario via_tolmezzo_4_Ud nerini alvise via_milano_5_Vr" into a14
  put "passeri mario via_padova_5_Pd rosini luigi via_padova_4" into a15
  

  PUT a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5 into s1
  put a6 & " " & a7 & " " & a8 & " " & a9 & " " & a11 into s2
  put a12 & " " & a13 & " " & a14 & " " & a15 into s3
  put s1 & " " & s2 & " " & s3 & " " into a12
  

  set the textcolor of cd fld 1 to 22
  set the textcolor of cd fld 2 to 33
  set the textcolor of cd fld 3 to 54
  set the textstyle of cd fld 1 to "bold"
  

  put 1 into r
  put 1 into c
  repeat with d=1 to totale1
    repeat with k=1 to campi   
      put r & " " & word c of a12 into line d of cd fld 1
      put word c+1 of a12 into line d of cd fld 2
      put word c+2 of a12 into line d of cd fld 3
      PUT "rec n." & r into cd fld 8
    end repeat  
    put r+1 into r
    put c+campi into c
  end repeat 
  

  put "fine ricerca:scrolling finestre" into cd fld 7
  repeat until it="x"
    ask "testo da cercare:x per finire?"
    find it
    put "premi clic per continuare ricerca" into cd fld 7
    wait until mouseclick()
  end repeat
  beep
end mousedown