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

Дипломная Купить готовую Узнать стоимостьмоей работы

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… Читать ещё >

Автоматизированная информационная система ООО «Бенефит» (реферат, курсовая, диплом, контрольная)

Содержание

Введение
1. Аналитическая часть
- 1. 1. Технико-экономическая характеристика предметной области и предприятия. Анализ деятельности «КАК ЕСТЬ»
  - 1. 1. 1. Характеристика предприятия и его деятельности
- 1. 2. Техническая и технологическая сущность задачи
- 1. 3. Обоснование необходимости и цели использования вычислительных и телекоммуникационных средств для решения задачи
- 1. 4. Постановка задачи
- 1. 5. Анализ существующих разработок для автоматизации задачи
- 1. 6. Обоснование решений по видам обеспечения
  - 1. 6. 1. Обоснование проектных решений по информационному обеспечению
  - 1. 6. 2. Обоснование проектных решений по программному обеспечению
  - 1. 6. 3. Обоснование проектных решений по техническому обеспечению
2. Проектная часть
- 2. 1. Техническое обеспечение задачи (комплекса задач, АРМ)
  - 2. 1. 1. Модель информационных потоков в информационной системе и ее описание
  - 2. 1. 2. Физическая схема взаимодействия отдельных частей информационной (телекоммуникационной) системы
  - 2. 1. 3. Функции и назначение отдельных аппаратных компонентов проектируемой системы
  - 2. 1. 4. Характеристика аппаратного комплекса в целом
- 2. 2. Программное обеспечение задачи (комплекса задач, АРМ)
  - 2. 2. 1. Общие положения (дерево функций и сценарий диалога)
  - 2. 2. 2. Структурная схема пакета
