Справочная служба кинотеатров города. Программная система менеджера музыкальных групп

    If (Len(DirectoryFound) = 0 Or Err = errPathNotFound) Then

        FolderExists = False

    Else

        FolderExists = True

    End If

End Function

 

Private Sub Combo1_CLick()

Dim txt As String

Dim e As String

Dim w As String

Dim q As String

On Error Resume Next

 

MyFile = App.Path & "\" & Combo1.List(Combo1.ListIndex) & ".txt" – в этой переменной содержится путь к файлу с форматом .txt. Если текст в Combo1 соответствует имени найденного файла, тогда будет считываться информация из этого файла.

Open MyFile for Input As 1

    Input #1, Textbox1, Textbox2

Close #1

Text1 = Textbox1

Text2 = Textbox2

If FolderExists (App.Path & "\" & Form1. Combo1. List (Form1.Combo1.ListIndex) & ".rtf") = False Then

List1.Clear

List2.Clear

List3.Clear

List4.Clear

List5.Clear

GoTo 1

Else

List1.Clear

f = FreeFile

List1.Clear

List2.Clear

List3.Clear

List4.Clear

List5.Clear

Open App.Path & "\" & Combo1.List(Combo1.ListIndex) & ".rtf" For Input As f

Do While Not EOF (f)

Input #f, txt

List1.AddItem (txt)

Loop

Close #f

 

Open App.Path &"\"& Combo1.List (Combo1.ListIndex) &"1.rtf" For Input As f

Do While Not EOF (f)

Input #f, r

List5.AddItem (r)

Loop

Close #f

 

Open App.Path & "\" & Form1.Combo1.List (Form1.Combo1.ListIndex) & "список песен.txt" For Input As f – открывает список песен для выбранной группы.

Do While Not EOF (f)

Input #f, e

List2.AddItem (e)

Loop

Close #f

 

Open App.Path & "\" & Form1.Combo1.List (Form1.Combo1.ListIndex) & "список композиторов.txt" For Input As f – открывает список композиторов для выбранной группы.

Do While Not EOF (f)

Input #f, w

List3.AddItem (w)

Loop

Close #f

 

Open App.Path & "\" & Form1.Combo1.List (Form1.Combo1.ListIndex) & "список авторов.txt" For Input As f – открывает список авторов для выбранной группы.

Do While Not EOF (f)

Input #f, q

List4.AddItem (q)

Loop

Close #f

End If

 

1 End Sub

 

Private Sub Command1_Click() – выводит окно для добавления группы.

Combo1.AddItem (InputBox("Добавить группу", "Добавление группы...", ""))

End Sub

 

Private Sub Command2_Click() – открывает форму для ввода информации об выбранной группе. Присваивает элементам открывшейся формы такие же значения, как и у основной.

Form2.Show

For i = 0 To List1.ListCount - 1

Form2.List1.List (i) = List1.List (i)

Next i

Form2.Text1.Text = Text1.Text

Form2.Text2.Text = Text2.Text

For j = 0 To List5.ListCount - 1

Form2.List2.List (j) = List5.List (j)

Next j

End Sub

 

Private Sub Command3_Click() – открывает форму для просмотра последней гастрольной поездки выбранной группы.

Form4.Show

End Sub

 

Private Sub Command4_Click() – удаляет выбранную группу из списка.

On Error Resume Next

Combo1.RemoveItem (Combo1.ListIndex)

End Sub

 

Private Sub Command5_Click() – открывает форму для добавления песен. Присваивает листам уже имеющиеся данные.

Form3.Show

For i = 0 To List1.ListCount - 1

Form3.List1.List(i) = List2.List(i)

Form3.List2.List(i) = List3.List(i)

Form3.List3.List(i) = List4.List(i)

Next i

End Sub

 

Private Sub Form_Load() – при запуске программы считывает список музыкальных групп из текстового файла в Combo1.

On Error Resume Next

i = 0

ComboSave = FreeFile

fileC = App.Path & "\ComboSave.txt"

Open fileC For Input As ComboSave

Do Until EOF(ComboSave)

Input #ComboSave, cl

Combo1.AddItem cl

Loop

Close #ComboSave

End Sub

 

Private Sub Form_Unload(Cancel As Integer) – при закрытии программы сохраняются изменения, внесенные в Combo1.

ComboSave = FreeFile

Open App.Path & "\ComboSave.txt" For Output As ComboSave

For i = 0 To Combo1.ListCount - 1

Write #ComboSave, Combo1.List(i)

Next i

Close #ComboSave

End Sub

 

Private Sub List1_Click() – эта процедура для того, чтобы при щелчке по строке любого листа (list) выделялись стоки во всех листах.

List5.ListIndex = List1.ListIndex

End Sub

 

Private Sub Command1_Click() – содержимое элементов основной формы (form1) приравнивается к соответствующим элементам формы для добавления информации о группах (form2). А так же содержимое элементов сохраняется в файлы (из листов в файлы формата .rtf, из текстовых полей в файлы формата .txt).

For i = 0 To List1.ListCount - 1

Form1.List1.List (i) = Form2.List1.List (i)

Form1.List5.List (i) = Form2.List2.List (i)

Form1.Text1.Text = Form2.Text1.Text

Form1.Text2.Text = Form2.Text2.Text

Next i

On Error Resume Next

MyFile = App.Path & "\" & Form1.Combo1.List (Form1.Combo1.ListIndex) & ".rtf"

Open MyFile For Output As 1

For i = 0 To Form1.List1.ListCount - 1

Write #1, List1.List (i)

Next i

Close #1

MyFile = App.Path & "\" & Form1.Combo1.List (Form1.Combo1.ListIndex) & "1.rtf"

Open MyFile For Output As 1

For j = 0 To Form1.List1.ListCount - 1

Write #1, List2.List(j)

Next j

Close #1

Open App.Path & "\" & Form1.Combo1.List(Form1.Combo1.ListIndex) & ".txt" For Output As 1

Write #1, Text1.Text, Text2.Text

Close #1

Unload Form2

End Sub

 

Private Sub Command2_Click() – удаляет выбранную строку в первой листе и спаренную с ней строку из второго листа.

On Error Resume Next

List1.RemoveItem (List1.ListIndex)

List2.RemoveItem (List2.ListIndex)

End Sub

 

Private Sub Command3_Click() – добавляет в списки содержимое текстовых полей.

List1.AddItem (Text3.Text)

List2.AddItem (Text4.Text)

Text3.Text = ""

Text4.Text = ""

End Sub

 

Private Sub Command4_Click() – заменяет выбранную строку содержимым текстового поля.

On Error Resume Next

List1.List(List1.ListIndex) = Text3.Text

List2.List(List2.ListIndex) = Text4.Text

Text3.Text = ""

Text4.Text = ""

End Sub

 

Private Sub List1_Click() – процедура для связки строк в листах.

List2.ListIndex = List1.ListIndex

End Sub

 

Private Sub List1_DblClick() – при двойном щелчке по строке в любом из листов выбранный элемент помещается в текстовое поле.

Text3.Text = List1.List(List1.ListIndex)

Text4.Text = List2.List(List2.ListIndex)

End Sub

 

Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) – если нажать на клавишу Enter, тогда содержимое текстовых полей добавляется в списки.

       If KeyCode = 13 Then

