Проектирование информационной системы на основе объектно – ориентированного подхода, средствами языка моделирования UML и CASE – инструмен

            SetForma_otcheta;

  end;

  Control_error = class (TObject)

  published

    procedure Analiz_dannih;

  end;

  Form_New_Klient = class (TObject)

  private

    FSved_o_kliente: TSved_o_kliente;

    function GetSved_o_kliente: TSved_o_kliente;

    procedure SetSved_o_kliente(Value: TSved_o_kliente);

  published

    property Sved_o_kliente: TSved_o_kliente read GetSved_o_kliente write

            SetSved_o_kliente;

  end;

  Form_price = class (TObject)

  private

    FSvedeniya_o_tovare: TSvedeniya_o_tovare;

    function GetSvedeniya_o_tovare: TSvedeniya_o_tovare;

    procedure SetSvedeniya_o_tovare(Value: TSvedeniya_o_tovare);

  published

    procedure Sortirovka;

    property Svedeniya_o_tovare: TSvedeniya_o_tovare read GetSvedeniya_o_tovare

            write SetSvedeniya_o_tovare;

  end;

  Form_zakaz = class (TObject)       // Класс форма заказа

  private

    FSved_klient: TSved_klient;

    FSved_tovar: TSved_tovar;

    function GetSved_klient: TSved_klient;     // Функция нахождения Сведений о клиенте

    function GetSved_tovar: TSved_tovar;

    procedure SetSved_klient(Value: TSved_klient); // Процедура записи Сведений о клиенте

    procedure SetSved_tovar(Value: TSved_tovar);

  published

    procedure generaciya_zakaza; // Процедура генерации заказа

    property Sved_klient: TSved_klient read GetSved_klient write SetSved_klient;

    property Sved_tovar: TSved_tovar read GetSved_tovar write SetSved_tovar;

  end;                                                  // Конец класса

    Form_zayavka = class (TObject)

  private

    FCompany_po_dostavke: TCompany_po_dostavke;

    FKolvo_tovara: TKol-vo_tovara;

    FSved_klient: TSved_klient;

    FSved_tovar: TSved_tovar;

    function GetCompany_po_dostavke: TCompany_po_dostavke;

    function GetKolvo_tovara: TKol-vo_tovara;

    function GetSved_klient: TSved_klient;

    function GetSved_tovar: TSved_tovar;

    procedure SetCompany_po_dostavke(Value: TCompany_po_dostavke);

    procedure SetKolvo_tovara(Value: TKol-vo_tovara);

    procedure SetSved_klient(Value: TSved_klient);

    procedure SetSved_tovar(Value: TSved_tovar);

  published

    property Company_po_dostavke: TCompany_po_dostavke read

            GetCompany_po_dostavke write SetCompany_po_dostavke;

    property Kolvo_tovara: TKol-vo_tovara read GetKolvo_tovara write

            SetKolvo_tovara;

    property Sved_klient: TSved_klient read GetSved_klient write SetSved_klient;

    property Sved_tovar: TSved_tovar read GetSved_tovar write SetSved_tovar;

  end;

    klient = class (TObject)

  published

    procedure Registr;

    procedure Zakaz_tovara;

  end;

    Table_klient = class (TObject)

  private

    FAdress: TAdress;

    FData_vkl: TData_vkl;

    FDemograf_sved: TDemograf_sved;

    FFIO: TFIO;

    FMail: TMail;

    function GetAdress: TAdress;

    function GetData_vkl: TData_vkl;

    function GetDemograf_sved: TDemograf_sved;

    function GetFIO: TFIO;

    function GetMail: TMail;

    function GetTel: TTel;

    procedure SetAdress(Value: TAdress);

    procedure SetData_vkl(Value: TData_vkl);

    procedure SetDemograf_sved(Value: TDemograf_sved);

    procedure SetFIO(Value: TFIO);

    procedure SetMail(Value: TMail);

    procedure SetTel(Value: TTel);

  published

    procedure Delete;

    procedure New_record;

    property Adress: TAdress read GetAdress write SetAdress;

    property Data_vkl: TData_vkl read GetData_vkl write SetData_vkl;

    property Demograf_sved: TDemograf_sved read GetDemograf_sved write

            SetDemograf_sved;

    property FIO: TFIO read GetFIO write SetFIO;

    property Mail: TMail read GetMail write SetMail;

    property Tel: TTel read GetTel write SetTel;

  end;

    Table_report = class (TObject)

  private

    FForma_otcheta: TForma_otcheta;

    function GetForma_otcheta: TForma_otcheta;

    procedure SetForma_otcheta(Value: TForma_otcheta);

  published

    procedure Delete;

    procedure New_record;

    property Forma_otcheta: TForma_otcheta read GetForma_otcheta write

            SetForma_otcheta;

  end;

   

 

