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

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

Скачать архив (810.62 Кб) Сколько стоит заказать работу?

Файлы: 1 файл

Kursovaya моя.doc

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

END^

ALTER PROCEDURE ADD_OSNASHENNOST (

ID_KT INTEGER,

ID_OU INTEGER,

ID_OL INTEGER,

ID_RESULT INTEGER,

ID_GR INTEGER)

BEGIN

INSERT INTO osnashennost( osnashennost.id_kt,osnashennost.id_ou,osnashennost.id_ol,osnashennost.id_result,osnashennost.id_gr) VALUES (:id_kt, :id_ou, :id_ol, :id_result, :id_gr);

END^

ALTER PROCEDURE ADD_OTV (

ID_OU INTEGER,

FIO VARCHAR(10),

DOLG VARCHAR(10))

BEGIN

INSERT INTO otv_l( otv_l.id_ou,otv_l.fio,otv_l.dolg) VALUES (:id_ou, :fio, :dolg);

END^

ALTER PROCEDURE ADD_OU (

CITI VARCHAR(50),

NAME VARCHAR(50),

ADRESS VARCHAR(50))

BEGIN

INSERT INTO ou(ou.citi,ou.name,ou.adress) VALUES (:citi, :name, :adress);

END^

ALTER PROCEDURE ADD_PORTEBNOST (

ID_OU INTEGER,

ID_KT INTEGER,

DATE_POSTAVKI VARCHAR(50))

BEGIN

INSERT INTO potrebnost(potrebnost.id_ou,potrebnost.id_kt,potrebnost.date_postavki) VALUES (:id_ou, :id_kt, :date_postavki);

END^

ALTER PROCEDURE ADD_PROG_OB (

OS VARCHAR(10),

DATE_UNISTAL VARCHAR(10),

DATE_END_LITS VARCHAR(50),

NUM_LITS VARCHAR(10))

BEGIN

INSERT INTO prog_ob(prog_ob.os,prog_ob.date_unistal,prog_ob.date_end_lits,prog_ob.num_lits) VALUES (:os, :date_unistal, :date_end_lits, :num_lits);

END^

ALTER PROCEDURE ADD_RESULTAT_PR (

ID_GR INTEGER,

ID_OU INTEGER,

ID_SOTR INTEGER,

OBSH_COL VARCHAR(50),

COL_NERABOCH VARCHAR(50))

BEGIN

INSERT INTO resultat_pr(resultat_pr.id_gr,resultat_pr.id_ou,resultat_pr.id_sotr,resultat_pr.obsh_col,resultat_pr.col_neraboch) VALUES (:id_gr, :id_ou, :id_sotr, :obsh_col, :col_neraboch);

END^

ALTER PROCEDURE ADD_SOTR_OU (

FIO VARCHAR(50),

DOLG VARCHAR(50),

CITI VARCHAR(50))

BEGIN

INSERT INTO sotr_ou(sotr_ou.fio,sotr_ou.dolg,sotr_ou.citi) VALUES (:fio, :dolg, :citi);

END^

ALTER PROCEDURE ADD_VID_KT (

NAME VARCHAR(50))

BEGIN

INSERT INTO vid_kt(vid_kt.name) VALUES (:name);

END^

ALTER PROCEDURE DEL_GR_PROV (

ID_GR INTEGER)

BEGIN

DELETE from gr_proverok where gr_proverok.id_gr=:id_gr;

END^

ALTER PROCEDURE DEL_KOM_TEH (

ID_KT INTEGER)

BEGIN

DELETE from kom_tehnic where kom_tehnic.id_kt=:id_kt;

END^

ALTER PROCEDURE DEL_OSNA (

ID_OSNASH INTEGER)

BEGIN

DELETE from osnashennost where osnashennost.id_osnash=:id_osnash;

END^

ALTER PROCEDURE DEL_OTV_L (

ID_OL INTEGER)

BEGIN

DELETE from otv_l WHERE otv_l.id_ol=:id_ol;

END^

ALTER PROCEDURE DEL_OU (

ID_OU INTEGER)

BEGIN

