Автоматизированная система мониторинга оснащенности образовательных учреждений компьютерной техникой

Автор работы: Пользователь скрыл имя, 16 Марта 2014 в 12:05, курсовая работа

Описание работы

К задачам курсовой работы можно отнести следующее:
a) изучение предметной области;
b) разработка функциональных моделей;
c) разработка базы данных в СУБД Firebird;
d) создание приложения, основанного на клиент-серверной технологии;

Содержание работы

Введение 3
1. Теоретические сведения 5
1.1 Анализ предметной области 5
1.2 Используемые при проектировании программные средства 6
1.3 Используемые инструментальные средства для создания Windows-приложения 9
2. Разработка технического задания к программе 11
2.1 Основание для разработки 11
2.2 Назначение разработки 11
2.3 Требования к программе 11
2.3.1 Требования к функциональным характеристикам и надежности 11
2.3.2 Условия эксплуатации 14
2.3.3 Требования к составу и параметрам технических средств 14
2.3.4 Требования к информационной и программной совместимости 14
2.4 Требования к маркировке и упаковке 15
2.5 Требования к транспортированию и хранению 15
2.6 Требования к программной документации 15
2.7 Технико-экономические показатели 15
2.8 Стадии и этапы разработки 16
2.9 Порядок контроля и приемки 16
3. Разработка функциональных моделей автоматизированной системы 18
4. Разработка информационной модели автоматизированной системы 24
5. Разработка пользовательского интерфейса 26
5.1 Интерфейс клиентского Windows-приложения 26
5.2 Руководство пользователя 37
Заключение 37
Список использованных источников 41
Приложение 1. Листинг БД 42
Приложение 2. Листинг клиентского Web-приложения 54

Файлы: 1 файл

Kursovaya моя.doc

— 1.22 Мб (Скачать файл)

DataModule2->IBStoredProc19->Prepare();

DataModule2->IBStoredProc19->ExecProc();

DataModule2->IBTable7->Active=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn20Click(TObject *Sender)

