Формирование кадров управления на промышленных предприятиях тема диссертации и автореферата по ВАК РФ 08.00.05, кандидат экономических наук Гонтарь, Влада Валерьевна

• Гонтарь, Влада Валерьевна
• кандидат экономических наук
• 2004

Оглавление диссертации кандидат экономических наук Гонтарь, Влада Валерьевна

Глава I Теоретический аспект оценки роли кадрового потенциала предприятий

1.1 Направления интенсификации управления

1.2 Формы подготовки и повышения квалификации управленческих кадров на промышленных предприятиях

1.3 Управленческий потенциал: понятие, структура и особенности его развития

Глава II Исследование проблем формирования управленческого потенциала на промышленных предприятиях

2.1. Анализ иерархически-временных границ эффективности труда руководителей

2.2, Факторный анализ динамики развития управленческого потенциала

2.3 Взаимодействия координационной и технологической подсистем производственной структуры

2.4 Кадровые задачи промышленных предприятий в современных экономических условиях

Глава III Управление кадровым потенциалом на промышленных предприятиях

3.1. Профессионально-квалификационный рост руководителей как фактор повышения эффективности управления

3.2 Система ротации кадров как резерв роста эффективности функционирования предприятия

Введение диссертации (часть автореферата) на тему «Формирование кадров управления на промышленных предприятиях»

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

Поэтому создание новой системы формирования руководящих кадров с учетом специфики и особенностей предприятий различных форм собственности в современных условиях представляется одной из главных задач науки и практики. Здесь необходима современная нормативно-правовая база, регламентирующая экономические, организационные и юридические формы функционирования формирующегося рынка управленческих кадров.

Среди проблем современного менеджмента одной из важнейших является проблема формирования кадров управления на промышленных предприятиях, актуальность решения которой усилил переход к разнообразным формам собственности и резкий рост уровня самостоятельности руководителей всех уровней в части выработки, принятия и реализации как оперативных решений, так и особенно решений стратегическо-инновационной направленности.

Следовательно, решение кадровой проблемы управленческой направленности имеет важное как научное, так и прикладное значение, которое будет неизбежно возрастать по мере усложнения хозяйственных ситуаций и управленческих задач.

Вышеизложенное дает основание сделать вывод о своевременности и актуальности выбранной темы диссертационного исследования.

Проведенное исследование соответствует п.8.8 (проблемы качества рабочей силы, подготовки, профессиональной переподготовки и повышения квалификации кадров, инвестиции в человеческий капитал; формирование конкурентоспособности работников; профессиональная ориентация населения; мобильность кадров) и п. 15.26 (методологические и методические подходы к решению проблем в области, организации и управления отраслями и предприятиями машиностроительного комплекса) паспорта специальностей ВАК РФ.

Степень разработанности проблемы:

Вопросами формирования и роста кадрового потенциала руководителей на промышленных предприятиях в нашей стране уделялось довольно большое внимание. Здесь в первую очередь следует отметить исследования проблем управления и создание системы работы с кадрами, отраженные в трудах многих ученых и практиков - Ф.Ф. Аунапу, Р.А. Белоусова, Л.И. Евенко, В.И. Матирко, Л.И. Меньшикова, Б.З. Мильнера, В.Ю. Озиры, A.M. Омарова, А.И. Панова, Ю.А. Розенбаума, Ф.М. Русинова, И.П. Скоробогатова, Ф.Е. Удалова, В.А. Шахового и др. Однако, в условиях усиления рыночных рычагов в развитии экономики эти проблемы в силу объективных причин, обусловленных в первую очередь изменениями условий хозяйствования и временным фактором, требуют дальнейших исследований, учитывающих специфику функционирования промышленных предприятий в изменившейся ситуации.

Работы зарубежных авторов из стран с развитой рыночной экономикой таких как: П. Дракера, У.Г. Оучи, А. Печчеи, Т. Питерса, X. Рихтера, Р. Уотермена и др., облегчают процесс создания новых механизмов кадровой работы. Однако, они не могут учитывать специфику России и обусловленные этой спецификой особенности, связанные с формированием рыночных отношений. Поэтому разработанность данной проблемы и уровень ее исследований должны отвечать тем требованиям, которые к ее решению предъявляют как теория, так и практика настоящего периода, и это так же подтверждает актуальность предпринятого исследования.

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

В процессе реализации цели предполагается решить следующие задачи:

- выбрать методику исследований, позволяющую адекватно отразить реальности кадровых проблем на промышленных предприятиях;

- разработать концептуальную основу функционирования организационно-экономического механизма развития кадрового потенциала на предприятиях с учетом влияния на него внутренних и внешних факторов;

- исследовать процессы и направления интенсификации деятельности руководителей в условиях роста самостоятельности предприятий;

- раскрыть специфику внешних и внутренних стимуляторов эффективной деятельности управленческих кадров;

- предложить комплекс организационно-экономических решений, направленных на рост эффективности труда руководителей и провести их экспериментальную проверку.

Объектом исследования являются промышленные предприятия машиностроения Н. Новгорода и Нижегородской области.

Предметом исследования являются процессы формирования кадров управления и проблемы функционирования реальных систем управления производством на предприятиях.

Теоретической и методологической основой исследования являются труды отечественных и зарубежных ученых и специалистов, директивные и нормативные документы законодательных и исполнительных органов федеральных и региональных властных структур, а также практика, исследование и организация работы с управленческими кадрами в нашей стране и за рубежом. В процессе исследований использовались также некоторые данные статистических органов.

Основные методы исследования. В качестве основного метода исследования использовался системный анализ. В прикладном аспекте были использованы: контекстный анализ специальной литературы; непосредственные наблюдения за функционированием управленческих работников на предприятиях и анкетный опрос персонала; методы математической статистики и теории вероятности.

Информационная база исследования. Научные положения и выводы основаны на изучении отечественной и зарубежной литературы, тематических материалов периодических изданий, информации сети Интернет и материалов, полученных в процессе исследований на предприятиях.

Научная новизна диссертационного исследования состоит в следующем;

- обоснована возрастающая роль кадров управления в росте эффективности функционирования предприятий в условиях интенсификации инновационных процессов в производстве;

- установлена формализованная взаимосвязь роста управленческого потенциала со степенью разделения труда и с динамикой изменения производительности труда;

- разработан метод количественного анализа эффективности труда руководителей во временном аспекте, позволяющий определять величину неиспользуемого управленческого потенциала;

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

Практическая значимость и практическое использование результатов диссертационного исследования состоит в том, что они могут быть использованы в работе с кадрами непосредственно на промышленных предприятиях вне зависимости от их отраслевой принадлежности, величины и формы собственности.

