Автор работы: Пользователь скрыл имя, 27 Мая 2014 в 09:42, дипломная работа
Одним из важных шагов создания информационной подсистемы является разработка базы данных, которая позволит организовать и упорядочить информацию, а также обеспечит быстрый доступ к данным и выборку необходимой информации. Возможность автоматического создания отчетов на основе базы данных будет способствовать избавлению ответственного лица от кропотливой бумажной работы, связанной с их монотонным написанием. К тому же она предусматривает некоторый механизм защиты от ошибочных действий оператора при пополнении и модификации базы данных и обладает достаточной степенью универсальности.
Разработка информационной подсистемы требует создания соответствующего информационного и программного обеспечения.
Введение……………………………………………………………………… 6
1. Анализ методов и средств построения систем автоматизации учебно-учетной деятельности в спортивном учреждении …………………….
8
1.1 Организационная структура спортивной школы как объекта внедрения средств информатизации ……........................................
8
1.2. Общие принципы разработки и функционирования систем автоматизации учебно-учетной деятельности …………………….
14
1.3. Сравнительный анализ инструментальных средств построения систем автоматизации учебно-учетной деятельности....................
24
1.4 Цель и задачи дипломного проектирования……………………….. 34
2. Разработка информационного обеспечения системы автоматизации учебно-учетной деятельности в спортивной школе …………………...
35
2.1 Особенности формирования информационных моделей на основе концепции баз данных………………………………………………
35
2.2. Формирование логической и концептуальной моделей структурирования данных с использованием CASE-средств .......
48
3 Разработка программного обеспечения информационной системы автоматизации учебно-учетной деятельности спортивной школе …...
63
3.1 Выбор языковых и программных средств реализации программного обеспечения …...........................................................
63
3.2 Модульная структура программного обеспечения………………… 65
3.3 Организация пользовательского интерфейса информационной системы автоматизации учебно-учетной деятельности в спортивной школе…………………………………………………...
68
4 Организационно-экономическая часть…………………………………... 75
4.1 Краткая характеристика разрабатываемого программного продукта (ПП) и этапов его разработки……………………………
75
4.2 Определение трудоемкости разработки ПП………………………... 76
4.3 Распределение трудоемкости по этапам разработки и определение состава исполнителей………………………………...
78
4.4 Расчет сметной стоимости и договорной цены разработки ПП…... 80
4.5 Анализ конкурентоспособности программного продукта………… 86
4.5.1 Анализ технической прогрессивности………………………… 88
4.5.2 Анализ изменения функциональных возможностей…………. 89
4.5.3 Анализ соответствия разрабатываемого ПП нормативам…… 89
4.5.4 Оценка годовых эксплуатационных издержек потребителя… 89
4.5.5 Анализ экономических параметров ПП………………………. 91
4.5.6 Оценка конкурентоспособности……………………………….. 93
4.6 Оценка экономической эффективности…………………………….. 93
4.7 Анализ технико-экономических показателей разработки и эксплуатации ПП…………………………………………………….
95
5. Безопасность жизнедеятельности………………………………………... 96
5.1 Организация рабочего места ………………………………………... 97
5.2 Режим освещенности рабочего места ……………………………… 98
5.3 Микроклимат помещения………………………………………….... 99
5.4 Уровень шума………………………………………………………… 100
5.5 Психофизиологические нагрузки…………………………………… 101
5.6 Обеспечение электробезопасности ………………………………… 101
5.7. Обеспечение пожаробезопасности…………………………………. 102
Заключение…………………………………………………………………... 104
Список литературы………………………………………………………….. 105
Приложение А. Фрагмент листинга программных модулей……………... 107
DBGrid3: TDBGrid;
DBNavigator3: TDBNavigator;
ADOTable3: TADOTable;
DataSource3: TDataSource;
ADOTable3Master: TWideStringField;
ADOTable3N_gr: TIntegerField;
ADOTable3Adres: TWideStringField;
ADOTable3DatR: TDateTimeField;
ADOTable3FIO: TWideStringField;
ADOTable3N: TIntegerField;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label16: TLabel;
Label17: TLabel;
pst1: TBitBtn;
pst2: TBitBtn;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBComboBox1: TDBComboBox;
ADOTable01: TADOTable;
pst3: TBitBtn;
Label23: TLabel;
Label24: TLabel;
DBText3: TDBText;
DBNavigator001: TDBNavigator;
Label25: TLabel;
DBGrid4: TDBGrid;
ADOTable4: TADOTable;
DataSource4: TDataSource;
DBNavigator4: TDBNavigator;
ADOTable4Mesto: TWideStringField;
ADOTable4EndT: TDateTimeField;
ADOTable4BeginT: TDateTimeField;
ADOTable4N_gr: TIntegerField;
DBComboBox2: TDBComboBox;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
pst4: TBitBtn;
DBText4: TDBText;
Label29: TLabel;
Label30: TLabel;
DBLookupComboBox3: TDBLookupComboBox;
BitBtn4: TBitBtn;
BitBtn3: TBitBtn;
ADOTable4Day: TWideStringField;
ADOTable4N_day: TIntegerField;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure DBNavigator2Click(Sender: TObject; Button: TNavigateBtn);
procedure pst1Click(Sender: TObject);
procedure ADOTable1AfterEdit(DataSet: TDataSet);
procedure ADOTable1AfterPost(DataSet: TDataSet);
procedure ADOTable1AfterCancel(DataSet: TDataSet);
procedure ADOTable1AfterInsert(DataSet: TDataSet);
procedure pst2Click(Sender: TObject);
procedure ADOTable2AfterEdit(DataSet: TDataSet);
procedure ADOTable2AfterInsert(DataSet: TDataSet);
procedure ADOTable2AfterCancel(DataSet: TDataSet);
procedure ADOTable2AfterPost(DataSet: TDataSet);
procedure DBComboBox1DropDown(Sender: TObject);
procedure DBNavigator3Click(Sender: TObject; Button: TNavigateBtn);
procedure pst3Click(Sender: TObject);
procedure ADOTable3AfterEdit(DataSet: TDataSet);
procedure ADOTable3AfterInsert(DataSet: TDataSet);
procedure ADOTable3AfterCancel(DataSet: TDataSet);
procedure ADOTable3AfterPost(DataSet: TDataSet);
procedure DBNavigator4Click(Sender: TObject; Button: TNavigateBtn);
procedure pst4Click(Sender: TObject);
procedure ADOTable4AfterEdit(DataSet: TDataSet);
procedure ADOTable4AfterInsert(DataSet: TDataSet);
procedure ADOTable4AfterCancel(DataSet: TDataSet);
procedure ADOTable4AfterPost(DataSet: TDataSet);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormF: TFormF;
implementation
uses UnitMain, UnitZ, UnitO;
{$R *.dfm}
procedure CreateSpGr;
{заполняет список ComboBox номерами групп из таблицы группы}
var i:integer;
begin
FormF.ADOTable01.Open;
FormF.ADOTable01.Sort:='N_gr';
FormF.DBComboBox1.Items.Clear;
FormF.ADOTable01.First;
for i:=1 to FormF.ADOTable01.RecordCount do
begin
FormF.DBComboBox1.Items.
FormF.ADOTable01.Next;
end;
FormF.ADOTable01.Close;
end;
procedure TFormF.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TFormF.BitBtn1Click(Sender: TObject);
begin
FormMain.Show;
end;
procedure TFormF.BitBtn3Click(Sender: TObject);
begin
FormZ.Show;
end;
procedure TFormF.BitBtn4Click(Sender: TObject);
begin
FormO.Show;
end;
procedure TFormF.FormCreate(Sender: TObject);
begin
FormF.Caption:='Форма '+'"'+ PageControl1.ActivePage.
ADOTable1.Sort:='N_gr';
ADOTable2.Sort:='N_tren';
//ADOTable3.Sort:='N'; Вместе с сортировкой начинает глючить
// ADOTable4.Sort:='N_day';
CreateSpGr;
ADOTable3.Refresh;
end;
procedure TFormF.PageControl1Change(
begin
FormF.Caption:='Форма '+'"'+ PageControl1.ActivePage.
end;
procedure TFormF.DBNavigator1Click(
begin
case Button of
nbInsert:
begin
DBEdit1.SetFocus;
ADOTable1.Insert;
end;
end;
end;
procedure TFormF.DBNavigator2Click(
begin
case Button of
nbInsert:
begin
DBEdit3.SetFocus;
ADOTable2.Insert;
end;
end;
end;
procedure TFormF.DBNavigator3Click(
begin
case Button of
nbInsert:
begin
DBEdit7.SetFocus;
ADOTable3.Insert;
end;
end;
end;
procedure TFormF.DBNavigator4Click(
begin
case Button of
nbInsert:
begin
DBComboBox2.SetFocus;
ADOTable4.Insert;
end;
end;
end;
procedure TFormF.DBComboBox1DropDown(
begin
CreateSpGr;
end;
procedure TFormF.pst1Click(Sender: TObject); //
begin
if (ADOTable1.FieldValues['N_
begin
ShowMessage('Не все
end
else
begin
ADOTable1.Post;
ADOTable1.Refresh;
end;
end;
procedure TFormF.ADOTable1AfterEdit(
begin
pst1.Enabled:=true;
end;
procedure TFormF.ADOTable1AfterInsert(
begin
pst1.Enabled:=true;
end;
procedure TFormF.ADOTable1AfterPost(
begin
pst1.Enabled:=false;
end;
procedure TFormF.ADOTable1AfterCancel(
begin
pst1.Enabled:=false;
end;
procedure TFormF.pst2Click(Sender: TObject); //
begin
if (ADOTable2.FieldValues['N_
begin
ShowMessage('Не все
end
else
begin
if ADOTable2.FieldValues['Nadb']=
ADOTable2.Post;
ADOTable2.Refresh;
end;
end;
procedure TFormF.ADOTable2AfterEdit(
begin
pst2.Enabled:=true; //
end;
procedure TFormF.ADOTable2AfterInsert(
begin
pst2.Enabled:=true;
end;
procedure TFormF.ADOTable2AfterCancel(
begin
pst2.Enabled:=false;
end;
procedure TFormF.ADOTable2AfterPost(
begin
pst2.Enabled:=false;
end;
procedure TFormF.pst3Click(Sender: TObject); //
begin
if (ADOTable3.FieldValues['N']=
begin
ShowMessage('Не все
end
else
begin
ADOTable3.Post;
ADOTable3.Refresh;
end;
end;
procedure TFormF.ADOTable3AfterEdit(
begin
pst3.Enabled:=true;
end;
procedure TFormF.ADOTable3AfterInsert(
begin
pst3.Enabled:=true;
end;
procedure TFormF.ADOTable3AfterCancel(
begin
pst3.Enabled:=false;
end;
procedure TFormF.ADOTable3AfterPost(
begin
pst3.Enabled:=false;
end;
procedure TFormF.pst4Click(Sender: TObject); //
begin
if (ADOTable4.FieldValues['Day']=
begin
ShowMessage('Не все
end
else
begin
if ADOTable4.FieldValues['Day'] = 'понедельник' then ADOTable4.FieldValues['N_Day'] := 1 else
if ADOTable4.FieldValues['Day'] = 'вторник' then ADOTable4.FieldValues['N_Day'] := 2 else
if ADOTable4.FieldValues['Day'] = 'среда' then ADOTable4.FieldValues['N_Day'] := 3 else
if ADOTable4.FieldValues['Day'] = 'четверг' then ADOTable4.FieldValues['N_Day'] := 4 else
if ADOTable4.FieldValues['Day'] = 'пятница' then ADOTable4.FieldValues['N_Day'] := 5 else
if ADOTable4.FieldValues['Day'] = 'суббота' then ADOTable4.FieldValues['N_Day'] := 6 else
if ADOTable4.FieldValues['Day'] = 'воскресение' then ADOTable4.FieldValues['N_Day'] := 7;
ADOTable4.Post;
ADOTable4.Refresh;
end;
end;
procedure TFormF.ADOTable4AfterEdit(
begin
pst4.Enabled:=true;
end;
procedure TFormF.ADOTable4AfterInsert(
begin
pst4.Enabled:=true;
end;
procedure TFormF.ADOTable4AfterCancel(
begin
pst4.Enabled:=false;