procedure Register;

implementation

 

procedure Register;

begin

end;

{******************** Administrator *********************************}

procedure Administrator.Formirovanie_report;

begin

end;

 

procedure Administrator.redactirovanie_inf;

begin

end;

 

{******************* Constructor_report **************************}

procedure Constructor_report.Generaciya_otcheta;

begin

end;

 

function Constructor_report.GetForma_otcheta: TForma_otcheta;

begin

end;

 

procedure Constructor_report.SetForma_otcheta(Value: TForma_otcheta);

begin

end;

 

 

{*************************** Form_New_Klient *****************************}

function Form_New_Klient.GetSved_o_kliente: TSved_o_kliente;

begin

end;

 

{****************************** Form_zakaz ******************************}

procedure Form_zakaz.generaciya_zakaza;

begin

ss:=edit1.text;

kolvo:=strtofloat(ss); // Перевод из строковой в вещественную переменную

summ:=cena*kolvo; // Нахождение суммы

end;

 

function Form_zakaz.GetSved_klient: TSved_klient;

begin

end;

 

function Form_zakaz.GetSved_tovar: TSved_tovar;

begin

end;

 

procedure Form_zakaz.SetSved_klient(Value: TSved_klient);

begin

end;

 

procedure Form_zakaz.SetSved_tovar(Value: TSved_tovar);

begin

end;

{***************************** Form_zayavka *****************************}

function Form_zayavka.GetCompany_po_dostavke: TCompany_po_dostavke;

begin

end;

 

function Form_zayavka.GetKolvo_tovara: TKol-vo_tovara;

begin

end;

 

function Form_zayavka.GetSved_klient: TSved_klient;

begin

end;

 

function Form_zayavka.GetSved_tovar: TSved_tovar;

begin

end;

 

procedure Form_zayavka.SetCompany_po_dostavke(Value: TCompany_po_dostavke);

begin

end;

 

procedure Form_zayavka.SetKolvo_tovara(Value: TKol-vo_tovara);

begin

end;

 

procedure Form_zayavka.SetSved_klient(Value: TSved_klient);

begin

end;

 

procedure Form_zayavka.SetSved_tovar(Value: TSved_tovar);

begin

end;

{***************************** Table_klient *******************************}

procedure Table_klient.Delete;   // Процедура удаления строки из таблицы Клиент

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить '

+DataModule2.Table_KlientDSDesigner.AsString), 'Внимание!!!',

MB_OKCANCEL)=id_OK then

DataModule2.Table_Klient.Delete;

 

end;

 

function Table_klient.GetAdress: TAdress;

begin

Adres:=Edit1.text;

end;

 

function Table_klient.GetData_vkl: TData_vkl;

begin

data:=edit3.text;

end;

 

function Table_klient.GetDemograf_sved: TDemograf_sved;

begin

demo:=Edit6.text;

end;

 

function Table_klient.GetFIO: TFIO;

begin

F:=Edit8.text;

end;

 

function Table_klient.GetMail: TMail;

begin

end;

 

function Table_klient.GetTel: TTel;

begin

end;

 

procedure Table_klient.New_record;

begin

end;

 

procedure Table_klient.SetAdress(Value: TAdress);

begin

