Автор работы: Пользователь скрыл имя, 07 Апреля 2014 в 22:21, курсовая работа
Данная курсовая работа посвящена теоретическому изучению CASE-средства Designer/2000 фирмы ORACLE и разработке информационной системы для автоматизации учета ремонта жилищного фонда в муниципальном жилищно-ремонтном эксплуатационном предприятии.
Задачи, поставленные в курсовой работе:
- изучение назначения и основных характеристик case средства Designer/2000;
- анализ предметной области для разработки ИС;
- определение целей и задач системы;
- построение моделей данных;
- разработка БД и клиентского приложения;
- закрепление и развитие теоретических знаний по проектированию ИС;
- приобретение практических навыков разработки ИС.
Введение……………………………………………………………......................3
1 Теоретическая часть. CASE средство Designer/2000………………………....5
2 Проектная часть…………………………………………………………………8
2.1 Постановка задач……………………………………………………………...8
2.2 Анализ предметной области………………………………………………….9
2.3 Функциональная модель по стандарту IDEF0 и методологии SADT…....11
2.4 Модель данных по стандарту IDEF1X диаграммы “сущность-связь”…...13
2.5 Описание таблиц базы данных………………………………………….......14
2.5 Описание таблиц базы данных……………………………………………...16
2.7 Схема взаимосвязей модулей и массивов данных ………………………..17
2.8Алгоритм работы модуля dati………………………………………………..18 2.9 Инструкция пользователя…………………………………………………...19
2.10 Способы и результаты тестирования программного продукта………….20
Заключение……………………………………………………………………….23
Список использованных источников………
dm.z.Active:=true;
end;
end;
end;
procedure TFZil.N7Click(Sender: TObject);
begin
dm.z.Active:=false;
dm.z.CommandText:='select id_z, adr_z, tdom_z, tkr_z, pl_z, lift_z from Zil';
dm.z.Active:=true;
end;
procedure TFZil.N9Click(Sender: TObject);
begin
dm.z.Active:=false;
dm.z.CommandText:='select id_z, adr_z, tdom_z, tkr_z, pl_z, lift_z from Zil order by pl_z';
dm.z.Active:=true;
end;
end.
procedure TFZilci.BitBtn2Click(Sender: TObject);
begin
e1.Clear;e2.Clear;cb1.Clear;
if tm=1 then
begin
dm.com.CommandText:='Update zilci set log_zl=FALSE WHERE (id_zl='+tmp+')';
dm.com.Execute;
end;
panel1.Visible:=false;
end;
procedure TFZilci.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if panel1.Visible=true then
begin
BitBtn2Click(Sender);
end;
end;
procedure TFZilci.BitBtn1Click(Sender: TObject);
begin
if (e1.Text='') or (e2.Text='') or (cb1.Text='') then showmessage('Вы не заполнили одно или несколько полей')
else
begin
try
strtoint(e2.Text);
except
showmessage('Некорректный
exit;
end;
if tm=0 then
begin
dm.temp.Active:=false;
dm.temp.CommandText:='Select id_zl from zilci where (id_z_zl='+id_z+') and (kv_zl='+e2.Text+')';
dm.temp.Active:=true;
if dm.temp.RecordCount>0 then showmessage('Подобная запись уже существует')
else
begin
dm.com.CommandText:='Insert into Zilci
(fio_zl,id_z_zl,kv_zl) values ("'+e1.Text+'",'+id_z+','+e2.
dm.com.Execute;
showmessage('Запись успешно добавлена');
dm.zl.Requery();
BitBtn2Click(Sender);
end;
end
else
begin
dm.temp.Active:=false;
dm.temp.CommandText:='Select id_zl from zilci where (id_z_zl='+id_z+') and (kv_zl='+e2.Text+')';
dm.temp.Active:=true;
if (dm.temp.RecordCount>0) and (tmp<>dm.temp.Fields[0].
else
begin
dm.com.CommandText:='Update zilci SET
fio_zl="'+e1.Text+'",id_z_zl="
dm.com.Execute;
showmessage('Запись успешно изменена');
dm.zl.Requery();
BitBtn2Click(Sender);
end;
end;
end;
end;
procedure TFZilci.N1Click(Sender: TObject);
begin
panel1.Visible:=true;
tm:=0;
cb1.Clear;
dm.temp.Active:=false;
dm.temp.CommandText:='Select adr_z from zil order by adr_z';
dm.temp.Active:=true;
While not dm.temp.Eof do
begin
cb1.Items.Add(dm.temp.Fields[
dm.temp.Next;
end;
end;
procedure TFZilci.N2Click(Sender: TObject);
begin
if dm.zl.Fields[0].AsString='' then
begin
showmessage('Запись для
exit;
end;
tmp:=dm.zl.Fields[0].AsString;
//****************************
if fmain.Update('zl','zilci')=
begin
showmessage('Данная запись
exit;
end;
//****************************
cb1.Clear;
dm.temp.Active:=false;
dm.temp.CommandText:='Select adr_z from zil order by adr_z';
dm.temp.Active:=true;
While not dm.temp.Eof do
begin
cb1.Items.Add(dm.temp.Fields[
dm.temp.Next;
end;
e1.Text:=dm.zl.fieldbyname('
cb1.Text:=dm.zl.fieldbyname('
e2.Text:=dm.zl.fieldbyname('
cb1Change(Sender);
panel1.Visible:=true;
end;
procedure TFZilci.cb1Change(Sender: TObject);
begin
dm.temp.Active:=false;
dm.temp.CommandText:='Select id_z from zil WHERE (adr_z="'+cb1.Text+'")';
dm.temp.Active:=true;
id_z:=dm.temp.fields[0].
end;
procedure TFZilci.N4Click(Sender: TObject);
begin
if dm.zl.Fields[0].AsString='' then
begin
showmessage('Запись для
exit;
end;
tmp:=dm.zl.Fields[0].AsString;
if fmain.Delete('zl','zilci',tmp)
begin
showmessage('Данная запись
exit;
end
else dm.zl.Requery();
end;
procedure TFZilci.N6Click(Sender: TObject);
begin
tmp:='';
while trim(tmp)='' do
begin
tmp:=inputbox(n6.Caption,'
if trim(tmp)='' then showmessage('Задайте фильтр')
else
begin
dm.zl.Active:=false;
dm.zl.CommandText:='Select id_zl,fio_zl,adr_z,kv_zl from zil,zilci where (id_z=id_z_zl) and (fio_zl like "%'+tmp+'%")';
dm.zl.Active:=true;
end;
end;
end;
procedure TFZilci.N7Click(Sender: TObject);
begin
dm.zl.Active:=false;
dm.zl.CommandText:='Select id_zl,fio_zl,adr_z,kv_zl from zil,zilci where (id_z=id_z_zl)';
dm.zl.Active:=true;
end;
procedure TFZilci.N9Click(Sender: TObject);
begin
dm.zl.Active:=false;
dm.zl.CommandText:='Select id_zl,fio_zl,adr_z,kv_zl from zil,zilci where (id_z=id_z_zl) order by kv_zl';
dm.zl.Active:=true;
end;
procedure TFZilci.e1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in [#8, 'а'..'я','А'..'Я',' ','.']) then
begin
Key := #0;
end;
end;
end.
procedure TFZOtk.N13Click(Sender: TObject);
begin
if dm.otz.Fields[0].AsString='' then
begin
showmessage('Запись для
exit;
end;
tmp:=dm.otz.Fields[0].
if application.MessageBox('Вы хотите отменить отклонение
заявки?','Заявка',mb_yesno+mb_
begin
dm.com.CommandText:='UPDATE zayavka SET dataot_za= NULL,prich_za = NULL where (id_za='+tmp+')';
dm.com.Execute;
showmessage('Выполнение заявки отменено');
dm.otz.Requery();
end;
end;
procedure TFZOtk.N6Click(Sender: TObject);
begin
tmp:='';
while trim(tmp)='' do
begin
tmp:=inputbox(n6.Caption,'
if trim(tmp)='' then showmessage('Задайте фильтр')
else
begin
dm.otz.Active:=false;
dm.otz.CommandText:='Select id_za, ([adr_z]&", кв. "&[kv_zl]) as adr,soder_za,prich_za from zayavka,zil,zilci where (id_z=id_z_zl) and (id_zl=id_zl_za) and (dataot_za is not null) and (([adr_z]&", кв. "&[kv_zl]) like "%'+tmp+'%")';
dm.otz.Active:=true;
end;
end;
end;
procedure TFZOtk.N7Click(Sender: TObject);
begin
dm.otz.Active:=false;
dm.otz.CommandText:='Select id_za, ([adr_z]&", кв. "&[kv_zl]) as adr,soder_za,prich_za from zayavka,zil,zilci where (id_z=id_z_zl) and (id_zl=id_zl_za) and (dataot_za is not null)';
dm.otz.Active:=true;
end;
end.