Результаты исследований доведены до стадии практического использования и нашли свое применение в работе с кадрами на Нижегородском заводе им. М.В. Фрунзе, ОАО «НИТЕЛ», и некоторых других. Результаты исследований используются автором в преподавательской деятельности на социально-экономическом факультете Волжской государственной инженерно-педагогической академии.

Апробация работы. Основные положения диссертации докладывались на ряде международных и Всероссийских научно-практических конференций: Германия (2003 г.), Н. Новгород (2000,2001,2002,2003 гг.), Екатеринбург (2001 г.), Дзержинск (2002 ,2003гг.).

Заключение диссертации по теме «Экономика и управление народным хозяйством: теория управления экономическими системами; макроэкономика; экономика, организация и управление предприятиями, отраслями, комплексами; управление инновациями; региональная экономика; логистика; экономика труда», Гонтарь, Влада Валерьевна

Результаты исследования уровней доверия к руководству на крупных и малых предприятий, представлены в таблице 5.

Заключение

Ускорение темпов мирового научно-технического прогресса ведет к интенсификации процессов производства, которые не могут быть осуществлены без интенсификации процессов управления. Однако в процессе осуществления реформ качество управления на промышленных предприятиях и уровень подготовки специалистов в области управления резко ослабли.

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

1. В связи с резким ослаблением регулирующей роли государства в экономических процессах и фактической ликвидацией отраслевого управления на промышленных предприятиях возникло явление информационного, управленческого и все более проявляющегося кадрового вакуума. Последнее есть следствие ликвидации отраслевых центров подготовки и повышения квалификации управленческого персонала без замены их какими-либо другими значимыми источниками кадрового пополнения. Существовавшая ранее плановая система распределения выпускников высших и средних специальных учебных заведений по промышленным предприятиям также не функционирует, а молодые специалисты на предприятия приходят очень редко вследствие низкой заработной платы, ее постоянных задержек и неясности перспективы функционирования особенно крупных предприятий.

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

3. Кадровая политика на промышленных предприятиях должна быть более динамичной и направленной на постоянный рост управленческого потенциала. Одним из путей решения этой проблемы является периодическая и правильно смоделированная система повышения квалификации и стажировки как внутри предприятия, так и за его пределами. Важным элементом здесь является целевая подготовка специалистов, имеющих опыт управленческой деятельности, в системе вузовской подготовки в рамках получения второго высшего образования экономико-управленческого и финансового профиля или первого высшего для лиц, имеющих среднее специальное образование и проявивших организаторские способности на практике. Расширение прав государственных предприятий и преобразование многих из них в акционерные общества позволяет им формировать целевые группы и направлять их в вузы на договорных началах.

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

5. Одним из важнейших направлений наиболее полного использования потенциальных возможностей руководителей производства является их периодическая временная перемещаемость (ротация), в том числе и по горизонтали, но при обязательном соблюдении принципа: от более простого к более сложному.

6. Для каждого руководителя, вне зависимости от его иерархического уровня, кадровыми службами должен разрабатываться гипотетический сценарий должностного продвижения, зависящего от результатов деятельности этого руководителя.

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

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

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

10. Величина коэффициента разделения управленческого труда является достаточно достоверным количественным критерием, позволяющим оценивать величину неиспользуемого управленческого потенциала, для приведения в действие которой нужны организационные мероприятия, не требующие каких-либо существенных материальных затрат.

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

12. На крупных промышленных предприятиях недостаточен уровень доверия высшему руководству, особенно со стороны низших звеньев управления, что отрицательно сказывается на более полном использовании потенциальных возможностей этих звеньев и, как следствие этого, на эффективности производства. Главными причинами этого являются закрытость ряда показателей деятельности руководителей высших звеньев и слабое организационное взаимодействие между ними.

Для поднятия уровня этого доверия, во-первых, необходима четкая и всеми признанная фирменная философия и, во-вторых, пересмотр сведений, попадающих под понятие коммерческой тайны.

Список литературы диссертационного исследования кандидат экономических наук Гонтарь, Влада Валерьевна, 2004 год

1. Аганбегян А.Г. Управление и эффективность. — М.: Экономика, 1981.

2. Агапигов В.Г. Совершенствование методов исследований затрат рабочего времени: Дисс. канд. экон. наук. —JL, 1983.

3. Асеев В.Г. Мотивация поведения и причины ее оптимальности / Под ред. Е.В. Шорохова и др. — М.: Наука, 1983.

4. Атаев А. Изучение организации управленческого труда: На примере гос. учреждений. — М.: Экономика, 1980.

5. Аунапу Ф.Ф. Методы подбора и подготовки руководителей производства. — М.: Экономика, 1971.

6. Афанасьев В.Г. Человек в управлении обществом. — М.: Политиздат, 1977.

7. Афанасьев Э.В., Ярошенко В.Н. Эффективность информационного обеспечения управления. — М.: Экономика, 1987.

8. Байков Н.Д., Русинов Ф.М. Организация и эффективность управления производством. — М.: Московский рабочий, 1973.

9. Белоусов Р.А. Исторический опыт планового управления экономикой СССР. — М.: Мысль, 1983.

10. Бизюкова И.В. Кадры управления: подбор и оценка: учебное пособие.—М.: Экономика, 1998.

11. Бинкин Б.А., Черняк В.И. Эффективность управления: наука и практика. — М.: Наука, 1982.

12. Бир С. Мозг фирмы / Пер. с англ., — М.: Радио и связь, 1993.

13. Бир С. Наука управления / Сокр. пер. с англ. — М.: Энергия, 1971.

14. Бурьян Т.Н., Коржева Э.М. Прогнозирование бюджета возможности и проблемы. — М.: Экономика, 1980.

15. Бюджет времени. Вопросы изучения и использования. Новосибирск: Наука, 1977.

16. Васильев Ю.П. Управление внутрифирменной системой информации. — М.: Экономика, 1984.17. Век. 1995, №25 (94).

17. Виханский О.С., Наумов А.И. Менеджмент. — М.: Высшая школа, 1994.

18. Вейлл П. Искусство менеджмента / Пер. с англ. — М.: Новость, 1993.

19. Вендров Е.Е. Психологические проблемы управления. — М.: Экономика, 1969.

20. Веснин В.Р. Практический менеджмент персонала: Пособие по кадровой работе. — М.: ЮРИСТ, 1998.

21. Войеков М.И. и др. Мотивация трудовой активности: проблемы и поиски. —М.: Экономика, 1991.

