Файл: Моделирование предметной области «Управление запасами» с помощью UML (Построение объектной модели предметной области «Управление запасами» с применением языка моделирования UML).pdf

3.2 Контрольный пример реализации проекта и его описание

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

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

Заполнение других справочников происходит в процессе работы.

Для ввода нового или изменения данных существующего контрагента нужно выбрать пункт меню «Справочники \ Контрагенты». В списке справочника могут быть выполнены стандартные, для 1С 8.1, действия: добавить, изменить, скопировать, удалить, отбор, сортировка, настройка списка, вывод списка на печать. Для ввода нового контрагента нужно выбрать группу в которой будет находится новый контрагент и нажать кнопку «Добавить», откроется форма для ввода данных. По бумажным документам вносится вся необходимая информация. В случае вызова данных из другого справочника, например «БанковскийСчет», в открывшейся для выбора форме можно редактировать данные этого справочника без входа в него через основное меню.

Рисунок 16 Новый контрагент

Другие справочники заполняются аналогично.

Для ввода нового документа «Поступление ТМЦ» необходимо выбрать пункт меню «Документы \ Поступление ТМЦ» или «Журналы \ Складской». В первом случае сразу откроется форма ввода нового документа, а во втором – журнал документов. В новом документе, при необходимости меняются номер и дата документа, указывается комментарий и заполняется табличная часть. Над табличной частью документа могут быть выполнены стандартные, для 1С 8.1, действия: добавить, изменить, скопировать, удалить, отбор, сортировка, настройка списка, вывод списка на печать.

Рисунок 17 Ввод нового документа «Поступление ТМЦ»

Для формирования отчетов необходимо выбрать пункт меню «Отчеты» и выбрать необходимый отчет. В форме настройки отчета можно выбрать выводимые в отчет поля, установить произвольные отборы и сортировки, указать группировки данных по строкам и столбцам, а также настроить оформление отчета.

Рисунок 18 Отчет «Остатки»

Для окончания работы с системой необходимо выбрать пункт меню «Файл \ Выход». При этом система выполнит закрытие открытых объектов и приложение будет закрыто.

Заключение

Объектно-ориентированный подход использует объектную декомпозицию, при этом статическая структура системы описывается в терминах объектов и связей между ними, а поведение системы описывается в терминах обмена сообщениями между объектами. Каждый объект системы обладает своим собственным поведением, моделирующим поведение объекта реального мира. В результате данного исследования, рассмотрены объектно-ориентированной методологии и технологии программирования на примере языка Object Pascal, методов и инструментов построения объектных моделей предметных областей. Полученные знания были применены для построения объектной модели предметной области «Управление запасами».

Для достижения цели данного исследования были выполнены следующие задачи:

• Изучены основные теоретические положения объектно-ориентированной методологии.
• Рассмотрен язык UML и построена объектная модель предметной области с применением данного языка.
• Разработано приложение, использующее информацию для представления сведений о товаре.

В процессе написания курсового проекта использовались следующие методы исследования:

• Описательный метод применяется при изложении теоретических аспектов проблемы и краткой характеристике объекта исследования.
• Метод сравнения и анализа. Позволяет сопоставлять различные взгляды на рассматриваемую тему и провести диагностику объекта исследования.
• Системный подход. Был использован с целью обобщения полученных результатов и выявления их логической взаимосвязи.

Список использованной источников

1. Алгоритмические языки и программирование. Система программирования DELPHI / разраб. Т.А. Лабзина. – М.: Совр. Гум. Ун-т, 2016.
2. Ахангельский А.Я. Программирование в Delphi 7. – М.: ООО «Бином-Пресс», 2016 г. – 1152 с.
3. Голицына О.Л. и др. Языки программирования. – М.: Форум; Инфра-М, 2008.
4. Дарахвелидзе П.Г., Марков Е.П. Программирование в Delphi 7. –СПб.: БХВ-Петербург, 2016. – 784 с.
5. Семакин И.Г., Шестаков А.П. М. Основы программирования. –М.: Академия, 2017. – 438 с.
6. Сорокин А.В. Delphi. Разработка баз данных. – СПб.: Питер, 2015. – 477с.
7. Фаронов В.В. Система программирования Delphi. – СПб.: БХВ-Петербург, 2017. – 912 с.
8. Окулов, С.М. Основы программирования / С.М. Окулов. - М.: Бином. Лаборатория знаний, 2012. - 336 c.
9. Семакин, И.Г. Основы алгоритмизации и программирования: Учебник для студ. учреждений сред. проф. образования / И.Г. Семакин, А.П. Шестаков. - М.: ИЦ Академия, 2012. - 400 c.
10. Семакин, И.Г. Основы алгоритмизации и программирования. Практикум: Учебное пос. для студ. учреждений сред. проф. образования / И.Г. Семакин, А.П. Шестаков . - М.: ИЦ Академия, 2017. - 144 c.
11. Семакин, И.Г. Основы алгоритмизации и программирования: Учебник для студ. учреждений сред. проф. образования / И.Г. Семакин, А.П. Шестаков . - М.: ИЦ Академия, 2016. - 304 c.
12. Тарасов, И.А. Основы программирования Open GL / И.А. Тарасов. - М.: Горячая линия - Телеком , 2017. - 188 c.
13. Фридман, А. Основы объектно-ориентированного программирования на языке СИ++ / А. Фридман. - М.: Горячая линия -Телеком, 2016. - 234 c.
14. Фридман, А.Л. Основы объектно-ориентированного программирования на языке Си++ / А.Л. Фридман. - М.: Гор. линия-Телеком, 2017. - 234 c.
15. Черпаков, И.В. Основы программирования: Учебник и практикум для прикладного бакалавриата / И.В. Черпаков. - Люберцы: Юрайт, 2016. - 219 c.
16. Черпаков, И.В. Основы программирования: Учебник и практикум для СПО / И.В. Черпаков. - Люберцы: Юрайт, 2016. - 219 c.
17. Юдин, Д.Б. Задачи и методы линейного программирования: Математические основы и практические задачи / Д.Б. Юдин, Е.Г. Гольштейн. - М.: КД Либроком, 2017. - 320 c.

