Файл: Моделирование предметной области. Учет предоставленных услуг салоном красоты с помощью UML.pdf

Выбор секции осуществляется с помощью компонента Combobox, таким же способом, как и указывался ранее. После выбора секции при нажатии кнопки «расписание мастеров», на форму в компоненты Label выводится время работы мастеров по дням недели.

Расписание организовано с помощью следующего метода:

Combobox1.ItemIndex = 0 then

Begin

Label6.Caption:= '19.30';

label7.Caption:= ' ';

label8.Caption:= '16.00';

label9.Caption:= ' ';

label10.Caption:='17.00';

end;

Combobox1.ItemIndex = 1 then

Begin

Label6.Caption:= '15.30';

label7.Caption:= ' ';

label8.Caption:= '20.00';

label9.Caption:= ' ';

label10.Caption:='19.30';

end;

Combobox1.ItemIndex = 2 then

Begin

Label6.Caption:= '';

label7.Caption:= '16.15 ';

label8.Caption:= ' ';

label9.Caption:= '17.00 ';

label10.Caption:=' ';

end;

Combobox1.ItemIndex = 3 then

Begin

Label6.Caption:= ' ';

label7.Caption:= '19.15 ';

label8.Caption:= ' ';

label9.Caption:= '20.00 ';

label10.Caption:=' ';

end;

Таким образом, получаем дерево диалога с интерфейсом приложения (Рис. 2.3)

Рис. 2.3 Схема работы с интерфейсом приложения.

ЗАКЛЮЧЕНИЕ

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

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

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

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

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

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

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

Автоматизированные Системы Стадии создания. ГОСТ 34.601-90. Комплекс стандартов на автоматизированные системы ИПК издательство стандартов. 1997
Алгоритмические языки и программирование. Система программирования DELPHI / разраб. Т.А. Лабзина. – М.: Совр. Гум. Ун-т, 2012.
Ахангельский А.Я. Программирование в Delphi 7. – М.: ООО «Бином-Пресс», 2018.
Вендров, А. М. Проектирование программного обеспечения экономических информационных систем. — М.: Финансы и статистика, 2010.
Гамма, Э. Приемы объектно-ориентированного проектирования. Паттерны проектирования. — СПб: Питер, 2017.
Голицына О.Л. и др. Языки программирования. – М.: Форум; Инфра-М, 2018.
Грекул, В.И. Проектирование информационных систем / В.И. Грекул, Г.Н. Денищенко, Н.Л. Коровкина. — Интернет-университет информационных технологий - ИНТУИТ.ру, 2015.
Дарахвелидзе П.Г., Марков Е.П. Программирование в Delphi 7. –СПб.: БХВ-Петербург, 2013.
Елиферов В.Г., Репин В.В. Бизнес-процессы: регламентация и управление М.: ИНФРА-М, 2014
Калянов Г.Н. Теория и практика реорганизации бизнес-процессов М.: СИНТЕГ, 2010.
Козленко, Л. Проектирование информационных систем / Л. Козленко // КомпьютерПресс. — 2011. — Т. 9.
Максимчук Р.А., Нейбург Э. Д. Проектирование баз данных с помощью UML М.: Вильямс, 2012.
Семакин И.Г., Шестаков А.П. М. Основы программирования. –М.: Академия, 2013.
Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических информационных систем. - М.: Финансы и статистика, 2012.
Ручкин В.С., Семенов И.О., Черемных С.В. Структурный анализ систем. IDEF-технологии М.: Финансы и статистика, 2011.
Сорокин А.В. Delphi. Разработка баз данных. – СПб.: Питер, 2015.
Фаронов В.В. Система программирования Delphi. – СПб.: БХВ-Петербург, 2014.

ПРИЛОЖЕНИЕ

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

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;

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;

Combobox1.ItemIndex = 0 then

begin

sekc:= 'Парикмахерская';

end;

Combobox1.ItemIndex = 1 then

begin

sekc:= 'Маникюр-Педикюр';

end;

Combobox1.ItemIndex = 2 then

begin

sekc:= 'Тату';

end;

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;

LoadFromFile(FileName);

AssignFile(F, Copy(FileName,1,Length(FileName)-4)+'.lso');

Reset(F);

i:= 0;

while Not EOF(F) do

begin

Objects[i]:= TPeople.Create('');

Readln(F, (Objects[i] as TPeople).Name);

Readln(F, (Objects[i] as TPeople).Famil);

Readln(F, (Objects[i] as TPeople).Age);

Readln(F, (Objects[i] as TPeople).tel);

Readln(F, (Objects[i] as TPeople).sekc);

Inc(i);

end;

CloseFile(F);

end;

except

on E: EFOpenError do ShowMessage('Ошибка открытия файла');

end;end;

procedure TMainForm.ToolButton8Click(Sender: TObject);

var F: TextFile;

i: Integer;

begin

try

with SaveDlg, PersonsList.Items do

begin

if Not Execute then Exit;

SaveToFile(FileName);

AssignFile(F, Copy(FileName,1,Length(FileName)-4)+'.lso');

Rewrite(F);

for i:= 0 to Count - 1 do

if Objects[i] <> Nil then

begin

Writeln(F, (Objects[i] as TPeople).Name);

Writeln(F, (Objects[i] as TPeople).Famil);

Смотрите также файлы

Понятие и структура языка программирования.pdf

Разработка конфигурации «Учет предоставленных услуг салоном красоты» в среде 1С:Предприятие 8.3.pdf

ОСОБЕННОСТИ СЕМЕЙНОГО ВОСПИТАНИЯ.pdf

Организация маркетинга на предприятии (теоретические аспекты).pdf

Роль кадровой службы в формировании и реализации кадровой стратегии.pdf

Файл: Моделирование предметной области. Учет предоставленных услуг салоном красоты с помощью UML.pdf

ЗАКЛЮЧЕНИЕ

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

Смотрите также файлы

Информация

Списки файлов

Дополнительно