102407 (590611), страница 11

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 11)

- рассмотрением проблемы технологичности как системы;

- обучением и повышением квалификации в области технологичности.

Большой объем и многообразие решаемых задач по обеспечению эффективной организации управленческого труда в организации и высококачественной отработки конструкций изделий РЭА на технологичность, а также потребность в оперативной обработке и анализе больших объемов информации предопределяет необходимость применения средств вычислительной техники. Разработанная автоматизированная система количественной оценки эффективной организации управленческого труда в организации и технологичности, представленная в этом проекте, вносит существенный вклад в сокращение затрат при проектировании и освоении изделий РЭА, может быть внедрена в реальном производстве и принести заметный экономический выигрыш.

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

1. Ансофф И. Стратегическое управление. - М.: Экономика, 1989.

2. Винокуров В.Ф. Организация стратегического управления на предприятии. - М., 1996.

3. Виханский О.С., Стратегическое управление. - М.: Гардарика, 1998.

4. Гусев Ю.В. Стратегическое управление. - Новосибирск, 2005.

5. Ефремов B.C. Стратегия бизнеса. - М.: Финпресс, 2004.

6. Кинг У., Клиланд Д. Стратегическое планирование и хозяйственная политика. -М.: Прогресс, 1982.

7. Клейнер Г.Б., Тамбовцев В.Л., Кичалов P.M. Предприятия в нестабильной экономической среде: риски, стратегия, безопасность. - М.: Экономика, 1997.

8. Томпсон А., Формби Дж. Экономика фирмы. - М.: Бином, 2003.

9. Стратегия и тактика антикризисного управления фирмой. / Под ред. Л. Градова. - СПб.: Специальная литература, 2004.

10. Баканов М.М., Шеремет А.Д. Теория экономического анализа. - М.: Финансы и статистика, 1995.

11. Мамедов О.М., Долятовский В.А. и др. Современная экономика. - Ростов-на-Дону: Феникс, 1995.

12. Шапиро В.Д., Ильин Н.И и др. Управление проектами. - СПБ.: Два-Три, 2002.

13. Поршнев А.Г. Управление инновациями в условиях перехода к рынку. –М. РИЦЛО "Мегаполис-контакт", 1993.

14. Санто Б. Инновация как средство экономического развития. - М.: Прогресс, 1990.

15. Устинов В.А. Управление инновационной деятельностью в процессе создания новой техники, освоения производства готовой продукции. - М.: ГАУ, 1995.

1. Глущенко В. Разработка управленческого решения. - М.: Крылья, 2000.

2. Экспертиза инноваций. В помощь предпринимателю и банкиру. - М., 1992.

3. Ременников М. Разработка управленческого решения. - М.: ЮНИТИ, 2000.

4. Труханов Р.И. Модели принятия решений в условиях неопределенности. -М.: Наука, 1981.

5. Кхол И. Эффективность управленческих решений. - М.: Прогресс, 1975.

6. Рельян Я.Р. Аналитические основы принятия решений. - М.: Финансы и статистика, 2003.

7. Венделин А.Г. Подготовка и принятие управленческого решения. Методический аспект. -М.: экономика, 1977.

8. Екатеринославский Ю.Ю. Управленческие ситуации: анализ и решения. М.: Экономика, 2001.

9. Вилкас Э.И., Майминас Е.З. Решения: теория, информация, моделирование. -М.: Радио и связь, 1981.

10. Эддоус. Методы принятия решений. - М.: ЮНИТИ, 1998.

11. Планкет Л., Хейл Г. Выработка и принятие управленческих решений. / Сокр. Перевод с анг. -М.: Экономика. 2004.

12. Вейцман З.В., Венбрин В.Д. Технологическая подготовка производства РЭА. М.: Радио и связь, 1989.

13. Нечипоренко В.И. Структурный анализ систем. М.:Сов. радио, 1977.

14. Технология и автоматизация производства РЭА/ Под ред. А.П. Достанко, Ш.М. Чабдарова. М.: Радио и связь, 1989.

15. Бешелев С.Д., Гурвич Ф.Г. Математико-статистические методы экспертных оценок. «Статистика», 1980.

16. Кэндел М. Ранговые корреляции. Пер. с англ. Е.М. Итыркина и Р.М.Энтова . М.: Статистика, 1975.