Приложение А

Код клиент-приложения главной стрницы

unit Main;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons, Spin, ImgList, ComCtrls, ToolWin;

type

TMainForm = class(TForm)

PersonsList: TListBox;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

FNameEdit: TEdit;

LNameEdit: TEdit;

edttel: TEdit;

AgeEdit: TSpinEdit;

OpenDlg: TOpenDialog;

SaveDlg: TSaveDialog;

ToolBar1: TToolBar;

AddBtn: TToolButton;

EditBtn: TToolButton;

RestBtn: TToolButton;

DelBtn: TToolButton;

ClearBtn: TToolButton;

ToolButton6: TToolButton;

OpenBtn: TToolButton;

SaveBtn: TToolButton;

ToolButton9: TToolButton;

ImageList1: TImageList;

ComboBox1: TComboBox;

Button1: TButton;

Button2: TButton;

ComboBox2: TComboBox;

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

procedure ToolButton4Click(Sender: TObject);

procedure ToolButton5Click(Sender: TObject);

procedure ToolButton7Click(Sender: TObject);

procedure ToolButton8Click(Sender: TObject);

procedure ToolButton9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

TPeople = class

Name: String;

Famil: String;

Age: Integer;

tel: String;

sekc: String;

constructor Create(AName: String);

end;

var

MainForm: TMainForm;

implementation

uses Unit1;

{$R *.DFM}

constructor TPeople.Create(AName: String);

begin

inherited Create;

Name:= AName;

end;

procedure TMainForm.ToolButton1Click(Sender: TObject);

begin

PersonsList.Items.AddObject('Unknown', TPeople.Create('Unknown'));

end;

procedure TMainForm.ToolButton2Click(Sender: TObject);

begin

with PersonsList, PersonsList.Items do

begin

if ItemIndex = -1

then Exit;

if not Assigned(Objects[ItemIndex])

then Objects[ItemIndex]:= TPeople.Create(Items[ItemIndex]);

with Objects[ItemIndex] as TPeople do

begin

FNameEdit.Text:= Name;

LNameEdit.Text:= Famil;

AgeEdit.Value:= Age;

edttel.Text:= tel;

Combobox1.SelText:= sekc;

end;

end;

end;

procedure TMainForm.ToolButton3Click(Sender: TObject);

begin

if PersonsList.ItemIndex = -1 then

begin

ShowMessage('Сначала выберите элемент');

Exit;

end;

with PersonsList do

with Items.Objects[ItemIndex] as TPeople do

begin

Name:= FNameEdit.Text;

Famil:= LNameEdit.Text;

Age:= AgeEdit.Value;

tel:= edttel.Text;

if

Combobox1.ItemIndex = 0 then

begin

sekc:= 'Баскетбол';

end;

if

Combobox1.ItemIndex = 1 then

begin

sekc:= 'Футбол';

end;

if

Combobox1.ItemIndex = 2 then

begin

sekc:= 'Волейбол';

end;

if

Combobox1.ItemIndex = 3 then

begin

sekc:= 'Теннис';

end;

Items[ItemIndex]:= sekc+'- '+Name+' '+Famil+' телефон:'+tel;

end;

FNameEdit.Clear;

LNameEdit.Clear;

AgeEdit.text:='0';

edttel.Clear;

ComboBox1.ItemIndex:=-1;

end;

procedure TMainForm.ToolButton4Click(Sender: TObject);

begin

with PersonsList do Items.Delete(ItemIndex);

end;

procedure TMainForm.ToolButton5Click(Sender: TObject);

begin

PersonsList.Items.Clear;

end;

procedure TMainForm.ToolButton7Click(Sender: TObject);

var F: TextFile;

i: Integer;

begin

try

with OpenDlg, PersonsList.Items do

begin

if Not Execute then Exit;