Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
gestione scuola - Frmtabdatibimbi.frm

Frmtabdatibimbi.frm

Caricato da: Albertking82
Scarica il programma completo

  1. Option Explicit
  2.  
  3. Private Sub Cmddeldatabase_Click()
  4. Dim risp2 As Integer
  5. Dim n2 As Integer
  6.  n2 = FreeFile
  7.   If Frmtabdatibimbi.Listbimbi.ListCount <> 0 Then
  8.    risp2 = MsgBox("Sei sicuro di voler eliminare tutti i tuoi dati?(se digiti SI tutti i tuoi dati andranno persi!)", vbExclamation + vbYesNoCancel, "Avviso")
  9.    If risp2 = vbYes Then
  10.     Listbimbi.Clear
  11.      Cmddeldatabase.Enabled = False
  12.      Open "datibimbi.dat" For Output As #n2
  13.       While Not EOF(n2)
  14.        Print #n2, ""
  15.       Wend
  16.      Close #n2
  17.     End If
  18.     Else
  19.         MsgBox "Il database è vuoto!!", vbInformation, "Info"
  20.     End If
  21. End Sub
  22.  
  23. Private Sub cmddelelem_Click()
  24. Dim numero3 As Integer
  25. Dim r As Integer, j As Integer
  26.  If Frmtabdatibimbi.Listbimbi.ListIndex <> -1 And Frmtabdatibimbi.Listbimbi.ListCount <> 0 Then
  27.   r = MsgBox("Sei sicuro di voler eliminare l'elemento selezionato?", vbQuestion + vbYesNo, "Elimina file")
  28.   If r = vbYes Then
  29.   Frmtabdatibimbi.Listbimbi.RemoveItem Frmtabdatibimbi.Listbimbi.ListIndex
  30.   numero3 = FreeFile
  31.    Open "datibimbi.dat" For Output As #numero3
  32.      For j = 0 To (Frmtabdatibimbi.Listbimbi.ListCount - 1)
  33.       Print #numero3, Frmtabdatibimbi.Listbimbi.List(j)
  34.      Next j
  35.    Close #numero3
  36.    End If
  37.  End If
  38. End Sub