Продажа автомобилей на VBA.NET

Задание:

Автоматизировать рабочее место менеджера по продажам автомобилей марки BMW.

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

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

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

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

  • DB - папка с исходным SQL кодом, для создания базы данных и её заполнения
  • Help - папка с файлом справки о проекте, а также проектом Help and Manual для изменения файла справки
  • Ico - папка со всеми иконками проекта
  • Img - папка со всеми изображениями проекта

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

Класс cMSQSQLConnection.vb:

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

Класс cPrintExcel.vb:

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

Класс cProcedures.vb:

  • Удаление записи из таблицы
  • Добавление фотографии
  • Удаление фотографии

Пример кода:

'Правка/Изменить
    Private Sub ИзменитьToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ИзменитьToolStripMenuItem.Click

        'Ставим флаг добавления в False, редактируем запись
        bAdd = False
        'Переменная хранящая индекс текущей строки
        Dim x As Integer = 0
        'Открыть главную панель
        PanelBMW.Visible = True
        'Меняем название лейбла
        LabelAddEdit.Text = "Изменяем запись"
        'Меняем название редактируемой таблицы
        LabelNameOfTable.Text = cbTablesName.Text

        'SPECIFICATIONS
        If (cbTablesName.SelectedIndex = 0) Then

            'Возвращаем вкладку на место
            TabPagePanelSpec.Parent = TabControlPanels
            'Меняем имя
            TabPagePanelSpec.Text = "Данные"

            Try

                'Определяем индекс выбранной строки
                x = DataGridViewBMW.CurrentRow.Index

            Catch exc As Exception

                MsgBox("Редактировать нечего!", vbOK + vbExclamation, "Сообщение")

                Exit Sub

            End Try

            'Переносим данные на форму
            cbSpecifications_EngineType.Text = Convert.ToString(DataGridViewBMW(1, x).Value)
            NumericUDSpecifications_EngineCapacity.Value = Convert.ToInt32(DataGridViewBMW(2, x).Value)
            NumericUDSpecifications_HorsePower.Value = Convert.ToInt32(DataGridViewBMW(3, x).Value)
            NumericUDSpecifications_FuelConsumption.Value = Convert.ToInt32(DataGridViewBMW(4, x).Value)
            tbSpecifications_PerformanceFeatures.Text = Convert.ToString(DataGridViewBMW(5, x).Value)

            'Открываем побочную панель
            PanelSpecifications.Visible = True

            'MANAGER
        ElseIf (cbTablesName.SelectedIndex = 1) Then

            'Возвращаем вкладку на место
            TabPagePanelManager.Parent = TabControlPanels
            'Меняем имя
            TabPagePanelManager.Text = "Данные"

            Try

                'Определяем индекс выбранной строки
                x = DataGridViewBMW.CurrentRow.Index

            Catch exc As Exception

                MsgBox("Редактировать нечего!", vbOK + vbExclamation, "Сообщение")

                Exit Sub

            End Try

            'Переносим данные на форму
            tbManagerFIO.Text = Convert.ToString(DataGridViewBMW(1, x).Value)
            tbManager_Phone.Text = Convert.ToString(DataGridViewBMW(2, x).Value)

            'Открываем побочную панель
            PanelManager.Visible = True

            'CLIENT
        ElseIf (cbTablesName.SelectedIndex = 2) Then

            'Возвращаем вкладку на место
            TabPagePanelClient.Parent = TabControlPanels
            'Меняем имя
            TabPagePanelClient.Text = "Данные"

            Try

                'Определяем индекс выбранной строки
                x = DataGridViewBMW.CurrentRow.Index

            Catch exc As Exception

                MsgBox("Редактировать нечего!", vbOK + vbExclamation, "Сообщение")

                Exit Sub

            End Try

            'Переносим данные на форму
            tbClient_FIO.Text = Convert.ToString(DataGridViewBMW(1, x).Value)
            tbClient_Phone.Text = Convert.ToString(DataGridViewBMW(2, x).Value)
            DateTPClient_DateOfIssue.Value = Convert.ToDateTime(DataGridViewBMW(3, x).Value)
            DateTPClient_DateBirth.Value = Convert.ToDateTime(DataGridViewBMW(4, x).Value)
            tbClient_IssuedBy.Text = Convert.ToString(DataGridViewBMW(5, x).Value)
            tbClient_Batch.Text = Convert.ToString(DataGridViewBMW(6, x).Value)
            NumericUDClient_Number.Value = Convert.ToInt32(DataGridViewBMW(7, x).Value)

            'Открываем побочную панель
            PanelClient.Visible = True

            'AUTO
        ElseIf (cbTablesName.SelectedIndex = 3) Then

            'Возвращаем вкладку на место
            TabPagePanelAuto.Parent = TabControlPanels
            'Меняем имя
            TabPagePanelAuto.Text = "Данные"

            Try

                'Определяем индекс выбранной строки
                x = DataGridViewBMW.CurrentRow.Index

            Catch exc As Exception

                MsgBox("Редактировать нечего!", vbOK + vbExclamation, "Сообщение")

                Exit Sub

            End Try

            'Переносим данные на форму
            tbAuto_Country.Text = Convert.ToString(DataGridViewBMW(1, x).Value)
            cbAuto_FK_Specification.Text = Convert.ToString(DataGridViewBMW(2, x).Value)
            NumericUDAuto_Count.Value = Convert.ToInt32(DataGridViewBMW(3, x).Value)
            DateTPAuto_YearOfIssue.Value = Convert.ToDateTime(DataGridViewBMW(4, x).Value)
            NumericUDAuto_Price.Value = Convert.ToInt32(DataGridViewBMW(5, x).Value)
            tbAuto_CarMark.Text = Convert.ToString(DataGridViewBMW(6, x).Value)
            tbAuto_CarModel.Text = Convert.ToString(DataGridViewBMW(7, x).Value)
            tbAuto_TechnicalCondition.Text = Convert.ToString(DataGridViewBMW(8, x).Value)

            'Открываем побочную панель
            PanelAuto.Visible = True

            'ORDER_CAR
        ElseIf (cbTablesName.SelectedIndex = 4) Then

            'Возвращаем вкладку на место
            TabPagePanelOrderCar.Parent = TabControlPanels
            'Меняем имя
            TabPagePanelOrderCar.Text = "Данные"

            Try

                'Определяем индекс выбранной строки
                x = DataGridViewBMW.CurrentRow.Index

            Catch exc As Exception

                MsgBox("Редактировать нечего!", vbOK + vbExclamation, "Сообщение")

                Exit Sub

            End Try

            'Переносим данные на форму

            cbOrderCar_FK_Manager.Text = Convert.ToString(DataGridViewBMW(1, x).Value)
            cbOrderCar_FK_Client.Text = Convert.ToString(DataGridViewBMW(2, x).Value)
            cbOrderCar_FK_Auto.Text = Convert.ToString(DataGridViewBMW(3, x).Value)
            DateTPOrderCar_Date.Value = Convert.ToDateTime(DataGridViewBMW(4, x).Value)
            NumericUDOrderCar_Summ.Value = Convert.ToInt32(DataGridViewBMW(5, x).Value)

            'Открываем побочную панель
            PanelOrderCar.Visible = True

        End If

    End Sub

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

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

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

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

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

1500,00 

(без учета комиссии 3,8 %)

После оплаты Вы получите работу на электронную почту.
BMW_Helper.rar
8086608
Настройки.docx
45592
Оцени работу

рейтинг

Поделись работой с друзьями

Комментарии (0)

Zicise

/ /

Оставить комментарий

Ты не можешь комментировать

Только зарегестрированые пользователи имеют возможность комментировать работы
Продажа автомобилей на VBA.NET
Среда разработки: Visual Studio Язык разработки: .Net VBA Хранение данных: MS SQL Server
Категория: Образование
Стоимость: 1500,00