22. Волгин А.Г. Управление персоналом в условиях рыночной экономики. —М.: Экономика, 1992.

23. Воронков В.М. Эволюция правящей элиты в период перехода к демократии // Социально—стратификационные процессы в современном обществе. Кн. 2. — М.: ИС РАН, 1993.

24. Вудкок М., Френсис Д. Раскрепощенный менеджер / Пер. с англ. — М.: Дело, 1991.

25. Гастев А.К. Как надо работать. — М.: ВЦСПС, 1927.

26. Гвишиани Д.М. Организация и управление. — М.: Наука, 1972.

27. Гвишиани Д.М., Мильнер Б.З. Организационные резервы управления //Вопросы экономики. 1983, №11.

28. Герчикова И.Н. Менеджмент. — М.: ЮНИТИ, 1994.

29. Голованов Г.А. Во главе коллектива // Экономика и организация промышленного производства. 1983, № 9.

30. Гольденберг И.А. Хозяйственно-социальная иерархия в России до и после перестройки // СОЦИС.1995, №4.

31. Горнев А.З. Проблемы управления крупными промышленными комплексами. — Н.Новгород: Изд-во ННГУ, 1998.

32. Государственное регулирование экономики: мировой опыт и реформы в России. — М.: ИЭ РАН, 1996.

33. Грачев М.В. Суперкадры. Управление персоналом в международной корпорации. — М.: Дело ЛДТ, 1993.

34. Гребнев Е.Т., Смирнов К.А. Нормирование управленческого труда. — М.: Московский рабочий, 1980.

35. Грейсон Дж., О'Дейл К. Американский менеджмент на пороге XXI века / Пер. с англ. — М.: Экономика, 1991.

36. Дараховский И.С., Черноиванов И.П., Брехул Г.В. Бизнес и менеджер. — М.: Азимут—центр, 1992.

37. Дейнеко О.А. Комплексная рационализация управленческого аппарата. — М.: Экономика, 1972.

38. Дейнеко О.А. Рационализация труда руководителя. — М.: Знаке, 1983.

39. Дейнеко О.А. Современный организатор производства. — М Экономика, 1994.

40. Денек К., Гнитецки Я., Критерии оценки качества обучения высшей школе / Пер. с англ. // Современная высшая школа. 1981, №4.

41. Десслер Г. Управление персоналом: Учебное пособие. — М.: БИНОМ, 1997.

42. Дуракова И.В. Управление персоналом: отбор и найм. Исследование зарубежного опыта. — М.: ЦЕНТР, 1998.

43. Должность — директор / Сост. Н.И. Петров. — М.: Московский рабочий, 1985.

44. Дракер П. Эффективный управляющий / Пер. с англ. — М.: 199

45. Дружинин Н.К. Математическая статистика в экономике. — М Статистика, 1971.

46. Евенко Л.И. Организационные структуры управления промышленными корпорациями США: Теория и практика формирования. — М Наука, 1963.

47. Ершова Н.С. Трансформация правящей элиты России в условиях социалистического перелома // Куда идет Россия. — М., 1994.

48. Журавлев А.Г. Управленческий труд и эффективность общественного производства / Под ред. О.Н. Пашкевич. — Минск: Наука техника, 1981.

49. Зазыкин В.Г., Чернышев А.П. Менеджер: психологические аспекты профессии. — М.: 1992.

50. Иванцевич Д.М., Лобанов А.А. Человеческие ресурсы управления.— М.: Дело, 1993.

51. Исаенко А.Н. Кадры управления в корпорациях США. — 1 Наука, 1988.

52. Кабаков B.C. и др. Кадры хозяйственных руководителей. Подбор расстановка, обучение. —Л.: Лениздат, 1982.

53. Кантер Дж. Управленческие информационные системы / Пер. с англ. Под ред. Федулова А.А. и Горшкова И.С. — М.: Радио и связь, 1982.

54. Керженцев П.М. Принципы организации. — М.: Экономика, 1968.

55. Киллен К. Вопросы управления / Сокр. пер. с англ. Под ред. Верещагина И.М. — М.: Экономика, 1981. |

56. Китов А.И. Психология хозяйственного управления. — М.: Профиздат, 1984.

57. Комаров Е.И. Организатор и организаторская деятельность. М.: Московский рабочий, 1986.

58. Кудряшова Л. Каким быть руководителю. — Л.: Лениздат, 1986.

59. Кулагин Г.А. Директорские будни // Экономика и организация промышленного производства. 1983, № 3.

60. Кулаков М.Н., Маусов Н.К. Персонал предприятия в условиях перехода к рынку. — М.: ИНФРА, 1993.

61. Кунц Г., О'Доннел С. Управление: системный и ситуационный анализ управленческих функций. Т.1. / Пер. с англ. Общая ред. и предисловие Гвишиани Д.М. — М.: Прогресс, 1981.

62. Кунц Г., 0"Доннел С. Управление: системный и ситуационный анализ управленческих функций. Т.2. / Пер. с англ. Общая ред. ипредисловие Гвишиани Д.М. — М.: Прогресс, 1981.

63. Куриции А.Н. Управление в Японии: организация и принципы.—М.: Наука, 1981.

64. Курс для высшего управленческого персонала / Сокр. пер. с англ.— М.: Экономика, 1971.

65. Макмиллан Ч. Японская производственная система / Пер. с англ.— М: Прогресс, 1988.

66. Маслов Е.В. Управление персоналом предприятия. — М.: ИНФРА— М, 1998.

67. Марченко И.П. Какой руководитель нам нужен. — М.: Экономика, 1993.

68. Мельник М.В. Анализ и оценка систем управления на предприятии.

69. М.: Финансы и статистика, 1990.

70. Меньшиков Л.И. Деловая оценка работников в сфере управления.— М.: Экономика, 1974.

71. Мескон М.Х., Альберт М., Хедоури Ф. Основы менеджмента / Пер. с англ. — М.: Дело, 1992.

72. Мильнер Б.З. Качество управления — важный фактор экономической безопасности // Вопросы экономики. 1994, № 12.

73. Мильнер Б.З. Реформы управления и управление реформами. — М.: ИЭ РАН, 1994.

74. Мильнер Б.З., Евенко Л.И., Рапопорт B.C. Системный подход к организации управления. — М.: Экономика, 1983.

75. Минервин И.Г. Проблемы управленческих кадров в промышленности США. — М.: Наука, 1974.

76. Моев В.А. Бразды управления (Диалог с акад. Глушковым В.М). Изд. 2-е, доп. — М.: Политиздат, 1977.

