1. Вендров А.М. CASE-технологии: Современные методы и средства проектирования информационных систем. М: Финансы и статистика 1998;

2. Вендров А.М. Проектирование программного обеспечения экономических информационных систем: Учебник для студентов вузов - М.: Финансы и статистика, 2000;

3. Вендров А.М. Практикум по проектированию программного обеспечения экономических информационных систем: Учебное пособие для студентов вузов. - М: Финансы и статистика, 2002;

4. Базы данных. Учебник для вузов. /Под ред. Хоменко А.Д., - М.: 2000.

5. Карпова Т.С. Базы данных: Модели, разработка, реализация. - СПб: Питер, 2001.

6. Дарахвелидзе, П.Г. Программирование в Delphi 7/П.Г. Дарахвелидзе, Е.П. Марков. - Спб.: БХВ-Петербург, 2005. - 784 с

Приложения

Модель ИС по стандарту IDEF0 и методологии SADT

Рисунок Б.1 - Уровень A0 - автоматизация учета ремонта в МЖРЭП

Рисунок Б.2 - Уровень A1

Рисунок Б.3 - Уровень A2 - определение уровня доступа

Рисунок Б.4 - Уровень A2 - декомпозиция блока изменение БД

Рисунок Б.5 - Уровень A3 - декомпозиция блока работа с БД

Рисунок Б.6 - Уровень A3 - декомпозиция блока добавление, удаление, редактирование записей

Рисунок Б.6 - Уровень A4 - Оформление заявки

Рисунок Б.7 - Уровень A2 - выполнение запросов пользователей

Приложение Б - Физическая модель данных

Рисунок Б1 - Физическая модель денных

Приложение В - Программный код созданной ИС

procedure TFpass. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

if application. MessageBox ('Вы хотите выйти из программы? ','Выход из программы',mb_yesno+mb_iconquestion) =idyes then

begin

application. Terminate;

end

else canclose: =false;

end;

procedure TFpass. BitBtn1Click (Sender: TObject);

begin

closequery;

end;

procedure TFpass. SpeedButton1Click (Sender: TObject);

var inifile: tinifile;

dbp: string;

begin

dm. od. InitialDir: =ExtractFilePath (Application. ExeName);

if dm. od. Execute then

begin

e2. Text: =dm. od. FileName;

try

dm. ADO. Connected: =false;

dm. ADO. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+dm. od. FileName+'; Persist Security Info=False';

dm. ADO. Connected: =true;

except

showmessage ('Произошла ошибка при подключении к базе');

exit;

end;

IniFile: = TIniFile. Create (ExtractFilePath (Application. ExeName) +'options. ini'); // загрузка из фала настроек пути к базе

inifile. WriteString ('Options', 'DBPath', dm. od. FileName);

IniFile. Free;

dm. TEMP. Active: =false;

dm. TEMP.commandText: ='Select login fROM pass';

dm. TEMP. Active: =true;

cb. Clear;

While not dm. TEMP. Eof do

begin

cb. Items. Add (dm. TEMP. Fields [0]. AsString);

dm. TEMP. Next;

end;

end;

end;

procedure TFpass. FormShow (Sender: TObject);

var inifile: tinifile;

dbp: string;

begin

fpass. Caption: =application. Title;

IniFile: = TIniFile. Create (ExtractFilePath (Application. ExeName) +'options. ini'); // загрузка из фала настроек пути к базе

DBP: = IniFile. ReadString ('Options', 'DBPath', ExtractFilePath (Application. ExeName) +'');

e2. Text: =dbp;

IniFile. Free;

if fileexists (dbp) =false then

begin

showmessage ('База данных по указанному пути не была найдена! ');

exit;

end;

try

dm. ADO. Connected: =false;

dm. ADO. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+dbp+'; Persist Security Info=False';

dm. ADO. Connected: =true;

except

showmessage ('Произошла ошибка при подключении к базе');

exit;

end;

cb. Clear; e. Clear;

dm. TEMP. Active: =false;

dm. TEMP.commandText: ='Select login fROM pass';

dm. TEMP. Active: =true;

While not dm. TEMP. Eof do

begin

cb. Items. Add (dm. TEMP. Fields [0]. AsString);

dm. TEMP. Next;

end;

end;

procedure TFpass. BitBtn2Click (Sender: TObject);

begin

if cb. Text='' then showmessage ('Пользователь не выбран')