DELETE from ou WHERE ou.id_ou=:id_ou;

END^

ALTER PROCEDURE DEL_POTR (

ID_POTR INTEGER)

BEGIN

DELETE from potrebnost where potrebnost.id_potr=:id_potr;

END^

ALTER PROCEDURE DEL_PROG_OB (

ID_PO INTEGER)

BEGIN

DELETE from prog_ob WHERE prog_ob.id_po=:id_po;

END^

ALTER PROCEDURE DEL_RES (

ID_RESULT INTEGER)

BEGIN

DELETE from resultat_pr WHERE resultat_pr.id_result=:id_result;

END^

ALTER PROCEDURE DEL_SOTR (

ID_SOTR INTEGER)

BEGIN

DELETE from sotr_ou WHERE sotr_ou.id_sotr=:id_sotr;

END^

ALTER PROCEDURE DEL_VID_KT (

ID_VID INTEGER)

BEGIN

DELETE from vid_kt WHERE vid_kt.id_vid=:id_vid;

END^

ALTER PROCEDURE UP_GR_PROV (

ID_GR INTEGER,

ID_OU INTEGER,

DATA VARCHAR(50))

BEGIN

UPDATE gr_proverok SET gr_proverok.id_ou=:id_ou, gr_proverok.data=:data

where gr_proverok.id_gr=:id_gr;

END^

ALTER PROCEDURE UP_KOM_TEHNIC (

ID_KT INTEGER,

ID_PO INTEGER,

ID_VID INTEGER,

NAME VARCHAR(50),

DATE_EKCPL VARCHAR(50))

BEGIN

UPDATE kom_tehnic SET kom_tehnic.id_po=:id_po,kom_tehnic.id_vid=:id_vid,kom_tehnic.name=:name, kom_tehnic.date_ekcpl=:date_ekcpl

where kom_tehnic.id_kt=:id_kt;

END^

ALTER PROCEDURE UP_OSNASHENN (

ID_OSNASH INTEGER,

ID_KT INTEGER,

ID_OU INTEGER,

ID_OL INTEGER,

ID_RESULT INTEGER,

ID_GR INTEGER)

BEGIN

UPDATE osnashennost SET osnashennost.id_kt=:id_kt,osnashennost.id_ou=:id_ou,osnashennost.id_ol=:id_ol, osnashennost.id_result=:id_result, osnashennost.id_gr=:id_gr

where osnashennost.id_osnash=:id_osnash;

END^

ALTER PROCEDURE UP_OTV_L (

ID_OL INTEGER,

ID_OU INTEGER,

FIO VARCHAR(50),

DOLG VARCHAR(50))

BEGIN

UPDATE otv_l SET otv_l.id_ou=:id_ou,otv_l.fio=:fio,otv_l.dolg=:dolg

where otv_l.id_ol=:id_ol;

END^

ALTER PROCEDURE UP_OU (

ID_OU INTEGER,

CITI VARCHAR(50),

NAME VARCHAR(50),

ADRESS VARCHAR(50))

BEGIN

UPDATE ou SET ou.citi=:citi,ou.name=:name,ou.adress=:adress

where ou.id_ou=:id_ou;

END^

ALTER PROCEDURE UP_POTREB (

ID_POTR INTEGER,

ID_OU INTEGER,

ID_KT INTEGER,

DATE_POSTAVKI VARCHAR(50))

BEGIN

UPDATE potrebnost SET potrebnost.id_ou=:id_ou,potrebnost.id_kt=:id_kt,potrebnost.date_postavki=:date_postavki

where potrebnost.id_ou=:id_ou;

END^

ALTER PROCEDURE UP_PROG (

ID_PO INTEGER,

OS VARCHAR(50),

DATE_UNISTAL VARCHAR(50),

DATE_END_LITS VARCHAR(50),

NUM_LITS VARCHAR(50))

BEGIN

UPDATE prog_ob SET prog_ob.os=:os,prog_ob.date_unistal=:date_unistal,prog_ob.date_end_lits=:date_end_lits,prog_ob.num_lits=:num_lits

where prog_ob.id_po=:id_po;

