Разработка информационной системы "Авиа-кассы"

Рис. 8. Диаграмма вариантов использования для модели Услуги авиа-кассы

 

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

На этой диаграмме показаны два действующих лица: клиент и кассир. Существует также шесть основных действий, выполняемых моделируемой системой: продажа билетов, изменение билетов, предоставление информации, покупка билетов, изменение билета, запрос информации.

На диаграмме вариантов использования показано взаимодействие

между вариантами использования и действующими лицами. Она отражает

требования к системе с точки зрения пользователя.

Такие диаграммы показывают, какие действующие лица инициируют варианты использования. Из них также видно, когда действующее лицо получает информацию от варианта использования. Данная диаграмма, например, отражает взаимодействие между вариантами использования и действующими лицами системы АТМ. В сущности, диаграмма вариантов использования иллюстрирует требования к системе. В нашем примере, клиент банка инициирует 3 варианта использования: «Покупка билета», «Изменение билета», «Запрос информации».

Все варианты использования, так или иначе, связаны с внешними

требованиями к функциональности системы. Варианты использования

всегда следует анализировать вместе с действующими лицами системы,

определяя при этом реальные задачи пользователей и рассматривая

альтернативные способы решения этих задач.

Конкретная цель диаграмм вариантов использования – это документирование вариантов использования (всё, входящее в сферу применения системы), действующих лиц (всё вне этой сферы) и связей между ними.

 

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

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

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

 

Эта диаграмма последовательности показывает поток событий

в рамках варианта использования «покупка билета». Все действующие лица

показаны в верхней части диаграммы; в приведенном выше примере

изображено действующее лицо Клиент. Объекты, требуемые системе

для выполнения варианта использования «покупка билета», также

представлены в верхней части диаграммы. Стрелки соответствуют

сообщениям, передаваемым между действующим лицом и объектом или

между объектами для выполнения требуемых функций.

 

4.4. Кооперативные диаграммы

Следующим видом диаграммы взаимодействия является кооперативная диаграмма. Подобно диаграммам последовательности, кооперативные диаграммы (collaborations) отображают поток событий через конкретный сценарий варианта использования. Диаграммы последовательности упорядочены по времени, а кооперативные диаграммы больше внимания заостряют на связях между объектами. На рис. 10 приведена кооперативная

диаграмма, описывающая, как клиент покупает авиабилет.

Рис. 10. Диаграмма кооперации для модели Услуги авиа-кассы

 

Как видно из рисунка, здесь представлена вся та информация, которая

была и на диаграмме последовательности, но кооперативная диаграмма

по-другому описывает поток событий. Из нее легче понять связи

между объектами, однако, труднее уяснить последовательность событий.

 

4.5. Диаграмма классов

Диаграмма классов определяет типы классов системы и различного

рода статические связи, которые существуют между ними. На диаграммах

классов изображаются также атрибуты классов, операции классов

и ограничения, которые накладываются на связи между классами.

Рис. 11. Диаграмма классов для модели Услуги авиа-кассы

 

На этой диаграмме классов показаны связи между классами,

реализующими вариант использования «Покупка билета». В этом процессе

задействованы восемь классов.

 

 

 

5. Разработка бизнес-модели для инфомационной системы «Авиа-кассы»

Бизнес-инжиниринг (business-engineering) – это современная технология управления, основанная на формальном, точном, полном и всестороннем описании деятельности компании путем построения ее базовых информационных моделей во взаимодействии с моделью внешней среды.

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

 

 

Бизнес-инжиниринг основан на системном подходе к управлению, при котором компания рассматривается как целевая открытая социально-экономическая система, которая взаимодействует с внешней средой как с более широкой надсистемой, определяющей миссию компании. Именно на этапе разработки миссии определяется предназначение компании по удовлетворению социально-значимых потребностей рынка, что позволяет сформировать бизнес-потенциал компании – набор видов коммерческой деятельности, направленный на удовлетворение указанных потребностей. При этом, одновременно выясняется потребность и предмет партнерских отношений для обеспечения качественного обслуживания Заказчиков на всех этапах жизненного цикла продукта.

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

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

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

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

Матрица функциональной ответственности закрепляет ответственность структурных звеньев (и отдельных специалистов) за выполнение бизнес-функций при реализации процессов коммерческой деятельности (закупка, производство, сбыт и пр.) а также функций менеджмента, связанных с управлением этими процессами (планирование, учет, контроль в области маркетинга, финансов, управления персоналом и пр.). Ее дальнейшая детализация (до уровня ответственности отдельных сотрудников) позволит получить функциональные обязанности персонала, что обеспечит в совокупности с описанием прав, обязанностей, полномочий разработку пакета должностных инструкций.

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

Дальнейшее развитие (детализация) бизнес-модели происходит на этапе динамичного описания компании на уровне процессных потоковых моделей. Эти модели описывают процесс последовательного во времени преобразования материальных и информационных потоков компании в ходе реализации какой-либо бизнес-функции или функции менеджмента. При этом сначала (на верхнем уровне) описывается логика взаимодействия участников процесса, а затем (на нижнем уровне) - технология работы отдельных специалистов на своих рабочих местах.

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

 

 

 

 

 