else if e. Text='' then showmessage ('Пароль не введен')

else

begin

dm. temp. Active: =false;

dm. temp.commandText: ='select login from pass where (login="'+cb. Text+'") and (pass="'+e. Text+'") ';

dm. temp. Active: =true;

if dm. temp. RecordCount>0 then

begin

if cb. text='Администратор' then

begin

fpass. Hide;

fmain. sb. Panels [0]. Text: =cb. Text+', вошел в программу в: '+ timetostr (time);

fmain. showmodal;

end

else if cb. Text='Работник' then

begin

fpass. Hide;

fmain. n99. Visible: =false;

fmain. n5. Visible: =false;

fmain. sb. Panels [0]. Text: =cb. Text+', вошел в программу в: '+ timetostr (time);

fmain. showmodal;

end

else if cb. Text='Гость' then

begin

// fmain. n10. Visible: =false;

fmain. n11. Visible: =false;

fmain. n12. Visible: =false;

fmain. n15. Visible: =false;

fmain. n16. Visible: =false;

fmain. n17. Visible: =false;

fmain. n99. Visible: =false;

fmain. n5. Visible: =false;

fzayavka. N2. Visible: =false;

fzayavka. N3. Visible: =false;

fzayavka. N4. Visible: =false;

fzayavka. N5. Visible: =false;

fzayavka. N6. Visible: =false;

fzayavka. N7. Visible: =false;

fzayavka. N8. Visible: =false;

fzayavka. N9. Visible: =false;

fzayavka. N10. Visible: =false;

fzayavka. N11. Visible: =false;

fzayavka. N12. Visible: =false;

fzayavka. N13. Visible: =false;

fzayavka. N14. Visible: =false;

fzayavka. N15. Visible: =false;

fpass. Hide;

fmain. sb. Panels [0]. Text: =cb. Text+', вошел в программу в: '+ timetostr (time);

fmain. showmodal;

end;

end

else

begin

showmessage ('Проверьте правильность пароля');

exit;

end;

end;

end;

procedure TFpass. cbKeyPress (Sender: TObject; var Key: Char);

begin

key: =#0;

end;

end.

procedure TFChPAss. FormShow (Sender: TObject);

begin

cb. Clear;

dm. temp. Active: =false;

dm. temp.commandText: ='Select login from pass WHERE (login<>"Гость") order by login';

dm. temp. Active: =true;

while not dm. temp. Eof do

begin

cb. Items. Add (dm. temp. Fields [0]. AsString);

dm. temp. Next;

end;

end;

procedure TFChPAss. cbKeyPress (Sender: TObject; var Key: Char);

begin

key: =#0;

end;

procedure TFChPAss. BitBtn2Click (Sender: TObject);

begin

if cb. Text='' then showmessage ('Вы не выбрали имя пользователя')

else if e1. Text='' then showmessage ('Вы не ввели пароль')

else if e2. Text='' then showmessage ('Вы не ввели подтверждение пароля')

else if e2. Text<>e1. Text then showmessage ('Пароль и подтверждение пароля не совпадают')

else

begin

dm.com.commandtext: ='Update pass Set pass="'+e2. Text+'" where (login = "'+cb. Text+'") ';

dm.com. Execute;

showmessage ('Пароль изменен');

closequery;

end;

end;

procedure TFChPAss. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

cb. Clear;

e1. Text: =''; e2. Text: ='';

close;

end;

procedure TFChPAss. BitBtn1Click (Sender: TObject);

begin

closequery;

end;

end.

procedure TFdati. BitBtn1Click (Sender: TObject);

begin

closequery;

end;

procedure TFdati. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

dtp1. Date: =date;

dtp2. Date: =date;

close;

end;

procedure TFdati. FormShow (Sender: TObject);

begin

dtp1. Date: =date;

dtp2. Date: =date;

end;

procedure TFdati. BitBtn2Click (Sender: TObject);

var

Template,NewTemplate,FindText, NewStr, Replace,ReplaceWith: OleVariant;

LinkToFile,SaveWithDocument,Range: OleVariant;

Table1: Table;

i: integer;

flag: boolean;

Reg: TRegistry;

summa: real;

begin

if dtp1. Date>dtp2. Date then

begin

showmessage ('Ошибка в последовательности дат');

exit;

end;

// Проверяем, инсталлирован ли Word

Reg: = TRegistry. Create;