17. Статистические методы анализа экспертных оценок. М.: Наука, 1977.

18. Войчинский A.M., Янсон Я.Ж. Технологичность изделий в приборостроении. Л.: Машиностроение 1988.

1. Михельсон-Ткач В.А. Повышение технологичности конструкций. М.: Машиностроение, 1988.

2. Пушкарь Б.М., Клебан П.С. система отработки и оценки изделий на технологичность. Из опыта ПО им. С.П.Королева. Киев: Знание, 1985.

3. Методика определения экономической эффективности. ОСТ4 ГО.091.025. М.: Изд-во стандартов, 1983.

4. Технико-экономическое обоснование дипломных проектов/ Под ред. В.К. Беклешова. М.: Высшая школа, 1991.

Приложение 1

Текст программы количественной оценки технологичности РЭА

SET DATE DMY SET TALK OFF SET DELETE ON SET BELL OFF SET STATUS BAR ON SET NOTIFY OFF SET CENT ON SET AUTOSAVE ON CLOSE ALL USE PROD IN A USE PRODD IN В USE PRODM IN С USE PRODY IN D USE TOVAR IN E

• *********************************************************

• *

• * 06/21/05 MENU1.MPR 00:23:33

• *

• *********************************************************

• *

• * Author's Name

• *

• * Copyright (C) 2005 Company Name

• * Address

• * City, Zip

• *

• * Description:

• * This PROGRAM was automatically generated BY GENMENU.

• *

• *********************************************************

• *********************************************************

• *

• * Menu Definition

• *

• *********************************************************

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD JjrOOuars OF _MSYSMENU PROMPT "Справка" COLOR SCHEME 3;

KEYALT+C, "" DEFINE PAD JjrOOuart OF _MSYSMENU PROMPT "Данные" COLOR SCHEME 3;

KEYALT+Д,"" DEFINE PAD JjrOOuaru OF _MSYSMENU PROMPT "Расчет" COLOR SCHEME 3;

KEY ALT+P, "" DEFINE PAD JjrOOuarv OF _MSYSMENU PROMPT "Документ" COLOR SCHEME 3;

KEYALT+Д,"" DEFINE PAD JjrOOuarw OF _MSYSMENU PROMPT "Технологичность" COLOR SCHEME 3;

KEYALT+M,"" DEFINE PAD JjrOOuarx OF _MSYSMENU PROMPT "Выход" COLOR SCHEME 3;

KEYALT+B, "" ON PAD JjrOOuart OF _MSYSMENU ACTIVATE POPUP данные ON PAD JjrOOuaru OF JVTSYSMENU ACTIVATE POPUP расчет ON PAD JjrOOuarv OF JVTSYSMENU ACTIVATE POPUP документ ON PAD JjrOOuarw OF _MSYSMENU ACTIVATE POPUP оценка

DEFINE POPUP данные MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF данные PROMPT "Ввод экспертов" DEFINE BAR 2 OF данные PROMPT "Просмотр" DEFINE BAR 3 OF данные PROMPT "Изменение" DEFINE BAR 4 OF данные PROMPT "Редактирование"

DEFINE BAR 5 OF данные PROMPT "Наименование изделий"

ON SELECTION BAR1 OF данные DO FORM V_PROD

ON SELECTION BAR2 OF данные DO FORM PROSM

ON SELECTION BAR3 OF данные DO FORM RED AC

ON SELECTION BAR4 OF данные DO FORM RED AC WITH 2

ON SELECTION BAR5 OF данные DO FORM TOVAR

DEFINE POPUP расчет MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF расчет PROMPT ^“” DEFINE BAR 2 OF расчет PROMPT *"* DEFINE BAR 3 OF расчет PROMPT ""

ON SELECTION BAR 1 OF расчет DO FORM RASC1 ON SELECTION BAR 2 OF расчет DO FORM RASC2 ON SELECTION BAR 3 OF расчет DO FORM RASC3

DEFINE POPUP документ MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF документ PROMPT "Таблица 1" DEFINE BAR 2 OF документ PROMPT "Таблица2" DEFINE BAR 3 OF документ PROMPT "Графики"

ON SELECTION BAR1 OF документ DO DOC1 ON SELECTION BAR2 OF документ DO DOC2 ON SELECTION BAR3 OF документ RUN EXCEL