77. Морита А. Сделано в Японии: история фирмы "Сони" / Пер. с англ.1. М.: Прогресс, 1993.

78. Не поиск самородков, а планомерная работа с кадрами // Экономикаи организация промышленного производства. 1983, №2.

79. Новоселов О.Н. Директор организатор управления: социологические очерки. — Киров: ВВКИ. Кировское отд., 1982.

80. Одегов Ю.Г., Журавлев П.В. Управление персоналом: Учебник для вузов.—М.: Финстатинформ, 1997.

81. Озира В.Ю. и др. Можно ли управлять предприятием вместе. — М.: Внешторгиздат, 1990.

82. Омаров A.M. Руководитель: размышления о стиле управления. — М.: Политиздат, 1987.

83. Оптнер C.JI. Системный анализ для решения деловых и промышленных проблем / Пер. с англ. — М.: Советское радио, 1969.

84. Организация обучения хозяйственных руководителей. Ф.М. Русинов, Т.В. Бугреева, В.И. Бусов и др. / Под ред. Ф.М. Русинова и Т.В. Бугреевой. — М.: Экономика, 1986.

85. Организация управления: Реферативный сборник. 1987, №3.

86. Основы управления персоналом: Учебник для вузов / Генкин Б.М., Коновалова Г.А., Кочетков В.И. и др.; Под ред. Генкина Б.М. -М.: Высшая школа, 1996.

87. Оучи Уильям Г. Методы организации производства: японский и американский подходы / Сокр. пер. с англ. Научн. ред. Б.З. Мильнера И.С. Олейника. — М.: Экономика, 1984.

88. Оценка работников управления / Под ред. Попова Г.Х. -Московский рабочий, 1976.

89. Панасюк А.Ю. Управленческое общение. — М.: Экономика 1990.

90. Панов А.И. Подбор и подготовка управленческих кадров. Горький: ВВКИ, 1976.

91. Панов А.И., Омышев Н.А. Основы планирования, оценки и подбора ИТР и служащих на промышленных предприятиях. — М., 1968.

92. Папулов П.А. Кадры управления производством. — М.: Экономика, 1985.

93. Печчеи Аурелио. Человеческое качество. — М.: Прогресс, 1985.

94. Питере Т., Уотермен Р. В поисках эффективного управления (Опыт -ф лучших компаний) / Пер. с англ. Под ред. Евенко Л.И. — Прогресс, 1986.

95. Поляков В.А. Технология карьеры. Практическое руководство —М.: Дело ЛТД, 1995.

96. Пономарев Л.Н. и др. Эффективность труда руководителя. — М.: Мысль, 1988.

97. Предприятия в условиях рынка / Под ред. А.Ш. Ахмедова. — М.: ИЭРАН, 1994.

98. Пугачев В.П. Руководство персоналом в организации: Учебник.— М.: Аспект—Пресс, 1998.

99. Рихтер X., Холле X. Опыт успешного руководства / Пер. с нем.—М.: Экономика, 1981.

100. Русинов Ф.М. Технология управления производством. —М.: Московский рабочий, 1976.

101. Силкж Н.А. и др. Организация управленческого труда. — М.: Экономика, 1986.

102. Симонян Р.Х. Начальник цеха: методы и практика руководства. Социологический очерк. — М.: Сов. Россия, 1981.

103. Служебная карьера / Под ред. Охотского Е.В. — М.: Экономика, 1998.

104. Скоробогатов И.Б. Руководитель в системе управления. — М.: 1988.

105. Скоробогатов И.Б. Совершенствование организации работы скадрами в народном хозяйстве. — М.: Экономика, 1982.

106. Смеляков Н.Н. Деловая Америка. — М.: Политиздат, 1970.

107. Стиль работы и образ жизни руководителя: Анализ проблемы, рекомендации / Сокр. пер. с нем. Рук. авт. колл. К. Ладензак. — М.: Экономика, 1985.

108. Современное управление: Энциклопедический справочник. Том 1.—М.: Издатцентр, 1997.

109. Современное управление: Энциклопедический справочник. Том 2. — М.: Издатцентр, 1997.

110. США: экономика, политика, идеология. 1998, №2.

111. США: экономические рычаги в управлении промышленными фирмами. — М.: Наука, 1991.

112. Тарасов В.К. Персонал — технология: отбор и подготовка менеджеров.—Л.: Машиностроение, 1989.

113. Тихомирова А.В. Оценка эффективности управления производством.—М.: Экономика, 1984.

114. Тольдберг И.А. Хозяйственно-социальная иерархия в России до и после перестройки // СОЦИС. 1995, № 4.

115. Травин В.В., Дятлов В.А. Основы кадрового менеджмента. — М.: Дело, 1995.

116. Труд руководителя. Для руководящих управленческих кадров.—М.: Экономика, 1976.

117. Удалов Ф.Е. Организация труда линейных руководителей. — Горький: ВВКИ, 1985.

118. Удалов Ф.Е. Прошлое и будущее: анализ и прогнозы. — Н.Новгород: Изд-во ННГУ, 1997.

119. Управленческое консультирование: в 2-х т. Т.2 / Пер. с англ. — М.: СП Интерэксперт, 1992.

120. Управление проблема кадров / Под ред. Г.Х. Попова, Г.А. Джавадова. — М.: Экономика, 1972.

121. Управление персоналом в организации: Учебник / Под ред. проф. Кибанова. — М.: ИНФРА—М, 1997.

122. Управление персоналом / Под ред. Базарова Т.Ю., Еремина Б.Л.— М.: Банки и биржи. ЮНИТИ, 1998.

123. Управление персоналом в условиях социальной рыночной экономики / Под ред. Р. Марра, Г. Шмидта. — М.: Изд-во МГУ, 1997.

124. Управление развитием производства в промышленных концернах США / Отв. ред. Ю.П. Васильева. — М.: Мысль, 1977.

125. Управление фирмами в Японии / Пер. с японск. Под ред. Русецкого С.Б. — М.: Прогресс, 1969.

126. Управленческие нововведения в США: проблема внедрения. — М.: Наука, 1986.

127. Хокен П. Я начинаю свое дело / Пер. с англ. — М.: Текст, 1992.

128. Цандер Э. Практика управления. — Обнинск: Титул, 1993.

129. Цигичко В.Н. Организационные условия экономического роста, проблемы развития жизнеспособности ФПГ // Экономист. — 1997. №4.

130. Цигичко В.Н. Руководителю — о принятии решений. — М Финансы и статистика, 1991.

