Модель данных по стандарту IDEF1X диаграммы "сущность - связь"
Назначение и характеристики пакета Designer/2000. Анализ предметной области для разработки информационной системы, определение ее целей и задач. Построение моделей данных, разработка базы данных и клиентского приложения. Практические навыки разработки.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 10.04.2014 |
| Размер файла | 2,7 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
if (e1. Text='') or (e2. Text='') or (e3. Text='') then showmessage ('Вы не заполнили одно или несколько полей')
else
begin
try
e2. Text: =floattostr (roundto (strtofloat (e2. Text),-2));
except
showmessage ('Некорректный ввод числовых значений');
exit;
end;
if tm=0 then
begin
dm. temp. Active: =false;
dm. temp.commandText: ='Select id_rr from remr where (nazv_rr="'+e1. Text+'") ';
dm. temp. Active: =true;
if dm. temp. RecordCount>0 then showmessage ('Подобная запись уже существует')
else
begin
dm.com.commandText: ='Insert into remr (nazv_rr,st_rr,edi_rr) values ("'+e1. Text+'","'+e2. Text+'","'+e3. Text+'") ';
dm.com. Execute;
dm. temp. Active: =false;
dm. temp.commandText: ='Select max (id_rr) from remr';
dm. temp. Active: =true;
tmpC: =dm. temp. Fields [0]. AsString;
dm.com.commandText: ='Insert into rCen (id_rr_rc,cena_rc,data_rc) values ('+tmpC+',"'+e2. Text+'","'+datetostr (date) +'") ';
dm.com. Execute;
showmessage ('Запись успешно добавлена');
dm. rr. Requery ();
BitBtn2Click (Sender);
end;
end
else
begin
dm. temp. Active: =false;
dm. temp.commandText: ='Select id_rr from remr where (nazv_rr="'+e1. Text+'") ';
dm. temp. Active: =true;
if (dm. temp. RecordCount>0) and (tmp<>dm. temp. Fields [0]. asstring) then showmessage ('Подобная запись уже существует')
else
begin
dm.com.commandText: ='Update remr SET nazv_rr="'+e1. Text+'",st_rr="'+e2. Text+'",edi_rr="'+e3. Text+'" WHERE (id_rr='+tmp+') ';
dm.com. Execute;
if tmpc<>e2. Text then
begin
dm. temp. Active: =false;
dm. temp.commandText: ='Select id_rc from rCen WHERE (id_rr_rc='+tmp+') and (data_rc = #'+fmain. data (date) +'#) ';
dm. temp. Active: =true;
if dm. temp. RecordCount=0 then
begin
dm.com.commandText: ='Insert into rCen (id_rr_rc,cena_rc,data_rc,ocena_rc) values ('+tmp+',"'+e2. Text+'","'+datetostr (date) +'","'+tmpc+'") ';
dm.com. Execute;
end
else
begin
dm.com.commandText: ='update rCen set cena_rc="'+e2. Text+'",ocena_rc="'+tmpc+'" where id_rc='+dm. temp. Fields [0]. AsString+'';
dm.com. Execute;
end;
end;
showmessage ('Запись успешно изменена');
dm. rr. Requery ();
BitBtn2Click (Sender);
end;
end;
end;
end;
procedure TFremR. N1Click (Sender: TObject);
begin
panel1. Visible: =true;
tm: =0;
end;
procedure TFremR. N2Click (Sender: TObject);
begin
if dm. rr. Fields [0]. AsString='' then
begin
showmessage ('Запись для редактирования отсутствует');
exit;
end;
tmp: =dm. rr. Fields [0]. AsString; tm: =1;
// ******************************
if fmain. Update ('rr','remr') =false then
begin
showmessage ('Данная запись используется другим пользователем');
exit;
end;
// ******************************
e1. Text: =dm. rr. fieldbyname ('nazv_rr'). AsString;
e2. Text: =dm. rr. fieldbyname ('st_rr'). AsString;
e3. Text: =dm. rr. fieldbyname ('edi_rr'). AsString;
tmpc: =dm. rr. fieldbyname ('st_rr'). AsString;
panel1. Visible: =true;
end;
procedure TFremR. N4Click (Sender: TObject);
begin
if dm. rr. Fields [0]. AsString='' then
begin
showmessage ('Запись для редактирования отсутствует');
exit;
end;
tmp: =dm. rr. Fields [0]. AsString; tm: =1;
if fmain. Delete ('rr','remr',tmp) =false then
begin
showmessage ('Данная запись используется другим пользователем');
exit;
end
else dm. rr. Requery ();
end;
procedure TFremR. N7Click (Sender: TObject);
begin
dm. rr. Active: =false;
dm. rr.commandText: ='Select id_rr,nazv_rr,st_rr,edi_rr from RemR';
dm. rr. Active: =true;
end;
procedure TFremR. N6Click (Sender: TObject);
begin
tmp: ='';
while trim (tmp) ='' do
begin
tmp: =inputbox (n6. Caption,'Задайте фильтр','');
if trim (tmp) ='' then showmessage ('Задайте фильтр')
else
begin
dm. rr. Active: =false;
dm. rr.commandText: ='Select id_rr,nazv_rr,st_rr,edi_rr from RemR where (nazv_rr like "%'+tmp+'%") ';
dm. rr. Active: =true;
end;
end;
end;
procedure TFremR. N9Click (Sender: TObject);
begin
dm. rr. Active: =false;
dm. rr.commandText: ='Select id_rr,nazv_rr,st_rr,edi_rr from RemR order by st_rr';
dm. rr. Active: =true;
end;
end.
procedure TFVipZ. N6Click (Sender: TObject);
begin
tmp: ='';
while trim (tmp) ='' do
begin
tmp: =inputbox (n6. Caption,'Задайте фильтр','');
if trim (tmp) ='' then showmessage ('Задайте фильтр')
else
begin
dm. vz. Active: =false;
dm. vz.commandText: ='Select id_za, ([adr_z] &", кв. "& [kv_zl]) as adr,soder_za,datav_za, sum (st_nr) as summa from zayavka,zil,zilci,naznR '+
'where (id_z=id_z_zl) and (id_zl=id_zl_za) and (id_za=id_za_nr) and (datav_za is not NULL) and ( ([adr_z] &", кв. "& [kv_zl]) like "%'+tmp+'%") GROUP BY id_za, ([adr_z] &", кв. "& [kv_zl]),soder_za,datav_za';
dm. vz. Active: =true;
end;
end;
end;
procedure TFVipZ. N7Click (Sender: TObject);
begin
dm. vz. Active: =false;
dm. vz.commandText: ='Select id_za, ([adr_z] &", кв. "& [kv_zl]) as adr,soder_za,datav_za, sum (st_nr) as summa from zayavka,zil,zilci,naznR '+
'where (id_z=id_z_zl) and (id_zl=id_zl_za) and (id_za=id_za_nr) and (datav_za is not NULL) GROUP BY id_za, ([adr_z] &", кв. "& [kv_zl]),soder_za,datav_za';
dm. vz. Active: =true;
end;
procedure TFVipZ. N9Click (Sender: TObject);
begin
dm. vz. Active: =false;
dm. vz.commandText: ='Select id_za, ([adr_z] &", кв. "& [kv_zl]) as adr,soder_za,datav_za, sum (st_nr) as summa from zayavka,zil,zilci,naznR '+
'where (id_z=id_z_zl) and (id_zl=id_zl_za) and (id_za=id_za_nr) and (datav_za is not NULL) GROUP BY id_za, ([adr_z] &", кв. "& [kv_zl]),soder_za,datav_za ORDER BY datav_za';
dm. vz. Active: =true;
end;
procedure TFVipZ. N13Click (Sender: TObject);
begin
if dm. vz. Fields [0]. AsString='' then
begin
showmessage ('Запись для редактирования отсутствует');
exit;
end;
tmp: =dm. vz. Fields [0]. AsString;
if application. MessageBox ('Вы хотите отменить выполнение заявки? ','Заявка',mb_yesno+mb_iconquestion) =idyes then
begin
dm.com.commandText: ='UPDATE zayavka SET datav_za= NULL where (id_za='+tmp+') ';
dm.com. Execute;
showmessage ('Выполнение заявки отменено');
dm. vz. Requery ();
end;
end;
procedure TFVipZ. N2Click (Sender: TObject);
begin
if dm. vz. Fields [0]. AsString='' then
begin
showmessage ('Запись для редактирования отсутствует');
exit;
end;
tmp: =dm. vz. Fields [0]. AsString;
fnaznr. Caption: =n2. Caption;
fnaznr. DBGrid1. PopupMenu: =nil;
dm. nr. Active: =false;
dm. nr.commandText: ='Select id_nr,nazv_rr,st_rr_nr,st_rr,ob_nr,st_nr from naznR,Remr where (id_rr=id_rr_nr) and (id_za_nr='+tmp+') ';
dm. nr. Active: =true;
fnaznr. ShowModal;
end;
end.
procedure TFZayavka. BitBtn2Click (Sender: TObject);
begin
dtp1. date: =date; dtp2. Date: =date; cb1. Clear;
if tm=1 then
begin
dm.com.commandText: ='Update zayavka set log_za=FALSE WHERE (id_za='+tmp+') ';
dm.com. Execute;
end;
if id_zl<>'' then
begin
dm.com.commandText: ='Update zilci set log_zl=false WHERE id_zl='+id_zl+'';
dm.com. Execute;
id_zl: ='';
end;
panel1. Visible: =false;
end;
procedure TFZayavka. N1Click (Sender: TObject);
begin
panel1. Visible: =true;
tm: =0;
cb1. Clear; dtp1. date: =date; dtp2. Date: =date;
dm. temp. Active: =false;
dm. temp.commandText: ='Select ([adr_z] &", кв. "& [kv_zl]) from zil,zilci WHERE (id_z=id_z_zl) order by adr_z,kv_zl';
dm. temp. Active: =true;
While not dm. temp. Eof do
begin
cb1. Items. Add (dm. temp. Fields [0]. AsString);
dm. temp. Next;
end;
end;
procedure TFZayavka. cb1Change (Sender: TObject);
begin
if id_zl<>'' then
begin
dm.com.commandText: ='Update zilci set log_zl=false WHERE id_zl='+id_zl+'';
dm.com. Execute;
id_zl: ='';
end;
dm. temp. Active: =false;
dm. temp.commandText: ='Select id_zl from zil,zilci WHERE (id_z=id_z_zl) AND ( ([adr_z] &", кв. "& [kv_zl]) ="'+cb1. Text+'") and (log_zl=false) ';
dm. temp. Active: =true;
if dm. temp. RecordCount=0 then
begin
showmessage ('Текущая запись занята');
cb1. Text: ='';
end
else
begin
id_zl: =dm. temp. fields [0]. asstring;
dm.com.commandText: ='Update zilci set log_zl=true WHERE id_zl='+id_zl+'';
dm.com. Execute;
end;
end;
procedure TFZayavka. N2Click (Sender: TObject);
begin
if dm. za. Fields [0]. AsString='' then
begin
showmessage ('Запись для редактирования отсутствует');
exit;
end;
tmp: =dm. za. Fields [0]. AsString; tm: =1;
// ******************************
if fmain. Update ('za','zayavka') =false then
begin
showmessage ('Данная запись используется другим пользователем');
exit;
end;
// ******************************
cb1. Clear;
dm. temp. Active: =false;
dm. temp.commandText: ='Select ([adr_z] &", кв. "& [kv_zl]) from zil,zilci WHERE (id_z=id_z_zl) order by adr_z,kv_zl';
dm. temp. Active: =true;
While not dm. temp. Eof do
begin
cb1. Items. Add (dm. temp. Fields [0]. AsString);
dm. temp. Next;
end;
dtp1. Date: =dm. za. fieldbyname ('dataz_za'). AsDateTime;
cb1. Text: =dm. za. fieldbyname ('adr'). AsString;
e1. Text: =dm. za. fieldbyname ('soder_za'). AsString;
dtp2. Date: =dm. za. fieldbyname ('datapv_za'). AsDateTime;
cb1Change (Sender);
panel1. Visible: =true;
end;
procedure TFZayavka. N4Click (Sender: TObject);
begin
if dm. za. Fields [0]. AsString='' then
begin
showmessage ('Запись для редактирования отсутствует');
exit;
end;
tmp: =dm. za. Fields [0]. AsString; tm: =1;
if fmain. Delete ('za','zayavka',tmp) =false then
begin
showmessage ('Данная запись используется другим пользователем');
exit;
end
else dm. za. Requery ();
end;
procedure TFZayavka. BitBtn1Click (Sender: TObject);
begin
if (cb1. Text='') then showmessage ('Вы не заполнили одно или несколько полей')
else
begin
if dtp1. Date>dtp2. Date then
begin
showmessage ('Неправильная последовательность дат');
exit;
end;
if tm=0 then
begin
dm. temp. Active: =false;
dm. temp.commandText: ='Select id_za from zayavka where (id_zl_za='+id_zl+') and (dataz_za=#'+fmain. data (dtp1. date) +'#) ';
dm. temp. Active: =true;
if dm. temp. RecordCount>0 then showmessage ('Подобная запись уже существует')
else
begin
dm.com.commandText: ='Insert into zayavka (id_zl_za,dataz_za,datapv_za,soder_za) values ('+id_zl+',"'+datetostr (dtp1. Date) +'","'+datetostr (dtp2. Date) +'","'+e1. Text+'") ';
dm.com. Execute;
showmessage ('Запись успешно добавлена');
dm. za. Requery ();
BitBtn2Click (Sender);
end;
end
else
begin
dm. temp. Active: =false;
dm. temp.commandText: ='Select id_za from zayavka where (id_zl_za='+id_zl+') and (dataz_za=#'+fmain. data (dtp1. date) +'#) ';
dm. temp. Active: =true;
if (dm. temp. RecordCount>0) and (tmp<>dm. temp. Fields [0]. asstring) then showmessage ('Подобная запись уже существует')
else
begin
dm.com.commandText: ='Update zayavka SET id_zl_za="'+id_zl+'",dataz_za="'+datetostr (dtp1. Date) +'",datapv_za="'+datetostr (dtp2. date) +'",soder_za="'+e1. Text+'" WHERE (id_za='+tmp+') ';
dm.com. Execute;
showmessage ('Запись успешно изменена');
dm. za. Requery ();
BitBtn2Click (Sender);
end;
end;
end;
end;
procedure TFZayavka. cb1KeyPress (Sender: TObject; var Key: Char);
begin
key: =#0;
end;
procedure TFZayavka. FormCloseQuery (Sender: TObject; var CanClose: Boolean);
begin
if panel1. Visible=true then
begin
BitBtn2Click (Sender);
end;
end;
procedure TFZayavka. N7Click (Sender: TObject);
begin
dm. za. Active: =false;
dm. za.commandText: ='Select id_za, ([adr_z] &", кв. "& [kv_zl]) as adr,soder_za,dataz_za,datapv_za from zayavka,zil,zilci where (id_z=id_z_zl) and (id_zl=id_zl_za) and (datav_za is null) and (dataot_za is null) ';
dm. za. Active: =true;
end;
procedure TFZayavka. N6Click (Sender: TObject);
begin
tmp: ='';
while trim (tmp) ='' do
begin
tmp: =inputbox (n6. Caption,'Задайте фильтр','');
if trim (tmp) ='' then showmessage ('Задайте фильтр')
else
begin
dm. za. Active: =false;
dm. za.commandText: ='Select id_za, ([adr_z] &", кв. "& [kv_zl]) as adr,soder_za,dataz_za,datapv_za from zayavka,zil,zilci where (id_z=id_z_zl) and (id_zl=id_zl_za) and ( ([adr_z] &", кв. "& [kv_zl]) like "%'+tmp+'%") and (datav_za is null) and (dataot_za is null) ';
dm. za. Active: =true;
end;
end;
end;
procedure TFZayavka. N9Click (Sender: TObject);
begin
dm. za. Active: =false;
dm. za.commandText: ='Select id_za, ([adr_z] &", кв. "& [kv_zl]) as adr,soder_za,dataz_za,datapv_za from zayavka,zil,zilci where (id_z=id_z_zl) and (id_zl=id_zl_za) and (datav_za is null) and (dataot_za is null) ORDER BY dataz_za';
dm. za. Active: =true;
end;
procedure TFZayavka. N10Click (Sender: TObject);
begin
dm. za. Active: =false;
dm. za.commandText: ='Select id_za, ([adr_z] &", кв. "& [kv_zl]) as adr,soder_za,dataz_za,datapv_za from zayavka,zil,zilci where (id_z=id_z_zl) and (id_zl=id_zl_za) and (datav_za is null) and (dataot_za is null) ORDER BY datapv_za';
dm. za. Active: =true;
end;
procedure TFZayavka. N11Click (Sender: TObject);
begin
if dm. za. Fields [0]. AsString='' then
begin
showmessage ('Запись для редактирования отсутствует');
exit;
end;
tmp: =dm. za. Fields [0]. AsString;
fnaznr. Caption: =n11. Caption;
fnaznr. DBGrid1. PopupMenu: =fnaznr. PopupMenu1;
dm. nr. Active: =false;
dm. nr.commandText: ='Select id_nr,nazv_rr,edi_rr,st_rr_nr,st_rr,ob_nr,st_nr from naznR,Remr where (id_rr=id_rr_nr) and (id_za_nr='+tmp+') ';
dm. nr. Active: =true;
fnaznr. ShowModal;
end;
procedure TFZayavka. N15Click (Sender: TObject);
begin
if dm. za. Fields [0]. AsString='' then
begin
showmessage ('Запись для редактирования отсутствует');
exit;
end;
tmp: =dm. za. Fields [0]. AsString;
dm. temp. Active: =false;
dm. temp.commandText: ='Select * from naznR where (id_za_nr='+tmp+') ';
dm. temp. Active: =true;
if dm. temp. RecordCount=0 then showmessage ('Невозможно выполнить заявку'+#13+'Вы не назначили ни одной работы! ')
else
begin
dm.com.commandText: ='UPDATE zayavka SET datav_za=date () where (id_za='+tmp+') ';
dm.com. Execute;
showmessage ('Заявка выполнена');
dm. za. Requery ();
end;
end;
procedure TFZayavka. N13Click (Sender: TObject);
begin
if dm. za. Fields [0]. AsString='' then
begin
showmessage ('Запись для редактирования отсутствует');
exit;
end;
tmp: =dm. za. Fields [0]. AsString;
if application. MessageBox ('Вы хотите отклонить заявку? ','Заявка',mb_yesno+mb_iconquestion) =idyes then
begin
tmp2: ='';
while trim (tmp2) ='' do
begin
tmp2: =inputbox (n13. Caption,'Задайте причину отказа','');
if trim (tmp2) ='' then showmessage ('Задайте причину отказа')
else
begin
dm.com.commandText: ='UPDATE zayavka SET dataot_za=date (),prich_za="'+tmp2+'" where (id_za='+tmp+') ';
dm.com. Execute;
showmessage ('Заявка отклонена');
dm. za. Requery ();
end;
end;
end;
end;
end.
rocedure TFZil. BitBtn2Click (Sender: TObject);
begin
e1. Clear; e2. Clear; cb1. Text: =''; cb2. Text: =''; cb3. Text: ='';
if tm=1 then
begin
dm.com.commandText: ='Update zil set log_z=FALSE WHERE (id_z='+tmp+') ';
dm.com. Execute;
end;
panel1. Visible: =false;
end;
procedure TFZil. BitBtn1Click (Sender: TObject);
begin
if (e1. Text='') or (e2. Text='') or (cb1. Text='') or (cb2. Text='') or (cb3. text='') then showmessage ('Вы не заполнили одно или несколько полей')
else
begin
try
e2. Text: =floattostr (roundto (strtofloat ( (e2. Text)),-2));
except
showmessage ('Некорректный ввод числовых значений');
exit;
end;
if tm=0 then
begin
dm. temp. Active: =false;
dm. temp.commandText: ='Select id_z from zil where (adr_z="'+e1. Text+'") ';
dm. temp. Active: =true;
if dm. temp. RecordCount>0 then showmessage ('Подобная запись уже существует')
else
begin
dm.com.commandText: ='Insert into Zil (adr_z,tdom_z,tkr_z,pl_z,lift_z) values ("'+e1. Text+'","'+cb1. Text+'","'+cb2. Text+'","'+e2. Text+'","'+cb3. Text+'") ';
dm.com. Execute;
showmessage ('Запись успешно добавлена');
dm. z. Requery ();
BitBtn2Click (Sender);
end;
end
else
begin
dm. temp. Active: =false;
dm. temp.commandText: ='Select id_z from zil where (adr_z="'+e1. Text+'") ';
dm. temp. Active: =true;
if (dm. temp. RecordCount>0) and (tmp<>dm. temp. Fields [0]. asstring) then showmessage ('Подобная запись уже существует')
else
begin
dm.com.commandText: ='Update zil SET adr_z="'+e1. Text+'",tdom_z="'+cb1. Text+'",tkr_z="'+cb2. Text+'",pl_z="'+e2. Text+'",lift_z="'+cb3. Text+'" WHERE (id_z='+tmp+') ';
dm.com. Execute;
showmessage ('Запись успешно изменена');
dm. z. Requery ();
BitBtn2Click (Sender);
end;
end;
end;
end;
procedure TFZil. cb1KeyPress (Sender: TObject; var Key: Char);
begin
key: =#0;
end;
procedure TFZil. N1Click (Sender: TObject);
begin
panel1. Visible: =true;
tm: =0;
end;
procedure TFZil. N2Click (Sender: TObject);
begin
if dm. z. Fields [0]. AsString='' then
begin
showmessage ('Запись для редактирования отсутствует');
exit;
end;
tmp: =dm. z. Fields [0]. AsString; tm: =1;
// ******************************
if fmain. Update ('z','zil') =false then
begin
showmessage ('Данная запись используется другим пользователем');
exit;
end;
// ******************************
e1. Text: =dm. z. fieldbyname ('adr_z'). AsString;
cb1. Text: =dm. z. fieldbyname ('tdom_z'). AsString;
cb2. Text: =dm. z. fieldbyname ('tkr_z'). AsString;
cb3. Text: =dm. z. fieldbyname ('lift_z'). AsString;
e2. Text: =dm. z. fieldbyname ('pl_z'). AsString;
panel1. Visible: =true;
end;
procedure TFZil. N4Click (Sender: TObject);
begin
if dm. z. Fields [0]. AsString='' then
begin
showmessage ('Запись для редактирования отсутствует');
exit;
end;
tmp: =dm. z. Fields [0]. AsString; tm: =1;
if fmain. Delete ('z','zil',tmp) =false then
begin
showmessage ('Данная запись используется другим пользователем');
exit;
end
else dm. z. Requery ();
end;
procedure TFZil. FormCloseQuery (Sender: TObject; var CanClose: Boolean);
begin
if panel1. Visible=true then
begin
BitBtn2Click (Sender);
end;
end;
procedure TFZil. N6Click (Sender: TObject);
begin
tmp: ='';
while trim (tmp) ='' do
begin
tmp: =inputbox (n6. Caption,'Задайте фильтр','');
if trim (tmp) ='' then showmessage ('Задайте фильтр')
else
begin
dm. z. Active: =false;
dm. z.commandText: ='select id_z, adr_z, tdom_z, tkr_z, pl_z, lift_z from Zil WHERE (adr_z like "%'+tmp+'%") ';
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. Text+') ';
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]. asstring) then showmessage ('Подобная запись уже существует')
else
begin
dm.com.commandText: ='Update zilci SET fio_zl="'+e1. Text+'", id_z_zl="'+id_z+'",kv_zl="'+e2. Text+'" WHERE (id_zl='+tmp+') ';
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 [0]. AsString);
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; tm: =1;
// ******************************
if fmain. Update ('zl','zilci') =false then
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 [0]. AsString);
dm. temp. Next;
end;
e1. Text: =dm. zl. fieldbyname ('fio_zl'). AsString;
cb1. Text: =dm. zl. fieldbyname ('adr_z'). AsString;
e2. Text: =dm. zl. fieldbyname ('kv_zl'). AsString;
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]. asstring;
end;
procedure TFZilci. N4Click (Sender: TObject);
begin
if dm. zl. Fields [0]. AsString='' then
begin
showmessage ('Запись для редактирования отсутствует');
exit;
end;
tmp: =dm. zl. Fields [0]. AsString; tm: =1;
if fmain. Delete ('zl','zilci',tmp) =false then
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]. AsString;
if application. MessageBox ('Вы хотите отменить отклонение заявки? ','Заявка',mb_yesno+mb_iconquestion) =idyes then
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.
Размещено на Allbest.ru
Подобные документы
Описание предметной области, определение функциональных требований к системе и построение диаграммы потока данных. Построение модели "сущность-связь", описание сущностей и атрибутов модели. Построение реляционной базы данных и описание ее таблицы.
курсовая работа [624,5 K], добавлен 30.05.2019Системный анализ и анализ требований к базе данных. Концептуальная и инфологическая модель предметной области. Типы атрибутов в логической модели базы. Физическая модель проектируемой базы данных в методологии IDEF1X. Требования к пользователям системы.
курсовая работа [2,3 M], добавлен 21.11.2013Системный анализ и оценка требований к базе данных. Концептуальная (инфологическая) модель предметной области. Построение ERD-диаграммы и физической модели в методологии IDEF1X. Составление форм, запросов и отчетов в среде СУБД Visual FoxPro 8.0.
курсовая работа [1,3 M], добавлен 24.06.2013Автоматизация системы снятия показаний счетчиков энергии. Разработка базы данных и клиентского приложения для структур жилищно-коммунального хозяйства, занимающихся составлением квитанций. Описание предметной области. Тестирование клиентского приложения.
курсовая работа [953,3 K], добавлен 01.09.2016Оценка предметной области: концептуальные требования; выявление информационных объектов и связей между ними; построение базы данных. Описание входных и выходных данных информационной системы "Магазин компьютерной техники". Анализ диаграммы прецедентов.
курсовая работа [294,8 K], добавлен 13.04.2014Этапы создания и разработки базы данных. Построение модели предметной области. Разработка даталогической и физической моделей данных, способы обработки данных о сотрудниках организации. Проектирование приложений пользователя. Создание кнопочной формы.
курсовая работа [2,1 M], добавлен 14.02.2011Модели данных в управлении базами данных. Концептуальные модели данных. Роль баз данных в информационных системах. Реляционная модель данных. Определение предметной области. Построение модели базы данных для информационной системы "Домашние животные".
курсовая работа [1,9 M], добавлен 19.04.2011Разработка приложения, позволяющего автоматизировать документооборот предприятия по списанию основных средств. Мероприятия по защите и обеспечению целостности базы данных. Разработка клиентского приложения. Запросы к базе данных, руководство пользователя.
курсовая работа [700,0 K], добавлен 14.01.2015Информационно-логическая модель предметной области по нотациям Ричарда Баркера. Даталогическая модель реляционной базы данных в виде диаграммы схемы отношений. Приложение интерфейса для базы данных на языке программирования С# в среде Visual Studio.
курсовая работа [3,6 M], добавлен 23.12.2014Определение понятия и общее описание базы данных как упорядоченной информационной системы на носителе информации. Описание предметной области и разработка приложения базы данных, содержащей информацию о расписании занятий, для преподавателей кафедры.
курсовая работа [1,3 M], добавлен 08.08.2012