DEFINE POPUP pac4eTMARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF расчет PROMPT "Формирование массива" DEFINE BAR 2 OF расчет PROMPT "Очистка БД" DEFINE BAR 3 OF расчет PROMPT "Архивирование БД"

ON SELECTION BAR1 OF расчет DO FOR MODEL ON SELECTION BAR1 OF расчет DO OCHISTKA

ON SELECTION BARl OF расчет DO ARXIV

ON SELECTION PADljrOOuarx OF _MSYSMENU DO EXIT

read events

PROCEDURE EXIT DATABASE CLOSE QUIT

PROCEDURE OCHISTKA

SELEA

DELETE ALL

PACK

SELEB DELETE ALL PACK

SELEC DELETE ALL PACK

SELED DELETE ALL PACK

PROCEDURE ARXIV

RUN ARJ E BD.ARJ

МОДУЛЬ У PROD <ДОБАВИТЬ>

SELEA

APPEND BLANK

REPLACE DATE WITH PI 1,;

NAIM WITH TOVAR.NAIM,;

0TDELWITHP12,;

COST WITH P13,;

SEBWITHP14,;

K0L_V0WITHP14 THISFORM.REFRESHO RELEASE THISFORM

МОДУЛЬ PROSM

<ВПЕРЕД>

SELEA

IF !EOF()

SKIP

ELSE

GO TOP

ENDIF

THISFORM.REFRESHO

<НАЗАД>

IF !BOF()

SKIP-1

ELSE

GO BOTTOM

ENDIF

THISFORM.REFRESHO

<ПОСЛЕДНЯЯ> GO BOTTOM THISFORM.REFRESHO

<ПЕРВАЯ>

GO TOP

THISFORM.REFRESHO

< ПОИСК>

DO FORM POISK

SELEA LOCATE FOR DATA.=P21 PROSM.REFRESH() RELEASE THISFORM

< ВЫХОД> RELEASE THISFORM

МОДУЛЬ REDAC

<ВПЕРЕД>

SELEA

IF !EOF()

SKIP

ELSE

GO TOP

ENDIF

THISFORM.REFRESHO

<НАЗАД>

IF !BOF()

SKIP-1

ELSE

GO BOTTOM

ENDIF

THISFORM.REFRESHO

<ПОИСК>

DO FORM POISK

SELEA LOCATE FOR DATA.=P21 REDAC.REFRESHO RELEASE THISFORM

< ВЫХОД> RELEASE THISFORM

МОДУЛЬ TOVAR

<ДОБАВИТЬ>

SELEE

APPEND BLANK

REPLACE DATA WITHP31,; NAIM WITH P32,; COST WITH P33,; SEBWITH P34

THISFORM.REFRESHO

RELEASE THISFORM

МОДУЛЬ RASCI

< РАСЧИТАТЬ>

SELEA

SET FILTER TO DATA=P41

K=0

S1=0

S2=0

S3=0

SCAN

K=K+1

Sl=Sl+COST

S2=S2+SEB S3=S3+KOL_VO ENDSCAN SELEB

LOCATE FOR DATA = P41 IF FOUND() REPLACE COSTl WITH (COSTl+S1)/(K+1),;

SEB1 WITH SEB1+S2,;

KOL_V01 WITHS3+KOL_V01,;

VYR1 WITHVYR1+S1,;

SSEB1 WITH (SEB1+S2)/K+1,;

PRIB1 WITH VYR1-SEB1,;

RENT1 WITHPRIB1/SEB1 ELSE

APPEND BLANK REPLACE DATA WITH P41,;

COSTl WITH(S1)/(K),;

SEB1 WITH S2,;

KOL_V01 WITH S3,;

VYR1 WITH SI,;

SSEB1 WITH (S2)/K,;

PRIB1 WITHVYR1-SEB1,;

RENT1 WITHPRIB1/SEB1 ENDIF SELEA

THISFORM.REFRESH() RELEASE THISFORM

МОДУЛЬ RASC2

< РАСЧИТАТЬ>

SELEA

SET FILTER TO CMONTH(DATA)=P51

K=0

S1=0

S2=0 S3=0 SCAN

K=K+1 S1=S1+C0ST S2=S2+SEB S3=S3+KOL_VO ENDSCAN SELEC

APPEND BLANK

