classex

gestione archivio,database

Option Explicit

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 UserForm_Click()

End Sub

Private Sub prelevaleggischeda(p As persona)
Frame1.Visible = True
ListBox1.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
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

ritorna