END^

ALTER PROCEDURE UP_RESULT (

ID_RESULT INTEGER,

ID_GR INTEGER,

ID_OU INTEGER,

ID_SOTR INTEGER,

OBSH_COL VARCHAR(50),

COL_NERABOCH VARCHAR(50))

BEGIN

UPDATE resultat_pr SET resultat_pr.id_gr=:id_gr,resultat_pr.id_ou=:id_ou,resultat_pr.id_sotr=:id_sotr,resultat_pr.obsh_col=:obsh_col ,resultat_pr.col_neraboch=:col_neraboch

where resultat_pr.id_result=:id_result;

END^

ALTER PROCEDURE UP_SOTR_OU (

ID_SOTR INTEGER,

FIO VARCHAR(50),

DOLG VARCHAR(50),

CITI VARCHAR(50))

BEGIN

UPDATE sotr_ou SET sotr_ou.fio=:fio,sotr_ou.dolg=:dolg,sotr_ou.citi=:citi

where sotr_ou.id_sotr=:id_sotr;

END^

ALTER PROCEDURE UP_VID_KT (

ID_VID INTEGER,

NAME VARCHAR(50))

BEGIN

UPDATE vid_kt SET vid_kt.name=:name

where vid_kt.name=:name;

END^

SET TERM ; ^

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

Unit1.cpp

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

DataModule2->IBTable1->Active=false;

DataModule2->IBStoredProc1->ParamByName("ID_OU")->Value=Edit1->Text;

DataModule2->IBStoredProc1->ParamByName("DATA")->Value=Edit2->Text;

DataModule2->IBStoredProc1->Prepare();

DataModule2->IBStoredProc1->ExecProc();

DataModule2->IBTable1->Active=true;

}

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

void __fastcall TForm1::BitBtn2Click(TObject *Sender)

{

DataModule2->IBTable1->Active=false;

DataModule2->IBStoredProc2->ParamByName("ID_GR")->Value=Edit3->Text;

DataModule2->IBStoredProc2->ParamByName("ID_OU")->Value=Edit4->Text;

DataModule2->IBStoredProc2->ParamByName("DATA")->Value=Edit5->Text;

DataModule2->IBStoredProc2->Prepare();

DataModule2->IBStoredProc2->ExecProc();

DataModule2->IBTable1->Active=true;

}

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

void __fastcall TForm1::BitBtn3Click(TObject *Sender)

{

DataModule2->IBTable1->Active=false;

DataModule2->IBStoredProc3->ParamByName("ID_GR")->Value=Edit6->Text;

DataModule2->IBStoredProc3->Prepare();

DataModule2->IBStoredProc3->ExecProc();

DataModule2->IBTable1->Active=true;

}

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

void __fastcall TForm1::BitBtn4Click(TObject *Sender)

{

DataModule2->IBTable2->Active=false;

DataModule2->IBStoredProc4->ParamByName("ID_PO")->Value=Edit7->Text;

DataModule2->IBStoredProc4->ParamByName("ID_VID")->Value=Edit8->Text;

DataModule2->IBStoredProc4->ParamByName("NAME")->Value=Edit9->Text;

DataModule2->IBStoredProc4->ParamByName("DATE_EKCPL")->Value=Edit10->Text;

DataModule2->IBStoredProc4->Prepare();

DataModule2->IBStoredProc4->ExecProc();

DataModule2->IBTable2->Active=true;

}

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

void __fastcall TForm1::BitBtn5Click(TObject *Sender)

{

DataModule2->IBTable2->Active=false;

DataModule2->IBStoredProc5->ParamByName("ID_KT")->Value=Edit11->Text;

DataModule2->IBStoredProc5->ParamByName("ID_PO")->Value=Edit12->Text;

DataModule2->IBStoredProc5->ParamByName("ID_VID")->Value=Edit13->Text;

DataModule2->IBStoredProc5->ParamByName("NAME")->Value=Edit14->Text;

DataModule2->IBStoredProc5->ParamByName("DATE_EKCPL")->Value=Edit15->Text;

DataModule2->IBStoredProc5->Prepare();

DataModule2->IBStoredProc5->ExecProc();

DataModule2->IBTable2->Active=true;

}

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

