Задание:
Автоматизировать рабочее место менеджера по продажам автомобилей марки 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
- Файл инструкции по установке и настройке
Телеграм
-