Автоматизация методик исследования профессиональной направленности старшеклассников

20. Читать книги о жизни школы (о работе воспитателя, учителя)?

21. Читать книги, смотреть фильмы о работе милиции?

22. Заботиться о порядке в вещах, о красивом виде помещения, в котором учитесь, живете, работаете?

23. Читать книги типа "Занимательная математика" или "Математический досуг"?

24. Изучать экономическую географию?

25. Заниматься иностранным языком?

26. Знакомиться с жизнью выдающихся художников, с историей развития изобразительного искусства?

27. Знакомиться с жизнью выдающихся мастеров сцены и кино, встречаться с артистами, коллекционировать их фотографии?

28. Знакомиться с жизнью и творчеством выдающихся музыкантов, с вопросами теории музыкального искусства?

29. Читать спортивные газеты, журналы, книги о спорте и выдающихся спортсменах?

30. Изучать ботанику, зоологию, биологию?

31. Знакомиться с различными странами по описаниям и географическим картам?

32. Читать о жизни и деятельности знаменитых геологов?

33. Читать о том, как люди научились бороться с болезнями, о врачах и о достижениях в области медицины?

34. Посещать с экскурсией предприятия легкой промышленности (швейное, обувное, текстильное и др.)?

35. Читать книги типа "Занимательная физика", "Физики шутят"?

36. Находить химические явления в природе, проводить опыты по химии, следить за ходом химических явлений?

37. Знакомиться с новейшими достижениями современной техники (слушать и смотреть радио - и телепередачи, искать статьи в газетах)?

38. Посещать радиотехнический кружок или знакомиться с работой электрика?

39. Знакомиться с различными измерительными инструментами (для металлообработки) и работать с ними?

40. Наблюдать за изготовлением изделий из дерева, рассматривать новые образцы мебели?

41. Встречаться со строителями, наблюдать за их работой?

42. Читать популярную литературу о средствах и правилах передвижения?

43. Читать книги, смотреть фильмы о речниках, моряках?

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

45. Обсуждать текущие политические события у нас и за рубежом?

46. Читать литературно-критические статьи?

47. Слушать радио - и теленовости, смотреть тематические передачи?

48. Узнавать о событиях, происходящих в городе, республике, стране?

49. Давать объяснения товарищам, как выполнять учебное задание, если они не могут его сделать?

50. Справедливо рассудить поступок друга, знакомого или литературного героя?

51. Обеспечивать семью продуктами, организовывать питание всех во время похода?

52. Читать научно-популярную литературу об открытиях в математике, о жизни и деятельности выдающихся математиков?

53. Интересоваться в печати за ходом выполнения плана народного хозяйства?

54. Читать художественную литературу на иностранном языке?

55. Быть членом редколлегии, заниматься художественным оформлением газет?

56. Посещать драматический театр или театр юного зрителя?

57. Слушать оперную и симфоническую музыку?

58. Посещать спортивные соревнования, слушать и смотреть радио - и телепередачи?

59. Посещать биологический кружок?

60. Заниматься в географическом кружке, изучать природу и жизнь родного края?

61. Составлять и собирать описания, изображения геологических объектов (минералов, слоев земли и т.п.)?

62. Изучать функции организма человека, причины возникновения болезней и пути их лечения?

63. Посещать кружок кулинарии, готовить дома обеды?

64. Проводить опыты по физике?

65. Готовить растворы, взвешивать реактивы?

66. Разбирать и ремонтировать, собирать различные механизмы (часы, утюг, велосипед, швейную машинку и пр.)?

67. Пользоваться точными измерительными приборами (вольтметром, амперметром, осциллографом и пр.) и производить расчеты?

68. Мастерить различные детали и предметы из металла?

69. Собирать различные образцы древесины или художественно обрабатывать дерево (выпиливать, выжигать, вырезать, полировать и пр.)?

70. Набрасывать строительный эскиз или выполнять чертежи различных построек?

71. Посещать кружок юных железнодорожников, юных автолюбителей?

72. Участвовать в секции парашютистов, в кружке авиамоделистов или в работе авиаклуба?

73. Заниматься в стрелковой секции?

74. Изучать историю возникновения различных народов и государств?

75. Писать классные или домашние сочинения по литературе?

76. Наблюдать за поступками, поведением, жизнью других людей, анализировать явления и события жизни?

77. Выполнять общественную работу (организовывать, сплачивать товарищей на какое-нибудь дело)?

78. Проводить время с маленькими детьми (читать им книги, что-либо рассказывать, помогать им в чем-либо)?

79. Устанавливать дисциплину среди сверстников или младших?

80. Наблюдать за работой продавца, повара, официанта?

81. Заниматься в математическом кружке?

82. Изучать вопросы развития промышленности, узнавать о новых достижениях в области планирования и учета на промышленном предприятии?

83. Работать с иностранными словарями, разбираться в оборотах речи малознакомого языка?

84. Посещать музеи, художественные выставки?

85. Выступать на сцене перед зрителями?

86. Играть на одном из музыкальных инструментах?

87. Играть в спортивные игры?

88. Наблюдать за ростом и развитием животных и растений, вести записи наблюдений?

89. Самостоятельно составлять географические карты, собирать различные географические материалы?

90. Собирать коллекции минералов, собирать экспонаты для географического музея?

91. Знакомиться с работой медсестры, врача или фармацевта?

92. Посещать кружок кройки и шитья, шить себе и членам семьи?

93. Заниматься в физическом кружке или посещать факультативные занятия по физике?

94. Заниматься в химическом кружке или посещать факультативные занятия по химии?

95. Заниматься в одном из технических кружков (моделировать самолеты, корабли, машины и пр.)?

96. Знакомиться с устройством электроприборов, электроаппаратуры и электрических машин, собирать, конструировать, ремонтировать радиоприборы (усилители, осциллографы и пр.) и радиоаппаратуру (приемники, проигрыватели и пр.)?

