книги / Теоретические основы автоматизированного управления

WHERE ST1=1 A N D ST2=1;

END!! / / Очищает матрицу A

SET TERM!!;

CREATE PROCEDURE ADD KTZ (ST1P INTEGER,

ST2P INTEGER,

KTZP FLOAT) AS

BEGIN UPDATE A

SET KTZ=:KTZP

WHERE ST1=:ST1P A N D ST2=:ST2P; END!! / / Добавляет значение в матрицу А

SET TERM!!;

CREATE PROCEDURE STD (PARI INTEGER)

AS

DECLARE VARIABLE XI INTEGER;

DECLARE VARIABLE X2 INTEGER;

DECLARE VARIABLE X3 INTEGER;

DECLARE VARIABLE X4 INTEGER;

DECLARE VARIABLE X5 INTEGER;

DECLARE VARIABLE X6 INTEGER;

DECLARE VARIABLE X7 INTEGER;

DECLARE VARIABLE X8 INTEGER;

DECLARE VARIABLE X INTEGER;

DECLARE VARIABLE DX FLOAT;

DECLARE VARIABLE CX VARCHAR(2);

DECLARE VARIABLE IR INTEGER;

DECLARE VARIABLE IC INTEGER;

DECLARE VARIABLE IP1 INTEGER; BEGIN

UPDATE N B

SET NBP=0;

SELECT M AX(STl) FROM A WHERE KTZOO

INTO :X1;

SELECT COUNT(CHR) FROM T1

