Option Explicit
Public cont As Integer
Public stringa As String
Public Sub pulisci()
txtanno.Text = ""
Txttitolo.Text = ""
Txtregista.Text = ""
Txtgenere.Text = ""
Txtattore.Text = ""
txtNazionalità.Text = ""
End Sub
Private Sub Form_Load()
Dim n As Integer, g As Integer
n = FreeFile
g = FreeFile
Open "c:\numero.dat" For Random As #g
Close #g
Open percorso For Random As #n
Close #n
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Sei sicuro di voler uscire dal programma?", vbQuestion + vbYesNoCancel, "Esci") = vbYes Then
MsgBox "Programma eseguito da Albert King", vbInformation, "Creatore"
End
Else
Cancel = True
End If
End Sub
Private Sub Image1_Click()
Frmdvd.WindowState = 1
Call Label8_Click
End Sub
Private Sub Image2_Click()
Dim numfile As Integer
numfile = FreeFile
Frmprofilo.lbltitolo.Caption = Frmprofilo.lbltitolo.Caption & Trim(LCase(Txttitolo.Text))
Frmprofilo.Lblregista.Caption = Frmprofilo.Lblregista.Caption & Trim(LCase(Txtregista.Text))
Frmprofilo.Lblattore.Caption = Frmprofilo.Lblattore.Caption & Trim(LCase(Txtattore.Text))
Frmprofilo.Lblgenere.Caption = Frmprofilo.Lblgenere.Caption & Trim(LCase(Txtgenere.Text))
Frmprofilo.lblanno.Caption = Frmprofilo.lblanno.Caption & Trim(LCase(txtanno.Text))
If Optscarso.Value = True Then
Frmprofilo.lblvoto.Caption = Frmprofilo.lblvoto.Caption & "scarso"
End If
If Optdiscreto.Value = True Then
Frmprofilo.lblvoto.Caption = Frmprofilo.lblvoto.Caption & "discreto"
End If
If Optbuono.Value = True Then
Frmprofilo.lblvoto.Caption = Frmprofilo.lblvoto.Caption & "buono"
End If
If Optottimo.Value = True Then
Frmprofilo.lblvoto.Caption = Frmprofilo.lblvoto.Caption & "ottimo"
End If
If Optcapolavoro.Value = True Then
Frmprofilo.lblvoto.Caption = Frmprofilo.lblvoto.Caption & "geniale"
End If
Frmprofilo.lblnazion.Caption = Frmprofilo.lblnazion.Caption & Trim(LCase(txtNazionalità.Text))
If txtanno.Text <> "" And Txttitolo.Text <> "" And Txtregista.Text <> "" _
And Txtattore.Text <> "" And Txtgenere.Text <> "" And txtNazionalità.Text <> "" Then
Frmprofilo.Show
If MsgBox("Sei sicuro di voler salvare i dati nel database?", vbQuestion + vbYesNoCancel, "Salva") = vbYes Then
cont = cont + 1
ReDim Preserve film(1 To cont) As dvd
film(cont).titolo = Trim(LCase(Txttitolo.Text))
film(cont).regista = Trim(LCase(Txtregista.Text))
film(cont).attoreprotagonista = Trim(LCase(Txtattore.Text))
film(cont).nazionalità = Trim(LCase(txtNazionalità.Text))
film(cont).genere = Trim(LCase(Txtgenere.Text))
film(cont).annodiproduzione = Trim(LCase(txtanno.Text))
If Optscarso.Value = True Then
film(cont).voto = "scarso"
End If
If Optdiscreto.Value = True Then
film(cont).voto = "discreto"
End If
If Optbuono.Value = True Then
film(cont).voto = "buono"
End If
If Optottimo.Value = True Then
film(cont).voto = "ottimo"
End If
If Optcapolavoro.Value = True Then
film(cont).voto = "geniale"
End If
stringa = " " & film(cont).titolo & film(cont).regista & film(cont).attoreprotagonista _
& film(cont).annodiproduzione & " " & film(cont).nazionalità & film(cont).genere & " " & film(cont).voto
Open percorso For Append As #numfile
Print #numfile, stringa
Close #numfile
Call pulisci
End If
Unload Frmprofilo
Else
MsgBox "Devi specificare tutti i campi!", vbInformation, "Info"
End If
End Sub
Private Sub Label10_Click()
frmking.Show
End Sub
Private Sub Label8_Click()
Dim num As Integer
Dim strlinea As String
Frmdvd.WindowState = 1
num = FreeFile
Open percorso For Input As #num
While Not EOF(num)
Line Input #num, strlinea
frmLista.List1.AddItem strlinea
Wend
Close #num
frmLista.Show
End Sub
Private Sub Label9_Click()
frmking.Show
End Sub
Private Sub txtanno_Change()
If Not IsNumeric(txtanno.Text) Then
txtanno.Text = ""
End If
End Sub