Reg. RootKey: = HKEY_CLASSES_ROOT;

flag: =reg. KeyExists ('Word. Application');

reg. Free;

// flag: =true;

if flag=false then

begin

application. MessageBox ('Word не устанволен','Отчет',mb_ok+mb_iconstop);

exit;

end;

if tm=0 then

begin

WordApplication1. Visible: =false;

WordApplication1. Connect; // Устанавливаем связь с сервером

// Открываем шаблон otchet. dot в Word

Template: =ExtractFilePath (Application. EXEName) +'\Dot\Ремонт. dot'; // путь к шаблону документа

WordApplication1. Documents. Add (Template,EmptyParam,EmptyParam,EmptyParam); // создаем документ на основе шаблона

WordDocument1. ConnectTo (WordApplication1. ActiveDocument); // Связываем компонент WordDocument1 c активным документом (т.е. с только что созданным документом)

// Заполняем таблицу списка объектов

Table1: =WordDocument1. Tables. Item (1); // связываем имя Table1 с первой таблицей документа

// WordDocument1. Tables - это массив таблиц документа (тип Tables), а WordDocument1. Tables. Item (i) - i-ая таблица

Replace: =true; // параметр, задающий режим замены

FindText: ='#1'; // что меняем

ReplaceWith: ='с '+datetostr (dtp1. Date) +' по '+datetostr (dtp2. Date); // на что меняем