6. Разработка клиентской части информационной системы «Авиа-кассы»

Клиентская часть для информационной системы «Авиа-кассы» реализована на языке Delphi.

На главной форме расположено меню, с помощью которого можно выбрать необходимое пользователю действие: покупка билета, изменение билета, получение информации о возможных рейсах и направлениях, а также просмотр клиентов, купивших билет (доступен только через пароль).

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

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

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

Для просмотра клиентов, купивших билет, необходимо ввести пароль.

 

Листинг программы - приложение 1.

7.Список литературы.

1. Майкл Богс «UML и Rational Rose»
2. Вендров A.M. Проектирование программного обеспечения экономических информационных систем
3. Вендров А.М., Малышко В.В. Объектно-ориентированный анализ и проектирование с использованием языка UML
4. Федотова Д.Э., Семенов Ю.Д., Чижик К.Н. CASE-технологии: Практикум. - М.: Горячая линия-Телеком 2005.-160 с: ил.
5. Маклаков С.В. Моделирование бизнес-процессов с BPwin 4
6. Калянов. CASE-технологии. Консалтинг в автоматизации бизнес-процессов

 

 

Приложение 1

Листинг программы

unit Unit1;

interface

uses

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

  Dialogs, Menus;

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    procedure N2Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit7, Unit8;

{$R *.dfm}

 

procedure TForm1.N2Click(Sender: TObject);

begin

form2.show;

end;

 

procedure TForm1.N8Click(Sender: TObject);

begin

form3.show;

end;

 

procedure TForm1.N6Click(Sender: TObject);

begin

form4.show;

end;

 

procedure TForm1.N7Click(Sender: TObject);

begin

form4.show;

end;

 

procedure TForm1.N9Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

form7.show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form8.show;

end;

end.

 

 

unit Unit2;

interface

uses

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

  Dialogs, StdCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, Mask;

type

  TForm2 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Button2: TButton;

    DataSource1: TDataSource;

    Table1: TTable;

    Table1Fam: TStringField;

    Table1Im9: TStringField;

    Table1Ot4est: TStringField;

    Table1Ceria: TIntegerField;

    Table1Num: TIntegerField;

    Table1Propika: TStringField;

    Table1Dr: TDateField;

    Table1reisa: TIntegerField;

    Button3: TButton;

    Button4: TButton;

    Table2: TTable;

    DataSource2: TDataSource;

    Table2reisa: TIntegerField;

    Table2Data: TDateField;

    Table2Napr: TStringField;

    Table2Busin: TIntegerField;

    Table2Econom: TIntegerField;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    ComboBox4: TComboBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

 

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

uses Unit3, Unit1, unit6;

{$R *.dfm}

 

procedure TForm2.FormCreate(Sender: TObject);

var i:integer;

    z:string;

begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit4.Clear;

edit5.Clear;

edit6.Clear;

edit7.Clear;

combobox2.Clear;

 

combobox4.Clear;

combobox1.Text:=table2.Fields[2].Value ;

for i:=1 to  table2.RecordCount do begin

z:=table2.Fields[2].Value;

combobox1.Items.Add(z);

table2.Next;

end;

table2.Next;

end;

 

procedure TForm2.Button1Click(Sender: TObject);

begin

form3.show;

end;

 

procedure TForm2.Button2Click(Sender: TObject);

begin

table1.Insert;

table1.Fields[0].Text:=edit1.Text;

table1.Fields[1].Text:=edit2.Text;

table1.Fields[2].Text:=edit3.Text;

table1.Fields[3].Text:=edit4.Text;

table1.Fields[4].Text:=edit5.Text;

table1.Fields[5].Text:=edit6.Text;

table1.Fields[6].Text:=edit7.Text;

table1.Fields[7].Text:=combobox2.Text;

form6.Edit1.Text:=edit1.Text;

form6.Edit2.Text:=edit2.Text;

form6.Edit3.Text:=edit3.Text;

form6.Edit4.Text:=edit4.Text;

form6.Edit5.Text:=edit5.Text;

form6.Edit6.Text:=edit6.Text;

form6.Edit7.Text:=edit7.Text;

form6.Edit8.Text:=combobox1.Text;

form6.Edit9.Text:=combobox2.Text;

form6.Edit10.Text:=combobox4.Text;

form6.Show;

form2.Close;

end;

 

procedure TForm2.Button4Click(Sender: TObject);

begin

form2.Close;

form1.close;

end;

 

procedure TForm2.Button3Click(Sender: TObject);

begin

form2.Close;

form1.show;

end;

 

procedure TForm2.ComboBox1Change(Sender: TObject);

var i:integer;

s,s2,s3,s4:string;

begin

s2:=combobox1.Text;

table2.First;

for i:=1 to  table2.RecordCount do begin

 

s3:=table2.Fields[2].Value;

if s2=s3 then begin