archiviazione

gestione file a record con lunghezza costante
reazione, apertura, lettura, modifica record su file rubri.dat
vedere informazioni sull'uso del programma (immagine)

per vedere archi3.ppt

Option Explicit

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 CommandButton1_Click()
Label8.Visible = False
Frame1.Visible = True
End Sub

Private Sub istruzioni_Click()
Label8.Visible = True
Frame1.Visible = False

End Sub

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

Private Sub leggicambia_Click()
Dim p As persona
Get #1, codicetxt, p
Call preleva(p)
End Sub

Private Sub modifica_Click()
Dim p As persona
Call registra(p)
Put #1, codicetxt, p

End Sub


Private Sub nuovo_Click()
Dim pers As persona
Dim pos As Long
Dim rec As Integer
Rem cognometxt.Text = ""
Rem nometxt.Text = ""
Rem indirizzotxt.Text = ""
Rem captxt.Text = ""
Rem cittàtxt.Text = ""
Rem Telefonotxt.Text = ""
cognometxt.SetFocus
rec = 1
While Not EOF(1)
Get #1, rec, pers
rec = rec + 1
Wend
Call registra(pers)
Put #1, , pers

End Sub


Private Sub registra(ByRef p As persona)
p.cognome = cognometxt
p.nome = nometxt
p.indirizzo = indirizzotxt
p.cap = captxt
p.città = cittàtxt
p.telefono = Telefonotxt
End Sub

Private Sub preleva(p As persona)
cognometxt = p.cognome
nometxt = p.nome
indirizzotxt = p.indirizzo
captxt = p.cap
cittàtxt = p.città
Telefonotxt = p.telefono
codicetxt.SetFocus
End Sub