void __fastcall TForm1::BitBtn6Click(TObject *Sender)

{

DataModule2->IBTable2->Active=false;

DataModule2->IBStoredProc6->ParamByName("ID_KT")->Value=Edit16->Text;

DataModule2->IBStoredProc6->Prepare();

DataModule2->IBStoredProc6->ExecProc();

DataModule2->IBTable2->Active=true;

}

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

void __fastcall TForm1::BitBtn7Click(TObject *Sender)

{

DataModule2->IBTable3->Active=false;

DataModule2->IBStoredProc7->ParamByName("ID_KT")->Value=Edit17->Text;

DataModule2->IBStoredProc7->ParamByName("ID_OU")->Value=Edit18->Text;

DataModule2->IBStoredProc7->ParamByName("ID_OL")->Value=Edit19->Text;

DataModule2->IBStoredProc7->ParamByName("ID_RESULT")->Value=Edit20->Text;

DataModule2->IBStoredProc7->ParamByName("ID_GR")->Value=Edit21->Text;

DataModule2->IBStoredProc7->Prepare();

DataModule2->IBStoredProc7->ExecProc();

DataModule2->IBTable3->Active=true;

}

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

void __fastcall TForm1::BitBtn8Click(TObject *Sender)

{

DataModule2->IBTable3->Active=false;

DataModule2->IBStoredProc8->ParamByName("ID_OSNASH")->Value=Edit22->Text;

DataModule2->IBStoredProc8->ParamByName("ID_KT")->Value=Edit23->Text;

DataModule2->IBStoredProc8->ParamByName("ID_OU")->Value=Edit24->Text;

DataModule2->IBStoredProc8->ParamByName("ID_OL")->Value=Edit25->Text;

DataModule2->IBStoredProc8->ParamByName("ID_RESULT")->Value=Edit26->Text;

DataModule2->IBStoredProc8->ParamByName("ID_GR")->Value=Edit27->Text;

DataModule2->IBStoredProc8->Prepare();

DataModule2->IBStoredProc8->ExecProc();

DataModule2->IBTable3->Active=true;

}

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

void __fastcall TForm1::BitBtn9Click(TObject *Sender)

{

DataModule2->IBTable3->Active=false;

DataModule2->IBStoredProc9->ParamByName("ID_OSNASH")->Value=Edit28->Text;

DataModule2->IBStoredProc9->Prepare();

DataModule2->IBStoredProc9->ExecProc();

DataModule2->IBTable3->Active=true;

}

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

void __fastcall TForm1::BitBtn10Click(TObject *Sender)

{

DataModule2->IBTable4->Active=false;

DataModule2->IBStoredProc10->ParamByName("ID_OU")->Value=Edit29->Text;

DataModule2->IBStoredProc10->ParamByName("FIO")->Value=Edit30->Text;

DataModule2->IBStoredProc10->ParamByName("DOLG")->Value=Edit31->Text;

DataModule2->IBStoredProc10->Prepare();

DataModule2->IBStoredProc10->ExecProc();

DataModule2->IBTable4->Active=true;

}

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

void __fastcall TForm1::BitBtn11Click(TObject *Sender)

{

DataModule2->IBTable4->Active=false;

DataModule2->IBStoredProc11->ParamByName("ID_OL")->Value=Edit32->Text;

DataModule2->IBStoredProc11->ParamByName("ID_OU")->Value=Edit33->Text;

DataModule2->IBStoredProc11->ParamByName("FIO")->Value=Edit34->Text;

DataModule2->IBStoredProc11->ParamByName("DOLG")->Value=Edit35->Text;

DataModule2->IBStoredProc11->Prepare();

DataModule2->IBStoredProc11->ExecProc();

DataModule2->IBTable4->Active=true;

}

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

void __fastcall TForm1::BitBtn12Click(TObject *Sender)

