- внедрением методов определения технологичности конструкции, начиная с ранних этапов разработки изделий;
- внедрением и использованием более комплексных оценок, в особенности для начальных этапов проектирования;
- развитием технологического мышления специалистов, занимающихся разработкой изделий;
- созданием методологии поиска оптимального решения с использованием вычислительной техники;
- рассмотрением проблемы технологичности как системы;
- обучением и повышением квалификации в области технологичности.
Большой объем и многообразие решаемых задач по обеспечению эффективной организации управленческого труда в организации и высококачественной отработки конструкций изделий РЭА на технологичность, а также потребность в оперативной обработке и анализе больших объемов информации предопределяет необходимость применения средств вычислительной техники. Разработанная автоматизированная система количественной оценки эффективной организации управленческого труда в организации и технологичности, представленная в этом проекте, вносит существенный вклад в сокращение затрат при проектировании и освоении изделий РЭА, может быть внедрена в реальном производстве и принести заметный экономический выигрыш.
Список литературы
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.
16. Глущенко В. Разработка управленческого решения. - М.: Крылья, 2000.
17. Экспертиза инноваций. В помощь предпринимателю и банкиру. - М., 1992.
18. Ременников М. Разработка управленческого решения. - М.: ЮНИТИ, 2000.
19. Труханов Р.И. Модели принятия решений в условиях неопределенности. -М.: Наука, 1981.
20. Кхол И. Эффективность управленческих решений. - М.: Прогресс, 1975.
21. Рельян Я.Р. Аналитические основы принятия решений. - М.: Финансы и статистика, 2003.
22. Венделин А.Г. Подготовка и принятие управленческого решения. Методический аспект. -М.: экономика, 1977.
23. Екатеринославский Ю.Ю. Управленческие ситуации: анализ и решения. М.: Экономика, 2001.
24. Вилкас Э.И., Майминас Е.З. Решения: теория, информация, моделирование. -М.: Радио и связь, 1981.
25. Эддоус. Методы принятия решений. - М.: ЮНИТИ, 1998.
26. Планкет Л., Хейл Г. Выработка и принятие управленческих решений. / Сокр. Перевод с анг. -М.: Экономика. 2004.
27. Вейцман З.В., Венбрин В.Д. Технологическая подготовка производства РЭА. М.: Радио и связь, 1989.
28. Нечипоренко В.И. Структурный анализ систем. М.:Сов. радио, 1977.
29. Технология и автоматизация производства РЭА/ Под ред. А.П. Достанко, Ш.М. Чабдарова. М.: Радио и связь, 1989.
30. Бешелев С.Д., Гурвич Ф.Г. Математико-статистические методы экспертных оценок. «Статистика», 1980.
31. Кэндел М. Ранговые корреляции. Пер. с англ. Е.М. Итыркина и Р.М.Энтова . М.: Статистика, 1975.
32. Статистические методы анализа экспертных оценок. М.: Наука, 1977.
33. Войчинский A.M., Янсон Я.Ж. Технологичность изделий в приборостроении. Л.: Машиностроение 1988.
34. Михельсон-Ткач В.А. Повышение технологичности конструкций. М.: Машиностроение, 1988.
35. Пушкарь Б.М., Клебан П.С. система отработки и оценки изделий на технологичность. Из опыта ПО им. С.П.Королева. Киев: Знание, 1985.
36. Методика определения экономической эффективности. ОСТ4 ГО.091.025. М.: Изд-во стандартов, 1983.
37. Технико-экономическое обоснование дипломных проектов/ Под ред. В.К. Беклешова. М.: Высшая школа, 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/05MENU1.MPR00: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 <OTKA3> 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
<OTKA3>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() <0TKA3> 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
<OTKA3>
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
<OTKA3>
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
<OTKA3>
RELEASE THISFORM
МОДУЛЬРОС2
<ПЕЧАТЬ>
SELED
SET FILTER TO VAL(YER)<=P81.AND.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
<OTKA3>
RELEASE THISFORM