Условные обозначения и правила выполнения.
Взамен ГОСТ 19.002−80, ГОСТ 19.003−80. Введ. 1.
01.01. — М.: ИПК Издательство стандартов, 2001.-26с.ГОСТ РВ 29.
05.007—96 «Интерфейс человеко-машинный». ГОСТ 34.602−89 «Информационная технология. Комплекс стандартов на автоматизированные системы. Техническое задание на создание автоматизированной системы»; ГОСТ 34.601−90 «Информационная технология. Комплекс стандартов на автоматизированные системы.
Автоматизированные системы. Стадии создания". Аткинсон Л. M ySQL. Библиотека профессионала, М., Изд-во O’Reilly, 2006, 316 стр.
Автоматизированные информационные технологии в экономике: Учебник/Под ред. проф. Г. А. Титоренко. — М.: Компьютер, ЮИНИТИ, 2006
Атре Ш. Структурный подход к организации баз данных. — М.: Финансы и статистика, 2003. — 320 с. Атре Ш.
Структурный подход к организации баз данных. — М.: Финансы и статистика, 2003. — 320 с. Атре Ш. Структурный подход к организации баз данных. — М.: Финансы и статистика, 1998
Балабанов И.Т. — Торговля через виртуальный магазин /"Электронная коммерция"/ 2004. С.195−197Баронов В. В. Автоматизация управления предприятием. — М.: ИНФРА-М, 2002. — 239 с., стр. 218Благодатских В. А. Экономика, разработка и использование программного обеспечения ЭВМ: Учебник.
М.: Финансы и статистика, 2002. — 288сВаскевич Д. Стратегии клиент/сервер. — К: «Диалектика», 2006, 244 стр. Григоренко Г. П., Данелян Т. Я. Системы автоматизированной обработки экономической информации (САОЭИ): Учебное пособие/Моск. эконом. — стат. ин-т. — М., 2002;126с.Гультяев
А. К., «Microsoft Office Project 2007
Управление проектами: практическое пособие. «- СПб.: КОРОНА-Век, 2008 — 480с, ил. Дейт К.
Введение
в системы баз данных: Пер.
с англ. — М.: Наука, 2003. — 443 c. Имери В.
Бизнес в Internet — технологические аспекты. — К.; М.; СПб., 2003. -
336 стр. Информационные Системы в экономике: Учебник / Под ред. проф. В. В. Дика — Москва.:Финансы и Статистика, 1996. — 340 стр.: ил. Карминский А. М., Нестеров П. В. Информатизация бизнеса.
— М.: Финансы и статистика, 2007. — 416 с.: ил. Калянов Г. Н. Консалтинг при автоматизации предприятий (подходы, методы, средства) // М.: СИНТЕГ, 1997
Куницына Л. Е. Информационные технологии и системы в экономике: Методический комплекс.
Ростов-на-Дону: РГЭА, 1998.-175сМамаев Е. В. Microsoft SQL Server 2005, СПБ.: Питер 2003, 1280 с. Маргелов В. В., API-интерфейсы доступа к базам данных, М., Byte-reviews, М., 2003, 316 стр. Маклаков С. В. Моделирование бизнес-процессов с AllFusion Process Modeler (BPwin 4.1). М., 2003
Маклаков С. В. Создание информационных систем с AllFusion Modeling Suite. — М.: ДИАЛОГ-МИФИ, 2005
Маклаков С.В. BPwin и Erwin. CASE-средства разработки информационных систем. — М.: ДИАЛОГ-МИФИ, 2000
Марка Д. А., Мак
Гоуэн К. Методология структурного анализа и проектирования SADT. Петров Ю. А., Шлимович Е. Л., Ирюпин Ю. В. Комплексная автоматизация управления предприятием: Информационные технологии — теория и практика. — М.: Финансы и статистика, 2001
Проектирование экономических информационных систем: учеб. / под ред. Ю. Ф. Тельнова. М., 2005
Проектирование экономических информационных систем: Учебник / Е. А. Петров, Г. М. Смирнов, А. А. Сорокин, Ю. Ф. Тельнов. — М.: Финансы и статистика, 2006 — 286 сПринципы разработки программного обеспечения: Пер. с англ. / М. Зелкович, А. Шоу, Дж.
Геннон. — М.: Мир, 2002. — 564 c. Симонович С. В. Язык структурированных запросов SQL, СПб «Питер», 2005
Смирнова Г. Н. и др. Проектирование экономических информационных систем: Учебник / Под ред. Ю. Ф. Тельнова. — М.: Финансы и статистика, 2002 — 512 с. Смирнов И. Н. и др. Основные СУБД. — М.: Наука, 1999 — 320 с.Т. Н. Рахимов, О. А. Заикин, Б. Я. Советов.
Основы построения АСУ — Ташкент: Укитувчи, 2004. — 324 c. Хомоненко А. Д. и др. Базы данных: Учебник для вузов / Под ред.
проф. А. Д. Хомоненко. — СПб.: КОРОНА принт, 2004 — 736 с. Смирнова Г. Н. и др. Проектирование экономических информационных систем: Учебник / Под ред.
Ю.Ф. Тельнова. — М.: Финансы и статистика, 2002 — 512 с. Смирнов И. Н. и др. Основные СУБД. — М.: Наука, 2002 — 320 с. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер.
с англ. — М.: Издательский дом «Вильямс», 2004
Фаулер М. UML в кратком изложении: применение стандартного языка объектного моделирования: пер. с англ. / М. Фаулер, К. Скотт. М., 2001
Фаулер М. UML — основы. Руководство по стандартному языку объектного моделирования.: Пер. с англ. — СПб.: Символ, 2006
Хомоненко А.Д. и др. Базы данных: Учебник для вузов / Под ред. проф. А. Д. Хомоненко. — СПб.: КОРОНА принт, 2004 — 736 с. Экономическая информатика: Введение в экономический анализ информационных систем: Учебник. — М.: ИНФРА-М, 2005
Шафер Д.Ф., Фартрел Т., Шафер Л. И. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. — М.: Вильямс, 2004.itsec.ru [Электронный ресурс]: [Информационная безопасность] / Журнал «Информационная безопасность». — Режим доступа:
http://www.itsec.ru/articles2/control/aktualn_postroen_suibcitforum.ru [Электронный ресурс]: [ЦИТФорум] / Статья «Безопасность обеспечения компьютерных систем» — [М.], МГУЛ -2003. — Режим доступа:
http://citforum.ru/security/articles/kazarin/www.infosecurity.ru [Электронный ресурс]: [ОСБИС] / Статья «Информационная безопасность» — [М.] -2006. — Режим доступа:
http://www.infosecurity.ru/_site/concept.shtmlСписок сокращений
АРМ — автоматизированное рабочее место
ЛВС — локальная вычислительная сеть
СКС — структурированная кабельная система
СУБД — система управления базами данных
БД — база данных
Приложение 1 — исходныйкодпрограммыunitmain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, SUIForm, SUIButton, StdCtrls, SUIEdit, SUIImagePanel, Grids, DBGrids, SUIDBCtrls, SUIPageControl, SUITabControl, SUIComboBox, DB, ADODB, SUIMemo, math;type TForm1 = class (TForm) suiForm1: TsuiForm; suiPageControl1: TsuiPageControl; suiTabSheet1: TsuiTabSheet; suiTabSheet2: TsuiTabSheet; suiTabSheet3: TsuiTabSheet; suiDBGrid1: TsuiDBGrid; suiPanel1: TsuiPanel; Label1: TLabel; suiButton1: TsuiButton; suiButton3: TsuiButton; suiPanel2: TsuiPanel; suiPanel4: TsuiPanel; suiDBGrid3: TsuiDBGrid; suiDBGrid4: TsuiDBGrid; suiPanel5: TsuiPanel; suiTabSheet4: TsuiTabSheet; suiDBGrid5: TsuiDBGrid; ADOConnection1: TADOConnection; tr_st: TADOTable; r_st: TDataSource;tuz: TADOTable;uz: TDataSource;tsob: TADOTable;sob: TDataSource; suiPanel3: TsuiPanel; Label14: TLabel; suiEdit23: TsuiEdit; suiEdit16: TsuiEdit; Label20: TLabel; suiEdit20: TsuiEdit; Label21: TLabel; suiButton12: TsuiButton; suiEdit1: TsuiEdit; Label7: TLabel; Label8: TLabel; suiEdit3: TsuiEdit; Label9: TLabel; suiEdit6: TsuiEdit;tmer: TADOTable;mer: TDataSource; suiMemo1: TsuiMemo; Label2: TLabel; Label3: TLabel; Label5: TLabel; Label6: TLabel; suiButton2: TsuiButton; suiButton4: TsuiButton; suiButton5: TsuiButton; suiEdit2: TsuiEdit; suiEdit5: TsuiEdit; suiEdit7: TsuiEdit; suiEdit8: TsuiEdit; Label10: TLabel; suiEdit9: TsuiEdit; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label15: TLabel; suiButton6: TsuiButton; suiButton7: TsuiButton; suiButton9: TsuiButton; suiEdit10: TsuiEdit; suiEdit11: TsuiEdit; suiEdit12: TsuiEdit; suiEdit13: TsuiEdit; Label25: TLabel; suiMemo2: TsuiMemo; Label26: TLabel; suiMemo3: TsuiMemo; suiEdit14: TsuiEdit; Label4: TLabel; suiEdit15: TsuiEdit; Label18: TLabel; suiButton8: TsuiButton; suiButton10: TsuiButton; suiButton11: TsuiButton; Label16: TLabel; suiEdit4: TsuiEdit; suiTabSheet5: TsuiTabSheet; suiPanel6: TsuiPanel; suiPanel7: TsuiPanel; suiMemo4: TsuiMemo; Label17: TLabel; suiEdit17: TsuiEdit; suiButton13: TsuiButton; suiCheckBox1: TsuiCheckBox; suiCheckBox2: TsuiCheckBox; suiCheckBox3: TsuiCheckBox; suiCheckBox4: TsuiCheckBox; suiCheckBox5: TsuiCheckBox; Label19: TLabel; suiEdit18: TsuiEdit; Label22: TLabel; suiEdit19: TsuiEdit; suiButton14: TsuiButton; suiPanel8: TsuiPanel; suiMemo5: TsuiMemo; Label23: TLabel; suiEdit21: TsuiEdit; suiTabSheet6: TsuiTabSheet; suiPanel9: TsuiPanel; suiPanel11: TsuiPanel; Label24: TLabel; Label27: TLabel; Label28: TLabel; Label29: TLabel; suiButton16: TsuiButton; suiButton17: TsuiButton; suiEdit22: TsuiEdit; suiEdit25: TsuiEdit; suiMemo9: TsuiMemo; suiButton18: TsuiButton; t_po: TADOTable;po: TDataSource; t_po_st: TADOTable; po_st: TDataSource; suiDBGrid2: TsuiDBGrid; suiDBGrid6: TsuiDBGrid; suiDBGrid7: TsuiDBGrid; suiComboBox1: TsuiComboBox;procedure suiButton12Click (Sender: TObject);procedure suiButton15Click (Sender: TObject);procedure suiButton8Click (Sender: TObject);procedure suiButton7Click (Sender: TObject);procedure suiButton6Click (Sender: TObject);procedure suiButton19Click (Sender: TObject);procedure FormCreate (Sender: TObject);procedure suiCheckBox4Click (Sender: TObject);procedure suiButton1Click (Sender: TObject);procedure suiButton10Click (Sender: TObject);procedure suiButton11Click (Sender: TObject);procedure suiButton2Click (Sender: TObject);procedure suiButton5Click (Sender: TObject);procedure suiButton4Click (Sender: TObject);procedure suiButton9Click (Sender: TObject);procedure suiButton3Click (Sender: TObject);procedure suiButton13Click (Sender: TObject);procedure suiButton14Click (Sender: TObject);procedure suiDBGrid1CellClick (Column: TColumn);procedure suiDBGrid3CellClick (Column: TColumn);procedure suiDBGrid4CellClick (Column: TColumn);procedure suiDBGrid5CellClick (Column: TColumn);procedure suiButton17Click (Sender: TObject);procedure suiButton16Click (Sender: TObject);procedure suiButton18Click (Sender: TObject);procedure suiDBGrid7CellClick (Column: TColumn);private{ Private declarations }public{ Public declarations }end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1. suiButton12Click (Sender: TObject);begintrytr_st.Append;tr_st.FieldByName ('nomer_rs').AsInteger:=strtoint (suiEdit3.text);tr_st.FieldByName ('ip_adr').AsString:=suiEdit1.text;tr_st.FieldByName ('ident').AsString:=suiEdit6.text;tr_st.FieldByName ('spec').AsString:=suiMemo1.text;tr_st.Post;ExceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiButton15Click (Sender: TObject);begintsob.Filtered:=false;end;procedure TForm1. suiButton8Click (Sender: TObject);begintrytmer.Append;tmer.FieldByName ('kod_mer').AsInteger:=strtoint (suiEdit23.text);tmer.FieldByName ('data').AsString:=suiEdit14.text;tmer.FieldByName ('vrem').AsString:=suiEdit15.text;tmer.FieldByName ('mer').AsString:=suiEdit16.text;tmer.FieldByName ('isp').AsString:=suiEdit20.text;tmer.Post;ExceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiButton7Click (Sender: TObject);begintsob.delete;end;procedure TForm1. suiButton6Click (Sender: TObject);var first: boolean;zap:string;begintrytsob.edit;tsob.FieldByName ('kod_sob').AsInteger:=strtoint (suiEdit10.text);tsob.FieldByName ('data').AsString:=suiEdit12.text;tsob.FieldByName ('vrem').AsString:=suiEdit11.text;tsob.FieldByName ('sob').AsString:=suiEdit13.text;tsob.FieldByName ('opis').AsString:=suiMemo2.text;tsob.FieldByName ('mery').AsString:=suiMemo3.text;tsob.Post;ExceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;{first:=false;if suiCheckBox4. Checked thenbeginfirst:=true;zap:='data_izm='''+suiEdit2.Text+'''';end;if suiCheckBox6. Checked thenbegin if first=false then zap:='datchik='''+copy (suiComboBox6.text, 3, length (suiComboBox6.text)-2)+'''' else zap:=zap+' and datchik='''+copy (suiComboBox6.text, 3, length (suiComboBox6.text)-2)+'''';end; tpok. Filtered:=false; tpok. Filter:=zap; tpok. Filtered:=true;}end;procedure TForm1. suiButton19Click (Sender: TObject);begintsob.Delete;end;procedure TForm1. FormCreate (Sender: TObject);var nom: integer;ost:extended;beginsuiPageControl1.ActivePageIndex:=0;tuz.First;for nom:=0 to (tuz.RecordCount-1) dobeginost:=Date-strtodate (tuz.FieldValues['data_smen']);suimemo5.Lines.Add ('Пользователь '+tuz.FieldValues['log']+' сменитьпарольчерез '+ floattostr (ost)); tuz. next;{ raznost:=StrTodate (vrem)-strtodate (tab);if DataModule2. q_usertab.FieldValues['smena']>(raznost) thenMemo1.Lines.Add ('Пользователь '+DataModule2.q_usertab.FieldValues['name']+' сменитепарольчерез '+floattostr (DataModule2.q_usertab.FieldValues['smena']-raznost)+' дней')elseMemo1.Lines.Add ('Пользователь '+DataModule2.q_usertab.FieldValues['name']+' парольпросроченна '+floattostr (DataModule2.q_usertab.FieldValues['smena']-raznost)+' дней'); DataModule2. q_usertab.Next;}end;t_po_st.Filtered:=false;t_po_st.Filter:='id_st='+inttostr (tr_st.FieldValues['nomer_rs']);t_po_st.Filtered:=true;end;procedure TForm1. suiCheckBox4Click (Sender: TObject);beginif suiEdit2. Enabled=false then suiEdit2. Enabled:=true else suiEdit2. Enabled:=false;end;procedure TForm1. suiButton1Click (Sender: TObject);begintrytr_st.edit;tr_st.FieldByName ('nomer_rs').AsInteger:=strtoint (suiEdit3.text);tr_st.FieldByName ('ip_adr').AsString:=suiEdit1.text;tr_st.FieldByName ('ident').AsString:=suiEdit6.text;tr_st.FieldByName ('spec').AsString:=suiMemo1.text;tr_st.Post;ExceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiButton10Click (Sender: TObject);begintrytmer.edit;tmer.FieldByName ('kod_mer').AsInteger:=strtoint (suiEdit23.text);tmer.FieldByName ('data').AsString:=suiEdit14.text;tmer.FieldByName ('vrem').AsString:=suiEdit15.text;tmer.FieldByName ('mer').AsString:=suiEdit16.text;tmer.FieldByName ('isp').AsString:=suiEdit20.text;tmer.Post;ExceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiButton11Click (Sender: TObject);begintmer.Delete;end;procedure TForm1. suiButton2Click (Sender: TObject);var data_sm:extended;begintrytuz.Edit;tuz.FieldByName ('nomer_uz').AsInteger:=strtoint (suiEdit2.text);tuz.FieldByName ('domen').AsString:=suiEdit5.text;tuz.FieldByName ('log').AsString:=suiEdit8.text;tuz.FieldByName ('parol').AsString:=suiEdit9.text;tuz.FieldByName ('polzovatel').AsString:=suiEdit7.text;tuz.FieldByName ('srok_deist').AsInteger:=strtoint (suiEdit4.text);tuz.FieldByName ('data_ust').AsString:=suiEdit21.text;data_sm:=strtodate (suiEdit21.text)+strtoint (suiEdit4.text);tuz.FieldByName ('data_smen').AsString:=DateToStr (data_sm);tuz.Post;ExceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiButton5Click (Sender: TObject);var data_sm:extended;begintrytuz.Append;tuz.FieldByName ('nomer_uz').AsInteger:=strtoint (suiEdit2.text);tuz.FieldByName ('domen').AsString:=suiEdit5.text;tuz.FieldByName ('log').AsString:=suiEdit8.text;tuz.FieldByName ('parol').AsString:=suiEdit9.text;tuz.FieldByName ('polzovatel').AsString:=suiEdit7.text;tuz.FieldByName ('srok_deist').AsInteger:=strtoint (suiEdit4.text);tuz.FieldByName ('data_ust').AsString:=suiEdit21.text;data_sm:=strtodate (suiEdit21.text)+strtoint (suiEdit4.text);tuz.FieldByName ('data_smen').AsString:=DateToStr (data_sm);tuz.Post;ExceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiButton4Click (Sender: TObject);begintuz.Delete;end;procedure TForm1. suiButton9Click (Sender: TObject);begintrytsob.Append;tsob.FieldByName ('kod_sob').AsInteger:=strtoint (suiEdit10.text);tsob.FieldByName ('data').AsString:=suiEdit12.text;tsob.FieldByName ('vrem').AsString:=suiEdit11.text;tsob.FieldByName ('sob').AsString:=suiEdit13.text;tsob.FieldByName ('opis').AsString:=suiMemo2.text;tsob.FieldByName ('mery').AsString:=suiMemo3.text;tsob.Post;ExceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiButton3Click (Sender: TObject);begintr_st.Delete;end;procedure TForm1. suiButton13Click (Sender: TObject);var ang_b, ang_m, rus_m, rus_b, cifra: boolean; nom_bukv, alfavit, dlina_par:integer; vrem_prover, vrem_smeny:real;parol:string;beginsuimemo4.Lines.Clear;parol:=suiEdit17.Text;dlina_par:=length (parol);alfavit:=0;vrem_prover:=0.02;for nom_bukv:=0 to dlina_par dobeginif parol[nom_bukv] in ['а'.'я'] then rus_m:=true;if parol[nom_bukv] in ['a'.'z'] then ang_m:=true;if parol[nom_bukv] in ['А'.'Я'] then rus_b:=true;if parol[nom_bukv] in ['A'.'Z'] then ang_b:=true;if parol[nom_bukv] in ['0'.'9'] then cifra:=true;end;{for}if cifra=true then alfavit:=alfavit+10;if rus_m=true then alfavit:=alfavit+33;if rus_b=true then alfavit:=alfavit+33;if ang_b=true then alfavit:=alfavit+26;if ang_m=true then alfavit:=alfavit+26;//——————————————————-suimemo4.Lines.Add ('Пароль: '+parol);suimemo4.Lines.Add ('Длина
Пароля: '+inttostr (dlina_par));suimemo4.Lines.Add ('Алфавит
Пароля: '+inttostr (alfavit));suimemo4.Lines.Add ('Времяпроверки
Пароля: '+floattostr (vrem_prover));suimemo4.Lines.Add ('Время смены Пароля: ');vrem_smeny:=(floor (-vrem_prover*intpower (alfavit, dlina_par)/ln (0.1))) div 60;suimemo4.Lines.Add ('1 уровеньконфиденциальности: '+floattostr (vrem_smeny)+' дней');vrem_smeny:=(floor (-vrem_prover*intpower (alfavit, dlina_par)/ln (0.01))) div 60;suimemo4.Lines.Add ('2 уровеньконфиденциальности: '+floattostr (vrem_smeny)+' дней');vrem_smeny:=(floor (-vrem_prover*intpower (alfavit, dlina_par)/ln (0.001))) div 60;suimemo4.Lines.Add ('3 уровеньконфиденциальности: '+floattostr (vrem_smeny)+' дней');end;procedure TForm1. suiButton14Click (Sender: TObject);var alf_ang_m, alf_ang_b, alf_rus_m, alf_rus_b, alf_cifr, alfavit, parol: string; nom_bukv:integer;beginrandomize;alf_cifr:='123 456 789';alf_ang_m:='qwertyuiopasdfghjklzxcvbnm';alf_ang_b:='QWERTYUIOPASDFGHJKLZXCVBNM';alf_rus_m:='йцукенгшщзхъфывапролджэячсмитьбю';alf_rus_b:='ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';if suiCheckBox1. Checked then alfavit:=alfavit+alf_ang_b;if suiCheckBox2. Checked then alfavit:=alfavit+alf_ang_m;if suiCheckBox3. Checked then alfavit:=alfavit+alf_rus_b;if suiCheckBox4. Checked then alfavit:=alfavit+alf_rus_m;if suiCheckBox5. Checked then alfavit:=alfavit+alf_cifr;for nom_bukv:=1 to strtoint (suiEdit18.Text) do parol:=parol+alfavit[random (length (alfavit))]; suiEdit19. Text:=parol;end;procedure TForm1. suiDBGrid1CellClick (Column: TColumn);beginsuiEdit3.text:=tr_st.FieldValues['nomer_rs']; suiEdit1. text:=tr_st.FieldValues['ip_adr'];suiEdit6.text:=tr_st.FieldValues['ident'];suiMemo1.text:=tr_st.FieldValues['spec'];end;procedure TForm1. suiDBGrid3CellClick (Column: TColumn);begin//suiEdit2.text:=tuz.FieldValues['nomer_uz]; suiEdit5. text:=tuz.FieldValues['domen'];suiEdit8.text:=tuz.FieldValues['log'];suiEdit9.text:=tuz.FieldValues['parol'];suiEdit7.text:=tuz.FieldValues['polzovatel'];suiEdit4.text:=tuz.FieldValues['srok_deist'];suiEdit21.text:=tuz.FieldValues['data_ust'];end;procedure TForm1. suiDBGrid4CellClick (Column: TColumn);beginsuiEdit10.text:=tsob.FieldValues['kod_sob']; suiEdit12. text:=tsob.FieldValues['data'];suiEdit11.text:=tsob.FieldValues['vrem'];suiEdit13.text:=tsob.FieldValues['sob'];suiMemo2.text:=tsob.FieldValues['opis'];suiMemo3.text:=tsob.FieldValues['mery'];end;procedure TForm1. suiDBGrid5CellClick (Column: TColumn);beginsuiEdit23.text:=tmer.FieldValues['kod_mer']; suiEdit14. text:=tmer.FieldValues['data'];suiEdit15.text:=tmer.FieldValues['vrem'];suiEdit16.text:=tmer.FieldValues['mer'];suiEdit20.text:=tmer.FieldValues['isp'];end;procedure TForm1. suiButton17Click (Sender: TObject);begintryt_po.Append;t_po.FieldByName ('nazv').AsString:=suiEdit22.text;t_po.FieldByName ('treb').AsString:=suiEdit25.text;t_po.FieldByName ('type_po').AsString:=suiComboBox1.text;t_po.FieldByName ('opis').AsString:=suiMemo9.text;t_po.Post;ExceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiButton16Click (Sender: TObject);begint_po.Delete;end;procedure TForm1. suiButton18Click (Sender: TObject);begintryt_po_st.Append;t_po_st.FieldByName ('nazv').AsString:=t_po.FieldValues['nazv']; t_po_st.FieldByName ('id_st').AsInteger:=tr_st.FieldValues['nomer_rs'];t_po_st.Post;ExceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiDBGrid7CellClick (Column: TColumn);begint_po_st.Filtered:=false;t_po_st.Filter:='id_st='+inttostr (tr_st.FieldValues['nomer_rs']);t_po_st.Filtered:=true;end;end.Приложение 2 — SQL-код БДCREATE TABLE merop (isp VARCHAR (30), mer VARCHAR (40), vrem VARCHAR (5), data VARCHAR (10), kod_mer INTEGER NOT NULL);CREATE UNIQUE INDEX XPKmerop ON merop (kod_mer ASC);ALTER TABLE merop ADD PRIMARY KEY (kod_mer);CREATE TABLE po (opis VARCHAR (80), type_po VARCHAR (25), treb VARCHAR (35), nazv VARCHAR (35) NOT NULL);CREATE UNIQUE INDEX XPKpo ON po (nazv ASC);ALTER TABLE po ADD PRIMARY KEY (nazv);CREATE TABLE r_st (spec VARCHAR (60), ip_adr VARCHAR (15), ident VARCHAR (15), nomer_rs INTEGER NOT NULL);CREATE UNIQUE INDEX XPKr_st ON r_st (nomer_rs ASC);ALTER TABLE r_st ADD PRIMARY KEY (nomer_rs);CREATE TABLE sob (mery VARCHAR (80), opis VARCHAR (80), sob VARCHAR (40), vrem VARCHAR (5), data VARCHAR (10), kod_sob INTEGER NOT NULL);CREATE UNIQUE INDEX XPKsob ON sob (kod_sob ASC);ALTER TABLE sob ADD PRIMARY KEY (kod_sob);CREATE TABLE sost_po (nomer_rs INTEGER NOT NULL, nazv VARCHAR (35));CREATE UNIQUE INDEX XPKsost_po ON sost_po (nomer_rs ASC);ALTER TABLE sost_po ADD PRIMARY KEY (nomer_rs);CREATE TABLE uz (domen VARCHAR (15), parol VARCHAR (10), log VARCHAR (15), polzovatel VARCHAR (60), nomer_uz INTEGER NOT NULL, srok_deist INTEGER);CREATE UNIQUE INDEX XPKuz ON uz (nomer_uz ASC);ALTER TABLE uz ADD PRIMARY KEY (nomer_uz);ALTER TABLE sost_po ADD FOREIGN KEY (nazv) REFERENCES po (nazv) ON DELETE SET NULL ON UPDATE SET NULL;ALTER TABLE sost_po ADD FOREIGN KEY (nomer_rs) REFERENCES r_st (nomer_rs) ON DELETE RESTRICT ON UPDATE RESTRICT;create trigger tD_po after DELETE on poreferencing old as OldRecordfor each row— ERwin Builtin Wed May 11 23:39:40 2011 — DELETE trigger on po begindeclare numrows INTEGER;declare parent_delrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Delete Restrict';declare child_delrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Delete Restrict'; — ERwin Builtin Wed May 11 23:39:40 2011 — po R/2 sost_po ON PARENT DELETE SET NULL update sost_poset — sost_po.nazv = NULL sost_po.nazv = NULLwhere — sost_po.nazv = OldRecord. nazv sost_po.nazv = OldRecord. nazv;
— ERwin Builtin Wed May 11 23:39:40 2011 endcreate trigger tU_po after UPDATE on poreferencing old as OldRecord new as NewRecordfor each row— ERwin Builtin Wed May 11 23:39:40 2011 — UPDATE trigger on po begindeclare numrows INTEGER;declare parent_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Update Restrict';declare child_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Update Restrict'; — po R/2 sost_po ON PARENT UPDATE SET NULL if OldRecord. nazv <> NewRecord. nazvthenupdate sost_poset — sost_po.nazv = NULL sost_po.nazv = NULLwhere— sost_po.nazv = OldRecord. nazv sost_po.nazv = OldRecord. nazv;end if;
— ERwin Builtin Wed May 11 23:39:40 2011 endcreate trigger tD_r_st after DELETE on r_streferencing old as OldRecordfor each row— ERwin Builtin Wed May 11 23:39:40 2011 — DELETE trigger on r_st begindeclare numrows INTEGER;declare parent_delrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Delete Restrict';declare child_delrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Delete Restrict'; — ERwin Builtin Wed May 11 23:39:40 2011 — r_st R/1 sost_po ON PARENT DELETE RESTRICT select count (*) into numrowsfrom sost_powhere— sost_po.nomer_rs = OldRecord. nomer_rs sost_po.nomer_rs = OldRecord. nomer_rs;if (numrows > 0) thensignal parent_delrstrct_errend if;
— ERwin Builtin Wed May 11 23:39:40 2011 endcreate trigger tU_r_st after UPDATE on r_streferencing old as OldRecord new as NewRecordfor each row— ERwin Builtin Wed May 11 23:39:40 2011 — UPDATE trigger on r_st begindeclare numrows INTEGER;declare parent_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Update Restrict';declare child_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Update Restrict'; — ERwin Builtin Wed May 11 23:39:40 2011 — r_st R/1 sost_po ON PARENT UPDATE RESTRICT if OldRecord. nomer_rs <> NewRecord. nomer_rsthenselect count (*) into numrowsfrom sost_powhere— sost_po.nomer_rs = OldRecord. nomer_rs sost_po.nomer_rs = OldRecord. nomer_rs;if (numrows > 0) thensignal parent_updrstrct_errend ifend if;
— ERwin Builtin Wed May 11 23:39:40 2011 endcreate trigger tI_sost_po after INSERT on sost_poreferencing new as NewRecordfor each row— ERwin Builtin Wed May 11 23:39:40 2011 — INSERT trigger on sost_po begindeclare numrows INTEGER;declare parent_insrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Insert Restrict';declare child_insrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Insert Restrict'; — ERwin Builtin Wed May 11 23:39:40 2011 — po R/2 sost_po ON CHILD INSERT SET NULL update sost_poset — sost_po.nazv = NULL sost_po.nazv = NULLwherenot exists (select * from powhere — NewRecord. nazv = po. nazv NewRecord.nazv = po. nazv) and sost_po.nazv = NewRecord. nazv; — ERwin Builtin Wed May 11 23:39:40 2011 — r_st R/1 sost_po ON CHILD INSERT RESTRICT select count (*) into numrowsfrom r_stwhere — NewRecord. nomer_rs = r_st.nomer_rs NewRecord. nomer_rs = r_st.nomer_rs;if (— numrows = 0) thensignal child_insrstrct_errend if;
— ERwin Builtin Wed May 11 23:39:40 2011 endcreate trigger tU_sost_po after UPDATE on sost_poreferencing old as OldRecord new as NewRecordfor each row— ERwin Builtin Wed May 11 23:39:40 2011 — UPDATE trigger on sost_po begindeclare numrows INTEGER;declare parent_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Update Restrict';declare child_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Update Restrict'; — ERwin Builtin Wed May 11 23:39:40 2011 — po R/2 sost_po ON CHILD UPDATE SET NULL update sost_poset — sost_po.nazv = NULL sost_po.nazv = NULLwherenot exists (select * from powhere — NewRecord. nazv = po. nazv NewRecord.nazv = po. nazv) and sost_po.nazv = NewRecord. nazv; — ERwin Builtin Wed May 11 23:39:40 2011 — r_st R/1 sost_po ON CHILD UPDATE RESTRICT if OldRecord. nomer_rs <> NewRecord. nomer_rsthenselect count (*) into numrowsfrom r_stwhere — NewRecord. nomer_rs = r_st.nomer_rs NewRecord. nomer_rs = r_st.nomer_rs;if (— numrows = 0) thensignal child_updrstrct_errend ifend if;
— ERwin Builtin Wed May 11 23:39:40 2011 endПриложение 3 — Обозначение элементов блок-схем
Схема — графическое представление определения, анализа или метода решения задачи, в котором используются символы для отображения операций, данных, потока, оборудования и т. д. (ГОСТ 19.701−90).Блок-схема — распространенный тип схем, описывающий алгоритмы или процессы, изображая шаги в виде блоков различной формы, соединенных между собой стрелками. Обозначения
Терминатор (пуск-остановка) Элемент отображает вход из внешней среды или выход из нее (наиболее частое применение − начало и конец программы). Внутри фигуры записывается соответствующее действие. Процесс Выполнение одной или нескольких операций, обработка данных любого вида (изменение значения данных, формы представления, расположения). Внутри фигуры записывают непосредственно сами операции, например, операцию присваивания: a = 10*b + c. Решение Отображает решение или функцию переключательного типа с одним входом и двумя или более альтернативными выходами, из которых только один может быть выбран после вычисления условий, определенных внутри этого элемента. Вход в элемент обозначается линией, входящей обычно в верхнюю вершину элемента. Если выходов два или три то обычно каждый выход обозначается линией, выходящей из оставшихся вершин (боковых и нижней). Если выходов больше трех, то их следует показывать одной линией, выходящей из вершины (чаще нижней) элемента, которая затем разветвляется.
Соответствующие результаты вычислений могут записываться рядом с линиями, отображающими эти пути. Примеры решения: в общем случае − сравнение (три выхода: >, <, =); в программировании − условные операторы if (два выхода: true, false) и case (множество выходов). Предопределенный процесс Символ отображает выполнение процесса, состоящего из одной или нескольких операций, который определен в другом месте программы (в подпрограмме, модуле). Внутри символа записывается название процесса и передаваемые в него данные. Например, в программировании − вызов процедуры или функции. Данные (ввод-вывод) Преобразование данных в форму, пригодную для обработки (ввод) или отображения результатов обработки (вывод).
Данный символ не определяет носителя данных (для указания типа носителя данных используются специфические символы). Граница цикла Символ состоит из двух частей − соответственно, начало и конец цикла − операции, выполняемые внутри цикла, размещаются между ними. Условия цикла и приращения записываются внутри символа начала или конца цикла − в зависимости от типа организации цикла. Часто для изображения на блок-схеме цикла вместо данного символа используют символ решения, указывая в нем условие, а одну из линий выхода замыкают выше в блок-схеме (перед операциями цикла). Соединитель Символ отображает вход в часть схемы и выход из другой части этой схемы. Используется для обрыва линии и продолжения ее в другом месте (для избежания излишних пересечений или слишком длинных линий, а также, если схема состоит из нескольких страниц). Соответствующие соединительные символы должны иметь одинаковое (при том уникальное) обозначение. Комментарий Используется для более подробного описания шага, процесса или группы процессов.
Описание помещается со стороны квадратной скобки и охватывается ей по всей высоте. Пунктирная линия идет к описываемому элементу, либо группе элементов (при этом группа выделяется замкнутой пунктирной линией). Также символ комментария следует использовать в тех случаях, когда объём текста, помещаемого внутри некоего символа (например, символ процесса, символ данных и др.), превышает размер самого этого символа. Приложение 4 — Формы выходных отчетов системы