{

DataModule2->IBTable7->Active=false;

DataModule2->IBStoredProc20->ParamByName("ID_PO")->Value=Edit57->Text;

DataModule2->IBStoredProc20->ParamByName("OS")->Value=Edit58->Text;

DataModule2->IBStoredProc20->ParamByName("DATE_UNISTAL")->Value=Edit59->Text;

DataModule2->IBStoredProc20->ParamByName("DATE_END_LITS")->Value=Edit60->Text;

DataModule2->IBStoredProc20->ParamByName("NUM_LITS")->Value=Edit61->Text;

DataModule2->IBStoredProc20->Prepare();

DataModule2->IBStoredProc20->ExecProc();

DataModule2->IBTable7->Active=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn21Click(TObject *Sender)

{

DataModule2->IBTable7->Active=false;

DataModule2->IBStoredProc21->ParamByName("ID_PO")->Value=Edit62->Text;

DataModule2->IBStoredProc21->Prepare();

DataModule2->IBStoredProc21->ExecProc();

DataModule2->IBTable7->Active=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn22Click(TObject *Sender)

{

DataModule2->IBTable8->Active=false;

DataModule2->IBStoredProc22->ParamByName("ID_GR")->Value=Edit63->Text;

DataModule2->IBStoredProc22->ParamByName("ID_OU")->Value=Edit64->Text;

DataModule2->IBStoredProc22->ParamByName("ID_SOTR")->Value=Edit65->Text;

DataModule2->IBStoredProc22->ParamByName("OBSH_COL")->Value=Edit66->Text;

DataModule2->IBStoredProc22->ParamByName("COL_NERABOCH")->Value=Edit67->Text;

DataModule2->IBStoredProc22->Prepare();

DataModule2->IBStoredProc22->ExecProc();

DataModule2->IBTable8->Active=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn23Click(TObject *Sender)

{

DataModule2->IBTable8->Active=false;

DataModule2->IBStoredProc23->ParamByName("ID_RESULT")->Value=Edit68->Text;

DataModule2->IBStoredProc23->ParamByName("ID_GR")->Value=Edit69->Text;

DataModule2->IBStoredProc23->ParamByName("ID_OU")->Value=Edit70->Text;

DataModule2->IBStoredProc23->ParamByName("ID_SOTR")->Value=Edit71->Text;

DataModule2->IBStoredProc23->ParamByName("OBSH_COL")->Value=Edit72->Text;

DataModule2->IBStoredProc23->ParamByName("COL_NERABOCH")->Value=Edit73->Text;

DataModule2->IBStoredProc23->Prepare();

DataModule2->IBStoredProc23->ExecProc();

DataModule2->IBTable8->Active=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn24Click(TObject *Sender)

{

DataModule2->IBTable8->Active=false;

DataModule2->IBStoredProc24->ParamByName("ID_RESULT")->Value=Edit74->Text;

DataModule2->IBStoredProc24->Prepare();

DataModule2->IBStoredProc24->ExecProc();

DataModule2->IBTable8->Active=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn25Click(TObject *Sender)

{

DataModule2->IBTable9->Active=false;

DataModule2->IBStoredProc25->ParamByName("FIO")->Value=Edit75->Text;

DataModule2->IBStoredProc25->ParamByName("DOLG")->Value=Edit76->Text;

DataModule2->IBStoredProc25->ParamByName("CITI")->Value=Edit77->Text;

DataModule2->IBStoredProc25->Prepare();

DataModule2->IBStoredProc25->ExecProc();

DataModule2->IBTable9->Active=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn26Click(TObject *Sender)

{

DataModule2->IBTable9->Active=false;

DataModule2->IBStoredProc26->ParamByName("ID_SOTR")->Value=Edit78->Text;

DataModule2->IBStoredProc26->ParamByName("FIO")->Value=Edit79->Text;

DataModule2->IBStoredProc26->ParamByName("DOLG")->Value=Edit80->Text;

DataModule2->IBStoredProc26->ParamByName("CITI")->Value=Edit81->Text;

DataModule2->IBStoredProc26->Prepare();

DataModule2->IBStoredProc26->ExecProc();

DataModule2->IBTable9->Active=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn27Click(TObject *Sender)

{

DataModule2->IBTable9->Active=false;

DataModule2->IBStoredProc27->ParamByName("ID_SOTR")->Value=Edit82->Text;

DataModule2->IBStoredProc27->Prepare();

DataModule2->IBStoredProc27->ExecProc();

DataModule2->IBTable9->Active=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn28Click(TObject *Sender)

{

DataModule2->IBTable9->Active=false;

DataModule2->IBStoredProc28->ParamByName("NAME")->Value=Edit83->Text;

DataModule2->IBStoredProc28->Prepare();

DataModule2->IBStoredProc28->ExecProc();

DataModule2->IBTable9->Active=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn29Click(TObject *Sender)

{

DataModule2->IBTable9->Active=false;

DataModule2->IBStoredProc29->ParamByName("ID_VID")->Value=Edit84->Text;

DataModule2->IBStoredProc29->ParamByName("NAME")->Value=Edit85->Text;

DataModule2->IBStoredProc29->Prepare();

DataModule2->IBStoredProc29->ExecProc();

DataModule2->IBTable9->Active=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn30Click(TObject *Sender)

{

DataModule2->IBTable9->Active=false;

DataModule2->IBStoredProc30->ParamByName("ID_VID")->Value=Edit86->Text;

DataModule2->IBStoredProc30->Prepare();

DataModule2->IBStoredProc30->ExecProc();

DataModule2->IBTable9->Active=true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn31Click(TObject *Sender)

{

QuickRep1->Preview();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::DBGrid1TitleClick(TColumn *Column)

{

DataModule2->IBTable1->Active = false;

DataModule2->IBTable1->IndexFieldNames = Column->FieldName;

DataModule2->IBTable1->Active = true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::DBGrid2TitleClick(TColumn *Column)

{

DataModule2->IBTable2->Active = false;

DataModule2->IBTable2->IndexFieldNames = Column->FieldName;

DataModule2->IBTable2->Active = true;       

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::DBGrid3TitleClick(TColumn *Column)

{

DataModule2->IBTable3->Active = false;

DataModule2->IBTable3->IndexFieldNames = Column->FieldName;

DataModule2->IBTable3->Active = true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::DBGrid4TitleClick(TColumn *Column)

{

DataModule2->IBTable4->Active = false;

DataModule2->IBTable4->IndexFieldNames = Column->FieldName;

DataModule2->IBTable4->Active = true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::DBGrid5TitleClick(TColumn *Column)

{

DataModule2->IBTable5->Active = false;

DataModule2->IBTable5->IndexFieldNames = Column->FieldName;

DataModule2->IBTable5->Active = true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::DBGrid6TitleClick(TColumn *Column)

{

DataModule2->IBTable6->Active = false;

DataModule2->IBTable6->IndexFieldNames = Column->FieldName;

DataModule2->IBTable6->Active = true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::DBGrid7TitleClick(TColumn *Column)

{

DataModule2->IBTable7->Active = false;

DataModule2->IBTable7->IndexFieldNames = Column->FieldName;

DataModule2->IBTable7->Active = true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::DBGrid8TitleClick(TColumn *Column)

{

DataModule2->IBTable8->Active = false;

DataModule2->IBTable8->IndexFieldNames = Column->FieldName;

DataModule2->IBTable8->Active = true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::DBGrid9TitleClick(TColumn *Column)

{

DataModule2->IBTable9->Active = false;

DataModule2->IBTable9->IndexFieldNames = Column->FieldName;

DataModule2->IBTable9->Active = true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::DBGrid10TitleClick(TColumn *Column)

{

DataModule2->IBTable10->Active = false;

DataModule2->IBTable10->IndexFieldNames = Column->FieldName;

DataModule2->IBTable10->Active = true;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn32Click(TObject *Sender)

{

 

TLocateOptions LO;

DataModule2->IBTable4->Locate("FIO",Edit87->Text,LO<<loPartialKey<<loCaseInsensitive);

 

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn33Click(TObject *Sender)

{

DataModule2->IBQuery1->Active=false;

DataModule2->IBQuery1->ParamByName("citi")->AsString=Edit88->Text;

DBGrid5->DataSource=DataModule2->DataSource11;

DataModule2->IBQuery1->Active=true;

 

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn34Click(TObject *Sender)

{

QuickRep2->Preview();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn35Click(TObject *Sender)

{

TLocateOptions LO;

DataModule2->IBTable1->Locate("DATA",Edit89->Text,LO<<loPartialKey<<loCaseInsensitive);

 

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn36Click(TObject *Sender)

{

DBGrid5->DataSource=DataModule2->DataSource5;       

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::BitBtn37Click(TObject *Sender)

{

TLocateOptions LO;

DataModule2->IBTable9->Locate("FIO",Edit90->Text,LO<<loPartialKey<<loCaseInsensitive);

       

}

//---------------------------------------------------------------------------

 

 

 

 

/******************************************************************************/

/***          Generated by IBExpert 2010.01.22 17.12.2013 13:04:31          ***/

/******************************************************************************/

 

SET SQL DIALECT 3;

 

SET NAMES NONE;

 

CREATE DATABASE 'localhost:D:\6.fdb'

USER 'SYSDBA' PASSWORD 'masterkey'

PAGE_SIZE 16384

 

План

 

Введение

1. Теоретические сведения

2. Разработка технического задания к программе

3. Разработка функциональных моделей автоматизированной системы

4. Разработка информационной модели автоматизированной системы

5. Разработка пользовательского интерфейса

Заключение

Список использованных источников

Приложение 1. Листинг БД

Приложение 2. Листинг клиентского Web-приложения 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Исполнитель /________________/ Лисицына Ю.Д

Руководитель /________________/ Гахов Р.П.

 

 


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