archiviazione dati

per vedere archi3c.ppt

gestione file con record a lunghezza costante,visualizzazione su scheda o unica riga,
solo lettura per file rubri.dat

Option Explicit
rem modulo che assegna lunghezza a campi del record
rem va creato con Progetto-Inserisci modulo
Public Type persona
cognome As String * 20
nome As String * 20
indirizzo As String * 20
cap As String * 5
città As String * 20
telefono As String * 20
End Type

Private Sub apri_Click()
Open "rubri.dat" For Random As #1 Len = 105
codicetxt.SetFocus
End Sub

Private Sub chiudi_Click()
Close #1
End Sub


Private Sub CommandButton2_Click()
Dim p As persona
Get #1, codicetxt, p
Call preleva1(p)
codicetxt.Text = ""
End Sub



Private Sub leggi_Click()
Dim p As persona
Get #1, codicetxt, p
Call preleva(p)
codicetxt.Text = ""
End Sub


Private Sub preleva(p As persona)

ListBox1.AddItem ("cognome....." & p.cognome)
ListBox1.AddItem ("nome........" & p.nome)
ListBox1.AddItem ("indirizzo..." & p.indirizzo)
ListBox1.AddItem ("cap........." & p.cap)
ListBox1.AddItem ("città......." & p.città)
ListBox1.AddItem ("telefono...." & p.telefono)
ListBox1.AddItem ("--------------")
codicetxt.SetFocus
End Sub

Private Sub preleva1(p As persona)

TextBox1 = p.cognome
TextBox2 = p.nome
TextBox3 = p.indirizzo
TextBox4 = p.cap
TextBox5 = p.città
TextBox6 = p.telefono
codicetxt.SetFocus
End Sub