Разработка подсистема автоматизации учебно-учетной деятельности в спортивной школе

Автор работы: Пользователь скрыл имя, 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

Скачать полностью (876.52 Кб) Сколько стоит заказать работу?

Прикрепленные файлы: 1 файл

Диплом Ибрагимова.doc

— 1.40 Мб (Скачать документ)

end; //

procedure TFormF.ADOTable4AfterPost(DataSet: TDataSet); //

begin //

pst4.Enabled:=false; //

end; //

end.

unit UnitZ;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, Buttons, math;

type

TFormZ = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

GroupBox4: TGroupBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

ADOQuery3: TADOQuery;

ADOQuery4: TADOQuery;

ADOQuery5: TADOQuery;

ADOQuery6: TADOQuery;

DataSource1: TDataSource;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

Label1: TLabel;

BitBtn7: TBitBtn;

ComboBox1: TComboBox;

Label2: TLabel;

ComboBox2: TComboBox;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

Bevel1: TBevel;

BitBtn10: TBitBtn;

BitBtn11: TBitBtn;

ADOQuery5DSDesigner: TWideStringField;

ADOQuery5DSDesigner2: TDateTimeField;

ADOQuery5DSDesigner3: TDateTimeField;

ADOQuery5DSDesigner4: TWideStringField;

ADOQuery5N_Day: TIntegerField;

ADOQuery2DSDesigner: TWideStringField;

ADOQuery2DSDesigner2: TBooleanField;

ADOQuery2DSDesigner3: TBCDField;

ADOQuery2DSDesigner4: TSmallintField;

QTotDel: TFloatField;

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure ComboBox1DropDown(Sender: TObject);

procedure ComboBox2DropDown(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

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

procedure ADOQuery2CalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormZ: TFormZ;

implementation

uses UnitMain, UnitF, UnitO;

{$R *.dfm}

procedure TFormZ.BitBtn5Click(Sender: TObject);

begin

FormMain.Show;

end;

procedure TFormZ.BitBtn6Click(Sender: TObject);

begin

close;

end;

procedure TFormZ.BitBtn10Click(Sender: TObject);

begin

FormF.Show;

end;

procedure TFormZ.BitBtn11Click(Sender: TObject);

begin

FormO.Show;

end;

procedure TFormZ.ComboBox1DropDown(Sender: TObject);

{заполняет список ComboBox видами спорта из таблицы группы}

var i,code:integer;

S:string;

begin

S:='';

FormF.ADOTable01.Open;

FormF.ADOTable01.Sort:='V_sport';

FormZ.ComboBox1.Items.Clear;

FormF.ADOTable01.First;

for i:=1 to FormF.ADOTable01.RecordCount do

begin

code:=pos(FormF.ADOTable01.FieldValues['V_sport'],S);

if code=0 then FormZ.ComboBox1.Items.Append(FormF.ADOTable01.FieldValues['V_sport']);

S:=S+FormF.ADOTable01.FieldValues['V_sport'];

FormF.ADOTable01.Next;

end;

FormF.ADOTable01.Close;

end;

procedure TFormZ.ComboBox2DropDown(Sender: TObject);

{заполняет список ComboBox номерами групп из таблицы группы}

var i:integer;

begin

FormF.ADOTable01.Open;

FormF.ADOTable01.Sort:='N_gr';

FormZ.ComboBox2.Items.Clear;

FormF.ADOTable01.First;

for i:=1 to FormF.ADOTable01.RecordCount do

begin

FormZ.ComboBox2.Items.Append(FormF.ADOTable01.FieldValues['N_gr']);

FormF.ADOTable01.Next;

end;

FormF.ADOTable01.Close;

end;

procedure TFormZ.BitBtn4Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

FormZ.Caption:='Запросы';

end;

procedure TFormZ.BitBtn1Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

DataSource1.DataSet:=ADOQuery1;

ADOQuery1.Open;

FormZ.Caption:='Запрос "Список спортсменов"';

end;

procedure TFormZ.BitBtn2Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

DataSource1.DataSet:=ADOQuery2;

ADOQuery2.Open;

FormZ.Caption:='Запрос "Заслуженные тренеры"';

end;

procedure TFormZ.BitBtn3Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

DataSource1.DataSet:=ADOQuery3;

ADOQuery3.Open;

FormZ.Caption:='Запрос "Количество в группах"';

end;

procedure TFormZ.BitBtn7Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

DataSource1.DataSet:=ADOQuery4;

ADOQuery4.Parameters.ParamValues['ParamSPORT']:=ComboBox1.Text;

ADOQuery4.Open;

FormZ.Caption:='Запрос "Сведения о группах"';

end;

procedure TFormZ.BitBtn8Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

DataSource1.DataSet:=ADOQuery5;

ADOQuery5.Parameters.ParamValues['ParamNGR']:=ComboBox2.Text;

ADOQuery5.Open;

FormZ.Caption:='Запрос "Расписание группы № '+ComboBox2.Text+'"';

//ADOQuery5.Sort:='nDay';

end;

procedure TFormZ.BitBtn9Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

DataSource1.DataSet:=ADOQuery6;

ADOQuery6.Parameters.ParamValues['ParamNGR']:=ComboBox2.Text;

ADOQuery6.Open;

FormZ.Caption:='Запрос "Список спортсменов группы № '+ComboBox2.Text+'"';

end;

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

begin

ADOQuery1.Close;

ADOQuery2.Close;

ADOQuery3.Close;

ADOQuery4.Close;

ADOQuery5.Close;

ADOQuery6.Close;

FormZ.Caption:='Запросы';

end;

procedure TFormZ.ADOQuery2CalcFields(DataSet: TDataSet);

begin

QTotDel.Value:=roundto((ADOQUERY2DSDesigner3.Value*(1+(ADOQUERY2DSDesigner4.Value/100))),-2);

end;

end.

unit UnitO;

interface

uses

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

Dialogs, StdCtrls, Buttons, RpCon, RpConDS, RpBase, RpSystem, RpDefine,

RpRave, RpRender, RpRenderHTML, jpeg, ExtCtrls, DB, ADODB, RpRenderPDF,

Grids, DBGrids, math;

type

TFormO = class(TForm)

RvProject1: TRvProject;

RvSystem1: TRvSystem;

RvDataSetConnection1: TRvDataSetConnection;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

RvRenderHTML1: TRvRenderHTML;

Image1: TImage;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

ADOQuery3: TADOQuery;

RvDataSetConnection2: TRvDataSetConnection;

RvDataSetConnection3: TRvDataSetConnection;

Image2: TImage;

ADOQuery3N_tren: TIntegerField;

ADOQuery3FIO: TWideStringField;

ADOQuery3Oklad: TBCDField;

ADOQuery3Nadb: TSmallintField;

QtotalDELF: TFloatField;

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure ADOQuery3CalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormO: TFormO;

implementation

uses UnitMain, UnitF, UnitZ;

{$R *.dfm}

procedure TFormO.BitBtn4Click(Sender: TObject);

begin

FormMain.Show;

end;

procedure TFormO.BitBtn5Click(Sender: TObject);

begin

FormF.Show;

end;

procedure TFormO.BitBtn6Click(Sender: TObject);

begin

FormZ.Show;

end;

procedure TFormO.BitBtn7Click(Sender: TObject);

begin

close;

<p class="dash041e_0431_044b_

Информация о работе Разработка подсистема автоматизации учебно-учетной деятельности в спортивной школе