97. Уроки труда в школьных слесарно-станочных мастерских?

98. Участвовать в кружке "Умелые руки" или в столярном?

99. Бывать на стройке, наблюдать за ходом строительства, за отделочными работами?

100. Контролировать соблюдение правил передвижения пешеходами и водителями транспортных средств?

101. Участвовать в секции гребцов, парусников, аквалангистов, в отряде по спасению утопающих?

102. Участвовать в военизированных играх?

103. Посещать исторические музеи, знакомиться с памятниками культуры народа?

104. Заниматься в литературном кружке, посещать факультативные занятия по литературе или языку?

105. Вести личный дневник?

106. Выступать в классе с сообщениями о международном положении, с беседами и докладами на различные темы?

107. Выполнять работу вожатого?

108. Выяснять причины поведения и поступков людей, которые они хотели бы скрыть?

109. Помогать покупателю в магазине выбирать покупку?

110. Решать сложные задачи по математике?

111. Точно вести подсчеты своих денежных доходов и расходов?

112. Заниматься в кружке иностранного языка или посещать факультативные занятия?

113. Заниматься в художественном кружке?

114. Участвовать в смотрах художественной самодеятельности?

115. Заниматься в хоре или в одном из музыкальных кружков?

116. Заниматься в какой-либо спортивной секции?

117. Участвовать в биологических олимпиадах или готовить выставки растений или животных?

118. Участвовать в географических экспедициях?

119. Участвовать в геологических экспедициях?

120. Наблюдать и ухаживать за больными, оказывать помощь?

121. Участвовать в выставках кулинарных или кондитерских изделий (или посещать их)?

122. Участвовать в физических олимпиадах?

123. Решать сложные задачи по химии? Участвовать в химических олимпиадах?

124. Разбираться в технических чертежах и схемах, чертить или составлять чертежи самому?

125. Разбираться в сложных радиосхемах?

126. Посещать с экскурсией промышленные предприятия, знакомиться с новыми типами станков, наблюдать за работой на них или за их ремонтом?

127. Мастерить что-нибудь из дерева своими руками?

128. Принимать посильное участие в строительных работах?

129. Принимать посильное участие в обслуживании и ремонте автомобиля, троллейбуса и т.п.?

130. Управлять самолетами гражданской авиации?

131. Жить по жестко установленному режиму, строго выполняя распорядок дня?

132. Заниматься в историческом кружке (собирать материал, выступать с докладами на исторические темы)?

133. Работать с литературными источниками, справочниками, вести дневник впечатлений о прочитанном?

134. Участвовать в диспутах и читательских конференциях?

135. Подготавливать и проводить конференции или дискотеки, вечера отдыха?

136. Шефствовать над трудновоспитуемыми, обсуждать с кем-либо вопросы воспитания детей и подростков?

137. Помогать в работе милиции, быть членом кружка "Юный друг милиции"?

138. Постоянно общаться с разными людьми?

139. Участвовать в математических олимпиадах?

140. Интересоваться стоимостью товаров, пытаться понять вопросы ценообразования, зарплаты, организации труда?

141. Беседовать с товарищем (или знакомым) на иностранном языке?

142. Участвовать в выставках изобразительного искусства?

143. Посещать театральный кружок?

144. Участвовать в музыкальных смотрах-конкурсах?

145. Принимать личное или командное участие в спортивных соревнованиях?

146. Выращивать в саду, на огороде растения или воспитывать животных и ухаживать за ними?

147. Проводить топографическую съемку местности?

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

149. Работать в больнице, поликлинике, аптеке?

150. Работать специалистом на предприятии легкой или пищевой промышленности (швеей, закройщицей, поваром, технологом и т.п.)?

151. Решать сложные задачи по физике?

152. Работать на химическом производстве или в химлабаратории?

153. Участвовать в выставках технического творчества?

154. Работать в области электроэнергии или радиоэлектроники?

155. Работать у станка (в основном стоя), изготовлять различные металлические детали к изделиям?

156. Выполнять по чертежам столярные или модельные работы?

157. Работать в строительной бригаде?

158. Возить пассажиров или грузы, соблюдать правила уличного движения?

159. Работать в штормовую погоду на большой реке или в открытом море?

160. Работать военным специалистом?

161. Ходить в походы по историческим местам родного края?

162. Писать рассказы, сочинять стихи, басни и т.п.?

163. Писать заметки или очерки в стенгазеты или в периодическую печать?

164. Руководить бригадой во время трудового десанта?

165. Организовывать игры и праздники для детей?

166. Работать в юридическом учреждении (в суде, адвокатуре, прокуратуре)?

167. Оказывать людям различные услуги?

168. Выполнять работу, постоянно требующую применения математических знаний?

169. Работать в области экономики, планирования или финансирования предприятия народного хозяйства?

170. Участвовать в олимпиадах, конкурсах, конференциях на иностранном языке?

171. Участвовать в выставках изобразительного искусства?

172. Играть на сцене или сниматься в кино?

173. Работать музыкантом, музыкальным режиссером или преподавать музыку?

174. Работать преподавателем физкультуры или тренером?

Тест-опросник измерения мотивации достижения (модификация опросника А. Мехрабиана).

Текст опросника:

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

+3 полностью согласен

+2 согласен

+1 скорее согласен, чем не согласен

0 нейтрален

?1 скорее не согласен, чем согласен

?2 не согласен

?3 полностью не согласен

Прочтите утверждение теста и оцените степень своего согласия (или несогласия). При этом на бланке для ответов против номера утверждения поставьте цифру, которая соответствует степени Вашего согласия (+3, +2, +1, 0, ?1, ?2, ?3). Давайте тот ответ, который первым приходит Вам в голову. Не тратьте времени на его обдумывание.