If List1.ListIndex <> -1 Then

List1.List(List1.ListIndex) = Text3.Text

List2.List(List2.ListIndex) = Text4.Text

Text3.Text = ""

Text4.Text = ""

Else

List1.AddItem (Text3.Text)

List2.AddItem (Text4.Text)

End If

End If

End Sub

 

Private Sub Command1_Click() – появляется окно для ввода названия песни, имени композитора и автора текста.

List1.AddItem (InputBox("Введите название...", "Добавление песни", ""))

List2.AddItem (InputBox("Введите композитора...", "Добавление песни", ""))

List3.AddItem (InputBox("Введите автора текста...", "Добавление песни", ""))

End Sub

 

Private Sub Command2_Click() – удаляет выбранные строки.

On Error Resume Next

List1.RemoveItem (List1.ListIndex)

List2.RemoveItem (List2.ListIndex)

List3.RemoveItem (List3.ListIndex)

End Sub

 

Private Sub Command3_Click() – приравнивает содержимое листов основной формы (Form1) к содержимому соответствующих листов формы для добавления песен (Form3). А так же сохраняет содержимое листов в файлы формата .rtf.

For i = 0 To List1.ListCount - 1

Form1.List2.List(i) = List1.List(i)

Form1.List3.List(i) = List2.List(i)

Form1.List4.List(i) = List3.List(i)

Next i

On Error Resume Next

MyFile = App.Path & "\" & Form1.Combo1.List(Form1.Combo1.ListIndex) & " список  песен.txt"

