Клубная музыка на VBA.NET

Задание:

Разработать электронную энциклопедию клубной музыки.

• Организовать ведение базы, содержащей информацию о клубной музыке (жанр, исполнители), треках, альбомах, продюсерах.
• Обеспечить широкеи возможности просмотра и поиска необходимо пользователю информации.
• Предоставить возможность сортировки данных по различным критериям.
• Создать отчеты по интересующей пользователя информации, в том чисое и статистической с возможностью выбора аналитики и оцениваемых параметров.
• Организовать возможность экспорта в файлы Microsoft Office интересующей пользователя информации.
• Создать справочную систему приложения.
• Обеспечить организацию интерфейса приложения средствами создания меню, кнопочных форм, панелей инструментов.

Программа выполнена в приятных серых тонах на мотив Apple, с уникальным икон паком!

Содержимое проекта:

Содержимое папки Data (bin/Debug/Data):

• DB - папка с исходным SQL кодом, для создания базы данных и её заполнения
• Help - папка с файлом справки о проекте, а также проектом Help and Manual для изменения файла справки
• Ico - папка со всеми иконками проекта
• Img - папка для хранения изображений проекта
• ConnectSettings.cfg - файл хранящий строку подключениия к СУБД (системе управления базами данных)

Для проекта было разработано три класса: cConnectionToServer.vb, cPrintExcel.vb, cProcedures.vb.

Класс cConnectionToServer.vb:

• Соединение с базой данной
• Закрытие соединения
• Запросы к базе данных
• Выгрузка данных в таблицу
• Агрегатные запросы
• Выгрузка столбца с данными в выпадающий список

Класс cPrintExcel.vb:

• Печать таблицы в Excel

Класс cProcedures.vb:

• Удаление записи из таблицы

Пример кода:

'Класс процедур
Public Class cProcedures

    'Объект класса cSQLConnection
    Public conSQLServer As cConnectionToServer

    'Процедура удаления записи
    Public Sub vDeleteRecord(sQuery As String, sNameOfTable As String, sIdRecord As String,
                             binSource As BindingSource, dataGrid As DataGridView,
                             binNavigator As BindingNavigator)

        If MsgBox("Вы действительно хотите удалить запись?",
                  vbYesNo + vbQuestion, "Сообщение!") = vbYes Then

            If (conSQLServer.bQueryToBoolean(sQuery) = False) Then

                MsgBox("Все строки были удалены из базы!", 0, "Ошибка!")

            Else

                Dim iIdNow = 0
                Dim i = dataGrid.CurrentRow.Index
                iIdNow = Convert.ToInt32(dataGrid(0, i).Value)
                Dim sDelete As String = "DELETE FROM " + sNameOfTable + " WHERE " + sIdRecord + " = " + Convert.ToString(iIdNow)
                conSQLServer.bQueryToBoolean(sDelete)
                binSource.RemoveAt(i)
                conSQLServer.LoadTable(sNameOfTable, sQuery, binSource, dataGrid, binNavigator)

            End If

        End If


    End Sub

End Class

Перед первым запуском проекта требуется внимательно изучить файл инструкции Настройки.docx. 

Содержание архива

• Исходный код на VBA.NET для Visual Studio

• Исходный код на SQL для MS SQL Server

• Файл инструкции по установке и настройке