Автор: Пользователь скрыл имя, 23 Декабря 2012 в 16:55, курсовая работа
Цель: изучить основные средства проектирования баз данных и приложений по работе с ними.
Изучить предметную область (географические особенности места расположения системы мониторинга, негативные факторы, которые будут, отслеживается системой мониторинга, и средства для их измерения).
Спроектировать базу данных для хранения результатов измерений.
Написать приложение, выступающее в качестве эмулятора датчиков системы мониторинга.
Написать приложение, позволяющее отображать информацию записанную в спроектированную базу данных системы мониторинга.
Оформить техническую документацию по созданному программному продукту.
Задание 3
РАЗДЕЛ 1 ОСНОВНЫЕ ТЕОРИТИЧЕСКИЕ ДАННЫЕ 4
1.1. Объектно-ориентированная среда программирования Delphi 4
1.2. Механизм ADO 6
РАЗДЕЛ 2 СОЗДАНИЕ ПРОГРАММНОГО МОДУЛЯ 8
1.1. Создание базы данных и приложения 8
1.2. Техническая документация 10
ВЫВОДЫ 13
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 14
Приложение А 15
Приложение Б 18
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.text:=IntToStr(
end;
procedure TForm1.Button2Click(Sender: TObject);
var s1:real; i:integer;
begin
DBGrid2.DataSource.DataSet.
s1:=0;i:=0;
while not DBGrid2.DataSource.DataSet.Eof do
begin
s1:=s1+DBGrid2.DataSource.
i:=i+1;
DBGrid2.DataSource.DataSet.
end;
M:=RoundTo(s1/i,-2);
Edit4.Text:=floattostr(M);
Edit3.Text:=FloatToStr(i);
end;
procedure TForm1.Button3Click(Sender: TObject);
var s2:real; i:integer;
begin
DBGrid2.DataSource.DataSet.
s2:=0; i:=0;
while not DBGrid2.DataSource.DataSet.Eof do begin
s2:=s2+sqr(M-DBGrid1.
i:=i+1;
DBGrid2.DataSource.DataSet.
end;
D:=RoundTo(s2/i,-2);
edit5.Text:=floattostr(D);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit6.Text:=FloatToStr(
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;
end.
ER-диаграмма
Посты
Пробы
Информация о работе Основные средства проектирования базы данных