Если у Вас возникли какие-то вопросы. Задайте их прежде, чем выполнять тест. Теперь приступайте к работе!"

Форма А (мужская):

1. Я больше думаю о получении хорошей оценки, чем опасаюсь получения плохой.

2. Если бы я должен был выполнить сложное, незнакомое мне задание, то предпочел бы сделать его вместе с кем-нибудь, чем трудиться над ним в одиночку.

3. Я чаще берусь за трудные задачи, даже если не уверен, что смогу их решить, чем за легкие, которые знаю, что решу.

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

5. Если бы у меня что-то не выходило, я скорее приложил бы все силы, чтобы с этим справиться, чем перешел бы к тому, что у меня может хорошо получиться.

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

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

8. Я предпочел бы важное трудное дело, хотя вероятность неудачи в нем равна 50%, делу достаточно важному, но не трудному.

9. Я скорее выучу развлекательные игры, известные большинству людей, чем редкие игры, которые требуют мастерства и известны немногим.

10. Для меня очень важно делать свою работу как можно лучше, даже если из-за этого у меня возникают трения с товарищами.

11. Если бы я собрался играть в карты, то скорее сыграл бы в развлекательную игру, чем в трудную, требующую размышлений.

12. Я предпочитаю соревнования, где я сильнее других, тем, где все участники приблизительно равны по силам.

13. В свободное от работы время я овладею какой-нибудь игрой скорее для развития своих умений, чем для отдыха и развлечений.

14. Я скорее предпочту сделать какое-то дело так, как я считаю нужным, пусть даже с 50% риска ошибиться, чем делать его, как мне советуют другие.

15. Если бы мне пришлось выбирать, то я скорее выбрал бы работу, в которой начальная зарплата будет 180 руб. и может остаться в таком размере долгое время, чем работу, в которой начальная зарплата равна 80 руб. и есть гарантия, что не позднее чем через 5 лет я буду получать более 180 руб.

16. Я скорее стал бы играть в команде, чем соревноваться один на один.

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

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

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

20. После успешного ответа на экзамене я скорее с облегчением вздохну ("пронесло"), чем порадуюсь хорошей оценке.

21. Если бы я мог вернуться к одному из двух незавершенных дел, то я скорее вернулся бы к трудному, чем к легкому.

22. При выполнении контрольного задания я больше беспокоюсь о том, как бы не допустить какую-нибудь ошибку, чем думаю о том, как правильно его решить.

23. Если у меня что-то не выходит, я лучше обращусь к кому-либо за помощью, чем стану сам продолжать искать выход.

24. После неудачи я скорее становлюсь еще более собранным и энергичным, чем теряю всякое желание продолжать дело.

25. Если есть сомнение в успехе какого-либо начинания, то я скорее не стану рисковать, чем все-таки приму в нем активное участие.

26. Когда я берусь за трудное дело, я скорее опасаюсь, что не справлюсь с ним, чем надеюсь, что оно получиться.

27. Я работаю эффективнее под чьим-то руководством, чем когда несу за свою работу личную ответственность.

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

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

30. Если бы я успешно решил какую-то задачу, то с большим удовольствием взялся бы еще раз решить аналогичную задачу, чем перешел бы к задаче другого типа.

31. Когда нужно соревноваться, у меня скорее возникает интерес и азарт, чем тревога и беспокойство.

32. Пожалуй, я больше мечтаю о своих планах на будущее, чем пытаюсь их реально осуществить.

Форма Б (женская):

1. Я больше думаю о получении хорошей оценки, чем опасаюсь получения плохой.

2. Я чаще берусь за трудные задачи, даже если не уверена, что смогу их решить, чем за легкие, которые знаю, что решу.

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

4. Если бы у меня что-то не выходило, я скорее приложила бы все силы, чтобы с этим справиться, чем перешла бы к тому, что у меня может хорошо получиться.

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

6. Более сильные переживания у меня вызываются страхом неудачи, чем надеждой на успех.

7. Научно-популярную литературу я предпочитаю литературе развлекательного жанра.

8. Я предпочла бы важное трудное дело, где вероятность неудачи равна 50%, делу достаточно важному, но не трудному.

9. Я скорее выучу развлекательные игры, известные большинству людей, чем редкие игры, которые требуют мастерства и известны немногим.

10. Для меня очень важно делать свою работу как можно лучше, даже если из-за этого у меня возникают трения с товарищами.

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

12. Если бы я собралась играть в карты, то скорее сыграла бы в развлекательную игру, чем в трудную, требующую размышления.

13. Я предпочитаю соревнования, где я сильнее других, тем, где все участники приблизительно равны по силам.

14. После неудачи я становлюсь еще более собранной и энергичной, чем теряю всякое желание продолжать дело.

15. Неудачи отравляют мою жизнь больше, чем приносят радость успехи.

16. В новых неизвестных ситуациях у меня скорее возникает волнение и беспокойство, чем интерес и любопытство.

17. Я скорее попытаюсь приготовить новое интересное блюдо, хотя оно может плохо получиться, чем стану готовить привычное блюдо, которое обычно хорошо выходило.

18. Я скорее займусь чем-то приятным и необременительным, чем стану выполнять что-то, как мне кажется, стоящее, но не очень увлекательное.

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

20. Если я заболела и вынуждена остаться дома, то я использую время скорее для того, чтобы расслабиться и отдохнуть, чем почитать и поработать.

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

22. Если у меня что-то не выходит, я лучше обращусь к кому-то за помощью, чем стану сама продолжать искать выход.

23. Когда нужно соревноваться, у меня скорее возникает интерес и азарт, чем тревога и беспокойство.

24. Когда я берусь за трудное дело, я скорее опасаюсь, что не справлюсь с ним, чем надеюсь, что оно получится.

25. Я работаю эффективнее под чьим-то руководством, чем тогда, когда несу за свою работу личную ответственность.

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