{

DataModule2->IBTable4->Active=false;

DataModule2->IBStoredProc12->ParamByName("ID_OL")->Value=Edit36->Text;

DataModule2->IBStoredProc12->Prepare();

DataModule2->IBStoredProc12->ExecProc();

DataModule2->IBTable4->Active=true;

}

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

void __fastcall TForm1::BitBtn13Click(TObject *Sender)

{

DataModule2->IBTable5->Active=false;

DataModule2->IBStoredProc13->ParamByName("CITI")->Value=Edit37->Text;

DataModule2->IBStoredProc13->ParamByName("NAME")->Value=Edit38->Text;

DataModule2->IBStoredProc13->ParamByName("ADRESS")->Value=Edit39->Text;

DataModule2->IBStoredProc13->Prepare();

DataModule2->IBStoredProc13->ExecProc();

DataModule2->IBTable5->Active=true;

}

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

void __fastcall TForm1::BitBtn14Click(TObject *Sender)

{

DataModule2->IBTable5->Active=false;

DataModule2->IBStoredProc14->ParamByName("ID_OU")->Value=Edit40->Text;

DataModule2->IBStoredProc14->ParamByName("CITI")->Value=Edit41->Text;

DataModule2->IBStoredProc14->ParamByName("NAME")->Value=Edit42->Text;

DataModule2->IBStoredProc14->ParamByName("ADRESS")->Value=Edit43->Text;

DataModule2->IBStoredProc14->Prepare();

DataModule2->IBStoredProc14->ExecProc();

DataModule2->IBTable5->Active=true;

}

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

void __fastcall TForm1::BitBtn15Click(TObject *Sender)

{

DataModule2->IBTable5->Active=false;

DataModule2->IBStoredProc15->ParamByName("ID_OU")->Value=Edit44->Text;

DataModule2->IBStoredProc15->Prepare();

DataModule2->IBStoredProc15->ExecProc();

DataModule2->IBTable5->Active=true;

}

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

void __fastcall TForm1::BitBtn16Click(TObject *Sender)

{

DataModule2->IBTable6->Active=false;

DataModule2->IBStoredProc16->ParamByName("ID_OU")->Value=Edit45->Text;

DataModule2->IBStoredProc16->ParamByName("ID_KT")->Value=Edit46->Text;

DataModule2->IBStoredProc16->ParamByName("DATE_POSTAVKI")->Value=Edit47->Text;

DataModule2->IBStoredProc16->Prepare();

DataModule2->IBStoredProc16->ExecProc();

DataModule2->IBTable6->Active=true;

}

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

void __fastcall TForm1::BitBtn17Click(TObject *Sender)

{

DataModule2->IBTable6->Active=false;

DataModule2->IBStoredProc17->ParamByName("ID_POTR")->Value=Edit48->Text;

DataModule2->IBStoredProc17->ParamByName("ID_OU")->Value=Edit49->Text;

DataModule2->IBStoredProc17->ParamByName("ID_KT")->Value=Edit50->Text;

DataModule2->IBStoredProc17->ParamByName("DATE_POSTAVKI")->Value=Edit51->Text;

DataModule2->IBStoredProc17->Prepare();

DataModule2->IBStoredProc17->ExecProc();

DataModule2->IBTable6->Active=true;

}

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

void __fastcall TForm1::BitBtn18Click(TObject *Sender)

{

DataModule2->IBTable6->Active=false;

DataModule2->IBStoredProc18->ParamByName("ID_POTR")->Value=Edit52->Text;

DataModule2->IBStoredProc18->Prepare();

DataModule2->IBStoredProc18->ExecProc();

DataModule2->IBTable6->Active=true;

}

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

void __fastcall TForm1::BitBtn19Click(TObject *Sender)

{

DataModule2->IBTable7->Active=false;

DataModule2->IBStoredProc19->ParamByName("OS")->Value=Edit53->Text;

DataModule2->IBStoredProc19->ParamByName("DATE_UNISTAL")->Value=Edit54->Text;

DataModule2->IBStoredProc19->ParamByName("DATE_END_LITS")->Value=Edit55->Text;

DataModule2->IBStoredProc19->ParamByName("NUM_LITS")->Value=Edit56->Text;

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