WordDocument1. Range. Find. Execute (FindText,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,ReplaceWith,Replace,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

dm. temp. Active: =false;

dm. temp.commandText: ='Select adr_z,sum (st_nr) FROM zil,zilci,zayavka,naznR WHERE (id_z=id_z_zl) and (id_zl=id_zl_za) and (id_za=id_za_nr) and (datav_za BETWEEN #'+fmain. data (dtp1. Date) +'# and #'+fmain. data (dtp2. Date) +'#) GROUP BY adr_z';

dm. temp. Active: =true;

i: =2;

summa: =0;

While (not dm. temp. Eof) do

begin

Table1. Rows. Add (EmptyParam);

Table1. Cell (i, 1). Range. Text: = dm. temp. Fields [0]. AsString;

Table1. Cell (i,

2). Range. Text: = dm. temp. Fields [1]. AsString;

summa: =summa+dm. temp. Fields [1]. asfloat;

inc (i); dm. temp. next;

end;

Replace: =true; // параметр, задающий режим замены

FindText: ='#2'; // что меняем

ReplaceWith: =floattostr (summa); // на что меняем

WordDocument1. Range. Find. Execute (FindText,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,ReplaceWith,Replace,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

Table1. Rows. Item (i). Delete;

WordApplication1. Visible: =true; // делаем приложение MS Word видимым

WordApplication1. Disconnect; // Разрываем связь с серверо

end

else if tm=1 then

begin

WordApplication1. Visible: =false;

WordApplication1. Connect; // Устанавливаем связь с сервером

// Открываем шаблон otchet. dot в Word

Template: =ExtractFilePath (Application. EXEName) +'\Dot\Изменение. dot'; // путь к шаблону документа

WordApplication1. Documents. Add (Template,EmptyParam,EmptyParam,EmptyParam); // создаем документ на основе шаблона

WordDocument1. ConnectTo (WordApplication1. ActiveDocument); // Связываем компонент WordDocument1 c активным документом (т.е. с только что созданным документом)

// Заполняем таблицу списка объектов

Table1: =WordDocument1. Tables. Item (1); // связываем имя Table1 с первой таблицей документа

// WordDocument1. Tables - это массив таблиц документа (тип Tables), а WordDocument1. Tables. Item (i) - i-ая таблица

Replace: =true; // параметр, задающий режим замены

FindText: ='#1'; // что меняем

ReplaceWith: ='с '+datetostr (dtp1. Date) +' по '+datetostr (dtp2. Date); // на что меняем

WordDocument1. Range. Find. Execute (FindText,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,ReplaceWith,Replace,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

dm. temp. Active: =false;

dm. temp.commandText: ='Select nazv_rr,ocena_rc,cena_rc,data_rc from remr,rcen where (id_rr=id_rr_rc) and (data_rc BETWEEN #'+fmain. data (dtp1. Date) +'# and #'+fmain. data (dtp2. Date) +'#) ORDER BY data_rc';

dm. temp. Active: =true;

i: =2;

While (not dm. temp. Eof) do

begin

Table1. Rows. Add (EmptyParam);

Table1. Cell (i, 1). Range. Text: = dm. temp. Fields [0]. AsString;

Table1. Cell (i,

2). Range. Text: = dm. temp. Fields [1]. AsString;

Table1. Cell (i,

3). Range. Text: = dm. temp. Fields [2]. AsString;

Table1. Cell (i,

4). Range. Text: = dm. temp. Fields [3]. AsString;

inc (i); dm. temp. next;

end;

Replace: =true; // параметр, задающий режим замены

FindText: ='#2'; // что меняем

ReplaceWith: =floattostr (summa); // на что меняем

WordDocument1. Range. Find. Execute (FindText,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,ReplaceWith,Replace,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

Table1. Rows. Item (i). Delete;

WordApplication1. Visible: =true; // делаем приложение MS Word видимым

WordApplication1. Disconnect; // Разрываем связь с серверо

end

else if tm=2 then

begin

WordApplication1. Visible: =false;

WordApplication1. Connect; // Устанавливаем связь с сервером

// Открываем шаблон otchet. dot в Word

Template: =ExtractFilePath (Application. EXEName) +'\Dot\План. dot'; // путь к шаблону документа

WordApplication1. Documents. Add (Template,EmptyParam,EmptyParam,EmptyParam); // создаем документ на основе шаблона

WordDocument1. ConnectTo (WordApplication1. ActiveDocument); // Связываем компонент WordDocument1 c активным документом (т.е. с только что созданным документом)

// Заполняем таблицу списка объектов

Table1: =WordDocument1. Tables. Item (1); // связываем имя Table1 с первой таблицей документа

// WordDocument1. Tables - это массив таблиц документа (тип Tables), а WordDocument1. Tables. Item (i) - i-ая таблица

Replace: =true; // параметр, задающий режим замены

FindText: ='#1'; // что меняем

ReplaceWith: ='с '+datetostr (dtp1. Date) +' по '+datetostr (dtp2. Date); // на что меняем

WordDocument1. Range. Find. Execute (FindText,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,ReplaceWith,Replace,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

dm. temp. Active: =false;

dm. temp.commandText: ='Select adr_z,datapv_za from zil,zilci,zayavka where (id_z=id_z_zl) and (id_zl=id_zl_za) and (datav_za is Null) and (dataot_za is Null) and (datapv_za BETWEEN #'+fmain. data (dtp1. Date) +'# and #'+fmain. data (dtp2. Date) +'#) ';

dm. temp. Active: =true;

i: =2;

While (not dm. temp. Eof) do

begin

Table1. Rows. Add (EmptyParam);

Table1. Cell (i, 1). Range. Text: = dm. temp. Fields [0]. AsString;

Table1. Cell (i,

2). Range. Text: = dm. temp. Fields [1]. AsString;

inc (i); dm. temp. next;

end;

Replace: =true; // параметр, задающий режим замены

FindText: ='#2'; // что меняем

ReplaceWith: =floattostr (summa); // на что меняем

WordDocument1. Range. Find. Execute (FindText,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,ReplaceWith,Replace,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

Table1. Rows. Item (i). Delete;

WordApplication1. Visible: =true; // делаем приложение MS Word видимым

WordApplication1. Disconnect; // Разрываем связь с серверо

end;

end;

end.

rocedure TFmain. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

if application. MessageBox ('Вы хотите выйти из программы? ','Выход из программы',mb_yesno+mb_iconquestion) =idyes then

begin

application. Terminate;

end

else canclose: =false;

end;

procedure TFmain. N2Click (Sender: TObject);

begin

closequery;

end;

procedure TFmain. FormShow (Sender: TObject);

begin

if fileexists ('photo. jpg') then

begin

image1. Picture. LoadFromFile ('photo. jpg');

end;

end;

function TFmain. data (data: tdatetime): string;

var g,m,d: word;

begin

decodedate (data,g,m,d);

result: =''+currtostr (m) +'/'+currtostr (d) +'/'+currtostr (g) +'';

end;

function TFmain. Update (rs,tab: string): boolean;

begin

dm. temp. Active: =false;

dm. temp.commandText: ='Select log_'+rs+' from '+tab+' where (id_'+rs+'='+tmp+') ';

dm. temp. Active: =true;

if dm. temp. Fields [0]. AsBoolean=true then

begin

result: =false;

end

else

begin

dm.com.commandText: ='Update '+tab+' set log_'+rs+'=TRUE where id_'+rs+'='+tmp+'';

dm.com. Execute;

result: =true;

end;

end;

function TFmain. Delete (rs,tab,temp: string): boolean;

begin

dm. temp. Active: =false;

dm. temp.commandText: ='Select log_'+rs+' from '+tab+' where (id_'+rs+'='+tmp+') ';

dm. temp. Active: =true;

if dm. temp. Fields [0]. AsBoolean=true then

begin

result: =false;

end

else if application. MessageBox ('Вы хотите удалить запись? ','Удаление',mb_yesno+mb_iconquestion) =idyes then

begin

dm.com.commandText: ='Delete * from '+tab+' where (id_'+rs+'='+tmp+') ';

dm.com. Execute;

result: =true;

showmessage ('Удаление прошло успешно');

end;

end;

procedure TFmain. N4Click (Sender: TObject);

var inifile: tinifile;

dbp: string;

begin

IniFile: = TIniFile. Create (ExtractFilePath (Application. ExeName) +'options. ini'); // загрузка из фала настроек пути к базе

DBP: = IniFile. ReadString ('options', 'dbpath', '');

IniFile. Free;

// showmessage (dbp);

copyfile (pchar (DBP),pchar (ExtractFilePath (Application. ExeName) +'Архив\base_'+datetostr (date) +'_'+stringreplace (timetostr (time),': ','. ', [rfReplaceAll, rfIgnoreCase]) +'. mdb'),true);

if fileexists (ExtractFilePath (Application. ExeName) +'Архив\base_'+datetostr (date) +'_'+stringreplace (timetostr (time),': ','. ', [rfReplaceAll, rfIgnoreCase]) +'. mdb') =true then showmessage ('Резервная копия создана успешно')

else showmessage ('Ошибка при создании резервной копии');

end;

procedure TFmain. N3Click (Sender: TObject);

begin

fchpass. Caption: =n3. Caption;

fchpass. ShowModal;

end;

procedure TFmain. N6Click (Sender: TObject);

begin

fzil. Caption: =n6. Caption;

fzil. DBGrid1. PopupMenu: =fzil. PopupMenu1;

fzil. DBGrid1. DataSource: =dm. zs;

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;

fzil. ShowModal;

end;

procedure TFmain. N7Click (Sender: TObject);

begin

fzilci. Caption: =n7. Caption;

fzilci. DBGrid1. PopupMenu: =fzilci. PopupMenu1;

fzilci. DBGrid1. DataSource: =dm. zls;

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;

fzilci. ShowModal;

end;

procedure TFmain. N8Click (Sender: TObject);

begin

fremr. Caption: =n8. Caption;

fremr. DBGrid1. PopupMenu: =fremr. PopupMenu1;

fremr. DBGrid1. DataSource: =dm. rrs;

dm. rr. Active: =false;

dm. rr.commandText: ='Select id_rr,nazv_rr,st_rr,edi_rr from RemR';

dm. rr. Active: =true;

fremr. ShowModal;

end;

procedure TFmain. N10Click (Sender: TObject);

begin

fzayavka. Caption: =n10. Caption;

fzayavka. DBGrid1. PopupMenu: =fzayavka. PopupMenu1;

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;

fzayavka. ShowModal;

end;

procedure TFmain. N11Click (Sender: TObject);

begin

fVipZ. Caption: =n11. Caption;

fVipZ. DBGrid1. PopupMenu: =fVipZ. PopupMenu1;

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;

fVipZ. ShowModal;

end;

procedure TFmain. N12Click (Sender: TObject);

begin

fZotk. Caption: =n12. Caption;

fZotk. DBGrid1. PopupMenu: =fZotk. PopupMenu1;

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;

fZotk. ShowModal;

end;

procedure TFmain. N14Click (Sender: TObject);

begin

tm: =0;

fdati. Caption: =n14. Caption;

fdati. ShowModal;

end;

procedure TFmain. N15Click (Sender: TObject);

begin

tm: =1;

fdati. Caption: =n15. Caption;

fdati. ShowModal;

end;

procedure TFmain. N16Click (Sender: TObject);

begin

tm: =2;

fdati. Caption: =n16. Caption;

fdati. ShowModal;

end;

procedure TFmain. N17Click (Sender: TObject);

var

Template,NewTemplate,FindText, NewStr, Replace,ReplaceWith: OleVariant;

LinkToFile,SaveWithDocument,Range: OleVariant;

Table1: Table;

i: integer;

flag: boolean;

Reg: TRegistry;

summa: real;

begin

// Проверяем, инсталлирован ли Word

Reg: = TRegistry. Create;

Reg. RootKey: = HKEY_CLASSES_ROOT;

flag: =reg. KeyExists ('Word. Application');

reg. Free;

// flag: =true;

if flag=false then

begin

application. MessageBox ('Word не устанволен','Отчет',mb_ok+mb_iconstop);

exit;

end;

WordApplication1. Visible: =false;

WordApplication1. Connect; // Устанавливаем связь с сервером

// Открываем шаблон otchet. dot в Word

Template: =ExtractFilePath (Application. EXEName) +'\Dot\Отказ. dot'; // путь к шаблону документа

WordApplication1. Documents. Add (Template,EmptyParam,EmptyParam,EmptyParam); // создаем документ на основе шаблона

WordDocument1. ConnectTo (WordApplication1. ActiveDocument); // Связываем компонент WordDocument1 c активным документом (т.е. с только что созданным документом)

// Заполняем таблицу списка объектов

Table1: =WordDocument1. Tables. Item (1); // связываем имя Table1 с первой таблицей документа

// WordDocument1. Tables - это массив таблиц документа (тип Tables), а WordDocument1. Tables. Item (i) - i-ая таблица

dm. temp. Active: =false;

dm. temp.commandText: ='Select adr_z,prich_za FROM zil,zilci,zayavka WHERE (id_z=id_z_zl) and (id_zl=id_zl_za) and (dataot_za is not null) ';

dm. temp. Active: =true;

i: =2;

While (not dm. temp. Eof) do

begin

Table1. Rows. Add (EmptyParam);

Table1. Cell (i, 1). Range. Text: = dm. temp. Fields [0]. AsString;

Table1. Cell (i,

2). Range. Text: = dm. temp. Fields [1]. AsString;

inc (i); dm. temp. next;

end;

Table1. Rows. Item (i). Delete;

WordApplication1. Visible: =true; // делаем приложение MS Word видимым

WordApplication1. Disconnect; // Разрываем связь с серверо

end;

end.

procedure TFNaznR. BitBtn2Click (Sender: TObject);

begin

e1. Clear; e3. Clear; cb1. Clear;

if tm=1 then

begin

dm.com.commandText: ='Update naznr set log_nr=FALSE WHERE (id_nr='+tmp2+') ';

dm.com. Execute;

end;

if id_rr<>'' then

begin

dm.com.commandText: ='Update RemR Set log_rr=FALSE WHERE (id_rr='+id_rr+') ';

dm.com. Execute;

id_rr: ='';

end;

panel1. Visible: =false;

end;

procedure TFNaznR. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

if panel1. Visible=true then

begin

BitBtn2Click (Sender);

end;

end;

procedure TFNaznR. N1Click (Sender: TObject);

begin

panel1. Visible: =true;

tm: =0;

e1. Clear; e3. Clear; cb1. Clear;

dm. temp. Active: =false;

dm. temp.commandText: ='Select nazv_rr from RemR';

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 TFNaznR. N2Click (Sender: TObject);

begin

if dm. nr. Fields [0]. AsString='' then

begin

showmessage ('Запись для редактирования отсутствует');

exit;

end;

tmp2: =dm. nr. Fields [0]. AsString; tm: =1;

// ******************************

if fmain. Update ('nr','naznR') =false then

begin

showmessage ('Данная запись используется другим пользователем');

exit;

end;

// ******************************

cb1. Clear;

dm. temp. Active: =false;

dm. temp.commandText: ='Select nazv_rr from RemR';

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. nr. fieldbyname ('ob_nr'). AsString;

cb1. Text: =dm. nr. fieldbyname ('nazv_rr'). AsString;

// e2. Text: =dm. nr. fieldbyname ('st_nr'). AsString;

e3. text: =dm. nr. fieldbyname ('st_rr_nr'). AsString;

cb1Change (Sender);

panel1. Visible: =true;

end;

procedure TFNaznR. N4Click (Sender: TObject);

begin

if dm. nr. Fields [0]. AsString='' then

begin

showmessage ('Запись для редактирования отсутствует');

exit;

end;

tmp2: =dm. nr. Fields [0]. AsString; tm: =1;

if fmain. Delete ('nr','naznR',tmp) =false then

begin

showmessage ('Данная запись используется другим пользователем');

exit;

end

else dm. nr. Requery ();

end;

procedure TFNaznR. cb1Change (Sender: TObject);

begin

if id_rr<>'' then

begin

dm.com.commandText: ='Update RemR Set log_rr=FALSE WHERE (id_rr='+id_rr+') ';

dm.com. Execute;

id_rr: ='';

end;

dm. temp. Active: =false;

dm. temp.commandText: ='Select id_rr,st_rr from RemR WHERE (nazv_rr="'+cb1. Text+'") and (log_rr=false) ';

dm. temp. Active: =true;

if dm. temp. RecordCount=0 then

begin

showmessage ('Текущая запись занята');

cb1. Text: ='';

end

else

begin

id_rr: =dm. temp. fields [0]. asstring;

e3. Text: =dm. temp. fields [1]. asstring;

dm.com.commandText: ='Update RemR Set log_rr=TRUE WHERE (id_rr='+id_rr+') ';

dm.com. Execute;

end;

end;

procedure TFNaznR. BitBtn1Click (Sender: TObject);

var

summa: real;

begin

if (cb1. Text='') OR (e1. Text='') then showmessage ('Вы не заполнили одно или несколько полей')

else

begin

try

e1. Text: =floattostr (roundto (strtofloat (e1. Text),-2));

summa: =roundto (strtofloat (e1. Text) *strtofloat (e3. Text),-2);

except

showmessage ('Ошибка при вводе числовых значений');

end;

if tm=0 then

begin

dm. temp. Active: =false;

dm. temp.commandText: ='Select id_nr from naznR where (id_rr_nr='+id_rr+') and (id_za_nr='+tmp+') ';

dm. temp. Active: =true;

if dm. temp. RecordCount>0 then showmessage ('Подобная запись уже существует')

else

begin

dm.com.commandText: ='Insert into naznr (id_rr_nr,st_rr_nr,ob_nr,st_nr, id_za_nr) values ('+id_rr+',"'+e3. Text+'","'+e1. Text+'","'+floattostr (summa) +'",'+tmp+') ';

dm.com. Execute;

showmessage ('Запись успешно добавлена');

dm. nr. Requery ();

BitBtn2Click (Sender);

end;

end

else

begin

dm. temp. Active: =false;

dm. temp.commandText: ='Select id_nr from naznR where (id_rr_nr='+id_rr+') and (id_za_nr='+tmp+') ';

dm. temp. Active: =true;

// if (dm. temp. RecordCount>0) and (tmp<>dm. temp. Fields [0]. asstring) then showmessage ('Подобная запись уже существует')

// else

begin

dm.com.commandText: ='Update naznr SET id_rr_nr="'+id_rr+'",st_rr_nr="'+e3. Text+'",ob_nr="'+e1. Text+'",st_nr="'+floattostr (summa) +'", id_za_nr="'+tmp+'" WHERE (id_nr='+tmp2+') ';

dm.com. Execute;

showmessage ('Запись успешно изменена');

dm. nr. Requery ();

BitBtn2Click (Sender);

end;

end;

end;

end;

procedure TFNaznR. N7Click (Sender: TObject);

begin

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;

end;

procedure TFNaznR. N9Click (Sender: TObject);

begin

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+') ORDER BY st_nr';

dm. nr. Active: =true;

end;

procedure TFNaznR. N6Click (Sender: TObject);

begin

tmpc: ='';

while trim (tmpc) ='' do

begin

tmpc: =inputbox (n6. Caption,'Задайте фильтр','');

if trim (tmpc) ='' then showmessage ('Задайте фильтр')

else

begin

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+') and (nazv_rr like "%'+tmpc+'%") ';

dm. nr. Active: =true;

end;

end;

end;

end.

procedure TFremR. BitBtn2Click (Sender: TObject);

begin

e1. Clear; e2. Clear; e3. Clear;

if tm=1 then

begin

dm.com.commandText: ='Update remr set log_rr=FALSE WHERE (id_rr='+tmp+') ';

dm.com. Execute;

end;

panel1. Visible: =false;

end;

procedure TFremR. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

if panel1. Visible=true then

begin

BitBtn2Click (Sender);

end;

end;

procedure TFremR. BitBtn1Click (Sender: TObject);

begin