- 2. 3. Технологическое обеспечение задачи (комплекса задач, АРМ)
3. Экспериментальная часть
4. Оценка экономической эффективности проекта
- 4. 1. Методика оценки экономической эффективности
- 4. 2. Расчёт единовременных затрат на разработку и внедрение
- 4. 3. Оценка эффективности оптимизации технологических процессов
- 4. 4. Оценка обобщающих показателей экономической эффективности
5. Безопасность жизнедеятельности
Заключение
Список использованных источников
Приложение 9

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:nedvshabprod.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.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:nedvfoto'+Frrm9.dbTxxt1.Capption+''+inttostr (strtoint (labll2.capption)+1)+'.jpg')=true then begin labll2. Capption:=inttostr (strtoint (labll2.Capption)+1); image1.Picture.LoadFromFile ('c:nedvfoto'+Frrm9.dbTxxt1.Capption+''+labll2.Capption+'.jpg'); end;end;procedure TFrrm11. RzBitBtn2Click (Sender: TObject);begin if fileexists ('C:nedvfoto'+Frrm9.dbTxxt1.Capption+''+inttostr (strtoint (labll2.capption)-1)+'.jpg')=true then begin labll2. Capption:=inttostr (strtoint (labll2.Capption)-1); image1.Picture.LoadFromFile ('c:nedvfoto'+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:tempdogov'+inttostr (i)+'.doc')=true thenbegin i:=i+1; goto q;endelsecopyfile (pchar ('c:nedvshabdogov.doc'), pchar ('c:tempdogov'+inttostr (i)+'.doc'), true);wrrduk:=createoleobject ('word.application');wrrduk.documents.open ('c:tempdogov'+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:nedvfoto'+dbTxxt1.Capption)=false then showmessage ('Нетфото') else beginFrrm11. image1.Picture.LoadFromFile ('c:nedvfoto'+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.

Показать весь текст

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

Агальцов, В.П. Базы данных. В 2-х т.Т. 1. Локальные базы данных: Учебник / В. П. Агальцов. — М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. — 352 c.
Акперов, И.Г. Информационные технологии в менеджменте: Учебник / И. Г. Акперов, А. В. Сметанин, И. А. Коноплева. — М.: НИЦ ИНФРА-М, 2013. — 400 c.
Венделева, М.А. Информационные технологии в управлении: Учебное пособие для бакалавров / М. А. Венделева, Ю. В. Вертакова. — М.: Юрайт, 2013. — 462 c.
Голицына, О.Л. Базы данных: Учебное пособие / О. Л. Голицына, Н. В. Максимов, И. И. Попов. — М.: Форум, 2012. — 400 c.
Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. — М.: Интернет-университет информационных технологий — М.: ИНТУИТ.ру, 2009. с.135
Гринберг, А.С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351 400 «Прикладная информатика (по обл.)», 61 100 «Менеджмент орг.», 61 000 «Гос. и муницип. упр."] /А.С. Гринберг, Н. Н. Горбачев, А. С. Бондаренко.-М.: ЮНИТИ, 2010.-479 с.
Диго, С.М. Базы данных: проектирование и использование: [Учеб. для вузов по специальности «Прикладная информатика (по обл.)"] /С.М. Диго.-М.: Финансы и статистика, 2010.-591 с.
Ивасенко, А.Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям «Прикладная информатика (по обл.)», «Менеджмент орг.», «Гос. и муницип. упр."] /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2011.-153 с.
Информатика: [учеб. для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /А. Н. Гуда [и др.]; под общ. ред. В. И. Колесникова.-М.: Дашков и К°, 2010.-399 с.
Информатика: учебник для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и другим экономическим специальностям /[В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2010.-910 с.
Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /[В. В. Трофимов и др.]; под ред. В. В. Трофимова.-М.: Высш. образование, 2010.-480 с.
Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др. экон. специальностям /В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2009.-624 с.
Исаев, Г. Н. Информационные технологии: Учебное пособие / Г. Н. Исаев. — М.: Омега-Л, 2013. — 464 c.
Карпова, И.П. Базы данных: Учебное пособие / И. П. Карпова. — СПб.: Питер, 2013. — 240 c.
Кириллов, В.В. Введение в реляционные базы данных.Введение в реляционные базы данных / В. В. Кириллов, Г. Ю. Громов. — СПб.: БХВ-Петербург, 2012. — 464 c.
Комплексная система защиты информации на предприятии. Часть 1. — М.: Московская Финансово-Юридическая Академия, 2008. — 124 с.
Коноплева, И.А. Информационные технологии: учеб. пособие: [для вузов по специальности «Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А. В. Денисов.-М.: Проспект, 2010.-294 с.
Кудинов, Ю.И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности «Прикладная информатика» /Ю. И. Кудинов, Ф. Ф. Пащенко.-СПб.: Лань, 2009.-255 с.
Луенбергер, Д.Д. Информатика: учеб.-метод. пособие для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др. междисциплинарным специальностям /Дэвид Дж. Луенбергер; пер. с англ. Ю. Л. Цвирко под ред. д.т.н. К. К. Колина.-М.: Техносфера, 2008.-447 с.
Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М.: ДИАЛОГ-МЭФИ, 2009.
Максимов, Н.В. Современные информационные технологии: Учебное пособие / Н. В. Максимов, Т. Л. Партыка, И. И. Попов. — М.: Форум, 2013. — 512 c.
Малыхина, М.П. Базы данных: основы, проектирование, использование. — СПб: БХВ Петербург.2009.
Марков, А.С. Базы данных: Введ. в теорию и методологию: [Учеб. по специальности «Прикладная математика и информатика"] /А.С. Марков, К. Ю. Лисовский.-М.: Финансы и статистика, 2009.-511 с.
Мишенин А.И. Теория экономических информационных систем. — М.: Финансы и статистика, 2010. 240 с
Советов, Б.Я. Базы данных: теория и практика: Учебник для бакалавров / Б. Я. Советов, В. В. Цехановский, В. Д. Чертовской. — М.: Юрайт, 2013. — 463 c.
Степанов А.Н. Информатика: учебное пособие. — СПб: Питер Пресс, 2012. — 764 с.
Стражева Н. С., Стражев А. В. Бухгалтерский учет. — М.: Диалог, 2008. — 252с.
Фаронов В.А. Delphi. Программирование на языке высокого уровня. М.: 2010
Фуфаев, Э.В. Базы данных: Учебное пособие для студентов учреждений высшего профессионального образования / Э. В. Фуфаев, Д. Э. Фуфаев. — М.: ИЦ Академия, 2012. — 320 c.
Хлебников, А.А. Информационные технологии: Учебник / А. А. Хлебников. — М.: КноРус, 2014. — 472 c.
Гашков С.Б.: Криптографические методы защиты информации. — М.: Академия, 2010
Корнеев И.К.: Защита информации в офисе. — М.: Проспект, 2010
Бабенко Л.К. Защита данных геоинформационных систем. — М.: Гелиос АРВ, 2010
Степанова Е.Е.: Информационное обеспечение управленческой деятельности. — М.: ФОРУМ, 2010
Фуфаев Д.Э.: Разработка и эксплуатация автоматизированных информационных систем. — М.: Академия, 2010
Герасименко В.А., Малюк А. А. Основы защиты информации. — СПб.: Питер, 2010. — 320с

Заполнить форму текущей работой

Купить готовую работу