POK=STR(MONTH(DATA))+STR(YEAR(DATA)) LOCATE FOR MOTH - РОК IF FOUNDO REPLACE COSTl WITH (C0ST1+S1)/(K+1),;

SEB1 WITH SEB1+S2,; KOL_V01 WITHS3+KOL_V01,;

VYR1 WITHVYR1+S1,;

SSEB1 WITH (SEB1+S2)/K+1,;

PRIB1 WITH VYR1-SEB1,;

RENT1 WITHPRIB1/SEB1 ELSE REPLACE MOTH WITH РОК,;

COSTl WITH(S1)/(K),;

SEB1 WITH S2,;

KOL_V01 WITH S3,;

VYR1 WITH SI,;

SSEB1 WITH (S2)/K,;

PRIB1 WITH VYR1-SEB1,;

RENT1 WITHPRIB1/SEB1 ENDIF

SELEA

THISFORM.REFRESHO

RELEASE THISFORM

МОДУЛЬ RASC3

< РАСЧИТАТЬ>

SELEA

SET FILTER TO YEAR(DATA)=P61

К=0

S1=0

S2=0

S3=0

SCAN

K=K+1 Sl=Sl+COST S2=S2+SEB S3=S3+KOL_VO ENDSCAN SELED

APPEND BLANK LOCATE FOR YER = STR(P61) IF FOUND() REPLACE COSTl WITH (C0ST1+S1)/(K+1),;

SEB1 WITH SEB1+S2,;

KOL_V01 WITHS3+KOL_V01,;

VYR1 WITHVYR1+S1,;

SSEB1 WITH (SEB1+S2)/K+1,;

PRIB1 WITH VYR1-SEB1,;

RENT1 WITHPRIB1/SEB1 ELSE REPLACE YER WITH STR(P61),;

COSTl WITH(S1)/(K),;

SEB1 WITH S2,;

KOL_V01 WITH S3,;

VYR1 WITH SI,;

SSEB1 WITH (S2)/K,;

PRIB1 WITH VYR1-SEB1,;

RENT1 WITHPRIB1/SEB1

ENDIF

SELEA

THISFORM.REFRESHO

RELEASE THISFORM

МОДУЛЬ DOC 1

< ПЕЧАТЬ>

USETABL1 INF

REPLACE PI WITH P71, P2 WITH P72

SELEC

USE TABL IN G

SET FILTER TO LEFT(MOTH,4)=P71

SELEG

GO TOP

SELEC

SCAN

SELEG

REPLACE MON WITH C.MOTH,;

VI WITHC.VYR2,;

SI WITHC.SEB2,;

PR1 WITH C.VYR2-C.SEB2,;

RE1 WITHC.RENT2 SKIP SELEC ENDSCAN

SET FILTER TO LEFT(MOTH,4)=P72

SELEG

GO TOP

SELEC

SCAN

SELEG

REPLACE V2 WITH C.VYR2,;

S2 WITH C.SEB2,;

PR2 WITH C.VYR2-C.SEB2,;

RE2 WITH C.RENT2 SKIP SELEC ENDSCAN

REPORT FORM REPORTl NOCONS PREW SELEG DELE ALL PACK USE THISFORM.REFRESHO

RELEASE THISFORM

МОДУЛЬ РОС2

<ПЕЧАТЬ>

SELED

SET FILTER TO VAL(YER)=P82

USE TABL3 IN G

SCAN

SELEG

REPLACE Y2 WITH D.MOTH,;

V2 WITH D.VYR3,;

S2 WITH D.SEB3,;

PR2 WITH D.PRIB3,;

RE2 WITH D.RENT3 SKIP SELEC ENDSCAN

REPORT FORM REPORT2 THISFORM.REFRESHO

<ОТКАЗ> RELEASE THISFORM

МОДУЛЬ ozenca < ФОРМИРОВАТЬ DIMENSION B(100), C(100), D(100) FOR 1=1 TO 100

B[I]=ROUND()*100

C[I]=ROUND()*100

D[I]=ROUND()*100

ENDFOR

REPLACE MON WITH C.MOTH,;

VI WITHC.VYR2,;

SI WITHC.SEB2,;

PRl WITH C.VYR2-C.SEB2,

RE1 WITHC.RENT2 SKIP SELEC ENDSCAN

RELEASE THISFORM

Характеристики

Список файлов ВКР