Автор: Пользователь скрыл имя, 02 Ноября 2012 в 17:03, курсовая работа
В настоящее время все большую актуальность приобретает использование при разработке приложений реляционных баз данных. Это связано с тем, что современные информационные системы имеют дело с большими объемами информации.
Введение………………………………………………………...………………
Задание на проектирование…………………..………………………....
Разработка структуры БД………………….…………………..………..
2.1 Описание предметной области………..………………………....
2.2 Анализ информационных потоков………………..……………..
2.3 Создание инфологической модели ………………………..…….
2.3.1 Процедура нормализации сущностей……………………...
2.4 Создание даталогической модели……………………..…………
2.5 Выбор технических и программных средств реализации БД и клиентского приложения………………………………………………..
Создание базы данных……………………………………………...…...
3.1 Описание структуры БД ………………………………………....
3.2 Описание свойств таблиц БД…………………………………….
3.3 Описание связей между таблицами БД и условий целостности данных………..……………………………………………………
3.4 Описание хранимых процедур…………………………………...
Создание пользовательского интерфейса информационной системы……………..................................................................................
4.1 Пользовательское меню …………………………………………
4.2 Формы как средство добавления, удаления, просмотра, изменений данных в БД…………………………………..……..
4.3 Формирование запросов к базе данных………………….……...
4.4 Формирование отчетов……….…………………………………..
4.5 Справочная система…………………….………………………...
Заключение……………………………………………………………………...
Литература………………………………………………………………………
Приложения……………………………………………………………………..
end;
2: begin
Param_hp.Visible:=False
end;
3: begin
Ochistka;
Param_hp.Visible:=True;
Label1.Visible:=false;
Label2.Visible:=false;
Label3.Visible:=true;
Label4.Visible:=true;
id_doc.Visible:=false;
id_sch.Visible:=false;
Data.Visible:=true;
id_kas.Visible:=true;
end;
end;
end;
procedure THranProc_ko.HP1;
begin
datasource_hp.Enabled:=false;
datasource_hp.DataSet:=
adoQuery_hp.Active:=false;
Adoquery_hp.SQL.Clear;
adoquery_hp.SQL.Add('EXECUTE Ravenstvo');
adoquery_hp.Active:=true;
datasource_hp.Enabled:=true;
end;
procedure THranProc_ko.HP2;
var
ksch: string;
kdoc: string;
begin
ksch:=id_sch.Text ;
kdoc:=id_doc.Text;
datasource_hp.Enabled:=false;
datasource_hp.DataSet:=
adoQuery_hp.Active:=false;
Adoquery_hp.SQL.Clear;
adoquery_hp.SQL.Add('EXECUTE Buh_scheta '+ksch+','+kdoc);
adoquery_hp.Active:=true;
datasource_hp.Enabled:=true;
end;
procedure THranProc_ko.HP3;
var
kol: string;
begin
kol:='4';
datasource_hp.Enabled:=false;
datasource_hp.DataSet:=
adoQuery_hp.Active:=false;
Adoquery_hp.SQL.Clear;
adoquery_hp.SQL.Add('EXECUTE Insert_str');
adoquery_hp.Active:=true;
datasource_hp.Enabled:=true;
end;
procedure THranProc_ko.HP4;
var
kkas: string;
date_hp: string;
begin
kkas:=id_kas.Text;
date_hp:= Data.Text;
datasource_hp.Enabled:=false;
datasource_hp.DataSet:=
adoQuery_hp.Active:=false;
Adoquery_hp.SQL.Clear;
adoquery_hp.SQL.Add('EXECUTE Ostatki_hp '+kkas+','+''''+ date_hp+ '''');
adoquery_hp.Active:=true;
datasource_hp.Enabled:=true;
end;
procedure THranproc_ko.Out_hpClick(
begin
case rg_hp.ItemIndex of
0: begin
HP1;
end;
1: begin
HP2;
end;
2: begin
try
HP3;
except
end;
MessageBox(HranProc_ko.Handle,
end;
3: begin
HP4;
end;
end;
end;
procedure THranproc_ko.BitBtn1Click(
begin
Hranproc_ko.Close;
end;
end.