Заключение

Исходя из вывод созданного ПП АИС "Деятельность Театра" можно сделать следующие выводы:

• Все требования по хранению информационных объектов и их реквизитов, описанных в разделе анализа предметной области, выполнены.

• Все требования по управлению данными (добавление, редактирование, удаление, вычисление) , описанные в разделе анализа и постановки задачи, выполнены

• Выполнена автоматизация задач пользователя системы: оформление договора, добавление новых актеров, формирование отчетности о состоянии работы актеров.

Таким образом, все поставленные задачи и перечисленные требования к системе реализованы и учтены.

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

1. Соловьев И. В., Майоров А. А. Проектирование информационных систем. – Академический Проект, 2009. – 400с.

2. Федоров Н.В. Проектирование информационных систем: Лабораторный практикум. – М.: МГИУ, 2008. – 122с.

3. Коннэлл Д. Visual Basic 6. Введение в программирование баз данных. – ДМК, 2000. – 720с.

4. Дубенецкий В. А., Советов Б. Я. Анализ структур автоматизированно­го управления. Л., 1985.

5. Дубенецкий В. Л., Советов Б. Я. Методы и средства автоматизации проектирования АИС. Л., 1986.

6. Евдокимов В. В., Рейнер В. А. Машинный синтез АСУП. М., 1980.

7. Заикин О, А., Советов В. Я; Карасев О. И. Методология автоматизи­рованного проектирования АИС//В кн.: Сложные системы управления 1984.

8. Мамиконов А. Г., Цвиркун А. Д., Кульба В. В. Автоматизация проек­тирования АИС. М., 1981.

9. Мамиконов Л. Г., Кульба В. В., Шелков А. Б. Достоверность, защита и резервирование информации в АИС. М., 1986.

10. Мизим Я. Л., Богатырев В. Л.. Кулешов Л. Я. Сети коммутации паке­тов. М., 1986.

Список сокращений

1. ПО - программное обеспечение

2. АИС - автоматизированная информационная система

3. ИС - информационная система

4. ЭВМ - электронно вычислительные машины

5. ОС - операционная система

6. БД - база данных

7. СУБД - система управления базами данных

8. ПЭВМ - персональные электронно вычислительные машины

Приложение а. Инструкция пользователя

Рис.5. Файл помощи.

Приложение б. Текст программы (листинг)

procedure TActerAddMin.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

datamodule1.TbAkteri.Cancel;

action:=cafree;

end;

procedure TActerAddMin.BitBtn1Click(Sender: TObject);

var buttonSelected:integer;

begin

if datamodule1.TbAkteri.Modified=true then

buttonSelected := MessageDlg('Вы уверенны?данные будут сохраненны.',mtWarning, mbOKCancel, 0);

if buttonSelected=mrok then

begin

datamodule1.TbAkteri.Post;

acteraddmin.Close;

end;

procedure TAkterAdd.FormClose(Sender: TObject; var Action: TCloseAction);

begin

action:=cafree;

end;

procedure TAkterAdd.BitBtn2Click(Sender: TObject);

begin

Application.CreateForm(TActerAddMin, ActerAddMin);

acterAddmin.caption:='изменение данных';

end;

procedure TAkterAdd.BitBtn1Click(Sender: TObject);

begin

datamodule1.TbAkteri.Insert;

Application.CreateForm(TActerAddMin, ActerAddMin);

end;

procedure TKontraktAdd.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

action:=cafree;

end;

procedure TKontraktAdd.BitBtn1Click(Sender: TObject);

begin

datamodule1.TbKontrakti.insert;

Application.CreateForm(TKontraktAddmin, KontraktAddmin);

end;

procedure TKontraktAdd.BitBtn2Click(Sender: TObject);

begin

Application.CreateForm(TKontraktAddmin, KontraktAddmin);

kontraktaddmin.Caption:='изменение данных';

end;

procedure TKontraktAddmin.BitBtn1Click(Sender: TObject);

var buttonSelected:integer;

begin

if datamodule1.TbKontrakti.Modified=true then

buttonSelected := MessageDlg('Вы уверенны?данные будут сохраненны.',mtWarning, mbOKCancel, 0);

if buttonSelected=mrok then

begin

datamodule1.TbKontrakti.Post;

kontraktaddmin.Close;

end;

procedure TOtch.BitBtn2Click(Sender: TObject);

begin

RvPrjRoli.execute;

end;