27. Если бы я успешно решила какую-то задачу, то с большим удовольствием взялась бы решать еще раз аналогичную, чем перешла бы к задаче другого типа.

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

29. Если при выполнении важного дела я допускаю ошибку, то чаще я теряюсь и впадаю в отчаяние, чем быстро беру себя в руки и пытаюсь исправить положение.

30. Пожалуй, я больше мечтаю о своих планах на будущее, чем пытаюсь их реально осуществить.

Приложение Б

Руководство пользователя

Для запуска программы №1 необходимо найти на диске D: \ файл Test 1 и запустить его, либо для запуска программы №2 необходимо также найти на диске D: \ и запустить файл Test 2.

После запуска программы на экране появится основное окно приложения.

Режим анкетирования

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

Кнопка "Принять ответ" - переход к следующему вопросу;

Далее требуется ответить на все вопросы.

При ответе на последний вопрос программа выведет окно с результатами.

Режим просмотра результатов

Просмотр результатов осуществляется сразу после прохождения теста, результат можно посмотреть только один раз, т.к. в следующий раз придётся проходить тест заново.

Приложение В

Руководство программиста

Назначение и условия применения программы.

Назначение:

Данная программа предназначена для тестирования респондентов.

Условия применения:

Данные программы предназначены для работы в ОС Windows 9х/МЕ/2к/ХР. Оперативная память - 16 Мб, дискового пространства - 5 Мб.

Инструкция по установке программного продукта:

1. Вставляете установочный диск с автоматизированными методиками в

CD-ROM.

2. Открываете папки TEST-1, TEST-2 и запускаете файл SETUP. EXE,

и следуете дальнейшим всплывающим инструкциям.

3. Для начала работы методик нажимаете кнопку ПУСК в левом нижнем углу, переходите в меню программы и запускаете TEST.

Функции, выполняемые программой:

· добавление респондентов;

· удаление респондентов;

· вывод инструкции по использованию;

· вывод вопросов;

· получение ответов от пользователя;

· просмотр результатов тестирования.

Характеристики программы (переменные):

· voprosa - Для записи текста вопросов

· otvet - Результаты ответов

· number - Номер текущего вопроса

· num1,num2,num3,num4,num5 - Для записи результатов теста.

Обращение к программе:

· TForm1. Button1Click (Sender: TObject); - Переход к тесту на 2 форму

· TForm1. Button2Click (Sender: TObject); - переход к просмотру данных о респондентах

· TForm2. Button1Click (Sender: TObject); - согласие с ответом

· TForm2. RadioButton1Click (Sender: TObject); - ответ 1

· TForm2. RadioButton2Click (Sender: TObject); - ответ 2

· TForm4. Button1Click (Sender: TObject); - регистрация

· TForm4. Button2Click (Sender: TObject);

· TForm4. Edit1Enter (Sender: TObject);

· TForm4. Edit2Enter (Sender: TObject);

· TForm4. Edit3Enter (Sender: TObject);

· TForm5. Button1Click (Sender: TObject); - удаление всех записей

При запуске программы №1 на экран выводится форма №1, которая содержит инструкции по прохождению теста. При нажатии кнопки "Регистрация испытуемого" форма №1 закрывается и открывается форма №4, где от пользователя требуется регистрация нового респондента, после чего можно начать тест, нажав кнопку "Начать тест", причём форма №4 закроется и откроется форма №2, на которой на экран выводятся вопросы и получаются ответы от респондента. После завершения теста программа форма №2 закрывается и открывается форма №3, на которой будут показаны результаты тестирования. Форма №5 предназначена для удаления записей.

При закрытии любой формы открывается форма №1. При закрытии формы № 1 - закрывается вся программа.

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

Приложение Г

Листинг программы № 1

unit Unit1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids, DBGrids, Db, DBTables;

type TForm1 = class (TForm)

Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;

Label5: TLabel; Label6: TLabel;

Button1: TButton;

Table1: TTable; DataSource1: TDataSource;

Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

end;

var Form1: TForm1;

implementation

uses Unit2, Unit4, Unit5, Unit3;

{$R *. DFM}

// Переход к тесту на 2 форму

procedure TForm1. Button1Click (Sender: TObject);

begin

{ // Инициализация формы и переменных

form2. RadioButton1. Checked: =false; form2. RadioButton2. Checked: =false;

form2. caption: ='Вопрос №1'; // Заголовок к форме

unit2. number: =1; form2. memo1. Lines. Clear; form2. memo2. Lines. Clear;

form2. memo1. Lines [0]: =unit2. voprosa [1]; form2. memo2. Lines [0]: =unit2. voprosb [1];

form2. button1. Caption: ='Принять ответ'; form2. Button1. enabled: =false; }

// Показывание 2 формы с вопросами

form1. Visible: =false; form4. visible: =true;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin Form5. visible: =true; form1. visible: =false; end;

procedure TForm1. FormCreate (Sender: TObject);

begin

table1. Exclusive: =true;

table1. Active: =true;

end;

end.

unit Unit2;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type TForm2 = class (TForm)

RadioButton1: TRadioButton; RadioButton2: TRadioButton;

Button1: TButton;

Memo1: TMemo; Memo2: TMemo;