Open MyFile For Output As 1

For j = 0 To List1.ListCount - 1

Write #1, List1.List(j)

Next j

Close #1

 

MyFile = App.Path & "\" & Form1.Combo1.List(Form1.Combo1.ListIndex) & " список композиторов.txt"

Open MyFile For Output As 1

For f = 0 To List2.ListCount - 1

Write #1, List2.List(f)

Next f

Close #1

 

MyFile = App.Path & "\" & Form1.Combo1.List(Form1.Combo1.ListIndex) & " список авторов.txt"

Open MyFile For Output As 1

For b = 0 To List3.ListCount - 1

Write #1, List3.List(b)

Next b

Close #1

Unload Form3

End Sub

 

Private Sub List3_Click() – процедура для связки строк в листах.

List2.ListIndex = List3.ListIndex

List1.ListIndex = List3.ListIndex

End Sub

 

Private Sub Form_Load() – при открытии формы последнего гастрольного тура, в соответствии с выбранной группой, в Combo1 идет поиск файлов формата .rtf. Найденные фалы загружаются в листы.

f = FreeFile

If Form1.Combo1.ListIndex = 0 Then

Label5.Caption = "2011"

Open App.Path & "\" & "Виагра_тур_дата.rtf" For Input As f

Do While Not EOF(f)

Input #f, txt

List1.AddItem (txt)

Loop

Close #f

 

Open App.Path & "\" & "Виагра_тур_город.rtf" For Input As f

Do While Not EOF(f)

Input #f, a

List2.AddItem (a)

Loop

Close #f

 

Open App.Path & "\" & "Виагра_тур_страна.rtf" For Input As f

Do While Not EOF(f)

Input #f, b

List3.AddItem (b)

Loop

Close #f

 

Open App.Path & "\" & "Виагра_тур_площадка.rtf" For Input As f

Do While Not EOF(f)

Input #f, c

List4.AddItem (c)

Loop

Close #f

End If

If Form1.Combo1.ListIndex = 1 Then

Label5.Caption = "2010"

Open App.Path & "\" & "1_дата.rtf" For Input As f

Do While Not EOF(f)

Input #f, txt

List1.AddItem (txt)

Loop

Close #f

 

Open App.Path & "\" & "1_город.rtf" For Input As f

Do While Not EOF(f)

Input #f, a

List2.AddItem (a)

Loop

Close #f

 

Open App.Path & "\" & "1_страна.rtf" For Input As f

Do While Not EOF(f)

Input #f, b

List3.AddItem (b)

Loop

Close #f

 

Open App.Path & "\" & "1_площадка.rtf" For Input As f

Do While Not EOF(f)

Input #f, c

List4.AddItem (c)

Loop

Close #f

End If

 

If Form1.Combo1.ListIndex = 2 Then

Label5.Caption = "2011"

Open App.Path & "\" & "2_дата.rtf" For Input As f

Do While Not EOF(f)

Input #f, txt

List1.AddItem (txt)

Loop

Close #f

 

Open App.Path & "\" & "2_город.rtf" For Input As f

Do While Not EOF(f)

Input #f, a

List2.AddItem (a)

Loop

Close #f

 

Open App.Path & "\" & "2_страна.rtf" For Input As f

Do While Not EOF(f)

Input #f, b

List3.AddItem (b)

Loop

Close #f

 

Open App.Path & "\" & "2_площадка.rtf" For Input As f

Do While Not EOF(f)

Input #f, c

List4.AddItem (c)

Loop

Close #f

End If

 

If Form1.Combo1.ListIndex = 3 Then

Label5.Caption = "2010"

Open App.Path & "\" & "3_дата.rtf" For Input As f

Do While Not EOF(f)

Input #f, txt

List1.AddItem (txt)

Loop

Close #f

 

Open App.Path & "\" & "3_город.rtf" For Input As f

Do While Not EOF(f)

Input #f, a

List2.AddItem (a)

Loop

Close #f

 

Open App.Path & "\" & "3_страна.rtf" For Input As f

Do While Not EOF(f)

Input #f, b

List3.AddItem (b)

Loop

Close #f

 

Open App.Path & "\" & "3_площадка.rtf" For Input As f

Do While Not EOF(f)

Input #f, c

List4.AddItem (c)

Loop

Close #f

End If

If Form1.Combo1.ListIndex = 4 Then

Label5.Caption = "2010"