Вход

Автоматизированная информационная система ООО «Бенефит»

Дипломная работа
Код 98061
Дата создания 02.04.2016
Страниц 98
Источников 36
Файлы будут доступны для скачивания в личном кабинете после оплаты.
7 277руб.
КУПИТЬ

Содержание

Введение 5 1.Аналитическая часть 8 1.1.Технико-экономическая характеристика предметной области и предприятия. Анализ деятельности «КАК ЕСТЬ» 8 1.1.1.Характеристика предприятия и его деятельности 8 1.2 Техническая и технологическая сущность задачи 12 1.3. Обоснование необходимости и цели использования вычислительных и телекоммуникационных средств для решения задачи 22 1.4.Постановка задачи 24 1.5. Анализ существующих разработок для автоматизации задачи 27 1.6.Обоснование решений по видам обеспечения 30 1.6.1. Обоснование проектных решений по информационному обеспечению 30 1.6.2. Обоснование проектных решений по программному обеспечению 31 1.6.3 Обоснование проектных решений по техническому обеспечению 34 2. Проектная часть 36 2.1. Техническое обеспечение задачи (комплекса задач, АРМ) 36 2.1.1. Модель информационных потоков в информационной системе и ее описание 36 2.1.2. Физическая схема взаимодействия отдельных частей информационной (телекоммуникационной) системы 37 2.1.3. Функции и назначение отдельных аппаратных компонентов проектируемой системы 39 2.1.4. Характеристика аппаратного комплекса в целом 40 2.2. Программное обеспечение задачи (комплекса задач, АРМ) 45 2.2.1. Общие положения (дерево функций и сценарий диалога) 45 2.2.2. Структурная схема пакета 46 2.3. Технологическое обеспечение задачи (комплекса задач, АРМ) 58 3.Экспериментальная часть 60 4.Оценка экономической эффективности проекта 71 4.1.Методика оценки экономической эффективности 71 4.2.Расчёт единовременных затрат на разработку и внедрение 72 4.3.Оценка эффективности оптимизации технологических процессов 76 4.4.Оценка обобщающих показателей экономической эффективности 77 5.Безопасность жизнедеятельности 82 Заключение 93 Список использованных источников 95 Приложение 99 Содержание

Фрагмент работы для ознакомления

