gestione scuola - record.bas

record.bas

Caricato da: Albertking82
Scarica il programma completo


	Attribute VB_Name = "record" Option Explicit Public cont As Integer, i As Integer Public str As String Public opzione As String Public strlinea As String Public strlinea2 As String Public stringa As String Public contatore As Integer Public contatore2 As Integer Public lines As String Public line As String Public isc As String Public se As String, ot As String, no As String, di As String, ge As String, fe As String, ma As String, ap As String, magg As String, gi As String Public Type orarioinsegnanti settimana As String * 10 mese As String * 15 orarioda As String * 5 orarioa As String * 5 straordinari As String * 5 End Type Public orarilulu() As orarioinsegnanti Public orarimar() As orarioinsegnanti Public orirene() As orarioinsegnanti Public Type rettebimbi nomecognome As String * 40 sett As String * 6 ott As String * 6 nov As String * 6 dic As String * 6 gen As String * 6 feb As String * 6 mar As String * 6 apr As String * 6 mag As String * 5 giu As String * 4 iscrizione As String * 2 End Type Public rette() As rettebimbi Public Type datibambini nome As String * 15 cognome As String * 15 data_di_nascita As String * 10 paese As String * 18 indirizzo As String * 27 prov As String * 2 cap As String * 10 tel As String * 12 End Type Public bambini() As datibambini Public Sub cercasolulu() Dim numero1 As Integer Dim numero2 As Integer numero1 = FreeFile numero2 = FreeFile cont = 0 FrmTABorarioluana.Listorarioluana.Clear If Frmtrova.Txttrova.Text <> "" Then Open "orariolulu.dat" For Input As numero1 While Not EOF(numero1) Line Input #numero1, strlinea FrmTABorarioluana.Listorarioluana.AddItem strlinea Wend Close numero1 Open "orariolulu.dat" For Input As numero2 While Not EOF(numero2) Line Input #numero2, lines cont = cont + 1 line = Trim(LCase(Mid(lines, 1, 10))) FrmTABorarioluana.Listorarioluana.ListIndex = cont - 1 If line = LCase(Frmtrova.Txttrova.Text) Then Unload Frmtrova FrmTABorarioluana.Show Exit Sub End If Wend Call messaggio Close numero2 End If End Sub Public Sub messaggio() MsgBox "Argomento Non presente nel database" & vbCrLf & "(Digitare i caratteri dell'argomento" & vbCrLf & "rispettandone le relative maiuscole\minuscole)", vbInformation, "Ricerca file fallita" End Sub Public Sub cercamlulu() Dim numero5 As Integer Dim numero6 As Integer line = "" lines = "" numero5 = FreeFile numero6 = FreeFile cont = 0 FrmTABorarioluana.Listorarioluana.Clear If Frmtrova.Txttrova.Text <> "" Then Open "orariolulu.dat" For Input As #numero5 While Not EOF(numero5) Line Input #numero5, strlinea FrmTABorarioluana.Listorarioluana.AddItem strlinea Wend Close #numero5 Open "orariolulu.dat" For Input As #numero6 While Not EOF(numero6) Line Input #numero6, lines cont = cont + 1 lines = Trim(LCase(Mid(lines, 11, 22))) FrmTABorarioluana.Listorarioluana.ListIndex = cont - 1 If lines = LCase(Frmtrova.Txttrova.Text) Then FrmTABorarioluana.Show Unload Frmtrova Exit Sub End If Wend Call messaggio Close #numero6 End If End Sub Public Sub sormar() Dim numero7 As Integer, numero8 As Integer line = "" lines = "" numero7 = FreeFile numero8 = FreeFile cont = 0 Frmtabormar.Listtabmar.Clear If Frmtrova.Txttrova.Text <> "" Then Open "orarimar.dat" For Input As #numero7 While Not EOF(numero7) Line Input #numero7, strlinea Frmtabormar.Listtabmar.AddItem strlinea Wend Close #numero7 Open "orarimar.dat" For Input As #numero8 While Not EOF(numero8) Line Input #numero8, lines cont = cont + 1 lines = Trim(LCase(Mid(lines, 1, 10))) Frmtabormar.Listtabmar.ListIndex = cont - 1 If lines = LCase(Frmtrova.Txttrova.Text) Then Unload Frmtrova Frmtabormar.Show Exit Sub End If Wend Call messaggio Close #numero8 End If End Sub Public Sub moremar() Dim numero9 As Integer, numero10 As Integer line = "" lines = "" numero9 = FreeFile numero10 = FreeFile cont = 0 Frmtabormar.Listtabmar.Clear If Frmtrova.Txttrova.Text <> "" Then Open "orarimar.dat" For Input As #numero9 While Not EOF(numero9) Line Input #numero9, strlinea Frmtabormar.Listtabmar.AddItem strlinea Wend Close #numero9 Open "orarimar.dat" For Input As #numero10 While Not EOF(numero10) Line Input #numero10, lines cont = cont + 1 lines = Trim(LCase(Mid(lines, 11, 22))) Frmtabormar.Listtabmar.ListIndex = cont - 1 If lines = LCase(Frmtrova.Txttrova.Text) Then Unload Frmtrova Frmtabormar.Show Exit Sub End If Wend Call messaggio Close #numero10 End If End Sub Public Sub sirene() Dim numero7 As Integer, numero8 As Integer line = "" lines = "" numero7 = FreeFile numero8 = FreeFile cont = 0 Frmtaborirene.Listtabirene.Clear If Frmtrova.Txttrova.Text <> "" Then Open "orariirene.dat" For Input As #numero7 While Not EOF(numero7) Line Input #numero7, strlinea Frmtaborirene.Listtabirene.AddItem strlinea Wend Close #numero7 Open "orariirene.dat" For Input As #numero8 While Not EOF(numero8) Line Input #numero8, lines cont = cont + 1 lines = Trim(LCase(Mid(lines, 1, 10))) Frmtaborirene.Listtabirene.ListIndex = cont - 1 If lines = LCase(Frmtrova.Txttrova.Text) Then Unload Frmtrova Frmtaborirene.Show Exit Sub End If Wend Call messaggio Close #numero8 End If End Sub Public Sub morirene() Dim numero9 As Integer, numero10 As Integer line = "" lines = "" numero9 = FreeFile numero10 = FreeFile cont = 0 Frmtaborirene.Listtabirene.Clear If Frmtrova.Txttrova.Text <> "" Then Open "orariirene.dat" For Input As #numero9 While Not EOF(numero9) Line Input #numero9, strlinea Frmtaborirene.Listtabirene.AddItem strlinea Wend Close #numero9 Open "orariirene.dat" For Input As #numero10 While Not EOF(numero10) Line Input #numero10, lines cont = cont + 1 lines = Trim(LCase(Mid(lines, 11, 22))) Frmtaborirene.Listtabirene.ListIndex = cont - 1 If lines = LCase(Frmtrova.Txttrova.Text) Then Unload Frmtrova Frmtaborirene.Show Exit Sub End If Wend Call messaggio Close #numero10 End If End Sub Public Sub cognomebimbo() Dim numero1 As Integer Dim numero2 As Integer numero1 = FreeFile numero2 = FreeFile cont = 0 Frmtabdatibimbi.Listbimbi.Clear If Frmtrova.Txttrova.Text <> "" Then Open "datibimbi.dat" For Input As numero1 While Not EOF(numero1) Line Input #numero1, strlinea Frmtabdatibimbi.Listbimbi.AddItem strlinea Wend Close numero1 Open "datibimbi.dat" For Input As numero2 While Not EOF(numero2) Line Input #numero2, lines cont = cont + 1 line = Trim(LCase(Mid(lines, 1, 15))) Frmtabdatibimbi.Listbimbi.ListIndex = cont - 1 If line = LCase(Frmtrova.Txttrova.Text) Then Unload Frmtrova Frmtabdatibimbi.Show Exit Sub End If Wend Call messaggio Close numero2 End If End Sub Public Sub annobimbo() Dim numero1 As Integer Dim numero2 As Integer numero1 = FreeFile numero2 = FreeFile cont = 0 line = "" lines = "" Frmtabdatibimbi.Listbimbi.Clear If Frmtrova.Txttrova.Text <> "" Then Open "datibimbi.dat" For Input As numero1 While Not EOF(numero1) Line Input #numero1, strlinea Frmtabdatibimbi.Listbimbi.AddItem strlinea Wend Close numero1 Open "datibimbi.dat" For Input As numero2 While Not EOF(numero2) Line Input #numero2, lines cont = cont + 1 line = Trim(LCase(Mid(lines, 36, 4))) Frmtabdatibimbi.Listbimbi.ListIndex = cont - 1 If line = LCase(Frmtrova.Txttrova.Text) Then Unload Frmtrova Frmtabdatibimbi.Show Exit Sub End If Wend Call messaggio Close numero2 End If End Sub