procedure TOtch.BitBtn3Click(Sender: TObject);

begin

RvPrjAkteri.execute;

end;

rocedure TPosanovkiAddMin.Button1Click(Sender: TObject);

var buttonSelected:integer;

begin

if datamodule1.TbPostanovki.Modified=true then

buttonSelected := MessageDlg('Вы уверенны?данные будут сохраненны.',mtWarning, mbOKCancel, 0);

if buttonSelected=mrok then

begin

datamodule1.TbPostanovki.Post;

posanovkiaddmin.Close;

end;

procedure TPostanovki.FormClose(Sender: TObject; var Action: TCloseAction);

begin

action:=cafree;

end;

procedure TPostanovki.DBLookupListBox1Click(Sender: TObject);

begin

procedure TRegaliiAddMinFrm.BitBtn1Click(Sender: TObject);

var buttonSelected:integer;

begin

if datamodule1.TbRegalii.Modified=true then

buttonSelected := MessageDlg('Вы уверенны?данные будут сохраненны.',mtWarning, mbOKCancel, 0);

if buttonSelected=mrok then

begin

datamodule1.TbRegalii.Post;

regaliiaddminfrm.Close;

end;

procedure TRoliAdd.FormClose(Sender: TObject; var Action: TCloseAction);

begin

datamodule1.TbRoli.Cancel;

action:=cafree;

end;

procedure TRoliAdd.BitBtn1Click(Sender: TObject);

begin

datamodule1.TbRoli.Insert;

Application.CreateForm(TRoliaddMin, RoliaddMin);

end;

procedure TRoliAdd.BitBtn2Click(Sender: TObject);

begin

Application.CreateForm(TRoliaddMin, RoliaddMin);

roliaddmin.caption:='добавление записей';

end;

procedure TRoliaddMin.Button1Click(Sender: TObject);

var buttonSelected:integer;

begin

if datamodule1.TbRoli.Modified=true then

buttonSelected := MessageDlg('Вы уверенны?данные будут сохраненны.',mtWarning, mbOKCancel, 0);

if buttonSelected=mrok then

begin

datamodule1.TbRoli.Post;

roliaddmin.Close;

end;

procedure TSpektakliAdd.Button1Click(Sender: TObject);

begin

datamodule1.TbSpectakli.Insert;

Application.CreateForm(TSpektakliAddMin, SpektakliAddMin);

end;

procedure TSpektakliAdd.Button2Click(Sender: TObject);

begin

Application.CreateForm(TSpektakliAddMin, SpektakliAddMin);

spektakliaddmin.caption:='изменение данных';

end;

procedure TSpektakliAddMin.BitBtn1Click(Sender: TObject);

var buttonSelected:integer;

begin

if datamodule1.TbSpectakli.Modified=true then

buttonSelected := MessageDlg('Вы уверенны?данные будут сохраненны.',mtWarning, mbOKCancel, 0);

if buttonSelected=mrok then

begin

datamodule1.TbSpectakli.Post;

spektakliaddmin.Close;

end;

procedure TVladenieAdd.BitBtn1Click(Sender: TObject);

begin

datamodule1.QRegalii.Insert;

Application.CreateForm(TVladenieAddMin, VladenieAddMin);

end;

procedure TVladenieAdd.BitBtn2Click(Sender: TObject);

begin

vladenieaddmin.caption:='изменение данных';

Application.CreateForm(TVladenieAddMin, VladenieAddMin);

end;

procedure TVladenieAddMin.BitBtn1Click(Sender: TObject);

begin

datamodule1.TbRegalii.Insert;

Application.CreateForm(TRegaliiAddMinFrm, RegaliiAddMinFrm);

end;

procedure TVladenieAddMin.BitBtn2Click(Sender: TObject);

begin

Application.CreateForm(TRegaliiAddMinFrm, RegaliiAddMinFrm);

Regaliiaddminfrm.caption:='изменение данных' ;

end;

procedure TVladenieAddMin.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

datamodule1.QRegalii.Cancel;

action:=cafree;

end;

procedure TVladenieAddMin.BitBtn3Click(Sender: TObject);

var buttonSelected:integer;

begin

if datamodule1.QRegalii.Modified=true then

buttonSelected := MessageDlg('Вы уверенны?данные будут сохраненны.',mtWarning, mbOKCancel, 0);

if buttonSelected=mrok then

begin

datamodule1.QRegalii.Post;

VladenieAddmin.Close;

end;