WHERE (C H R =’> = ’) OR (CH R=’< = ’) OR (CHR=’> ’) OR (CHR= INTO :X2;

SELECT COUNT(CHR) FROM T1

WHERE (C H R =’> = ’) OR (CH R=’= ’) OR (CH R=’>’)

INTO :X5;

X=X1+X2+X5+1;

X8=X-X5*

SELECT COUNT(CHR) FROM T1 WHERE CHR<>"

INTO :X6; X7=X-X2-X5;

FOR SELECT T1.ST3, T l.D IG , Tl.C H R FROM T1 INTO :X3, :DX, :CX

DO BEGIN

UPDATE A SET KTZ=:DX

WHERE ST1=:X A N D ST2=:X3 A N D :CX=’= ’; UPDATE A

SET KTZ=:DX

WHERE ST1=:X AN D ST2=:X3 A N D :CX=’> = ’; UPDATE A

SET KTZ=:DX

WHERE ST1=:X AND ST2=:X3 A N D :CX=’< = ’; UPDATE A

SET KTZ=:DX+I

WHERE ST1=:X AND ST2=:X3 A N D :CX=’>’; UPDATE A

SET KTZ=:DX-1

WHERE ST1=:X AND ST2=:X3 A N D :CX=’<>; END

UPDATE T1 SET FLG=0; X4=l;

WHILE (:X4<:X6+1) DO BEGIN

SELECT CHR FROM T1 WHERE ST3=:X4

INTO :CX;

IF (:CX=’< = ’ OR :CX=’< ’) THEN BEGIN

EXECUTE PROCEDURE PR2L(:X4, :X7); X7=X7+1;

END

IF ( :CX=’= ’) THEN BEGIN

EXECUTE PROCEDURE PR2E(:X4, :X7, :X8); X7=X7+1;

X8=X8+1; END

IF (:CX=’> = ’ OR :CX=’>’) THEN

BEGIN

EXECUTE PROCEDURE PR2G(:X4, :X7, :X8);

X7=X7+1;

X8=X8+1;

EN D

X4=X4+1;

EN D

UPDATE A SET KTZ=KTZ/:PAR1

WHERE ST2=:X6+1;

UPDATE A SET KTZ=0

WHERE ST2=:X6+1 A N D ST1=:X;

UPDATE BS SET INDX=0;

FOR SELECT TI.ST3, Tl.C H R FROM T1

INTO :DX, :CX

DO

IF (:CX=’= ’ OR :CX=’> = ’ OR :CX=’>’) THEN

UPDATE BS SET IN D X = l

WHERE BSROW=:DX;

WHILE(:IR<:X) DO BEGIN

SELECT NBP FROM NB WHERE NBCOL=:IR INTO :IP1;

IF (:IP1=0) THEN EXECUTE PROCEDURE ISK(:IR, :X6); IR=IR+1;

END

EXECUTE PROCEDURE ISK(:X, :X6); END!!

Клиентская часть

unit U nitl;

interface

uses

Windows, Messages, SysUtiis, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, IBDatabase, Grids, DBGrids, IBCustomDataSet, IBTable, Mxstore, M XDB, DBTables, MXTABLES, MXGRID, StdCtrls, Buttons, ExtCtrls;

Forml: TForml; implementation

{$R *.dfm}

procedure TForml,Button2Click(Sender: TObject); var

f: extended; begin

StoredProcl .UnPrepare; s:=Edit3.Text; f;=StrToFloat(s);

StoredProcl.ParamByName(£ktzp’).Value:=f;

s:=Editl.Text;

xl:=StrToInt(s); StoredProcl.ParamByName(£stlp’).Value:=xl;

s:=Edit2.Text;

x2:=StrToïnt(s); StoredProcl.ParamByName(*st2p,).Value:=x2;

StoredProc 1. Prepare;

StoredProcl.ExecProc;

DecisionQueryl .Active:=false; DecisionQuery 1 .Active:=true; end;

procedure TForml.ButtonlClick(Sender: TObject); begin

StoredProc3.UnPrepare;

if Forml.RadioButton2.Checked=true then StoredProc3.Params[0].AsInteger:=1

else StoredProc3.Params[0].AsInteger:=-l;

Stored РгосЗ.Prepare ;

StoredProc3.ExecProc; DecisionQueryl .Active:=false; DecisionQueryl.Active:=true; end;

procedure TForml.Button4Click(Sender: TObject); begin

StoredProc4. UnPrepare;

StoredProc4.Prepare;

StoredРгос4.ЕхесРгос;

DecisionQuery1.Active:=false; DecisionQuery1.Active:=true; end;

procedure TForml.FormActivate(Sender: TObject); begin

DecisionGridl.DefaultColWidth:=50;

end;

procedure TForml.Button3Click(Sender: TObject); begin

StoredProc2.UnPrepare;

StoredProc2.Prepare;

StoredProc2.ExecProc;

DecisionQueryl.Active:=false; DecisionQueryl .Active: =true; end;

procedure TForml.Button5Click(Sender: TObject); begin

StoredProc5 .UnPrepare; StoredProc5.Prepare; StoredProc5.ExecProc;

DecisionQueryl .Active:=false; DecisionQueryl .Active:=true; end;

procedure TForml.Button6Click(Sender: TObject); begin

StoredРгосб. UnPrepare; StoredProc6.Prepare; StoredProcé.ExecProc;

DecisionQuery 1.Active:=false; DecisionQuery 1 .Active:=true; end;

procedure TForml.Button7Click(Sender: TObject); begin

Forml.Close;

end;

end.

СПИСОК ЛИТЕРАТУРЫ

1.Автоматизированные информационные технологии в экономике/Под ред. Г.А. Титоренко. М.: Компьютер, 1998.

2.Автоматизированное управление предприятием. М.: Инфра, 2000.

3.Александровский АД., Шубин В.Д. Delphi для профессионалов. М.: ДМК,

2000.

4.Ананьин В, Интранет как инструмент корпоративного управления// Сис­

темы управления базами данных. 1997. N° 4. С. 80—87; N° 5. С. 81—86. 5. Барри Нанс. Компьютерные сети/Пер. с англ. М.: БИНОМ, 1995.

6.Бекаревич Ю.Б., Пушкина Н.В. MicrosoftAccess 2000. СПб.: BHV, 1999.

7.Введение в теорию интегрированных САПР гибких технологий и производств/Ю.М. Соломенцев, В.Я. Полыскалин, В.Д. Чертовской и др. М.: Маши­ ностроение, 1991.

8.Вендров А.М. Практические рекомендации по освоению и внедрению

оценивания качества программного обеспечения. СПб.: СПИИРАН, 1992.

10.Воронов Е Ж , Серов В.А. ППП векторной оптимизации в многообъекгной динамической системе//Тр. МВТУ. 1984. N° 407. С. 51—58.

11.Гайдаманин Я.А. Автоматизированные информационные системы. М.: Гелиос, 2002.

12.ГофманВ.,ХомоненкоА. Работа с базой данных в Delphi. СПб.: BHV, 2001.

13.ГраффД.Р., Вайнберг П.Н. SQL. Полное руководство. Киев: BHV, 2001.

14.Габасов Р. и др. Конструктивные методы оптимизации. Ч. 1 и 2. Минск: Университетское, 1984.

15.Дейт К.Д. Введение в системы баз данных. М.: Диалектика, 1998.

16. Дженнингс P. Access ТМ 95 в подлиннике. СПб.: BHV, 1997. В 2 т.

17.Егоров А.И. Оптимальное управление линейными системами. Киев: Вища шк., 1988.

18.Елисеев В., Ладыженский Г. Введение в Интранет//Системы управления базами данных. 1996. N° 5—6. С. 19—43.

19.Заикин О.И., Рахимов Советов Б.Я. Основы построения АСУ. Уткивучи,

1984.

20.Интранет и Адаптивные Инновации: переход от управления к координа­

ции в современных организациях//.^ Info. 21/22, 1996.

21.Интерфейсы ПК. Справочник. СПб.: Питер, 1999.

22.Казанский Д.Л. Формализованное представление работы предприятия //Сети и системы связи. 1998. N° 3(25). С. 52—59.

23.КирстенВ., Притер М., ШульгаП. Объектно-ориентированная разработ­ ка приложений в среде постреляционной СУБД CACHE. СПб.: BHV, 2000.

24.Колесников С. ERP потеряли, a SOVA еще не приобрели//Открытые сис­ темы. 2005. N° 2. С. 66-69.

25.Компьютерные технологам обработки информации. М.: Финансы и ста­ тистика, 1999.

26.Курицкий Б.Я. Поиск оптимальных решений средствами Excel 7.0. СПб.: БХВ, 1997.

27. Курицкий Б.Я. Организация делопроизводства в управлении и офи­ се. СПб.: БХВ, 1997.

28.Ловцов В.А. Введение в информационную теорию АСУ. М., 1996.

29.МишенинА.И. Теория экономических информационных систем. М.: Фи­ нансы и статистика, 1999.

30.Назаров С.В. Практикум по пакетам прикладных программ. М.: Финан­ сы и статистика, 1999.

31.Новоженов Ю.В., Звонким М.З., Тимонин Н.Н. Объектно-ориентирован­

ные СА8Е-средства//Системы управления базами данных. 1996. № 5—6.

С.119-125.

32.Нортон П., Андерсен В. Разработка приложений в Access-97 в подлинни­ ке. СПб.: BHV, 1999.

33.Ойхман Е.Г., Попов Э.В. Реинжиниринг бизнеса. М.: Финансы и стати­ стика, 1997.

34.Олифер В.Г., Олифер Н.А. Компьютерные сети. Принципы, технологии, протоколы. СПб.: Питер, 1999.

35.Организация работы с документами. М.: Инфра, 1998.

36.Основы построения АСУ/Под ред. В.И. Костюка. М.: Сов. радио, 1977.

37.ПетровЕ.В., Чертовской В.Д. Стратегический менеджмент. СПб.:СПбИ МГУП, 1998.

38.Петров Е.В., Чертовской В.Д. Анализ инвестиционных проектов. СПб.: Петербургский институт печати, 2000.

39.Поспелов Г.С. Искусственный интеллект — основа новой информацион­ ной технологии. М.: Высшая школа, 1988.

40.Робсон М., Умах Ф. Практическое руководство по реинжинирингу биз­ нес-процессов. М.: Аудит, 1997.

41.Руководство по методологии АВС. М.: Метатехнология, 1997.

42.СаймонА.Р. Стратегические технологии баз данных: менеджмент на 2000 год. М.: Финансы и статистика, 1999.

43.Системное проектирование интегрированных АСУ ГПС машиностроения/Ю.М. Соломенцев, В.Я. Полыекалин, В.Д. Чертовской и др. М.: Машино­ строение, 1988.

44.Системное проектирование радиоэлектронных предприятий с гибкой автоматизированной технологией. М.: Радио и связь, 1990.

45.СоветовБ.Я. Информационная технология.— М.: Высшая школа, 1994.

46.Советов Б.Я., ЧертовскойВ.Д. Автоматизированное адаптивное управле­ ние производством. СПб.: Лань, 2003.

47.Советов Б.ЯЦехановский В.В. Информационные технологии.— М.: Высшая школа, 2003.

48.Советов Б.Я., Цехановский В.В., Чертовской В.Д. Базы данных: теория и практика.— М.: Высшая школа, 2005.

49.Соломенчук В. Интернет: краткий курс.— СПб.: Питер, 1999.

50.Стивенсон В.Д. Управление производством. М.: Бином, 1998.

51.Тексейра С., Пачеко К. Delphi 4. Руководство разработчика. В 2 т. М.: Вильямс, 2000.

52.УльманД.Д., УидромД. Введение в системы базданных. М.: Лори, 2000.

53.Управление гибкими производственными системами. М: Машино­ строение, 1987.

54.Харрингтон Д.Л. Проектирование баз данных. Просто и доступно. М.: Лори, 2000.

55.Хейг Крикориан. Введение в объектно-ориентированную системную инженерию//Открытые системы. 2003. NQ 11. С. 35—41.

56.Хомоненко А.Д. и др. Базы данных. СПб.: Корона принт, 2000.

57.Черняк Л. PLM — не роскошь, а необходимость//Открытые системы. 2003. N° 6. С. 37-40.

58.Чертовской В.Д. Управление предприятием. Минск: Университетское,

1996.

59.Чертовской В.Д. Компьютерное управление предприятием. Минск:

1995.

>/60. Чертовской В.Д., Шеховцов О.И., Шифрин Б.М. Интеллектуальные сред­ ства поддержки принятия решений. СПб.: Изд-во СПбГЭТУ, 1999.

61.Чертовской В.Д. Базы и банки данных. СПб., 2000.

62.Чертовской В.Д. Базы и банки данных. М.: Изд-во МГУП, 2001.

63.Чертовской В.Д., Шеховцов О.И. Объектно-ориентированный подход в

построении баз данных. М.: Изд-во МГУП, 2001.

64. Шумаков Л,В. Delphi 5. Полное руководство пользователя. М.: Нолидж,

2000.

ОГЛАВЛЕНИЕ