131. Швальбе Б., Швальбе X. Личность, карьера, успех / Пер. с нем.— М.: Прогресс, 1993.

132. Штайнхофф Д., Берджес Д. Основы управления малым бизнесом / Пер. с англ. — М.: БИНОМ, 1997.

133. ЭКО. 1999, №4. 137.ЭКО. 1998, №8.

134. Эмерсон Г. Двенадцать принципов производительности / Пер с англ. — М.: Экономика, 1972.

135. Юшков Ю.И. Организация труда хозяйственных руководителей // Экономика и организация промышленного производства. 1972, № 5.

136. Якокка Л. Карьера менеджера / Пер. с англ. — Тольятти: Изд. дом. "Довгань", 1997.

137. Administrative Management. 1981, №4.

138. Chastain C.E. An appropriate time horizon; Now vs. Then. Planning Review. 1982. 10, No 2. P. 24—28. ** 143. Douglass M.E. How to conquer procrastination. SAM. Advanced

139. Management Journal. 1978. 43, No 3. P. 40—50.

140. Granick David. Use of corporate and divisional headquarters: A peculiar American innovation. MSU Business Topics. 1974. 22, № 4. P. 9—17.

141. Mem Factor Technological. Karazowa Univer. — 1983. — 16, №1. —P. 1—15.

142. Training and Development Journal. 1987, №8.

143. Training and Development Journal. 1986,40, №9.W

144. Компьютерная программа автоматической классификации функций организационной структуры управления промышленным предприятием1. Forrcl 1 Option Explicit

145. Dim MaxF, MaxP, NewMaxF As Integer

146. Dim £rit, SrBliz As Single1. Dim SumZatr As Single1. Dim NewSumZatr As Single1. Dim ZatrF As Single1. Dim AboutTxt As String

147. Dim ExcelPathArr As Variant1. Dim ExcelPath As String

148. Const FormatOutTable « "< Унифицированная

149. Выполнение I < коэффициента

150. Private Sub Command10Click() 1 • 1 ' III,: "I. • 1 . i. ■II'.*'"'» I ,.,. .11

151. EndFune I I ■ ■ I ! I '' M

152. End Sub t i ■ * ■ I : il Г l' и I ; . I I II. It 1. IX • : 1 li

153. Private"Sub CommandllClick() | : ■ ' '.'(if

154. PrnFunc • I .- < 1 : li -.l|'

155. Eijd Sub ■ i ., 1. -1 , | ■ linl-HJ i 1 .ic

156. Private Sub Commandl2Clicl; () . ■■• | Г |!ll:|i HI" 1 1 1 1 1' (U.||

157. SaveAeFunc t 1 "1 I I il ., Il ir | 1 H 1

158. End-Sub ■ 1 • 1. :!■ I . j:-.:.|ii

159. Private Sub Command3Click() j ■ I! 1 •• j, :,„!,« 1 ; i;. Г . J1. PrnFunc 1 . 1 .

160. End Sub ■ I i u | . .1 ■■ 1. . .» 1 1 •! I' II < ■I 1. II >:|| 1 . ( . ,■; ;. II ■». . • 1 1 1 ,.,.,1:i : : I. . .t . I ! II.-I' .-<(■ | i II il^l liJ-'iH1. ,.<| 'li I 'll1. *» «• .• I 1,1Й.л1.• I !1. End Subt ■ i •1. Private Sub Form Lo3d()

161. СОПУТСТВУЮЩИЕ 4-АЙЧЫ РАСПРОСТРАНЯЮТСЯ НА УСЛОВИЯХ" £ "AS IS (Как есть), БЕЗ ЛЮБОЙ ГАРА -НТИИ ЛЮБОГО ТИПА, АВТОР НЕ НЕСЕТ НИКАКОЙ ОТВЕТСТВЕННОСТИ ЗА УБЫТКИ ИЯИ СПЕЦИАЛЬНЫЙ УЩЕРБ ИЗ-ЗА ИСПОЛЬЗОВАНИЯ ЭТОГО ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ. " ~ , • г.,-,., ' .

162. Text4 .Text AboutTxt ; | ;1.bel8.Caption = AboutTxt Label8.Alignment -2 'KeyPreview «• True1. Dim MyAppID ' "1. As String '

163. MyAppID Shell ("c:\windows\calc.exe", 1) ' Run Microsoft Wocd.1. AppActivate MyAppID . .option Explicit i

164. ExcelPathArr » GetRegKeyValues (HKEYLOCAL MACHINE, "SoftwareNMicroaof t\Windows\Cur rentVersi on\App Patho\EXCEL.EXE") ~ '

165. ExcelPathArr(Q, 0) «= "Error" Then ' • и | : !1. ExcelPath "" . . ! i1. Else . ;.:'!'"■

166. ExcelPath ExcelPathAiгк*), 1) End If1. Err <> 0 Then 1msg » "He обнаружен-Excel"

167. MsgBox msg ' Display message. !,. !

168. Resume Next • i | 1 'End If ' ' '- i

169. On Error Goto FormLcadJErr

170. FName CurDie £ "\SSSSSSS.xls"

171. Open FName Foe Inpul Awes я Ke^d Аз fflO1. Close #10

172. Datal.DatabaseName FNaae Datal.Connect » "Exc,el 3.0" ' "Datal.RecordSource - Datal.Recordset Atal.RecordSource » "Лист15" Datal.Refresh

173. Err 3024 Or Err - 3011 Or Err - 53 Thenset CommonDialog properties before showing With CommonDialogl .FileName ""

174. DialogTitle « "Выберите файл входных данных" .Filter "(*.xls)|*.xls" .InitDir - CurDir "'.filename - "inputl.xls"

175. FName .FileName Resume Else

176. Unload Me End If ** End With

177. Elself Err 3011 Then * format file error

178. Ret MsgBox("Неверный формат'файла", , "ОшиОка")

179. Elself Err <> U Then ' another error

180. Ret » MsgBox(Err .Description, , "Саиибка") End End If1. Resume FormLoad Exit1. End Sub

181. Private Sub CommandlClic)c()

182. On Error GoTo ErrorHandler ' Set up error handler. Do

183. CommonDialogl.CancelError True CommonDialogl.DefaultExt - "xls" J^omraonDialogl.filename « "inputl.xls"

184. CommonDialogl.Filter "(*.xls)I*.xls" 'CommonDialogl.Filte,? - "Файлы MS Excel(*.xls)I*.xls" CommonDialogl.Flags vbOFNPATHMUSlEXIST ^ CommonDialogl.Action - 1 Щ If CommonDialogl.FileName - "" Then Exit Sub End If

