rubrica

gestione file con record a lunghezza costante; vari modi di visualizzazione
scrive, legge, visualizza scheda singola, tabella, lista, riga
file da richiamare classe1.dat

per vedere classex3.ppt

modulo da creare con Progetto-crea modulo

Option Explicit

Public Type persona
cognome As String * 20
nome As String * 20
qualifica As String * 20
paese As String * 20
anni As String * 20
End Type

 


codice da ricopiare in form

Private Sub CommandButton1_Click()
Dim archivio As String
archivio = TextBox1.Text
Open archivio For Random As #1 Len = 100

codice.SetFocus
End Sub

Private Sub CommandButton2_Click()
Close #1
End Sub

Private Sub CommandButton3_Click()
Dim p As persona
Get #1, codice, p
Call prelevaleggischeda(p)
codice.Text = ""
End Sub

Private Sub CommandButton4_Click()
Dim p As persona
Get #1, codice, p
Call prelevalista(p)
codice.Text = ""
codice.SetFocus
End Sub

Private Sub CommandButton5_Click()
Dim p As persona
Get #1, codice, p
Call prelevariga(p)
codice.Text = ""
codice.SetFocus
End Sub

Private Sub CommandButton6_Click()
Dim p As persona
Call registra(p)
Put #1, codice, p
End Sub

Private Sub CommandButton7_Click()
ListBox1.Visible = True
ListBox1.Clear
codice.SetFocus
End Sub

Private Sub prelevatabella(p As persona)
Frame1.Visible = False
ListBox1.Visible = False
Dim h As String
h = " "
ListBox2.Visible = True
ListBox2.AddItem ("record n." & codice)
ListBox2.AddItem (p.cognome & h & p.nome & h & p.qualifica & h & p.paese & h & p.anni)
End Sub

Private Sub CommandButton8_Click()
Dim k As Integer
Dim p As persona
For k = 1 To 5
Get #1, codice, p
Call prelevatabella(p)
codice = codice + 1
Next k
codice.Text = ""
codice.SetFocus
End Sub

Private Sub CommandButton9_Click()
ListBox2.Clear
codice.SetFocus
End Sub


Private Sub prelevaleggischeda(p As persona)
Frame1.Visible = True
ListBox1.Visible = False
ListBox2.Visible = False
cognometxt = p.cognome
nometxt = p.nome
qualificatxt = p.qualifica
paesetxt = p.paese
annitxt = p.anni
codice.SetFocus
End Sub


Private Sub prelevariga(p As persona)
Label8.Caption = p.cognome
Label9.Caption = p.nome
Label10.Caption = p.qualifica
Label11.Caption = p.paese
Label12.Caption = p.anni
End Sub


Private Sub prelevalista(p As persona)
Frame1.Visible = False
ListBox2.Visible = False
ListBox1.Visible = True
ListBox1.AddItem ("record = " & codice)
ListBox1.Visible = True
ListBox1.AddItem (p.cognome)
ListBox1.AddItem (p.nome)
ListBox1.AddItem (p.qualifica)
ListBox1.AddItem (p.paese)
ListBox1.AddItem (p.anni)
ListBox1.AddItem ("---------")
codice.SetFocus
End Sub


Private Sub registra(ByRef p As persona)
p.cognome = cognometxt
p.nome = nometxt
p.qualifica = qualificatxt
p.paese = paesetxt
p.anni = annitxt
End Sub