procedure FormCreate (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure RadioButton1Click (Sender: TObject);

procedure RadioButton2Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

end;

var Form2: TForm2;

// Для записи текста вопросов

voprosa: array [1.20] of string; voprosb: array [1.20] of string;

otvet: array [1.20] of boolean; // Результаты ответов

number: integer; // Номер текущего вопроса

implementation

uses Unit3, Unit1;

{$R *. DFM}

// Инициализация формы при 1 запуске

procedure TForm2. FormCreate (Sender: TObject);

begin number: =1;

// Занесение текста вопросов в массив памяти

voprosa [1]: ='Ухаживать за животными. ';

voprosb [1]: ='Обслуживать машины, приборы (следить, регулировать). ';

voprosa [2]: ='Помогать больным. ';

voprosb [2]: ='Составлять таблицы, схемы, программы для вычислительных машин. ';

voprosa [3]: ='Следить за качеством книжных иллюстраций, плакатов, художественных открыток, граммпластинок. ';

voprosb [3]: ='Следить за состоянием, развитием растений. ';

voprosa [4]: ='Обрабатывать материалы (дерево, ткань, металл, пластмассу и т.п.). ';

voprosb [4]: ='Доводить товары до потребителя, рекламировать, продавать. ';

voprosa [5]: ='Обсуждать научно-популярные книги, статьи. ';

voprosb [5]: ='Обсуждать художественные книги (или пьесы, концерты). ';

voprosa [6]: ='Выращивать молодняк (животных какой-либо породы). ';

voprosb [6]: ='Тренировать товарищей (или младших) в выполнении каких-либо действий (трудовых, учебных, спортивных). ';

voprosa [7]: ='Копировать рисунки, изображения (или настраивать музыкальные инструменты). ';

voprosb [7]: ='Управлять каким-либо грузовым (подъёмным или транспортным) средством - подъёмным краном, трактором, тепловозом и др. ';

voprosa [8]: ='Сообщать, разъяснять людям нужные им сведения (в справочном бюро, на экскурсии и т.д.). ';

voprosb [8]: ='Оформлять выставки, витрины (или учавствовать в подготовке пьес, концертов). ';

voprosa [9]: ='Ремонтировать вещи, изделия (одежду, технику), жилище. ';

voprosb [9]: ='Искать и исправлять ошибки в текстах, таблицах, рисунках. ';

voprosa [10]: ='Лечить животных. ';

voprosb [10]: ='Выполнять вычисления, расчёты. ';

voprosa [11]: ='Выводить новые сорта растений. ';

voprosb [11]: ='Конструировать, проектировать новые виды промышленных изделий (машины, одежду, дома, продукты питания и т.п.). ';

voprosa [12]: ='Разбирать споры, ссоры между людьми, убеждать, разъяснять, наказывать, поощрять. ';

voprosb [12]: ='Разбираться в чертежах, схемах, таблицах (проверять, уточнять, приводить в порядок). ';

voprosa [13]: ='Наблюдать, изучать работу кружков художественной самодеятельности. ';

voprosb [13]: ='Наблюдать, изучать жизнь микробов. ';

voprosa [14]: ='Обслуживать, налаживать медицинские приборы, аппараты. ';

voprosb [14]: ='Оказывать людям медицинскую помощь при ранениях, ушибах, ожогах и т.п. ';

voprosa [15]: ='Составлять точные описания-отчёты о наблюдаемых явлениях, событиях, измеряемых объектах и др. ';

voprosb [15]: ='Художественно описывать, изображать события (наблюдаемые и представляемые). ';

voprosa [16]: ='Делать лабораторные анализы в больнице. ';

voprosb [16]: ='Принимать, осматривать больных, беседовать с ними, назначать лечение. ';

voprosa [17]: ='Красить или расписывать стены помещений, поверхность изделий. ';

voprosb [17]: ='Осуществлять монтаж или сборку машин, приборов. ';

voprosa [18]: ='Организовывать культпоходы сверстников или младших в театры, музеи, экскурсии, туристические походы и т.п. ';

voprosb [18]: ='Играть на сцене, принимать участие в концертах. ';

voprosa [19]: ='Изготовлять по чертежам детали, изделия (машины, одежду), строить здания. ';

voprosb [19]: ='Заниматься черчением, копировать чертежи, карты. ';

voprosa [20]: ='Вести борьбу с болезнями растений, с вредителями леса, сада. ';

voprosb [20]: ='Работать на клавишных машинах (пишущей машинке, телетайпе, наборной машинке и др.). ';

memo1. Lines. Clear; memo2. Lines. Clear; // Очитска поля с текстом вопроса

memo1. Lines [0]: =voprosa [number]; memo2. Lines [0]: =voprosb [number]; // Вывод вопроса

end;

procedure TForm2. Button1Click (Sender: TObject);

begin

if radiobutton1. Checked then otvet [number]: =true else otvet [number]: =false; // Запись ответа

radiobutton1. Checked: =false; radiobutton2. Checked: =false; button1. Enabled: =false;

number: =number+1; // Увеличение счётчика номера вопроса

caption: ='Вопрос №'+inttostr (number); // Заголовок к форме

memo1. Lines. Clear; memo2. Lines. Clear; // Очистка поля с текстом вопроса

if number<21 then

begin

memo1. Lines [0]: =voprosa [number]; memo2. Lines [0]: =voprosb [number]; // Вывод вопроса

end;

if number=20 then button1. Caption: ='Итог'; // Изменение текста кнопки на 19 вопросе

// Конец теста и переход к результатам

if number=21 then begin

form3. formcreate (nil);

form2. visible: =false; form3. visible: =true;

end;

end;

// Выключение галочки при нажатии на другую и активация кнопки

procedure TForm2. RadioButton1Click (Sender: TObject);

begin radiobutton2. Checked: =false; button1. Enabled: =true; end;

procedure TForm2. RadioButton2Click (Sender: TObject);

begin radiobutton1. Checked: =false; button1. Enabled: =true; end;

// При закрытии формы переход на первую.

procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);

begin form1. visible: =true; end;

end.

unit Unit3;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Chart;

type TForm3 = class (TForm)

Chart1: TChart;

Series1: TBarSeries;

Panel1: TPanel;

Button1: TButton;

Memo1: TMemo;