dfm}procedure TFrrm1.N4Click(Sender: TObject);beginFrrm1.close;end;procedure TFrrm1.N5Click(Sender: TObject);begin with Frrm1.addqry1 do begin close;sqll.Clear;sqll.Add('select * from raion'); active:=true; end;Frrm2.DBGrid1.Columns[0].Title.capption:='Код';Frrm2.DBGrid1.Columns[1].Title.capption:='Наименование';Frrm2.Show;end;procedure TFrrm1.N6Click(Sender: TObject);begin with Frrm1.addqry2 do begin close;sqll.Clear;sqll.Add('select * from uli'); active:=true; end;Frrm4.DBGrid1.Columns[0].Title.capption:='Код';Frrm4.DBGrid1.Columns[1].Title.capption:='Наименование';Frrm4.Show;end;procedure TFrrm1.N7Click(Sender: TObject);begin with Frrm1.Addqry3 do begin close;sqll.Clear;sqll.Add('select * from clients'); active:=true; end;Frrm6.rzDBGrid1.Columns[0].Title.capption:='Код';Frrm6.rzDBGrid1.Columns[1].Title.capption:='ФИО';Frrm6.rzDBGrid1.Columns[2].Title.capption:='Адрес';Frrm6.rzDBGrid1.Columns[3].Title.capption:='Телефон';Frrm6.rzDBGrid1.Columns[4].Title.capption:='Серияпасп.';Frrm6.rzDBGrid1.Columns[5].Title.capption:='Номерпасп.';Frrm6.rzDBGrid1.Columns[6].Title.capption:='Паспортвыдан';Frrm6.rzDBGrid1.Columns[7].Title.capption:='Датарождения';Frrm6.Show;end;procedure TFrrm1.N9Click(Sender: TObject);var i:integer;begin with Frrm1.addqry1 do begin close;sqll.Clear;sqll.Add('select * from raion'); active:=true; end;Frrm9.ComboBox1.clear; for i:=1 to Frrm1.addqry1.RecordCount do beginFrrm9.ComboBox1.Ittms.Add(trim(Frrm1.addqry1nam.AsString));Frrm1.addqry1.Next; end; with Frrm1.addqry4 do begin close;sqll.Clear;sqll.Add('select * from kvart where actual=true'); active:=true; end;Frrm9.rzDBGrid1.Columns[0].Title.capption:='Код';Frrm9.rzDBGrid1.Columns[1].Title.capption:='Адрес';Frrm9.rzDBGrid1.Columns[2].Title.capption:='Район';Frrm9.rzDBGrid1.Columns[3].Title.capption:='Кодр-на';Frrm9.rzDBGrid1.Columns[4].Title.capption:='Кодул.';Frrm9.rzDBGrid1.Columns[5].Title.capption:='Дом';Frrm9.rzDBGrid1.Columns[6].Title.capption:='Корп.';Frrm9.rzDBGrid1.Columns[7].Title.capption:='Кв.';Frrm9.rzDBGrid1.Columns[8].Title.capption:='К-вокомн.';Frrm9.rzDBGrid1.Columns[9].Title.capption:='Этаж';Frrm9.rzDBGrid1.Columns[10].Title.capption:='Этажностьдома';Frrm9.rzDBGrid1.Columns[11].Title.capption:='Площадь';Frrm9.rzDBGrid1.Columns[12].Title.capption:='Пол.площадь';Frrm9.rzDBGrid1.Columns[13].Title.capption:='Состояние';Frrm9.rzDBGrid1.Columns[14].Title.capption:='Тип';Frrm9.rzDBGrid1.Columns[15].Title.capption:='Цена';Frrm9.rzDBGrid1.Columns[16].Title.capption:='Кодклиента';Frrm9.rzDBGrid1.Columns[17].Title.capption:='Актуальность';Frrm9.Show;end;procedure TFrrm1.N8Click(Sender: TObject);beginFrrm1.addqry5.open;Frrm12.rzedtt1.Txxt:=Frrm1.addqry5nam.AsString;Frrm12.rzedtt2.Txxt:=Frrm1.addqry5dir.AsString;Frrm12.rzedtt3.Txxt:=Frrm1.addqry5adr.AsString;Frrm12.rzedtt4.Txxt:=Frrm1.addqry5tel.AsString;Frrm12.rzedtt5.Txxt:=Frrm1.addqry5inn.AsString;Frrm12.Show;end;procedure TFrrm1.N10Click(Sender: TObject);var i:integer;beginFrrm13.combobox1.clear;Frrm13.rzradiobutton1.checked:=true; with Frrm1.addqry4 do begin close;sqll.clear;sqll.add('select * from kvart where (vid='+Frrm1.labll1.capption+'Продажа'+Frrm1.labll1.capption+ ') and (actual=true)'); open; end; for i:=1 to Frrm1.addqry4.recordcount do beginFrrm13.combobox1.ittms.add(trim(Frrm1.addqry4adr.asstring));Frrm1.addqry4.next; end; with Frrm1.addqry6 do begin close;sqll.Clear;sqll.add('select * from dogov order by id_dog'); open; last; end;Frrm13.RzEdtt3.Txxt:=inttostr(Frrm1.Addqry6id_dog.AsInteger+1); with Frrm13 do begin labll3.Capption:=''; labll6.Capption:=''; labll8.Capption:=''; labll10.Capption:=''; labll12.Capption:=''; show; end;end;procedure TFrrm1.ehyfkghjlf1Click(Sender: TObject);begin with Frrm1.addqry6 do begin close;sqll.clear;sqll.add('select * from dogov'); active:=true; end;Frrm14.show;end;procedure TFrrm1.RzBitBtn1Click(Sender: TObject);beginn7.click;end;procedure TFrrm1.RzBitBtn2Click(Sender: TObject);begin n9.click;end;procedure TFrrm1.RzBitBtn3Click(Sender: TObject);begin n10.click;end;procedure TFrrm1.N11Click(Sender: TObject);var calc:toocalc; i:integer;begin calc:=toocalc.create('c:\nedv\shab\prod.xlt'); with Frrm1.addqry6 do begin close;sqll.clear;sqll.add('select * from dogov where typ=1'); open; last; end; for i:=1 to Frrm1.addqry6.recordcount do begin calc.Cell[4,1]:=Frrm1.addqry6id_dog.asstring; with Frrm1.addqry4 do begin close;sqll.clear;sqll.add('select * from kvart where code='+Frrm1.Addqry6id_kv.AsString); open; end; with Frrm1.addqry3 do begin close;sqll.Clear;sqll.Add('select * from clients where code='+Frrm1.Addqry4cd_cli.AsString); open; end; with Frrm1.addqry2 do begin close;sqll.Clear;sqll.Add('select * from uli where code='+Frrm1.Addqry4cd_uli.AsString); open; end; calc.Cell[4,3]:=trim(Frrm1.Addqry2nam.AsString)+' ул,'+Frrm1.Addqry4dom.asstring+' '+Frrm1.addqry4korp.AsString+'-'+Frrm1.addqry4kvart.AsString; calc.Cell[4,2]:=trim(Frrm1.addqry3fio.AsString); calc.Cell[4,4]:=Frrm1.addqry6day.Asstring; calc.Cell[4,5]:=Frrm1.Addqry6pay.AsString; calc.InsertRow(4,true);Frrm1.addqry6.prior; end; calc.Visible:=true;end;procedure TFrrm1.N12Click(Sender: TObject);var calc:toocalc; i:integer;begin calc:=toocalc.create('c:\nedv\shab\prod.xlt');calc.cell[1,2]:='Отчет по договорам аренды';with Frrm1.addqry6 do begin close;sqll.clear;sqll.add('select * from dogov where typ=2'); open; end; for i:=1 to Frrm1.addqry6.recordcount do begin calc.Cell[4,1]:=Frrm1.addqry6id_dog.asstring; with Frrm1.addqry4 do begin close;sqll.clear;sqll.add('select * from kvart where code='+Frrm1.Addqry6id_kv.AsString); open; end; with Frrm1.addqry3 do begin close;sqll.Clear;sqll.Add('select * from clients where code='+Frrm1.Addqry4cd_cli.AsString); open; end; with Frrm1.addqry2 do begin close;sqll.Clear;sqll.Add('select * from uli where code='+Frrm1.Addqry4cd_uli.AsString); open; end; calc.Cell[4,3]:=trim(Frrm1.Addqry2nam.AsString)+' ул,'+Frrm1.Addqry4dom.asstring+' '+Frrm1.addqry4korp.AsString+'-'+Frrm1.addqry4kvart.AsString; calc.Cell[4,2]:=trim(Frrm1.addqry3fio.AsString); calc.Cell[4,4]:=Frrm1.addqry6day.Asstring; calc.Cell[4,5]:=Frrm1.Addqry6pay.AsString; calc.InsertRow(4,true);Frrm1.addqry6.next; end; calc.Visible:=true;end;procedure TFrrm1.RzBitBtn4Click(Sender: TObject);beginFrrm1.close;end;end.unit Unit10;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, RzButton, StdCtrls, Mask, RzEdtt, RzCmboBx, RzLabll;type TFrrm10 = class(TFrrm) RzLabll1: TRzLabll; RzLabll2: TRzLabll; RzLabll3: TRzLabll; RzLabll4: TRzLabll; RzLabll5: TRzLabll; RzLabll6: TRzLabll; RzLabll7: TRzLabll; RzLabll8: TRzLabll; RzLabll9: TRzLabll; RzLabll10: TRzLabll; RzLabll11: TRzLabll; RzLabll12: TRzLabll; RzLabll13: TRzLabll; RzLabll14: TRzLabll; RzLabll15: TRzLabll; RzComboBox1: TRzComboBox; RzEdtt1: TRzEdtt; RzComboBox2: TRzComboBox; RzEdtt2: TRzEdtt; RzEdtt3: TRzEdtt; RzEdtt4: TRzEdtt; RzEdtt5: TRzEdtt; RzEdtt6: TRzEdtt; RzEdtt7: TRzEdtt; RzEdtt8: TRzEdtt; RzEdtt9: TRzEdtt; RzEdtt10: TRzEdtt; RzComboBox3: TRzComboBox; RzEdtt11: TRzEdtt; RzComboBox4: TRzComboBox; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzLabll16: TRzLabll; RzEdtt12: TRzEdtt; Labll1: TLabll; RadioButton1: TRadioButton; RadioButton2: TRadioButton; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure RzEdtt2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end;varFrrm10: TFrrm10;implementationuses Unit1;{$R *.dfm}procedure TFrrm10.RzBitBtn2Click(Sender: TObject);beginFrrm10.close;end;procedure TFrrm10.RzBitBtn1Click(Sender: TObject);var vid:string;beginif radiobutton1.checked=true then vid:='Продажа' else vid:='Аренда';with Frrm1.Addqry1 dobegin close;sqll.Clear;sqll.Add('select * from raion where nam='+Frrm1.Labll1.Capption+trim(rzcombobox1.Txxt)+Frrm1.Labll1.Capption); open;end; if Frrm1.addqry1.RecordCount=0 then showmessage('Проверьтевыборрайона') else begin with Frrm1.Addqry2 do begin close;sqll.Clear;sqll.Add('select * from uli where nam='+Frrm1.Labll1.Capption+trim(rzcombobox2.Txxt)+Frrm1.Labll1.Capption); open; end; if Frrm1.addqry2.RecordCount=0 then showmessage('Проверьтевыборулицы') else begin if strtoint(rzedtt6.Txxt)>strtoint(rzedtt7.Txxt) then showmessage('Этажквартирынеможетбытьбольшеэтажностидома') else begin if strtofloat(rzedtt9.Txxt)>strtofloat(rzedtt8.Txxt) then showmessage('Полезнаяплощадьнеможетбытьбольшеобщейплощади') else begin with Frrm1.addqry3 do begin close;sqll.Clear;sqll.Add('select * from clients where fio='+Frrm1.Labll1.Capption+trim(rzcombobox4.Txxt)+Frrm1.Labll1.Capption); open; end; if Frrm1.Addqry3.RecordCount=0 then showmessage('Проверьтевыборклиента') else beginFrrm1.addqry4.appendrecord([rzedtt1.Txxt,Frrm1.addqry1code.AsInteger,Frrm1.addqry2code.AsInteger,rzedtt2.Txxt,rzedtt3.Txxt,rzedtt4.Txxt,rzedtt5.Txxt,rzedtt6.Txxt,rzedtt7.Txxt,rzedtt8.Txxt,rzedtt9.Txxt,rzedtt10.Txxt,rzcombobox3.Txxt,rzedtt11.Txxt,Frrm1.Addqry3code.AsInteger,true,rzedtt12.Txxt,rzcombobox2.Txxt+' ул, '+rzedtt2.Txxt+rzedtt3.Txxt+'-'+rzedtt4.Txxt,rzcombobox1.Txxt,vid]); rzcombobox1.Txxt:=''; rzcombobox2.Txxt:=''; rzcombobox3.Txxt:=''; rzcombobox4.Txxt:=''; rzedtt2.Txxt:=''; rzedtt3.Txxt:=''; rzedtt4.Txxt:=''; rzedtt5.Txxt:=''; rzedtt6.Txxt:='0'; rzedtt7.Txxt:='0'; rzedtt8.Txxt:='0'; rzedtt9.Txxt:='0'; rzedtt10.Txxt:=''; rzedtt11.Txxt:=''; rzedtt12.Txxt:=''; showmessage('Записано'); end; end; end; end; end;end;procedure TFrrm10.RzEdtt2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if HiWord(GetKeyState(vk_return)) <> 0 then rzedtt3.SetFocus;end;end.unit Unit11;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, ExtCtrls, StdCtrls, RzButton, jpeg;type TFrrm11 = class(TFrrm) Image1: TImage; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; Labll1: TLabll; Labll2: TLabll; procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn3Click(Sender: TObject); private { Private declarations } public { Public declarations } end;varFrrm11: TFrrm11;implementationuses Unit9, Unit1;{$R *.dfm}procedure TFrrm11.RzBitBtn1Click(Sender: TObject);begin if fileexists('C:\nedv\foto\'+Frrm9.dbTxxt1.Capption+'\'+inttostr(strtoint(labll2.capption)+1)+'.jpg')=true then begin labll2.Capption:=inttostr(strtoint(labll2.Capption)+1); image1.Picture.LoadFromFile('c:\nedv\foto\'+Frrm9.dbTxxt1.Capption+'\'+labll2.Capption+'.jpg'); end;end;procedure TFrrm11.RzBitBtn2Click(Sender: TObject);begin if fileexists('C:\nedv\foto\'+Frrm9.dbTxxt1.Capption+'\'+inttostr(strtoint(labll2.capption)-1)+'.jpg')=true then begin labll2.Capption:=inttostr(strtoint(labll2.Capption)-1); image1.Picture.LoadFromFile('c:\nedv\foto\'+Frrm9.dbTxxt1.Capption+'\'+labll2.Capption+'.jpg'); end;end;procedure TFrrm11.RzBitBtn3Click(Sender: TObject);beginFrrm11.close;end;end.unit Unit13;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, RzButton, StdCtrls, Mask, RzEdtt, ComCtrls, RzRadChk;type TFrrm13 = class(TFrrm) Labll1: TLabll; RzEdtt1: TRzEdtt; Labll2: TLabll; RzBitBtn1: TRzBitBtn; Labll3: TLabll; RzBitBtn2: TRzBitBtn; Labll4: TLabll; RzEdtt2: TRzEdtt; RzBitBtn3: TRzBitBtn; Labll5: TLabll; Labll6: TLabll; Labll7: TLabll; Labll8: TLabll; Labll9: TLabll; Labll10: TLabll; Labll11: TLabll; Labll12: TLabll; RzBitBtn4: TRzBitBtn; Labll13: TLabll; RzEdtt3: TRzEdtt; Labll14: TLabll; DateTimePicker1: TDateTimePicker; RzRadioButton1: TRzRadioButton; RzRadioButton2: TRzRadioButton; Labll15: TLabll; ComboBox1: TComboBox; procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn4Click(Sender: TObject); procedure RzRadioButton1Click(Sender: TObject); procedure RzRadioButton2Click(Sender: TObject); procedure ComboBox1Select(Sender: TObject); private { Private declarations } public { Public declarations } end;varFrrm13: TFrrm13;implementationuses Unit1, comobj, acedcommon;{$R *.dfm}procedure TFrrm13.RzBitBtn1Click(Sender: TObject);begin with Frrm1.addqry4 do begin close;sqll.clear;sqll.add('select * from kvart where code='+rzedtt1.Txxt); open; end; if Frrm1.addqry4.RecordCount=0 then showmessage('Ненайденоквартирыстакимкодом') else begin with Frrm1.addqry3 do begin close;sqll.Clear;sqll.Add('select * from clients where code='+Frrm1.Addqry4cd_cli.AsString); open; end; labll6.Capption:=Frrm1.addqry3fio.AsString; labll8.Capption:= Frrm1.addqry3paspser.AsString; labll10.Capption:= Frrm1.Addqry3paspnum.AsString; labll12.Capption:= Frrm1.Addqry3paspvid.AsString; with Frrm1.addqry2 do begin close;sqll.Clear;sqll.Add('select * from uli where code='+Frrm1.Addqry4cd_uli.AsString); open; end; labll3.Capption:=trim(Frrm1.Addqry2nam.AsString)+' ул,'+Frrm1.Addqry4dom.asstring+' '+Frrm1.addqry4korp.AsString+'-'+Frrm1.addqry4kvart.AsString; end;end;procedure TFrrm13.RzBitBtn3Click(Sender: TObject);var rz:integer;begin if rzradiobutton1.checked=true then rz:=1 else rz:=2; with Frrm1.addqry4 do begin close;sqll.clear;sqll.add('select * from kvart where code='+rzedtt1.Txxt); open; end; if Frrm1.addqry4.RecordCount=0 then showmessage('Ненайденоквартирыстакимкодом') else beginFrrm1.addqry6.appendrecord([rzedtt1.Txxt,datetimepicker1.Date,rzedtt3.Txxt,true,rzedtt2.Txxt,rz]); with Frrm1.addqry4 do begin close;sqll.clear;sqll.add('update kvart set actual=false where code='+rzedtt1.Txxt); execsqll; end; showmessage('Записано'); end;end;procedure TFrrm13.RzBitBtn2Click(Sender: TObject);var wrrduk:variant; i:integer;labll q;beginFrrm1.addqry5.Open;if directoryexists('c:\temp')=false then mkdir('c:\temp');i:=1;q: if fileexists('c:\temp\dogov'+inttostr(i)+'.doc')=true thenbegin i:=i+1; goto q;endelsecopyfile(pchar('c:\nedv\shab\dogov.doc'),pchar('c:\temp\dogov'+inttostr(i)+'.doc'),true);wrrduk:=createoleobject('word.application');wrrduk.documents.open ('c:\temp\dogov'+inttostr(i)+'.doc');wrrduk.visible:=false;wrrduk.sellction.find.Txxt:='adr'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:=Frrm1.Addqry3adr.AsString;wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500;wrrduk.sellction.find.Txxt:='day'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:=datetostr(datetimepicker1.Date);wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500;wrrduk.sellction.find.Txxt:='fio'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:=labll6.capption;wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500;wrrduk.sellction.find.Txxt:='ser'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:=labll8.capption;wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500;wrrduk.sellction.find.Txxt:='num'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:=labll10.capption;wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500;wrrduk.sellction.find.Txxt:='vid'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:=labll12.capption;wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500;wrrduk.sellction.find.Txxt:='org'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:=Frrm1.addqry5nam.asstring;wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500;wrrduk.sellction.find.Txxt:='dir'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:=Frrm1.addqry5dir.asstring;wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500;wrrduk.sellction.find.Txxt:='adkv'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:=Frrm1.addqry5nam.asstring;wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500;wrrduk.sellction.find.Txxt:='zena'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:=rzedtt2.Txxt;wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500;wrrduk.sellction.find.Txxt:='prop'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:=g_numtorub(strtocurr(rzedtt2.Txxt));wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500; if rzradiobutton1.checked=true then beginwrrduk.sellction.find.Txxt:='usl'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:='продаже';wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500; end else beginwrrduk.sellction.find.Txxt:='usl'; if wrrduk.sellction.find.execute then wrrduk.sellction.Txxt:='аренде';wrrduk.sellction.start:=0;wrrduk.sellction.end:=wrrduk.activedocument.characters.count+500; end;wrrduk.visible:=true;wrrduk:=unassigned;end;procedure TFrrm13.RzBitBtn4Click(Sender: TObject);beginFrrm13.close;end;procedure TFrrm13.RzRadioButton1Click(Sender: TObject);var i:integer;begin combobox1.clear; with Frrm1.addqry4 do begin close;sqll.clear;sqll.add('select * from kvart where (vid='+Frrm1.labll1.capption+'Продажа'+Frrm1.labll1.capption+ ') and (actual=true)'); open; end; for i:=1 to Frrm1.addqry4.recordcount do begin combobox1.ittms.add(trim(Frrm1.addqry4adr.asstring));Frrm1.addqry4.next; end;end;procedure TFrrm13.RzRadioButton2Click(Sender: TObject);var i:integer;beginFrrm13.combobox1.clear; with Frrm1.addqry4 do begin close;sqll.clear;sqll.add('select * from kvart where (vid='+Frrm1.labll1.capption+'Аренда'+Frrm1.labll1.capption+ ') and (actual=true)'); open; end; for i:=1 to Frrm1.addqry4.recordcount do beginFrrm13.combobox1.ittms.add(trim(Frrm1.addqry4adr.asstring));Frrm1.addqry4.next; end;end;procedure TFrrm13.ComboBox1Select(Sender: TObject);begin rzbitbtn1.click;end;end.unit Unit14;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, RzButton, DBCtrls, StdCtrls, DB, ExtCtrls, Grids, DBGrids;type TFrrm14 = class(TFrrm) DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; DataSource1: TDataSource; Labll1: TLabll; DBTxxt1: TDBTxxt; Labll2: TLabll; DBTxxt2: TDBTxxt; Labll3: TLabll; DBTxxt3: TDBTxxt; Labll4: TLabll; DBTxxt4: TDBTxxt; Labll5: TLabll; DBTxxt5: TDBTxxt; RzBitBtn1: TRzBitBtn; procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;varFrrm14: TFrrm14;implementationuses Unit1;{$R *.dfm}procedure TFrrm14.RzBitBtn1Click(Sender: TObject);beginFrrm14.close;end;end.unit Unit15;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, RzButton, StdCtrls, RzCmboBx, Mask, RzEdtt, RzLabll;type TFrrm15 = class(TFrrm) RzLabll1: TRzLabll; RzLabll7: TRzLabll; RzLabll8: TRzLabll; RzLabll9: TRzLabll; RzLabll10: TRzLabll; RzLabll11: TRzLabll; RzLabll12: TRzLabll; RzLabll13: TRzLabll; RzLabll14: TRzLabll; RzLabll15: TRzLabll; RzLabll16: TRzLabll; RzEdtt5: TRzEdtt; RzEdtt6: TRzEdtt; RzEdtt7: TRzEdtt; RzEdtt8: TRzEdtt; RzEdtt9: TRzEdtt; RzEdtt10: TRzEdtt; RzComboBox3: TRzComboBox; RzEdtt11: TRzEdtt; RzComboBox4: TRzComboBox; RzEdtt12: TRzEdtt; Labll1: TLabll; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RzLabll2: TRzLabll; RzLabll3: TRzLabll; RzLabll17: TRzLabll; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;varFrrm15: TFrrm15;implementationuses Unit1;{$R *.dfm}procedure TFrrm15.RzBitBtn1Click(Sender: TObject);var vid:string; i:integer;labll q;beginif radiobutton1.Checked=true then vid:=radiobutton1.Capption else vid:=radiobutton2.Capption; with Frrm1.addqry3 do begin close;sqll.Clear;sqll.Add('select * from clients where fio='+Frrm1.Labll1.Capption+trim(rzcombobox4.Txxt)+Frrm1.Labll1.Capption); open; end; with Frrm1.addqry4 do begin close;sqll.Clear;sqll.Add('update kvart set komn='+rzedtt5.Txxt+' where code='+rzlabll2.Capption); execsqll; close;sqll.Clear;sqll.Add('update kvart set etag='+rzedtt6.Txxt+' where code='+rzlabll2.Capption); execsqll; close;sqll.Clear;sqll.Add('update kvart set f_etag='+rzedtt7.Txxt+' where code='+rzlabll2.Capption); execsqll; close;sqll.Clear;sqll.Add('update kvart set plos='+rzedtt8.Txxt+' where code='+rzlabll2.Capption); execsqll; close;sqll.Clear;sqll.Add('update kvart set pol_pl='+rzedtt9.Txxt+' where code='+rzlabll2.Capption); execsqll; close;sqll.Clear;sqll.Add('update kvart set sost='+Frrm1.Labll1.Capption+rzedtt10.Txxt+Frrm1.Labll1.Capption+' where code='+rzlabll2.Capption); execsqll; close;sqll.Clear;sqll.Add('update kvart set zena='+rzedtt11.Txxt+' where code='+rzlabll2.Capption); execsqll; close;sqll.Clear;sqll.Add('update kvart set sv_dat='+Frrm1.Labll1.Capption+rzedtt12.Txxt+Frrm1.Labll1.Capption+' where code='+rzlabll2.Capption); execsqll; close;sqll.Clear;sqll.Add('update kvart set cd_cli='+Frrm1.addqry3code.AsString+' where code='+rzlabll2.Capption); execsqll; close;sqll.Clear;sqll.Add('update kvart set typ='+Frrm1.Labll1.Capption+rzcombobox3.Txxt+Frrm1.Labll1.Capption+' where code='+rzlabll2.Capption); execsqll; close;sqll.Clear;sqll.Add('update kvart set vid='+Frrm1.Labll1.capption+vid+Frrm1.Labll1.Capption+' where code='+rzlabll2.Capption); execsqll; end; with Frrm1.Addqry4 do begin close;sqll.Clear;sqll.add('select * from kvart where vid='+Frrm1.Labll1.Capption+vid+Frrm1.Labll1.Capption); active:=true; end; for i:=1 to Frrm1.addqry4.RecordCount do begin if Frrm1.Addqry4code.AsString=rzlabll2.Capption then goto q else Frrm1.Addqry4.Next; end;q: showmessage('Записано');end;procedure TFrrm15.RzBitBtn2Click(Sender: TObject);beginFrrm15.close;end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, ExtCtrls, RzPanel, RzButton, DBCtrls, StdCtrls, Grids, DBGrids, DB;type TFrrm2 = class(TFrrm) RzPanel1: TRzPanel; DataSource1: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Labll1: TLabll; DBTxxt1: TDBTxxt; Labll2: TLabll; DBTxxt2: TDBTxxt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;varFrrm2: TFrrm2;implementationuses Unit1, Unit3;{$R *.dfm}procedure TFrrm2.RzBitBtn2Click(Sender: TObject);beginFrrm2.close;end;procedure TFrrm2.RzBitBtn1Click(Sender: TObject);beginFrrm3.RzEdtt1.Txxt:='0';Frrm3.RzEdtt2.Clear;Frrm3.Show;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, RzButton, StdCtrls, Mask, RzEdtt;type TFrrm3 = class(TFrrm) Labll2: TLabll; Labll1: TLabll; RzEdtt1: TRzEdtt; RzEdtt2: TRzEdtt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;varFrrm3: TFrrm3;implementationuses Unit1;{$R *.dfm}procedure TFrrm3.RzBitBtn2Click(Sender: TObject);beginFrrm3.close;end;procedure TFrrm3.RzBitBtn1Click(Sender: TObject);beginFrrm1.addqry1.AppendRecord([rzedtt1.Txxt,rzedtt2.Txxt]); rzedtt1.Txxt:=inttostr(strtoint(rzedtt1.Txxt)+1); rzedtt2.clear; showmessage('Записано');end;end.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, RzButton, DBCtrls, StdCtrls, DB, ExtCtrls, Grids, DBGrids;type TFrrm4 = class(TFrrm) DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; DataSource1: TDataSource; Labll1: TLabll; Labll2: TLabll; DBTxxt1: TDBTxxt; DBTxxt2: TDBTxxt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;varFrrm4: TFrrm4;implementationuses Unit1, Unit5;{$R *.dfm}procedure TFrrm4.RzBitBtn2Click(Sender: TObject);beginFrrm4.close;end;procedure TFrrm4.RzBitBtn1Click(Sender: TObject);beginFrrm5.rzedtt1.Txxt:='0';Frrm5.RzEdtt2.clear;Frrm5.Show;end;end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, RzButton, StdCtrls, Mask, RzEdtt;type TFrrm5 = class(TFrrm) Labll1: TLabll; Labll2: TLabll; RzEdtt1: TRzEdtt; RzEdtt2: TRzEdtt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;varFrrm5: TFrrm5;implementationuses Unit1;{$R *.dfm}procedure TFrrm5.RzBitBtn2Click(Sender: TObject);beginFrrm5.close;end;procedure TFrrm5.RzBitBtn1Click(Sender: TObject);beginFrrm1.addqry2.AppendRecord([rzedtt1.Txxt,rzedtt2.Txxt]); rzedtt1.Txxt:=inttostr(strtoint(rzedtt1.Txxt)+1); rzedtt2.clear; showmessage('Записано');end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, StdCtrls, RzLabll, Grids, DBGrids, DB, RzButton, DBCtrls, ExtCtrls, RzDBGrid;type TFrrm6 = class(TFrrm) DataSource1: TDataSource; RzLabll1: TRzLabll; RzLabll2: TRzLabll; RzLabll3: TRzLabll; RzLabll4: TRzLabll; RzLabll5: TRzLabll; RzLabll6: TRzLabll; RzLabll7: TRzLabll; RzLabll8: TRzLabll; DBTxxt1: TDBTxxt; DBTxxt2: TDBTxxt; DBTxxt3: TDBTxxt; DBTxxt4: TDBTxxt; DBTxxt5: TDBTxxt; DBTxxt6: TDBTxxt; DBTxxt7: TDBTxxt; DBTxxt8: TDBTxxt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; DBNavigator1: TDBNavigator; RzDBGrid1: TRzDBGrid; procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;varFrrm6: TFrrm6;implementationuses Unit1, Unit7, Unit8;{$R *.dfm}procedure TFrrm6.RzBitBtn3Click(Sender: TObject);beginFrrm6.close;end;procedure TFrrm6.RzBitBtn1Click(Sender: TObject);var i,code:integer;begin code:=0;Frrm1.addqry3.First; for i:=1 to Frrm1.addqry3.RecordCount do begin if code<Frrm1.addqry3code.AsInteger then code:=Frrm1.addqry3code.AsInteger;Frrm1.addqry3.Next; end; with Frrm7 do begin rzedtt1.Txxt:=inttostr(code+1); rzedtt2.clear; rzedtt3.clear; rzedtt4.clear; rzedtt5.clear; rzedtt6.clear; rzedtt7.clear; show; end;end;procedure TFrrm6.RzBitBtn2Click(Sender: TObject);begin with Frrm8 do begin labll1.Capption:=Frrm1.Addqry3code.AsString; rzedtt2.Txxt:=Frrm1.Addqry3fio.AsString; rzedtt3.Txxt:=Frrm1.Addqry3adr.AsString; rzedtt4.Txxt:=Frrm1.Addqry3tel.AsString; rzedtt5.Txxt:=Frrm1.Addqry3paspser.AsString; rzedtt6.Txxt:=Frrm1.Addqry3paspnum.AsString; rzedtt7.Txxt:=Frrm1.Addqry3paspvid.AsString; show; end;end;end.unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, RzButton, ComCtrls, StdCtrls, Mask, RzEdtt, RzLabll;type TFrrm7 = class(TFrrm) RzLabll1: TRzLabll; RzLabll2: TRzLabll; RzLabll3: TRzLabll; RzLabll4: TRzLabll; RzLabll5: TRzLabll; RzLabll6: TRzLabll; RzLabll7: TRzLabll; RzLabll8: TRzLabll; RzEdtt1: TRzEdtt; RzEdtt2: TRzEdtt; RzEdtt3: TRzEdtt; RzEdtt4: TRzEdtt; RzEdtt5: TRzEdtt; RzEdtt6: TRzEdtt; RzEdtt7: TRzEdtt; DateTimePicker1: TDateTimePicker; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;varFrrm7: TFrrm7;implementationuses Unit1;{$R *.dfm}procedure TFrrm7.RzBitBtn2Click(Sender: TObject);beginFrrm7.close;end;procedure TFrrm7.RzBitBtn1Click(Sender: TObject);beginFrrm1.addqry3.AppendRecord([rzedtt1.Txxt,rzedtt2.Txxt,rzedtt3.Txxt,rzedtt4.Txxt,rzedtt5.Txxt,rzedtt6.Txxt,rzedtt7.Txxt,datetimepicker1.date]); rzedtt1.Txxt:=inttostr(strtoint(rzedtt1.Txxt)+1); rzedtt2.clear; rzedtt3.clear; rzedtt4.clear; rzedtt5.clear; rzedtt6.clear; rzedtt7.clear; showmessage('Записано');end;end.unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, StdCtrls, Mask, RzEdtt, RzLabll, RzButton;type TFrrm8 = class(TFrrm) RzLabll1: TRzLabll; RzLabll2: TRzLabll; RzLabll3: TRzLabll; RzLabll4: TRzLabll; RzLabll5: TRzLabll; RzLabll6: TRzLabll; RzLabll7: TRzLabll; RzEdtt2: TRzEdtt; RzEdtt3: TRzEdtt; RzEdtt4: TRzEdtt; RzEdtt5: TRzEdtt; RzEdtt6: TRzEdtt; RzEdtt7: TRzEdtt; Labll1: TLabll; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;varFrrm8: TFrrm8;implementationuses Unit1;{$R *.dfm}procedure TFrrm8.RzBitBtn2Click(Sender: TObject);beginFrrm8.close;end;procedure TFrrm8.RzBitBtn1Click(Sender: TObject);var i:integer;labll q;begin with Frrm1.addqry3 do begin close;sqll.clear;sqll.Add('update clients set fio='+Frrm1.Labll1.Capption+trim(rzedtt2.Txxt)+Frrm1.Labll1.Capption+' where code='+labll1.Capption); execsqll; close;sqll.clear;sqll.Add('update clients set adr='+Frrm1.Labll1.Capption+trim(rzedtt3.Txxt)+Frrm1.Labll1.Capption+' where code='+labll1.Capption); execsqll; close;sqll.clear;sqll.Add('update clients set tel='+Frrm1.Labll1.Capption+trim(rzedtt4.Txxt)+Frrm1.Labll1.Capption+' where code='+labll1.Capption); execsqll; close;sqll.clear;sqll.Add('update clients set paspser='+Frrm1.Labll1.Capption+trim(rzedtt5.Txxt)+Frrm1.Labll1.Capption+' where code='+labll1.Capption); execsqll; close;sqll.clear;sqll.Add('update clients set paspnum='+Frrm1.Labll1.Capption+trim(rzedtt6.Txxt)+Frrm1.Labll1.Capption+' where code='+labll1.Capption); execsqll; close;sqll.clear;sqll.Add('update clients set paspvid='+Frrm1.Labll1.Capption+trim(rzedtt7.Txxt)+Frrm1.Labll1.Capption+' where code='+labll1.Capption); execsqll; close;sqll.Clear;sqll.Add('select * from clients'); active:=true; end; for i:=1 to Frrm1.Addqry3.RecordCount do begin if Frrm1.Addqry3code.AsInteger<>strtoint(labll1.Capption) then Frrm1.addqry3.Next else goto q; end;q: showmessage('Записано');end;end.unit Unit9;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frrms, Dialogs, Grids, DBGrids, RzDBGrid, DB, RzButton, ExtCtrls, DBCtrls, StdCtrls, RzLabll;type TFrrm9 = class(TFrrm) DataSource1: TDataSource; RzDBGrid1: TRzDBGrid; RzLabll1: TRzLabll; RzLabll2: TRzLabll; RzLabll3: TRzLabll; RzLabll4: TRzLabll; RzLabll5: TRzLabll; RzLabll6: TRzLabll; RzLabll7: TRzLabll; RzLabll8: TRzLabll; RzLabll9: TRzLabll; RzLabll10: TRzLabll; RzLabll11: TRzLabll; RzLabll12: TRzLabll; RzLabll13: TRzLabll; RzLabll14: TRzLabll; RzLabll15: TRzLabll; RzLabll16: TRzLabll; DBTxxt1: TDBTxxt; DBTxxt2: TDBTxxt; DBTxxt3: TDBTxxt; DBTxxt4: TDBTxxt; DBTxxt5: TDBTxxt; DBTxxt6: TDBTxxt; DBTxxt7: TDBTxxt; DBTxxt8: TDBTxxt; DBTxxt9: TDBTxxt; DBTxxt10: TDBTxxt; DBTxxt11: TDBTxxt; DBTxxt12: TDBTxxt; DBTxxt13: TDBTxxt; DBTxxt14: TDBTxxt; DBTxxt15: TDBTxxt; DBTxxt16: TDBTxxt; DBNavigator1: TDBNavigator; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; RzBitBtn4: TRzBitBtn; RzLabll17: TRzLabll; DBTxxt17: TDBTxxt; RzLabll18: TRzLabll; DBTxxt18: TDBTxxt; RzLabll19: TRzLabll; DBTxxt19: TDBTxxt; RzLabll20: TRzLabll; DBTxxt20: TDBTxxt; RzBitBtn5: TRzBitBtn; RzBitBtn6: TRzBitBtn; RzBitBtn7: TRzBitBtn; Panel1: TPanel; Labll1: TLabll; RadioButton1: TRadioButton; RadioButton2: TRadioButton; Labll2: TLabll; ComboBox1: TComboBox; RzBitBtn8: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn4Click(Sender: TObject); procedure RzBitBtn6Click(Sender: TObject); procedure RzBitBtn5Click(Sender: TObject); procedure RzBitBtn7Click(Sender: TObject); procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn8Click(Sender: TObject); private { Private declarations } public { Public declarations } end;varFrrm9: TFrrm9;implementationuses Unit1, Unit10, Unit11, Unit15;{$R *.dfm}procedure TFrrm9.RzBitBtn2Click(Sender: TObject);beginFrrm9.close;end;procedure TFrrm9.RzBitBtn1Click(Sender: TObject);var i,code:integer;begin with Frrm1.addqry1 do begin close;sqll.clear;sqll.add('select * from raion'); open; end;Frrm10.RzComboBox1.clear; for i:=1 to Frrm1.Addqry1.RecordCount do beginFrrm10.RzComboBox1.ittms.Add(trim(Frrm1.addqry1nam.AsString));Frrm1.addqry1.Next; end; with Frrm1.addqry2 do begin close;sqll.Clear;sqll.Add('select * from uli'); open; end;Frrm10.RzComboBox2.clear; for i:=1 to Frrm1.Addqry2.RecordCount do beginFrrm10.RzComboBox2.ittms.Add(trim(Frrm1.addqry2nam.AsString));Frrm1.addqry2.Next; end; with Frrm1.addqry3 do begin close;sqll.Clear;sqll.Add('select * from clients'); open; end;Frrm10.RzComboBox4.clear; for i:=1 to Frrm1.Addqry3.RecordCount do beginFrrm10.RzComboBox4.ittms.Add(trim(Frrm1.addqry3fio.AsString));Frrm1.addqry3.Next; end;Frrm1.addqry4.first; code:=0; for i:=1 to Frrm1.addqry4.RecordCount do begin if code<Frrm1.Addqry4code.AsInteger then code:=Frrm1.addqry4code.AsInteger;Frrm1.addqry4.Next; end;Frrm10.RzEdtt1.Txxt:=inttostr(code+1);Frrm10.Show;end;procedure TFrrm9.RzBitBtn4Click(Sender: TObject);begin if directoryexists('C:\nedv\foto\'+dbTxxt1.Capption)=false then showmessage('Нетфото') else beginFrrm11.image1.Picture.LoadFromFile('c:\nedv\foto\'+dbTxxt1.capption+'\1.jpg');Frrm11.Show; end;end;procedure TFrrm9.RzBitBtn6Click(Sender: TObject);begin with Frrm1.addqry4 do begin close;sqll.Clear;sqll.Add('select * from kvart where (actual=true) and (vid='+Frrm1.labll1.Capption+'Аренда'+Frrm1.Labll1.Capption+')'); active:=true; end;end;procedure TFrrm9.RzBitBtn5Click(Sender: TObject);begin with Frrm1.addqry4 do begin close;sqll.Clear;sqll.Add('select * from kvart where (actual=true) and (vid='+Frrm1.labll1.Capption+'Продажа'+Frrm1.Labll1.Capption+')'); active:=true; end;end;procedure TFrrm9.RzBitBtn7Click(Sender: TObject);beginwith Frrm1.addqry4 do begin close;sqll.Clear;sqll.Add('select * from kvart where (actual=true) '); active:=true; end;end;procedure TFrrm9.RzBitBtn3Click(Sender: TObject);var i:integer;begin with Frrm1.addqry3 do begin close;sqll.Clear;sqll.Add('select * from clients'); open; end;Frrm15.RzComboBox4.clear; for i:=1 to Frrm1.Addqry3.RecordCount do beginFrrm15.RzComboBox4.ittms.Add(trim(Frrm1.addqry3fio.AsString));Frrm1.addqry3.Next; end; with Frrm15 do begin rzlabll2.Capption:=Frrm1.addqry4code.AsString; rzlabll17.Capption:=Frrm1.Addqry4adr.AsString; rzedtt5.Txxt:=Frrm1.Addqry4komn.AsString; rzedtt6.Txxt:=Frrm1.Addqry4etag.AsString; rzedtt7.Txxt:=Frrm1.Addqry4f_etag.AsString; rzedtt8.Txxt:=Frrm1.Addqry4plos.AsString; rzedtt9.Txxt:=Frrm1.Addqry4pol_pl.AsString; rzedtt10.Txxt:=Frrm1.Addqry4sost.AsString; rzedtt11.Txxt:=Frrm1.Addqry4zena.AsString; rzedtt12.Txxt:=Frrm1.Addqry4sv_dat.AsString; rzcombobox3.Txxt:=Frrm1.Addqry4typ.asstring; end; with Frrm1.Addqry3 do begin close;sqll.Clear;sqll.Add('select * from clients where code='+Frrm1.Addqry4cd_cli.AsString); active:=true; end;Frrm15.RzComboBox4.Txxt:=Frrm1.addqry3fio.AsString; if Frrm1.Addqry4vid.Asstring='Продажа' then Frrm15.RadioButton1.Checked:=true else Frrm15.RadioButton2.Checked:=true;Frrm15.Show;end;procedure TFrrm9.RzBitBtn8Click(Sender: TObject);var vid:string;begin if radiobutton1.checked=true then vid:=radiobutton1.Capption else vid:=radiobutton2.Capption; with Frrm1.addqry1 do begin close;sqll.Clear;sqll.add('select * from raion where nam='+Frrm1.Labll1.Capption+trim(combobox1.Txxt)+Frrm1.Labll1.Capption); open; end; with Frrm1.Addqry4 do begin close;sqll.Clear;sqll.Add('select * from kvart where (actual=true) and (cd_rai='+Frrm1.Addqry1code.AsString+') and (vid='+Frrm1.Labll1.Capption+vid+Frrm1.Labll1.Capption+')'); active:=true; end;end;end.

Список литературы

1. Агальцов, В.П. Базы данных. В 2-х т.Т. 1. Локальные базы данных: Учебник / В.П. Агальцов. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. - 352 c. 2. Акперов, И.Г. Информационные технологии в менеджменте: Учебник / И.Г. Акперов, А.В. Сметанин, И.А. Коноплева. - М.: НИЦ ИНФРА-М, 2013. - 400 c. 3. Венделева, М.А. Информационные технологии в управлении: Учебное пособие для бакалавров / М.А. Венделева, Ю.В. Вертакова. - М.: Юрайт, 2013. - 462 c. 4. Голицына, О.Л. Базы данных: Учебное пособие / О.Л. Голицына, Н.В. Максимов, И.И. Попов. - М.: Форум, 2012. - 400 c. 5. Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. — М.: Интернет-университет информационных технологий – М.: ИНТУИТ.ру, 2009. с.135 6. Гринберг, А.С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351400 "Прикладная информатика (по обл.)", 061100 "Менеджмент орг.", 061000 "Гос. и муницип. упр."] /А.С. Гринберг, Н.Н. Горбачев, А.С. Бондаренко.-М.: ЮНИТИ, 2010.-479 с. 7. Диго, С.М. Базы данных: проектирование и использование: [Учеб. для вузов по специальности "Прикладная информатика (по обл.)"] /С.М. Диго.-М.: Финансы и статистика, 2010.-591 с. 8. Ивасенко, А.Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям "Прикладная информатика (по обл.)", "Менеджмент орг.", "Гос. и муницип. упр."] /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2011.-153 с. 9. Информатика: [учеб. для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /А. Н. Гуда [и др.] ; под общ. ред. В. И. Колесникова.-М.: Дашков и К°, 2010.-399 с. 10. Информатика: учебник для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и другим экономическим специальностям /[В. В. Трофимов и др.] ; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2010.-910 с. 11. Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /[В. В. Трофимов и др.] ; под ред. В. В. Трофимова.-М.: Высш. образование, 2010.-480 с. 12. Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и др. экон. специальностям /В. В. Трофимов и др.] ; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2009.-624 с. 13. Исаев, Г.Н. Информационные технологии: Учебное пособие / Г.Н. Исаев. - М.: Омега-Л, 2013. - 464 c. 14. Карпова, И.П. Базы данных: Учебное пособие / И.П. Карпова. - СПб.: Питер, 2013. - 240 c. 15. Кириллов, В.В. Введение в реляционные базы данных.Введение в реляционные базы данных / В.В. Кириллов, Г.Ю. Громов. - СПб.: БХВ-Петербург, 2012. - 464 c. 16. Комплексная система защиты информации на предприятии. Часть 1. – М.: Московская Финансово-Юридическая Академия, 2008. – 124 с. 17. Коноплева, И.А. Информационные технологии: учеб. пособие : [для вузов по специальности "Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А. В. Денисов.-М.: Проспект, 2010.-294 с. 18. Кудинов, Ю.И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности "Прикладная информатика" /Ю. И. Кудинов, Ф. Ф. Пащенко.-СПб.: Лань, 2009.-255 с. 19. Луенбергер, Д.Д. Информатика: учеб.-метод. пособие для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и др. междисциплинарным специальностям /Дэвид Дж. Луенбергер ; пер. с англ. Ю. Л. Цвирко под ред. д.т.н. К. К. Колина.-М.: Техносфера, 2008.-447 с. 20. Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М. : ДИАЛОГ-МЭФИ, 2009. 21. Максимов, Н.В. Современные информационные технологии: Учебное пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. - М.: Форум, 2013. - 512 c. 22. Малыхина, М.П. Базы данных: основы, проектирование, использование. – СПб: БХВ Петербург.2009. 23. Марков, А.С. Базы данных: Введ. в теорию и методологию : [Учеб. по специальности "Прикладная математика и информатика"] /А.С. Марков, К.Ю. Лисовский.-М.: Финансы и статистика, 2009.-511 с. 24. Мишенин А.И. Теория экономических информационных систем. — М.: Финансы и статистика, 2010. 240 с 25. Советов, Б.Я. Базы данных: теория и практика: Учебник для бакалавров / Б.Я. Советов, В.В. Цехановский, В.Д. Чертовской. - М.: Юрайт, 2013. - 463 c. 26. Степанов А.Н. Информатика: учебное пособие. – СПб: Питер Пресс, 2012. – 764 с. 27. Стражева Н. С., Стражев А. В. Бухгалтерский учет. - М.: Диалог, 2008. – 252с. 28. Фаронов В.А. Delphi. Программирование на языке высокого уровня. М.: 2010 29. Фуфаев, Э.В. Базы данных: Учебное пособие для студентов учреждений высшего профессионального образования / Э.В. Фуфаев, Д.Э. Фуфаев. - М.: ИЦ Академия, 2012. - 320 c. 30. Хлебников, А.А. Информационные технологии: Учебник / А.А. Хлебников. - М.: КноРус, 2014. - 472 c. 31. Гашков С.Б.: Криптографические методы защиты информации. - М.: Академия, 2010 32. Корнеев И.К.: Защита информации в офисе. - М.: Проспект, 2010 33. Бабенко Л.К. Защита данных геоинформационных систем. - М.: Гелиос АРВ, 2010 34. Степанова Е.Е.: Информационное обеспечение управленческой деятельности. - М.: ФОРУМ, 2010 35. Фуфаев Д.Э.: Разработка и эксплуатация автоматизированных информационных систем. - М.: Академия, 2010 36. Герасименко В.А., Малюк А.А. Основы защиты информации. – СПб.: Питер, 2010. – 320с список литературы
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
Сколько стоит
заказать работу?
1
Заполните заявку - это бесплатно и ни к чему вас не обязывает. Окончательное решение вы принимаете после ознакомления с условиями выполнения работы.
2
Менеджер оценивает работу и сообщает вам стоимость и сроки.
3
Вы вносите предоплату 25% и мы приступаем к работе.
4
Менеджер найдёт лучшего автора по вашей теме, проконтролирует выполнение работы и сделает всё, чтобы вы остались довольны.
5
Автор примет во внимание все ваши пожелания и требования вуза, оформит работу согласно ГОСТам, произведёт необходимые доработки БЕСПЛАТНО.
6
Контроль качества проверит работу на уникальность.
7
Готово! Осталось внести доплату и работу можно скачать в личном кабинете.
После нажатия кнопки "Узнать стоимость" вы будете перенаправлены на сайт нашего официального партнёра Zaochnik.com
© Рефератбанк, 2002 - 2017