185. Datal.Refresh Text3.Visible False Text3.Text - 0 Text3.Visible - True

186. Text3 .Text Format(0#, ### #M ###")

187. OpenDataBase CommonDialogl.FileName v Loop while NullFunc 1 * Exit outer loop immediately.While NullFunc N ^ 'Loop Until NullFunc « 1 ' Exit outer loop immediately.While NullFunc - Exit Sub ErrorHandler: If Err <> 32755 Then

188. MsgEox "He.удаётся открыть файл " & CommonDialogl.FileName Resume Next End If

189. Datal.Refresh ' *DataReset() End* Sub

190. Public Sub OpenDataBase(ByVal DataFile As String) Dim i As Integer NullFunc 0

191. Datal.Connect "Excel 3.0" Datal.DatabaseName = DataFile •'' "Datal.Refresh DataReset (DataFile)1. End Sub

192. Private Sub Command2Click()1. EndFunc1. End Sub

193. Private Sub Cominand4Click () И» ClearGrid Outpu.tTable OutputTableShow KsaultTableShow End Sub1. Private Sub Rol'ableQ

194. Dim i, J, CellWidth, RowHeight As Integer Dim roextrem As Single

195. MSFlexGrid2.Cols = MaxF + 1 MSFlexGr:id2 .Rows MaxF + 1

196. M5FlexGrid2.Col 0 For i - 1 To MaxF MSFlexGrid2.Row - i MSFlexGrid2.Text - a(i)1. Forml б

197. RowHeight » TextHeight(MSFlexGrid2.Text) If RowHeight > MSFlexGrid2.RowHeight(i) Then

198. MSFlexGcid2.RowHeight (i) « RowHeight #nd «

199. CellWidth *'TextWidth(MSFlexGrid2.Text) + 100 If CellWidth > M5FlexGrid2.ColWidth(0) Then MSFlex"Grid2 .ColWidth (0) CellWidth End If1. Next i

200. MSFlexGrid2.Row 0 For i - 1 To MaxF MSFlexGrid2.Col - i MSFlexGrid2.Text = a(i)

201. CellWidth TextWidth(MSFlexGcid2.Text) + 100 If CellWidth > MSFlexGrid2.ColWidth(i) Then MSFlexGcid2.ColWidth(i) = CellWidth End If•RowHeight TextHeight (MSFlexGrid2.Text)

202. RowHeight > MSFlexGcid2.RowHeight(0) Then •MSFlexGcid2.RowHeight(0) RowHeight •End If1. Next iroMax 0 roMin = 1

203. MSFlexGrid2.Text ro(i# J) Next J1. Next i

204. StatusBar2.Panels(1).Text "Минимальное значение: " & roMin StatusDar2.Panels (2) .Text - "Максимальное значение: " & roMax ^^Ind Sub

205. Private Sub Comman.c|7Click ()1. EndFunc1. End Sub

206. Private Sub Command8Cliclc()1. EndFunc1. End Sub

207. Text3.Text. = Format(CCur(0), "### ### ### ###") StatusBarl.Panels(1).Text "Файл: " & Datal.DatabaseName MaxP = Datal.Recordset.Fields .Count - 1 MSFlexGridl.Cols - MaxP + 1 MSFlexGridl.Row = 0 i - 0

208. MSFlexGridl.Col I это угол - он не нужен ''MSFlexGridl.Text - Datal.Recordset.Fields(I).Name For i = 1 To Datal.Recordset.Fields.Count - 1 MSFlexGridl.Col - i

209. MSFlexGridl.Text = Datal.Recordset.Fields(i).Name 'h(I) Trim(Datal.Recordset.Fields(I).Name) h(i) =• Datal.Recordset.Fields (i) .Name

210. MSFlexGridl.ColWidth(i) TextWidth(MSFlexGridl.Text) + 5801. Next

211. MaxP Datal.Recordset.Fields.Count - 1 StatusEarl.Panels(3).Text = "Подразделений: " & MaxP1. Datal.Refresh1. Datal.Recordset.MoveLast

212. MSFlexGridl.Rows Datal.Recordset.RecordCount + 1 Datal.Recordset.MoveFirst MSFlexGridl.Row 0 J - 0

213. Do While Hot Dat<il.Recordset.EOF MSFlexGridl.Row MSFlexGridl.Row + 1zatrsred(J + 1) = 0

214. For i 0 To Datal.Recordset.Fields.Count - 1 'MSFlexGridl.Col ■= i value - Datal.Recordset.Fields(i).value If IsNull(value) Then

215. IsEmpty(Datal.Recordset.Fields(I).value) Then MSFlexGridl.Text = "" If i 0 Then a(J + 1) - "" a index(J + 1) - 1 Else: ah (J + 1, i) - 0 End If Else

216. MSFlexGrid1.Text Datal.Recordset.Fields(I).Value If i - 0 Then a (J + 1) » valuea(J + 1) Datal.Recordset .Fields(I).value Щ 'a (J + 1) - Trim (a (J + 1)) 'spacebars (a(J + 1)) aindex(J 4 1) - 1 MSFlexGridl.Text - a(J + 1)

217. CellWidth = TextWidth (MSFlexGridl .Text) + 100 . If CellWidth > MSFlexGridl.ColWidth(i) Then MSFlexGridl.ColWidth(i) CellWidth End If"

218. SumZatr = SumZatr + ah(J + 1, i) End If

219. Text3 .Text « Format (CCur (SumZatr) , "Mf M* ###")'zatrsred (J + 1) zatrsred(J + 1) + ah (J + 1, I) End If

220. MSFlexGridl.Text value End If Next i

221. Datal.Recordset.MoveNext J J + 1aindex(J + 1) = 0 *не работает почему???Text3 .Text Format(CCur(SumZatr) , ### ### ###")

222. StatusBarl.Panels (2) .Text «- "Функций: " S J1.op

223. Datal.Recordset.MoveFirst *'Datal.Refresh

224. MaxF Datal.Recordset.RecordCount 'MaxP - Datal.Record3et.Fields.Count - 1

225. StatusBarl.Panels (1) .Text » "Файл: " & Datal.DatabaseWamc-StatusBarl.Panels (2).Text "Функций: " & MaxF•StatusBarl.Panels (3) .Text = "Подразделений: " & (Datal.Recordsjet .Fields .Count 1. For i

226. MSFlexGrid3.FormatString FormatOutTable 'MSFlexGrid3.Rows - 2 Ik* 'MSFlexGrid3.Clear

227. Ом tp.u tTableHead 'MSFlexGrid4.Visible False

228. SumZatr 0 •For I - 1 To MaxP1. For J 1 To MaxF

229. SumZatr = SumZatr + ah(J, I)1. Next J •Next Ifext3.Text Format(CCur(SumZatr), M M ###")1. ChactShow1. GoTo fin:1. NoNumcric:i » МздВох("Значения таблицы должны иметь числовой формат", , "Ошибка ььода данных!")fin: End Sub

230. Private Function roro(ByVal xx Аз Integer, ByVal yy As Integer) As Single1. Dim i, J, X, Y As Integer

231. J ■ MsgBox("Функция " & a(X) & " не имеет ненулевых значений", , "Ошибка!")roro 01. NullFunc « 11. GoTo fin1. Else1. End If1. znam2 » 0 Then

232. J MsgBox("Функция " & a(Y) & " не имеет ненулевых значений", , "Ошибка!")roro = 01. NullFunc 11. GoTo fin1. Else1. End Ifroro chisl / (znaml + znam2 - chisl) "'roro - chisl / (znaml + znam2 + chisl) '*'OutputTable * fin:

233. CommandlClick End Function

234. Private Sub BinaryTable() Dim i, J, CellWidth 7\s Integer MSFlexGrid2.Cols MaxP + 1 MSFlexGrid2.Rows = MaxF + 1

235. MSFlexGrid2.Col » 0 For i 1 To MaxF MSFlexGrid2.Row = i MSFlexGrid2.Text - a (i) Next i

236. MSFlexGrid2.Row 0 For i - 1 To MaxP MSFlexGrid2.Col - i MSFlexGrid2 .Text « h (.i)

237. MSFlexGrid2.ColBidth (i) = TextWidth(MSFlexGrid2.Text) + 1001. Next i1. Foe J 1 To MaxF1. M3FlexGrid2.Row » J

238. For i I To Max? MSFlexGrid2.Col « i .If ah (J, i) Then ahbin(J, i) » 1 Else: ahbin(J, i) - 0 End If

239. MSFlexGcid2.Text ah bin(J, i)

240. CellWidth TextWidth(MSFlexGcid2.Text) + 100 4 If CellWidth > MSFlexGrid2.ColWidth(i) Then MSFlexGrid2.ColWidth (i) - CellWidth End If1. Next i1. Next J End Sub

241. Private Sub OutputTableHead()

242. Dim i, J, CellWidth, RowHeight As Integer•

243. MSFlexGrid3.Cols 5 '*'''MSFlexGrid3.Rows - MaxF + 1

244. MSFlexGrid3.Col 0 MSFlexGrid3.Row =0

245. MSFlexGrid3.Text "Унифицированная функция" ''MSFlexGrid3.ColWidth(0) « 18001. MSFlexGrid3.Col =1

246. MSFlexGrid3.Text "ОСъединяемые функции" ''MSFlexGrid3.ColWidth(l) - 20001. MSFlexGrid3.Col = 2

247. MSFlexGrid3.Text "Подразделения, ответственные за выполнение унифицированной функции" ' *MSFlexGrid3.ColWidth(2) - 16001. MSFlexGrid3.Col 3

248. MSFlexGrid3.Text "Затраты на выполнение функции" "MSFlexGrid3.ColWidth (3) « 15001. MSFlexGrid3.Col = 4

249. MSFlexGrid3.Text "Значение среднего коэффициента Олиэости"

250. MSFlexGrid3.ColWidth(4) 1500 RowHeight - TextHeight (MSFlexGrid3.Text) + 1000 If RowHeight > MSFlexGrid3.RowHeight(i) Then MSF-lexGrid3.RowHeight (i) - RowHeight End If End Sub1. Private Sub OutputTable()

251. Dim i, J, K, L, M, N, II, J.J, LL, index, CellWidth, RowHeight, nnn, пиша As Integer1. Dim zatr As Integer1. Dim changezatr As Single1. Dim ahnew As Singler ,'For I 0 To 41. MSFlexGrid3.Col I

252. MSFlexGcid3.ColWidth(I) TextWidth(MSFlexGrid3.Text) + 100 'MSFlexGrid3.RowHeight (0) - TextHeight(MSFlexGrid3.Text) + 1001. ClearGrid1. Foe I = 1 To MaxFzatrsred(I) 01. For" J 1 To MaxPzatrsred(I) zatrsred(I) + ah (I, J) ' Next~J1. Next I

253. NevwMaxF NewMaxF + 1 ' !!! 1!! 1! nnn = 1 'число объединенных функций mram - 1 rosred(L) = 0 . For J - 1 To Maxl'ahnew(L, J) = ah(i, J) ahsum(J) 1 Next J~

254. Алгоритм объединения функцийahsum(I) 1 '•'.'.'

255. For N 1 * 10 1 То roporog * 10 Step -1 'идем от 1 до roporog »»««»»»jor л ш i то MaxF 'ищем максимальное сокращение затрат For JJ = 1 То MaxF For J - 1 То MaxF

256. NewSumZatr NewSumZatr + zatrsred (J) Next J ~~.' 'Next I

257. MSFlexGrid3.AllowUserResizing True•For I 1 To MaxF

258. MSFlexGcid3.Col = 0 ' MSFlexGrid3.Text " "

259. MSFlexGrid3.Col =■ 1 ' MSFlexGrid3.Text " " ifext I

260. OutputTableShow 'ResultTableShow1. End Sub

261. Private Sub ChartShowQ Dim i, J, Sslider As Integer S3lider Sliderl.value1. With MSChartl .Column « 11. For i 1 To 10 .Row = i

262. RowLabel i / 10# roporog = i / 10# OutputTable1. Data SumZatr - NewSumZatr

263. Text.2 .Text Format (CCur (SumZatr - NewSumZatr), Kflif ### ft#Q")

264. Next i End With Sliderl.value Sslider End Sub

265. Private Sub ResultTableShowQ

266. Dioi i, J, CellWidth, Rowileight As Integer

267. MSFlexGrid4.Visible = True Commands.Enabled « True C'ommand6.Enabled = True Commandll.Enabled True Comtnandl2 .Enabled " True

268. MSFlexGrid4.Rows NewMaxF + 1 ' ^BFlexGtid4.Cols - MaxP + 1

269. MSFlexGrid4.Row 0 i - 0 ;*••

270. For J ■ 1 To MaxP 'выводим названия подразделений .^MSFlexGrid4.Col J MSFlexGrid4.Text - h(J)

271. CellWidth » TextWidth(MSFlexGrid4.Text) + 100 If CellWidth > MSFlexGrid4.ColWidth(0) Then "f>iSFlexGrid4.ColWidth(0) » CellWidth End If

272. Rowfieight TextHeight<MSFlexGrid3.Text) + 100 If RowHeight > MSFlexGrid4.RowHeight(i) Then MSFlexGrid4.RowHeight(i) - RowHeight End If1. Next i

273. For i 1 To NewMaxF 'заполняем таблицу MSFlexGrid4.Row = i For J - 1 To MaxP

274. MSFlexGrid4.Col « J If ahnew(i, J) Then

275. MSFlexGr id 4. Text « ahnew(i, .J) CellWidth TextWidth(MSFlexGrid4.Text) + 100 If. CellWidth > MSFlexGrid4.ColWidth(0) Then P MSFlexGrid4.ColWidth(0) - CellWidth1. End If1. Elsft1. MSFlexGrid4.Text = ""

276. CellWidth TextWidth(MSFlexGrid4.Text) + 100 If CellWidth > MSFlexGrid4.ColWidth(0) Then

277. MSFlexGrid4.ColWidth(0) CellWidth End If End If1. Next J Next i1. End Sub

278. Private Sub OutputTableShowQ -^ira i, J, K, L, CellWidth, RowHeight, nnn Аз Integer

279. MSFlexGrid3 .Rows = NewMaxF + 1 J 1 ;*■•

280. For i « 1 To NewMaxF ^4MSFlexGrid3.Row J ^"'If aindex(I) Then .MSFlexGrid3.Row - J MSFlexGrid3.Col = 0 MSFlexGrid3.Text - anew(i)

281. CellBidth TextWidth(Trim(anew(i))) + 100 If CellWidth > MSFlexGrid3.ColWidth(0) Then MSFlexGtid3.ColWidth(0) - CellWidth End If

282. MSFlexGrid3.Col = 1 MSFlexGrid3.Text aa(i)

283. CellWidth TextWidth(Trim(aa(i))) + 100 If CellWidth > M3FlexGrid3.ColWidth(1) Then MSFlexGrid3.ColWidth(1) - CellWidth End Iff" J = .J + 1 ""End If Next i

284. Средний коэфф. близости J 1

285. MSFlexGrid3.Col = 4 For i 1 To NewMaxF1. aindex (I) Then MSFlexGrid3.Row J If rosred(i) Then MSFlexGrid3.Text - ro sred(i) End If J - J + 1 ""End If Next i

286. Средние затраты на Функцию J 1

287. MSFlexGrid3.Col = 3 7Tor i 1 To NewMaxF1. aindex(I) Then MSFlexGrid3.Row J MSFlexGrid3.Text - zatrsred(i) J - J + 1 ' •' 'End If Next i

288. MSFlexGcid3.Row 0 'For I = 1 To MaxP •M5FlexGrid3.Col - I 'MSFlexGcid3.Text = h(I) 'Next I•For J 1 To MaxF .'MSFlexGcidS .Row - J1. For I 1 To MaxP1. MSFlexGrid3.Col I

289. M3FlexGrid3.Text = ah (J, I)1. Next I•Next J

290. Text2 .Text « Format(CCur(SureZatr NewSumZatr), ### ##0")1. MSFlexGrid4.Visible True

291. StatusBar3.Panels(1) .Text » "Пороговое значение: " & roporog

292. StatusBar3.Panels(2).Text ■ "Число функций: " & NewMaxF

293. StatusBar3.Panels(3) .Text "Экономический эффект (pyG.): " & Text2.Text

294. End Sub * Private Sub ClearGrid()

295. MSFlexGrid3.FoumatString ■ FormatOutTable MSFlexGrid3.Rows 2 MSFlexGrid3.Clear OutputTableHead Command5 .Enabled ■= False Commande.Enabled - False Commandll.Enabled = False Tpominandl2 .Enabled - False MSFJ.exGrid4.Visible » False

296. StatusBar3.Panels(1) .Text "Пороговое значение: " StatusBar3.Panels(2).Text » "Число функций: " StatusBar3.Panels(3).Text » "Экономический эффект (pyO.): *Text3 .Text - Format (0#, "if»» М» M* •roporog » 5 / 10# •Sliderl.Value « 51. End Sub

297. Private Sub SliderlChange() roporog ■ Sliderl.value / 10# Textl.Text roporog End Sub

298. Private Sub Slider2Change () 4»ogr = Slider2.value T£xt4.Text fogr ChartShowroporog Slidnrl.value / 10« Textl.Text «« roporog1. End Sub

299. Private Sub Sliderl Mou3eMove(Button As Integer, Shift Аз Integer, X As Single, Y As Single ) .roporog •• Slider 1 .value / 10// Textl.Text a roporog1. End Sub

300. Private Sub Slider2MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Singl e)fogr ■ Slidec2.value *Text4.Text fogr 'ChartShow :'■•

301. Private Sub StatusBar3PanelClick(ByVal Panel Аз ComctlLib.Panel) End Sub • -•End Sub

302. Private Sub TabstriplClick()1. (TabStripl.Selectedltera.index 1) « mintCurFrame Then Exit Sub ' No need to change frame.• Otherwise, hide eld frame, show new.

303. Framel(Tabstripl.SelectedItem.index 1).Visible - True Framel(mintCurFrame).Visible ■ False

304. Set mintCurFrame to new value. mintCurFrame ■ TabStripl.Selectedltera.index 11. End Sub

305. Private Function spacebars(Sstr As String) As String1. Dim sss As String * 1001. Dim SSSS(lOl) As*Byte1. Dim i, ccc, N As Integer1. TextLenghccc » 0

306. N Len (Sstr) - 1 "'SSSS - Sstr For i - N To 0 "Sstr (I) = "a" Next ispacebars = SSSS1. End Function

307. Private Sub Text4Click() Dim i As Integer i 0 End Sub

308. Private Sub Text4MouseDown(Button Аз Integer, Shift Аз Integer, X Аз Single?, Y As Single) Dim i As Integer i 0 End Sub

309. Private Sub Text4Mou3*Move(Button As Integer, Shift Аз Integer, X As Single, Y As Single) Dim i As Integer i «i n End Sub

310. Variant to hold 2-dimensional array returned by GetSetting. 'Dim MySettings As Variant • Place some settings in the registry. 'SaveSetting "MyApp", "Startup", "Top", 75 ♦SaveSetting "MyApp", "Startup", "Left", £0

311. Debug.Print GetSetting(appname:-"MyApp", section:-"Startup",

312. Key:«"Left", Default:«"25")

313. DeleteSetting "MyApp", "Startup"