procedure FormCreate (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button1Click (Sender: TObject);

end;

var Form3: TForm3;

num1,num2,num3,num4,num5: integer; // Для записи результатов теста

implementation

uses Unit2, Unit1;

{$R *. DFM}

procedure TForm3. FormCreate (Sender: TObject);

begin num1: =0; num2: =0; num3: =0; num4: =0; num5: =0;

// Просчёт по результатам ответов результат теста

if unit2. otvet [1] =true then num1: =num1+1 else num2: =num2+1;

if unit2. otvet [2] =true then num3: =num3+1 else num4: =num4+1;

if unit2. otvet [3] =true then num5: =num5+1 else num1: =num1+1;

if unit2. otvet [4] =true then num2: =num2+1 else num3: =num3+1;

if unit2. otvet [5] =true then num4: =num4+1 else num5: =num5+1;

if unit2. otvet [6] =true then num1: =num1+1 else num3: =num3+1;

if unit2. otvet [7] =true then num5: =num5+1 else num1: =num1+1;

if unit2. otvet [8] =true then num2: =num2+1 else num4: =num4+1;

if unit2. otvet [9] =true then num1: =num1+1 else num3: =num3+1;

if unit2. otvet [10] =true then num1: =num1+1 else num4: =num4+1;

if unit2. otvet [11] =true then num1: =num1+1 else num2: =num2+1;

if unit2. otvet [12] =true then num3: =num3+1 else num4: =num4+1;

if unit2. otvet [13] =true then num5: =num5+1 else num1: =num1+1;

if unit2. otvet [14] =true then num2: =num2+1 else num3: =num3+1;

if unit2. otvet [15] =true then num4: =num4+1 else num5: =num5+1;

if unit2. otvet [16] =true then num1: =num1+1 else num3: =num3+1;

if unit2. otvet [17] =true then num5: =num5+1 else num1: =num1+1;

if unit2. otvet [18] =true then num2: =num2+1 else num4: =num4+1;

if unit2. otvet [19] =true then num2: =num2+1 else num4: =num4+1;

if unit2. otvet [20] =true then num1: =num1+1 else num4: =num4+1;

series1. Clear;

// Вывод результата теста

series1. AddXY (10,num1,'Человек-природа',clblue);

series1. AddXY (20,num2,'Человек-техника',clgreen);

series1. AddXY (30,num3,'Человек-человек',clgray);

series1. AddXY (40,num4,'Человек-знак',clred);

series1. AddXY (50,num5,'Человек-художественный образ',clyellow);

form1. Table1. edit;

form1. Table1. FieldByName ('num1'). asinteger: =num1; form1. Table1. FieldByName ('num2'). asinteger: =num2;

form1. Table1. FieldByName ('num3'). asinteger: =num3; form1. Table1. FieldByName ('num4'). asinteger: =num4;

form1. Table1. FieldByName ('num5'). asinteger: =num5;

form1. Table1. Post;

end;

// При нажатии кнопки или закрытии формы - переход к первой.

procedure TForm3. FormClose (Sender: TObject; var Action: TCloseAction);

begin Button1Click (nil); end;

procedure TForm3. Button1Click (Sender: TObject);

begin form1. visible: =true; form3. visible: =false; end;

end.

unit Unit4;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type TForm4 = class (TForm)

Edit1: TEdit; Edit2: TEdit; Edit3: TEdit;

Label1: TLabel; Label2: TLabel; Label3: TLabel;

Button1: TButton; Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Edit1Enter (Sender: TObject);

procedure Edit2Enter (Sender: TObject);

procedure Edit3Enter (Sender: TObject);

procedure FormActivate (Sender: TObject);

end;

var Form4: TForm4;

implementation

uses Unit1, Unit2;

{$R *. DFM}

procedure TForm4. Button2Click (Sender: TObject);

begin form1. visible: =true; form4. Visible: =false; end;

procedure TForm4. FormClose (Sender: TObject; var Action: TCloseAction);

begin Button2Click (nil); end;

procedure TForm4. Button1Click (Sender: TObject);

begin

if (edit1. text<>'Введите ФИО') and (edit1. text<>'') and (edit2. text<>'Введите возраст') and (edit2. text<>'') and (edit3. text<>'№ класса') and (edit3. text<>'') then

begin

form1. table1. insert;

form1. table1. fieldbyname ('FIO'). asstring: =edit1. text;

form1. table1. fieldbyname ('VOZRAST'). asinteger: =strtoint (edit2. text);

form1. table1. fieldbyname ('KLASS'). asinteger: =strtoint (edit3. text);

form1. table1. post;

form2. RadioButton1. Checked: =false; form2. RadioButton2. Checked: =false;

form2. caption: ='Вопрос №1'; // Заголовок к форме

unit2. number: =1; form2. memo1. Lines. Clear; form2. memo2. Lines. Clear;

form2. memo1. Lines [0]: =unit2. voprosa [1]; form2. memo2. Lines [0]: =unit2. voprosb [1];

form2. button1. Caption: ='Принять ответ'; form2. Button1. enabled: =false;

form2. visible: =true; form4. visible: =false;

end else showmessage ('Не все данные введены. Повторите попытку. ');

end;

procedure TForm4. Edit1Enter (Sender: TObject);

begin if edit1. text='Введите ФИО' then edit1. text: =''; end;

procedure TForm4. Edit2Enter (Sender: TObject);

begin if edit2. text='Введите возраст' then edit2. text: =''; end;

procedure TForm4. Edit3Enter (Sender: TObject);

begin if edit3. text='№ класса' then edit3. text: =''; end;

procedure TForm4. FormActivate (Sender: TObject);

begin edit1. text: ='Введите ФИО'; edit2. text: ='Введите возраст'; edit3. text: ='№ класса'; button2. SetFocus; end;

end.

unit Unit5;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls;

type TForm5 = class (TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

Button1: TButton;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button1Click (Sender: TObject);

end;

var Form5: TForm5;

implementation

uses Unit1;

{$R *. DFM}

procedure TForm5. FormClose (Sender: TObject; var Action: TCloseAction);

begin form1. visible: =true; form5. visible: =false; end;

procedure TForm5. Button1Click (Sender: TObject);

begin

form1. Table1. EmptyTable;

end;

end.

Приложение Д

Листинг программы № 2

unit Unit1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids, DBGrids, Db, DBTables;

type TForm1 = class (TForm)

Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;

Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel;

Button1: TButton; Button2: TButton;

Table1: TTable; DataSource1: TDataSource;

procedure Button1Click (Sender: TObject); procedure Button2Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

end;

var Form1: TForm1;

implementation

uses Unit5, Unit4;

{$R *. DFM}

// Добавление данных - к началу теста

procedure TForm1. Button1Click (Sender: TObject);

begin form1. Visible: =false; form4. visible: =true; end;

// Просмотр всех данных

procedure TForm1. Button2Click (Sender: TObject);

begin Form5. visible: =true; form1. visible: =false; end;

// Запуск всей программы

procedure TForm1. FormCreate (Sender: TObject);

begin table1. Exclusive: =true; table1. Active: =true; end;

end.

voprosw [2]: ='Я чаще берусь за трудные задачи, даже если не уверена, что смогу их решить, чем за легкие, которые знаю, что решу. ';

voprosw [3]: ='Меня больше привлекает дело, которое не требует напряжения и в успехе которого я уверена, чем трудное дело, в котором возможны неожиданности. ';

voprosw [4]: ='Если бы у меня что-то не выходило, я скорее приложила бы все силы, чтобы с этим справиться, чем перешла бы к тому, что у меня может хорошо получиться. ';

voprosw [5]: ='Я предпочла бы работу, в которой мои функции четко определены и зарплата выше средней, работе со средней зарплатой, в которой я сама должна определять свою роль. ';

voprosw [6]: ='Более сильные переживания у меня вызываются страхом неудачи, чем надеждой на успех. ';

voprosw [7]: ='Научно-популярную литературу я предпочитаю литературе развлекательного жанра. ';

voprosw [8]: ='Я предпочла бы важное трудное дело, где вероятность неудачи равна 50%, делу достаточно важному, но не трудному. ';

voprosw [9]: ='Я скорее выучу развлекательные игры, известные большинству людей, чем редкие игры, которые требуют мастерства и известны немногим. ';

voprosw [10]: ='Для меня очень важно делать свою работу как можно лучше, даже если из-за этого у меня возникают трения с товарищами. ';

voprosw [11]: ='После успешного ответа на экзамене я скорее с облегчением вздохну, что "пронесло", чем порадуюсь хорошей оценке. ';

voprosw [12]: ='Если бы я собралась играть в карты, то скорее сыграла бы в развлекательную игру, чем в трудную, требующую размышления. ';

voprosw [13]: ='Я предпочитаю соревнования, где я сильнее других, тем, где все участники приблизительно равны по силам. ';

voprosw [14]: ='После неудачи я становлюсь еще более собранной и энергичной, чем теряю всякое желание продолжать дело. ';

voprosw [15]: ='Неудачи отравляют мою жизнь больше, чем приносят радость успехи. ';

voprosw [16]: ='В новых неизвестных ситуациях у меня скорее возникает волнение и беспокойство, чем интерес и любопытство. ';

voprosw [17]: ='Я скорее попытаюсь приготовить новое интересное блюдо, хотя оно может плохо получиться, чем стану готовить привычное блюдо, которое обычно хорошо выходило. ';

voprosw [18]: ='Я скорее займусь чем-то приятным и необременительным, чем стану выполнять что-то, как мне кажется, стоящее, но не очень увлекательное. ';

voprosw [19]: ='Я скорее затрачу все свое время на осуществление одного дела, чем постараюсь выполнить быстро за это же время два-три дела. ';

voprosw [20]: ='Если я заболела и вынуждена остаться дома, то я использую время скорее для того, чтобы расслабиться и отдохнуть, чем почитать и поработать. ';

voprosw [21]: ='Если бы я жила с несколькими девушками в одной комнате и мы решили устроить вечеринку, я предпочла бы сама организовать ее, чем чтобы это сделала какая-нибудь другая девушка. ';

voprosw [22]: ='Если у меня что-то не выходит, я лучше обращусь к кому-то за помощью, чем стану сама продолжать искать выход. ';

voprosw [23]: ='Когда нужно соревноваться, у меня скорее возникает интерес и азарт, чем тревога и беспокойство. ';

voprosw [24]: ='Когда я берусь за трудное дело, я скорее опасаюсь, что не справлюсь с ним, чем надеюсь, что оно получится. ';

voprosw [25]: ='Я работаю эффективнее под чьим-то руководством, чем тогда, когда несу за свою работу личную ответственность. ';

voprosw [26]: ='Мне больше нравиться выполнять сложное незнакомое задание, чем задание знакомое, в успехе которого я уверена. ';

voprosw [27]: ='Если бы я успешно решила какую-то задачу, то с большим удовольствием взялась бы решать еще раз аналогичную, чем перешла бы к задаче другого типа. ';

voprosw [28]: ='Я работаю продуктивнее над заданием, когда передо мной ставят задачу лишь в общих чертах, чем когда мне конкретно указывают, что и как выполнять. ';

voprosw [29]: ='Если при выполнении важного дела я допускаю ошибку, то чаще я теряюсь и впадаю в отчаяние, чем быстро беру себя в руки и пытаюсь исправить положение. ';

voprosw [30]: ='Пожалуй, я больше мечтаю о своих планах на будущее, чем пытаюсь их реально осуществить. ';

memo1. Lines. Clear; // Очистка поля с текстом вопроса

end;

// При закрытии формы переход на первую.

procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);

begin form1. visible: =true; end;

procedure TForm2. Button2Click (Sender: TObject); // Переход на следующий вопрос

begin

if number<33 then otvet [number]: =radiogroup1. ItemIndex;

radiogroup1. ItemIndex: =-1;

number: =number+1; // Увеличение счётчика номера вопроса

caption: ='Вопрос №'+inttostr (number); // Заголовок к форме

memo1. Lines. Clear; // Очистка поля с текстом вопроса

if form4.comboBox1. ItemIndex=0 then

begin

if number<33 then

memo1. Lines [0]: =voprosm [number]; // Вывод вопроса - мужской

if number=32 then button2. Caption: ='Итог';

if number=33 then

begin form2. visible: =false; buttonclick (nil); end;

end;

if form4.comboBox1. ItemIndex=1 then

begin

if number<31 then

memo1. Lines [0]: =voprosw [number]; // Вывод вопроса - женский

if number=30 then

button2. Caption: ='Итог';

if number=31 then

begin form2. visible: =false; buttonclick (nil); end;

end;

button2. enabled: =false;

end;

procedure TForm2. RadioGroup1Click (Sender: TObject);

begin button2. Enabled: =true; end;

procedure TForm2. ButtonClick (Sender: TObject);

var i: integer;

result: integer;

begin

result: =0;

if form4.comboBox1. ItemIndex=0 then // Мужской

for i: =1 to 32 do

begin

if men [i] then result: =result+ (otvet [i] +1) else

result: =result- (7-otvet [i]);

end;

if form4.comboBox1. ItemIndex=1 then // Женский

for i: =1 to 30 do

begin

if wen [i] then result: =result+ (otvet [i] +1) else

result: =result- (7-otvet [i]);

end;

form1. table1. insert;

form1. table1. fieldbyname ('FIO'). asstring: =form4. edit1. text;

form1. table1. fieldbyname ('VOZRAST'). asinteger: =strtoint (form4. edit2. text);

form1. table1. fieldbyname ('KLASS'). asinteger: =strtoint (form4. edit3. text);

form1. table1. fieldbyname ('Pol'). asstring: =form4.combobox1. text;

for i: =1 to 32 do

case otvet [i] of

0: form1. table1. fieldbyname ('Num'+inttostr (i)). asstring: ='+3';

1: form1. table1. fieldbyname ('Num'+inttostr (i)). asstring: ='+2';

2: form1. table1. fieldbyname ('Num'+inttostr (i)). asstring: ='+1';

3: form1. table1. fieldbyname ('Num'+inttostr (i)). asstring: ='0';

4: form1. table1. fieldbyname ('Num'+inttostr (i)). asstring: ='-1';

5: form1. table1. fieldbyname ('Num'+inttostr (i)). asstring: ='-2';

6: form1. table1. fieldbyname ('Num'+inttostr (i)). asstring: ='-3';

end;

form1. table1. fieldbyname ('Result'). asInteger: =result;

form1. table1. post;

if MessageDlg ('Ваше колличество баллов='+inttostr (result),

mtConfirmation, [mbYes], 0) = mrYes then

begin form1. visible: =true; form2. visible: =false; end;

end;

end.

unit Unit4;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type TForm4 = class (TForm)

Edit1: TEdit; Edit2: TEdit; Edit3: TEdit;

Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;

Button1: TButton; Button2: TButton;

ComboBox1: TComboBox;

procedure FormActivate (Sender: TObject);

procedure Button1Click (Sender: TObject); procedure Button2Click (Sender: TObject);

procedure Edit1Enter (Sender: TObject); procedure Edit2Enter (Sender: TObject);

procedure Edit3Enter (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

end;

var Form4: TForm4;

implementation

uses Unit1, Unit2;

{$R *. DFM}

procedure TForm4. Button2Click (Sender: TObject);

begin form1. visible: =true; form4. Visible: =false; end;

procedure TForm4. FormClose (Sender: TObject; var Action: TCloseAction);

begin Button2Click (nil); end;

procedure TForm4. Button1Click (Sender: TObject);

begin

if (edit1. text<>'Введите ФИО') and (edit1. text<>'') and (edit2. text<>'Введите возраст') and (edit2. text<>'') and (edit3. text<>'№ класса') and (edit3. text<>'') then

begin

unit2. number: =1;

form2. button2. enabled: =false; form2. button2. Caption: ='Принять ответ';

if combobox1. ItemIndex=0 then // м

begin

form2. Memo1. Clear; form2. memo1. Lines [0]: =voprosm [unit2. number]

end else

begin

form2. Memo1. Clear; form2. memo1. Lines [0]: =voprosw [unit2. number]

end;

form2. visible: =true; form4. visible: =false;

end else showmessage ('Не все данные введены. Повторите попытку. ');

end;

procedure TForm4. Edit1Enter (Sender: TObject);

begin if edit1. text='Введите ФИО' then edit1. text: =''; end;

procedure TForm4. Edit2Enter (Sender: TObject);

begin if edit2. text='Введите возраст' then edit2. text: =''; end;

procedure TForm4. Edit3Enter (Sender: TObject);

begin if edit3. text='№ класса' then edit3. text: =''; end;

procedure TForm4. FormActivate (Sender: TObject);

begin combobox1. ItemIndex: =0; edit1. text: ='Введите ФИО'; edit2. text: ='Введите возраст'; edit3. text: ='№ класса'; button2. SetFocus; end;

end.

unit Unit5;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls;

type TForm5 = class (TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

Button1: TButton;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button1Click (Sender: TObject);

end;

var Form5: TForm5;

implementation

uses Unit1;

{$R *. DFM}

procedure TForm5. FormClose (Sender: TObject; var Action: TCloseAction);

begin form1. visible: =true; form5. visible: =false; end;

procedure TForm5. Button1Click (Sender: TObject);

begin

form1. Table1. EmptyTable;

end;

end.

Размещено на Allbest.ru