end;

 

procedure Table_klient.SetData_vkl(Value: TData_vkl);

begin

end;

 

procedure Table_klient.SetDemograf_sved(Value: TDemograf_sved);

begin

end;

 

procedure Table_klient.SetFIO(Value: TFIO);

begin

end;

 

procedure Table_klient.SetMail(Value: TMail);

begin

end;

 

procedure Table_klient.SetTel(Value: TTel);

begin

end;

End.

 

3. Документирование работы

 

Model Maker имеет средства автоматического документирования создаваемого проекта. Можно формировать стандартные комментарии для различных элементов диаграмм, классов и модулей, а также генерировать файлы справки. Для автоматического создания документации с помощью мастера перейдем на страницу Documentation главного окна и нажмем кнопку Wizard.

Автоматически сгенерированное  документирование работы (рис. 14)

Рис. 14. Свойство FIO для класса Table_Klient

 

4. Глоссарий

 

ДП – диаграмма последовательности.

САSЕ-технология - совокупность методов проектирования ИС, а также набор инструментальных средств, позволяющих в наглядной форме моделировать предметную область, анализировать эту модель на всех стадиях разработки и сопровождения ИС и разрабатывать приложения в соответствии с информационными потребностями пользователей

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

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

Диаграмма вариантов  использования – это графическое моделирование требований к будущей информационной системе в стандарте UML.

Диаграмма классов – это графическое моделирование средствами UML статической структуры применяемых в системе классов и связей между ними;

Диаграмма взаимодействия – это графическое моделирование средствами UML процессов обмена сообщениями между объектами системы в рамках одного варианта использования.

Диаграмма последовательности - это графическое моделирование средствами UML поведения объектов с акцентом на последовательность сообщений в рамках одного варианта использования.

Кооперативная диаграмма - это графическое моделирование средствами UML поведения объектов с акцентом на их взаимодействие в рамках одного варианта использования.

Диаграмма состояний – это графическое моделирование средствами UML поведения объектов при переходе от одного состояния к другому.

Диаграмма деятельностей – это графическое моделирование средствами UML поведения системы в рамках различных вариантов использования.

Диаграммы размещения – это графическое моделирование средствами UML физической архитектуры системы.

Действующее лицо – это что-либо, взаимодействующее с системой. Им может быть пользователь, компьютер, время и т.п.

Вариант использования – последовательность действий, выполняемых системой в ответ на событие, инициируемое внешним объектом.

Model Maker – это CASE-инструмент объектно - ориентированного проектирования информационных систем.

Заключение

 

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

В процессе проектирования модели ИС мы исследовали требования, предъявляемые к конечному продукту; взаимодействие с внешней средой корпорации, такие как: клиенты корпорации, компании занимающиеся доставкой; а так же входные и выходные параметры: заказы клиентов и исполнение этих заказов.

Для решения данной задачи мы воспользовались CASE – средством ModelMaker.

При проектировании модели ИС корпорации были созданы:

• Главная диаграмма.
• Диаграмма вариантов использования, для графического  моделирования требований к будущей ИС.
• Диаграммы последовательностей, такие как зарегистрировать клиента, сделать заказ, сформировать отчеты, обработать заказ.
• Диаграмма классов.

Диаграмма классов, описывающая  архитектуру проектируемой системы, была автоматически преобразована с помощью нескольких команд в шаблон программного кода на языке Delphi, что в свою очередь и является конечным результатом в курсовой работе.

 

 

 

 

 

 

 

 

 

 

Литература

 

1. Delphi 5. Учебный курс / С.И. Бобровский. – СПб.: Питер, 2000.
2. М. Фаулер, К. Скотт. UML. Основы. Краткое руководство по унифицированному языку моделирования. Второе издание, М., Символ-Плюс, 2002. -  192 с.
3. Проектирование информационных систем: Методические указания к выполнению курсовой работы для студентов специальности 351400 «Прикладная информатика в экономике» / Сост. П.В. Минеев. Красноярск, КГТУ, 2004. 36 с.