- 3 -

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

Государственное образовательное учреждение

среднего профессионального образования

«Санкт-Петербургский промышленно-экономический колледж»

филиал в г.Десногорске

КУРСОВОЙ   ПРОЕКТ

по дисциплине «Технология разработки

программных продуктов»

ТЕМА: «Каталог Стильных Причёсок»

Студент:   Шестернёв Сергей Владимирович

Группа:    6131             

Специальность:  230105  «Программное обеспечение ВТ и АС»

2009г.

Содержание

Введение…………………………………………………………………………………4

1.Общая часть...………………………….…………………………………..…………5

1.1 Характеристика Персонального компьютера …………………………………5

1.2 Программное обеспечение  персонального компьютера……………………9

1.3 Характеристика среды программирования……………………………………13

2.Специальная часть………………………………………………………………….16

2.1 Постановка задачи………………………………………………………………..16

2.2 Описание входной информации………………………………………………..17

2.3 Описание выходной информации………………………………………………17

2.4 Функциональная схема приложения…………………………………………...18

2.5 Описание программы……………………………………………………………..18

2.6 Алгоритмы и их описание………………………………………………………..21

2.7 Инструкция по эксплуатации…………………………………………………….22

2.8 Описание процесса отладки и контрольный пример………………………..22

2.9 Обработка ошибок в программе…………………………………………………23

3.Заключение……………………………………………………………………………26

4.Приложения…………………………………………………………………………..27

5.Список использованных сокращений…………………………………………….47

6.Список литературы………………………………………………………………….48

ВВЕДЕНИЕ

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

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

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

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

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

1.ОБЩАЯ ЧАСТЬ

1.1 Характеристика персонального компьютера

Основные составляющие компьютера:

Процессор
          управляет всеми другими частями ПК в соответствии с выбранной пользователем программой;

Системная (материнская) плата
          обеспечивает связь между всеми остальными компонентами компьютера;

Оперативная память
          содержит выполняемую процессором программу и другую разнообразную информацию;

Винчестер
          благодаря огромной емкости памяти хранит множество программ и данных (тексты, таблицы, картинки, музыку, видео и т.д.);

Видеокарта
          служит для вывода на монитор любых изображений (в том числе видео и 3D-графики);

Корпус
          обеспечивает нужные напряжения для питания всех устройств компьютера;

Клавиатура
          для ввода текстовой информации в ПК и управления программами;

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

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

Процессор

Как уже говорилось, даже самые младшие модели широко известных процессоров обеспечивают весьма высокую и достаточную в большинстве случаев скорость. Наилучшими параметрами обладают сейчас недорогие процессоры Intel Celeron, более быстрые, но и более дорогие Intel Pentium 4, а также реже используемые изделия фирмы AMD: Duron и Athlon. Желательно, чтобы тактовая частота процессора была не ниже 1100-1600 МГц, уже сегодня есть в продаже модели выше 2 ГГц.

Для разработки данной программы использовался процессор AMD Athlon(tm) 64 Processor 3200+  2.01 ГГц

Материнская плата

Меньше всего проблем возникает с платами на основе наборов микросхем Intel (например, i815, i850, i845). Широко распространены платы на микросхемах VIA, у которых зачастую возможности шире, чем у Intel, но и хлопот они могут доставить больше. Лучше всего среди производителей системных плат зарекомендовали себя Abit, ASUS, Chaintech, Intel, Gigabyte и некоторые другие. Правда, у них же и самые высокие цены. Среди более дешевых, но достаточно качественных марок можно выделить Acorp, Formoza, Lucky Star, Super Grace.

Для разработки данной программы использовалась материнская плата ASUS.

Оперативная память (RAM)

Для работы с офисными программами, не самыми требовательными играми, обучающими и справочными программами, в принципе, достаточно 128 Мбайт памяти. Однако более высокая скорость и качество работы достигается при объеме памяти 256 Мб, а в некоторых случаях (сложные игры, графика высокого разрешения, новые операционные системы семейства ХР и т.п.) рекомендуется иметь 512 Мб или больше. Производителей модулей и микросхем памяти много, самые известные из них: Samsung (SEC), Micron, Siemens, LG (LGS), Hitachi, Toshiba, Hyundai и др. Впрочем, в продаже чаще всего встречаются другие марки, которые могут оказаться ничем не хуже.

Для разработки данной программы использовалась оперативная память объёмом 1.43 ГБ.

Винчестер

Cовременные модели имеют емкость как минимум 20,2 гигабайт (миллиардов байт), а средняя емкость составляет примерно 20-40 Гбайт. Вообще-то и 20,2 Гбайт - огромная емкость, но и размер программ становится все больше. Если вы не собираетесь записывать в компьютер много музыки, фотографий или видео, то вам, наверное, хватит и 20,2-40 гигабайт (особенно, если периодически удалять или архивировать ненужные программы и данные).
Если же вы не собираетесь экономить место на винчестере, то лучше выбрать HDD емкостью не меньше 60 Гбайт. Для обычного офисного компьютера чаще всего вполне достаточно и минимальной емкости. Среди производителей винчестеров лучше всего зарекомендовали себя Seagate MAXTOR, купившая Quantum.

Для разработки данной программы использовался винчестер объёмом 160 Гб.

Видеокарта

От видеокарты зависит качество изображения и скорость воспроизведения трехмерной графики. Для работы с офисными, обучающими и справочными программами достаточно дешевого интегрированного решения (материнская плата со встроенной видеокартой) или видеокарты начального уровня: GeForce2 MX200/MX400.
Требованиям большинства современных игр соответствуют модели класса GeForce4 MX440/MX460, ATI RADEON 8500/9000 (с картами на чипах ATI с некоторыми играми имеются проблемы, которые устраняются путем скачивания из интернета и установки свежих драйверов и специальных заплаток для игр). Видеокарты серии GeForce4 Ti4200/Ti4400/Ti4600 и ATI RADEON 9700 соответствуют требованиям всех ультрасовременных игр и программ для работы с трехмерной графикой, обеспечивая высочайшую производительность и реалистичность изображения на сегодняшний день.

Особенно хочется выделить видеокарты на базе GeForce4 Ti4200 с 64 Мб памяти являющимся лучшим решением в соотношении цена/производительность. При покупке следует обратить внимание на фирму производитель видеокарты, лучше выбирать известные торговые марки (Asus, Abit, Gigabyte, SUMA, MSI) чем покупать видеокарту сомнительного происхождения с более низкой производительностью и плохого качества хоть и за меньшие деньги.

Для разработки данной программы использовалась видеокарта GeForce 6100 (256 мб).

Корпус

В корпусе современного компьютера сконцентрировано большое количество элементов, выделяющих тепло. По большому счету, тепло выделяет практически всё, так как любая работающая электронная схема рассеивает некоторую мощность. Однако есть элементы, которые являются весьма интенсивными источниками тепла. Это процессор, микросхемы на материнской плате и на видеокарте, элементы на плате жесткого диска, элементы блока питания и т.д. Давно прошли те времена, когда процессор мог работать без принудительного охлаждения. Уже стал привычным кулер на видеокарте, иногда он устанавливается также на северный мост чипсета и на жесткий диск. Современный корпус обычно имеет места для установки дополнительных вентиляторов, которые призваны продувать весь внутренний объем корпуса компьютера. Особенно остро проблема охлаждения стоит для компьютеров, насыщенных платами расширения, а также для компьютеров с «разогнанными» процессорами. Сами по себе корпуса не продаются отдельно, они поставляются в комплекте с блоком питания. Основная его функция - преобразовывать переменный ток высокого напряжения (110-230 V) в постоянный ток низкого напряжения (+/-12 V и +/-5 V).Выпускаются блоки питания мощностью 200 VA, 235 VA, 250 VA, 300 VA, 350 VA и т.д.

Клавиатура

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

        мультимедийные предоставляющие дополнительные возможности управления параметрами звука (громкость, баланс частот и пр.) и CD-ROM.

        со встроенными функциями управления броузером Интернет, позволяющие получить доступ к основным пунктам меню (Избранное, Поиск, запуск броузера)

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

        беспроводные клавиатуры, позволяющие работать в удалении от ПК на расстояние до 3-4 метров.

Основными производителями клавиатур на рынке являются фирмы MicroSoft, Chickone, Genius, BTC и Cherry, обладающие, пожалуй, самым большим модельным рядом. Цена клавиатуры в зависимости от фирмы производителя, исполнения и функциональной нагрузкой лежит в пределах 5,5 - 65 у.е.

Для разработки данной программы использовалась клавиатура фирмы MicroSoft.

Монитор

Одна из важнейших частей компьютера, и относиться к его выбору нужно серьезно. Кроме размера и качества изображения мониторы отличаются и по частотным характеристикам (максимальным поддерживаемым разрешениям и кадровым частотам). Впрочем, большинство популярных моделей имеют достаточно хорошие параметры, хотя разница в качестве изображения, конечно, есть. К хорошим недорогим маркам можно отнести Samsung, CTX, Samtron, LG, ViewSonic, Hyundai,. Более дорогие мониторы - Sony, Panasonic, NEC, Hitachi, MAG - действительно отличаются высоким уровнем качества, однако далеко не всегда превосходят более доступные модели. Для недорогих ПК рекомендуются мониторы с диагональю 15 дюймов, а для мощных ПК лучше подходят 17-дюймовые модели.

От выбора монитора зависит не только качество изображения, но и здоровье работающего с ним человека. Наиболее четкое и контрастное изображение имеют мониторы с кинескопами типа Sony , Trinitron, или похожие на них LG Flatron, ViewSonic, SonicTron, Mitsubishi Diamondtron, NEC CromaClear. Однако цена у мониторов с такими кинескопами довольно высокая, а разрешающая способность по горизонтали не самая лучшая. Кинескопы другого типа - с теневой маской - стоят дешевле, но тоже имеют весьма качественное изображение.

Для недорогого компьютера обычно приобретаются мониторы с диагональю 15». Для игрового ПК или работы с графикой лучше 17» модель. Мониторы большого размера - 19», 20» или 21» - используются в основном в сферах компьютерного дизайна и автоматизированного проектирования. Если хотите быть уверены в безопасности монитора, покупайте модели, соответствующие самому жесткому стандарту - TCO-99.

Именно от монитора стоит планировать бюджет покупки. Системный блок дешевеет достаточно быстро (50% в год и более), а монитор обычно покупается надолго, и от него в большей степени зависит комфортность работы за компьютером и утомляемость. Качество изображения и технология - вот на что надо обратить особое внимание. Размер диагонали экрана должен быть не менее 17 дюймов в случае монитора на базе ЭЛТ (электроннолучевой трубки) и 15 дюймов в случае ЖК (LCD/ТFТ)- дисплея.

Жидкокристаллические (ЖК-мониторы) сейчас вполне доступны по цене. Они чуть меньше, чем традиционные ЭЛТ-мониторы, подходят для игр с динамичной трехмерной графикой (или требуют в этом случае мощных параметров компьютера, хотя современные модели уже стирают эту разницу), но значительно более комфортны для зрения. Под задачи, связанные с работой с мелкими деталями и изображениями (дизайн, 3D-моделирование, видеомонтаж), желательно брать монитор более 17 дюймов.

Если же вы решите брать ЭЛТ-монитор, то рассматривайте только серьезных производителей, таких, например, как View Sonic, NEC, liyama, Mitsubishi, Nokia, Sony, CTX. В данном случае, вы платите не только за марку, но и за профессионализм производителя. Обязательно посмотрите на монитор, прежде чем его покупать. Он должен понравиться именно вашим глазам! Не покупайте монитор, основываясь исключительно на цифрах технических характеристик или рекомендациях.

Для разработки данной программы использовался монитор ViewSonic VG2021 wm.

1.2 Программное обеспечение персонального компьютера

Наличие качественного и надежного аппаратного и программного обеспечения имеет очень большое значение для любой коммерческой и даже некоммерческой организации. Компьютерное программное обеспечение для бизнеса, как и для персонального использования весьма разнообразно. Существуют определенные сферы деятельности, в которых невозможно обойтись без использования специального программного обеспечения, софта. Например, базовым программным обеспечением для работы дизайнера является Adobe Photoshop, 3DStudio Max, конструктора – AutoСad и Компас, бухгалтера – 1С:Предприятие. Системное програмное обеспечение является основой функционирования любого компьютера. Помимо него существует общее программное обеспечение, которое необходимо почти для каждого компьютера – Microsoft Office, архиватор, файловый менеджер, мультимедиа-плееры, ICQ, антивирус. Часто на компьютере присутствует различное сервисное программное обеспечение – программа нарезки компакт-дисков, дефрагментатор, программа проверки диска, брандмауэр. Дополнительное программное обеспечение для Интернет необходимо тем, кто много времени проводит, работая в сети – это один из альтернативных веб-браузеров (Opera, Firefox), альтернативных клиентов e-mail (The Bat!), клиент WebMoney.Таким образом, существует большое количество программ, программного обеспечения,  которое необходимо на компьютере.

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

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

Прикладное ПО - это как раз те программы, которые помогают выполнять конкретную работу. Их существует огромное множество. Например, в России почти на любом ПК устанавливается Microsoft Office. Это целый пакет программ, который может очень многое, но в данной программе использовались следующие:

        Microsoft Word - служит для подготовки документов любой сложности - от простых писем до многостраничных документов содержащих не только текст, но и таблицы, рисунки, диаграммы

Microsoft Word является наиболее популярным из используемых в данный момент текстовых процессоров, что сделало его бинарный формат документа стандартом де-факто, и многие конкурирующие программы имеют поддержку совместимости с данным форматом. Расширение «.doc» на платформе IBM PC стало синонимом двоичного формата Word 97—2000. Фильтры экспорта и импорта в данный формат присутствуют в большинстве текстовых процессоров.Формат документа разных версий Word меняется, различия бывают довольно тонкими. Форматирование, нормально выглядящее в последней версии, может не отображаться в старых версиях программы, однако есть ограниченная возможность сохранения документа с потерей части форматирования для открытия в старых версиях продукта. Последняя версия MS Word 2007 "использует по умолчанию" формат основанный на XML - Microsoft Office Open XML. Спецификация форматов файлов Word 97-2007 были опубликован Microsoft в 2008 году.[1][2] Ранее, большая часть информации, нужной для работы с данным форматом, добывалась посредством обратного инжиниринга, поскольку основная её часть отсутствовала в открытом доступе или была доступна лишь ограниченному числу партнеров и контролирующих организаций.

Как и прочие приложения из Microsoft Office, Word может расширять свои возможности посредством использования встроенного макроязыка (сначала использовался WordBasic, с версии Word 97 применяется VBA — Visual Basic для приложений). Однако это предоставляет широкие возможности для написания встраиваемых в документы вирусов (так называемые «макровирусы»). Наиболее ярким примером была эпидемия червя Melissa. В связи с этим, многие считают разумной рекомендацию всегда выставлять наивысший уровень настроек безопасности при использовании Word (Меню: «Tools>Macro>Security», «Сервис>Макрос>Безопасность…» в локализованных русских версиях). Также нелишним будет использовать антивирусное программное обеспечение. Первым вирусом, заражавшим документы Microsoft Word, был DMV, созданный в декабре 1994 года Дж. МакНамарой для демонстрации возможности создания макровирусов. Первым же вирусом, попавшим в "дикую природу" и вызвавшим первую в мире эпидемию макровирусов (это произошло в июле-августе 1995 г.), был Concept.

        Microsoft Excel - электронные таблицы. С помощью Excel можно автоматизировать многие расчеты, на основании них строить графики и диаграммы

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

Microsoft Access — реляционная СУБД корпорации Microsoft. Имеет широкий спектр функций, включая связанные запросы, сортировку по разным полям, связь с внешними таблицами и базами данных. Благодаря встроенному языку VBA, в самом Access можно писать приложения, работающие с базами данных.

 Система управления базами данных Microsoft Access является одним из самых популярных приложений в семействе настольных СУБД. Все версии Access имеют в своем арсенале средства, значительно упрощающие ввод и обработку данных, поиск данных и предоставление информации в виде таблиц, графиков и отчетов.

На рабочих местах могут применяться различные версии MS Office, это Office 95, 97, 2000, XP, 2003, 2007. Одна версия от другой отличается новыми дополнительными возможностями. На современном этапе принято устанавливать на компьютеры версии, начиная с 2000 и выше.Специализированное прикладное ПО позволяет автоматизировать определённый, специфический вид деятельности. Например, автоматизировать расчет заработной платы, учет горюче-смазочных материалов или автоматизировать документооборот предприятия.Примером таких программ являются 1С:Бухгалтерия, Предприятие, Товары и склад или справочноправовые системы, такие как Гарант, КонсультантПлюс и другие.

Наибольшее распространение не только в нашей стране, но и во всём мире получили различные версии операционных систем компании Microsoft: Windows 98, Windows NT, Windows ME, Windows 2000, Windows XP и последняя Windows Vista.

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

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

Для разработки программы использовался Service Pack 3.

В начале августа 2007 года Microsoft начала бета-тестирование SP3 среди ограниченной группы бета-тестеров. Несмотря на то, что бета-версия была передана только избранным, её дистрибутив появился в пиринговых сетях. С 12 декабря 2007 года версия RC1 SP3 доступна для загрузки и тестирования всем желающим.

Окончательная версия пакета обновлений 3 для Windows XP была представлена 21 апреля 2008 года, но только для бизнес-клиентов, таких как производители оригинального оборудования и подписчики MSDN и TechNet. Остальные пользователи смогли получить третий сервис-пак с онлайн-сервиса Windows Update или через центр загрузки Microsoft 6 мая, а также с помощью сервиса автоматического обновления в начале лета. Первоначально RTM-версия Windows XP SP3 вышла на китайском, английском, французском, немецком, японском, корейском и испанском языках.. И только 5 мая были выпущены остальные 18 локализаций.

Пакет включает в себя все обновления, выпущенные после выхода Windows XP Service Pack 2 в 2004 г., а также ряд других новых элементов. Среди них функция защиты сетевого доступа (Network Access Protection) и новая модель активации, заимствованные у Windows Vista, кроме того, появится улучшенное обнаружение так называемых маршрутизаторов-«черных дыр» и др.

С 1 июля 2008 года «Microsoft» прекратила продажи Windows XP SP2 своим поставщикам.На данный момент поставляется Windows XP SP3 в OEM и BOX поставках, возможен "даунгрейд" в рамках корпоративного лицензирования. А так же в продаже находится Get Genuine Kit Windows XP SP3 предназначенный для лицензирования установленного пиратского софта, в рамках корпоративного лицензирования пакет Get Genuine Solution Windows XP.

1.3 Характеристика среды программирования

Microsoft Visual Basic — средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду разработки. Язык Visual Basic унаследовал дух, стиль и отчасти синтаксис своего предка — языка Бэйсик, у которого есть немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных и компонентно-ориентированных языков программирования. Среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса.

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

Первое признание серьёзными разработчиками Visual Basic получил после выхода версии 3 — VB3. Окончательное признание как полноценного средства программирования для Windows — при выходе версии 5 — VB5. Версию VB6, входящую в состав Microsoft Visual Studio 6.0, стала по-настоящему зрелым и функционально богатым продуктом. После этого разработчики из Microsoft существенно изменили направление развития данной технологии.

Visual Basic .NET не позволяет программировать по-старому, ибо по сути является совершенно другим языком, таким же, как и любой другой язык программирования для платформы .NET. Индивидуальность языка, так же как и его преимущества (простота, скромность создания программ, лёгкость использования готовых компонент) при использовании в среде .NET не имеют такого значения, как раньше — всё сосредоточено на возможностях самой системы .NET, на её библиотеке классов. Поэтому сегодня (февраль 2008) нужно говорить о классическом Visual Basic, его диалектах Visual Basic for Applications (VBA) и Visual Basic Scripting Edition (VBScript) и о языке для платформы .NET — Visual Basic .NET.

Язык Visual Basic не стандартизован ни ANSI, ни ISO.

Классический Visual Basic (версии 5-6)

Этот язык очень сильно привязан к своей среде разработки и к операционной системе Windows, являясь исключительно инструментом написания Windows-приложений. Привязка к среде заключается в том, что существует большое количество средств, предназначенных для помощи и удобства программирования: встроенный отладчик, просмотр переменных и структур данных на лету, окно отладки, всплывающая подсказка при наборе текста программы (Intellisense). Все эти преимущества делают бесполезным и даже невозможным использование Visual Basic вне среды разработки, например в обычном текстовом редакторе

Visual Basic for Applications (VBA)

Это средство программирования, практически ничем не отличающееся от классического Visual Basic, которое предназначено для написания макросов и других прикладных программ для конкретных приложений. Наибольшую популярность получил благодаря своему использованию в пакете Microsoft Office. Широкое распространение Visual Basic for Applications в сочетании с изначально недостаточным вниманием к вопросам безопасности привело к широкому распространению макровирусов.

Особенности:Оператор \ - деление нацело, любая дробная часть отсекается.  Перед выполнением операции a\b a и b округляются до целого. Округление происходит до ближайшего целого числа, но, если дробная часть в точности равна 0.5, то округление происходит до ближайшего четного целого.

Достоинства

        Высокая скорость создания приложений с графическим интерфейсом для MS Windows.

        Простой синтаксис, позволяющий очень быстро освоить язык.

        Возможность как компиляции в машинный код, так и интерпретации во время отладки.

Недостатки

        Поддержка операционных систем только семейства Windows (Исключение - VB1 for DOS).

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

        Требует установленных DLL для работы программы.

Критика

        Часто критике подвергаются такие аспекты Visual Basic, как возможность отключить средства слежения за объявленными переменными, возможность неявного преобразования переменных, наличие типа данных "Variant". По мнению критиков, это даёт возможность писать крайне плохой код. С другой стороны, это можно рассматривать как плюс, так как VB не навязывает "хороший стиль", а даёт больше свободы программисту.

        Отсутствие указателей, низкоуровневого доступа к памяти, ASM-вставок. Несморя на то, что парадигма Visual Basic позволяет среднему VB-программисту обходиться без всего этого, перечисленные вещи также нередко становятся объектами критики. И хотя, используя недокументированные возможности и определённые ухищрения, всё это можно реализовать и на VB; пользоваться этими трюками гораздо сложнее, чем, например, на Си++.

2.Специальная часть

2.1 Постановка задачи

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

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

Данный продукт содержит следующую входную и выходную информации:

Входная:

      Значение пароля

      Выбор из нескольких значений

      Данные из баз данных

      Значение текущей записи

      Пустая новая строка при добавлении

      Текущая запись при удалении

      Критерий поиска

      Критерий фильтрации

      При выводе на печать- текущие значения таблицы при просмотре

      Выбор пунктов в меню “Справка”

Выходная:

      При введении пароля- переход на форму,если пароль верен; иначе сообщение о неверном пароле

      Переход по выбранным значениям

      Элемент, отображающий данные из таблицы

      Измененные и сохраненные значения текущей записи при редактировании

      Сохранение новых данных при добавлении

      результат удаления текущей записи

      Найденная строка или строки, или сообщение о том, что текущая запись не найдена

      Результат фильтрации данных

      Текущие значения таблицы, выгруженные в файл при печати

      Отображение справки в отдельном окне

2.2 Описание входной информации

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

  Таблица 1

Структура полей таблицы”Общая”

2.3. Описание выходной информации

Выходной информацией в данной программе будет вывод на печать.   Так же выходной информацией будет :

1 Найденное ФИО Посетителя после проведения поиска или сообщение о том, что для данного критерия поиска данных нет.

2 Отфильтрованные по какому либо критерию данные.

                                                2.4 Функциональная схема приложения

2.5 Описание программы

Данный программный продукт получил название “Каталог Стильных причёсок”. Он выполнялся на операционной системе Windows XP SP3 на Visual Basic 6.0 и с помощью Microsoft Access 2003, Microsoft Word 2003, Microsoft Excel 2003.

Данная программа занимает места 1,55 МБ мегабайта. В состав проекта входят файлы: Form1(причёски), Form2 (Редактирование\Добавление), Form3 (Справка), Form4 (О программе), Form6 (Форма поиска),Form7 (Фильтрация),Form8( Установка пароля),Form9 (Удаление пароля), frmPas, frmZagruzka.

Form1(Причёски)-данная форма предназначена для учёта посетителей в парикмахерской. В ней используются следующие процедуры:

cmdDel_Click- процедура обработки события Click для удаления записи.

cmdFilter_Click- процедура обработки события Click для фильтрации записей.

cmdUpd_Click- процедура обработки события Click для обновления.

Command1_Click- процедура обработки события Click для редактирования.

Command2_Click- процедура обработки события Click для добавления записей.

Command5_Click- процедура обработки события Click для выхода из программы.

cmdFind_Click- процедура обработки события Click для поиска информации.

mnuAdd_Click- процедура обработки события Click для добавления информации.

mnuDelete_Click- процедура обработки события Click для удаления данных.

mnuEdit_Click- процедура обработки события Click для редактирования.

mnuExit_Click- процедура обработки события Click для выхода.

mnuFilter_Click- процедура обработки события Click для фильтрации.

mnuFind_Click- процедура обработки события Click для поиска информации.

mnuPrint_Click- процедура обработки события Click для вывода информации на печать.

mnuProgram_Click- процедура обработки события Click для вызова формы о программе.

mnuSetPas_Click- процедура обработки события Click для установки пароля.

mnuDelPas_Click- процедура обработки события Click для удаления пароля.

Option1_Click- процедура обработки события Click для выполнения сортировки по дате

Option2_Click- процедура обработки события Click для выполнения сортировки по ФИО Посетителя.

Option3_Click- процедура обработки события Click для выполнения сортировки по телефону

Option5_Click- процедура обработки события Click для выполнения сортировки по ФИО Исполнителя.

Option6_Click- процедура обработки события Click для выполнения сортировки по Цене.

Option10_Click- процедура обработки события Click для отображения вида мужских причёсок

Option11_Click- процедура обработки события Click для отображения вида женских причёсок

Form2 (Редактирование)-данная форма предназначена для редактирования данных. В ней используются следующие процедуры:

Command1_Click- процедура обработки события Click для сохранения отредактированных данных.

Command2_Click- процедура обработки события Click для выхода из формы редактирования.

Form3(Справка)-данная форма предоставляет краткое описание программы.

Form4(Oпрограмме)-данная форма предоставляет информацию о программе.

Form6 (Форма поиска)- данная форма предназначена для поиска данных по наименованию. В ней используются следующие процедуры:

cmdCancel_Click- процедура обработки события Click для выхода из формы поиска.

cmdOk_Click-- процедура обработки события Click для начала поиска данных.

Form7 (Фильтрация)- данная форма предназначена для фильтрации записей. В ней используются следующие процедуры:

cmdCancel_Click- процедура обработки события Click для выхода из формы фильтрации.

cmdOk_Click- процедура обработки события Click для начала выполнения фильтрации.

Option1_Click- процедура обработки события Click для выполнения фильтрации по определённому критерию.

Form8( Установка пароля)- данная форма предназначена для защиты программы паролем. В ней используются следующие процедуры:

cmdOk_Click- процедура обработки события Click для задания пароля.

Command2_Click- процедура обработки события Click для выхода из формы задачи пароля.

Form9 (Удаление пароля)- данная форма предназначена для удаления заданного в программе пароля. В ней используются следующие процедуры:

cmdOk_Click- процедура обработки события Click для удаления пароля.

cmdExit_Click- процедура обработки события Click для выхода из формы удаления пароля.

frmPas-форма предназначена для ввода пароля. В ней используются следующие процедуры:

cmdCancel_Click- процедура обработки события Click для выхода из формы.

cmdOk_Click- процедура обработки события Click для подтверждения введенного пароля.

frmZagruzka-форма загрузки.

2.6 Алгоритмы и их описание

Понятие алгоритма

Для составления программы, предназначенной для решения на ЭВМ какой-либо задачи, требуется составление алгоритма ее решения.

Алгоритм — это точное предписание, которое определяет процесс, ведущий от исходных данных к требуемому конечному результату. Алгоритмами, например, являются правила сложения, умножения, решения алгебраических уравнений, умножения матриц и т.п. Слово алгоритм происходит от algoritmi, являющегося латинской транслитерацией арабского имени хорезмийского математика IX века аль-Хорезми. Благодаря латинскому переводу трактата аль-Хорезми европейцы в XII веке познакомились с позиционной системой счисления, и в средневековой Европе алгоритмом называлась десятичная позиционная система счисления и правила счета в ней.

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

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

-результативностью;

-определенностью;

-массовостью.

Результативность означает возможность получения результата после выполнения конечного количества операций.

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

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

Для задания алгоритма необходимо описать следующие его элементы:

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

-правило начала;

-правило непосредственной переработки информации (описание последовательности действий);

-правило окончания;

-правило извлечения результатов.

Алгоритм всегда рассчитан на конкретного исполнителя. В нашем случае таким исполнителем является ЭВМ. Для обеспечения возможности реализации на ЭВМ алгоритм должен быть описан на языке, понятном компьютеру, то есть на языке программирования.

Таким образом, можно дать следующее определение программы.

Программа для ЭВМ представляет собой описание алгоритма и данных на некотором языке программирования, предназначенное для последующего автоматического выполнения.

2.7 Инструкция по эксплуатации

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

Если вы ввели пароль не верно, то перед вами появится диалоговое окно.

Если вы правильно ввели пароль и нажали кнопку ок то перед вами появится форма загрузки.

Затем появится форма учёта посетитетлей в парикмахерской.

Находясь на форме учёта посетитетлей вы можете выбрать следующие функции:

1.Редактирование данных. При нажатии кнопки редактировать или пункта меню с одноимённым названием перед вами появится форма редактирования. 2 Добавление данных.

При выборе данной функции вы переходите в окно для добавления данных

3 Удаление . Если вы воспользовались данной функцией то перед вами появится форма удаления данных

4 Поиск Данных. Для поиска данных, необходимо нажать на кнопку Поиск или выбрать Пункт Меню Поиск и перед вами появится форма для поиска данных

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

При нажатии кнопки обновить, данные будут обновлены.

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

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

Если вы захотите установить пароль, для этого необходимо воспользоваться соответствующим пунктом меню и перед вами появится форма установки пароля

Для удаления пароля нужно воспользоваться Пунктом Меню  Сервис а затем Удалить пароль и перед вами появится форма для удаления пароля

У вас также могут возникнуть трудности, связанные с пользованием программой. Для их устранения можно воспользоваться Пунктом Меню Справка

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

2.8 Описание процесса отладки и контрольный пример

Данное приложение оттестировано и функционирует в соответствии с поставленными задачами. Это можно проследить на контрольном примере.

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

2.9 Обработка ошибок в программе

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

В Visual Basic ошибки (также называемые исключениями) подразделяются на три категории: синтаксические ошибки, ошибки времени выполнения и логические ошибки.

Синтаксические ошибки

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

Ошибки времени выполнения

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

 Логические ошибки

Логические ошибки — это те ошибки, которые выявляются при использовании данного приложения. Они часто проявляются в виде нежелательных или непредвиденных результатов в ответ на действия пользователя. Например, ошибочное нажатие клавиши или другое внешнее воздействие может вызвать прекращение работы приложения. Логические ошибки обычно наиболее сложно исправить, так как не всегда ясно их происхождение.

Предупреждение о неявном преобразовании

Генерируется для случаев неявного преобразования. Сюда не входят неявные преобразования из встроенных числовых типов в строковые типы при использовании оператора &. По умолчанию выключено для новых проектов.

Идентификатор: 42016

Предупреждение о вызове метода позднего связывания и разрешении перегрузки

Генерируется для случаев позднего связывания. По умолчанию выключено для новых проектов.

Идентификатор: 42017

Предупреждения об операндах типа Object

Генерируются при обнаружении операндов типа Object, которые могут привести к ошибке, если установлен параметр компилятора Option Strict On. По умолчанию включено для новых проектов.

Идентификаторы: 42018 и 42019

Предупреждения о необходимости использовать предложение "As" в объявлениях

Генерируются, когда в объявлении переменной, функции или свойства отсутствует предложение As, что приводит к ошибке, если установлен параметр компилятора Option Strict On. Предполагается, что переменные, тип которых не задан явно, по умолчанию имеют тип Object. По умолчанию включены для новых проектов.

Идентификаторы: 42020 (объявление переменной), 42021 (объявление функции) и 42022 (объявление свойства).

Предупреждения о возможных исключениях при пустых ссылках

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

Идентификаторы: 42104, 42030

Предупреждение о неиспользуемой локальной переменной

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

Идентификатор: 42024

Предупреждение о доступе к общему члену через экземпляр переменной

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

Идентификатор: 42025

Предупреждения о рекурсивном операторе или доступе к свойству

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

Идентификаторы: 42004 (оператор), 42026 (свойство)

Предупреждение о функции или операторе без возвращаемого значения

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

Идентификаторы: 42105 (функция), 42016 (оператор)

Предупреждение об использовании в модуле модификаторов перегрузки

Генерируется, когда в модуле (Module) используется Overloads. По умолчанию включено для новых проектов.

Идентификатор: 42028

Предупреждения о повторяющихся или перекрывающихся блоках Catch

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

3.Заключение

В ходе разработки курсового проекта, мною была создана программа в Visual Basic 6.0 на тему “Каталог стильных причёсок”. Преимуществом данного продукта является  его простота, достаточный комфорт при эксплуатации, что дает возможность  пользователю эффективно работать с этой программой. Кроме этого обеспечивается  неплохая надежность работы программного  средства.

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

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

В ходе разработки, я столкнулся с трудностями ошибок программного кода.

4.Приложения

Form1(Главная Форма «Причёски») рис.1

Form2(Редактировать\Добавить) рис.2

Form3(Справка) рис.3

Form4(О программе) рис.4

Form6(Поиск) рис.5

Form7(Фильтрация) рис.6

Form8(Установка Пароля) рис.7

Form9(Удаление Пароля) рис.8

frmPas(Форма ввода пароля) рис.9

frmZagruzka(Форма загрузки программы ) рис.10

Листинг Программы

Рис.1

Option Explicit

Dim a As String

Dim b As String

Dim c As String

Dim f As Integer

Dim d As String

Dim e As String

Dim g As String

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim i As Integer

Dim j As Integer

Dim z As Integer

Dim NumTek As Long ' Номер текущей записи

Private Sub Form_Load()

Frame5.Visible = True

Frame4.Visible = False

Frame3.Visible = False

Image1.Picture = LoadPicture(App.Path & "\pict\nado.gif")

'Подключение

Connection

If Form1.Adodc1.Recordset.RecordCount = 0 Then

Blocing

Else

NotBlocing

End If

AdodcPasU.Refresh

If AdodcPasU.Recordset.Fields(1).Value = "0" Then

mnuSetPas.Enabled = True

mnuDelPas.Enabled = False

Else

mnuSetPas.Enabled = False

mnuDelPas.Enabled = True

End If

End Sub

Private Sub cmdDel_Click()

If MsgBox("Вы действительно хотите удалить???", vbYesNo + vbQuestion, "Подтверждение") = vbYes Then

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then

If Adodc1.Recordset.RecordCount = 0 Then

Blocing

Exit Sub

End If

Adodc1.Recordset.MoveLast

End If

NumTek = Adodc1.Recordset.AbsolutePosition

'Перенумерация

NewNumber

End If

End Sub

Private Sub cmdFilter_Click()

If cmdFilter.Caption = "Фильтрация" Then

flag = 5

Form7.Show vbModal

If flag = -1 Then Exit Sub

Adodc1.CommandType = adCmdUnknown

Select Case NumField

Case 1

Adodc1.RecordSource = "Select * From [Общая] Where [Дата] =" & "'" & CritFind & "'"

Case 2

Adodc1.RecordSource = "Select * From [Общая] Where [ФИО Посетителя] =" & "'" & CritFind & "'"

Case 3

Adodc1.RecordSource = "Select * From [Общая] Where [Телефон посетителя] =" & "'" & CritFind & "'"

Case 4

Adodc1.RecordSource = "Select * From [Общая] Where [Вид Прически] =" & "'" & CritFind & "'"

Case 5

Adodc1.RecordSource = "Select * From [Общая] Where [ФИО исполнителя] =" & "'" & CritFind & "'"

Case 6

Adodc1.RecordSource = "Select * From [Общая] Where [Используемые средства] =" & "'" & CritFind & "'"

Case 7

Adodc1.RecordSource = "Select * From [Общая] Where [Цена руб] =" & "'" & CritFind & "'"

End Select

Adodc1.Refresh

Adodc1.CommandType = adCmdTable

cmdFilter.Caption = "Отменить фильтрацию"

Else

cmdUpd_Click

cmdFilter.Caption = "Фильтрация"

End If

End Sub

Private Sub cmdUpd_Click()

Connection

End Sub

Private Sub Command1_Click()

flag = 1

Form1.Hide

Form2.Show

End Sub

Private Sub Command2_Click()

flag = 2

Form1.Hide

Form2.Show

End Sub

Private Sub Command4_Click()

Unload Form1

Form1.Show

End Sub

Private Sub Command5_Click()

If MsgBox("Закончить работу программы??", vbYesNo + vbQuestion, "Выход из программы") <> vbYes Then

Form1.Show

Else

End

End If

End Sub

Private Sub cmdFind_Click()

flag = 4

Form6.Show vbModal

If flag = -1 Then Exit Sub

Adodc1.Recordset.MoveFirst

For f = 1 To Adodc1.Recordset.RecordCount

If Adodc1.Recordset.Fields(2).Value = CritFind Then Exit Sub

Adodc1.Recordset.MoveNext

Next

MsgBox "Для данного критерия поиска данных нет", vbInformation, "Поиск"

Adodc1.Recordset.MoveFirst

End Sub

Private Sub NewNumber()

Dim k As Long

k = 1

Adodc1.Recordset.MoveFirst

For f = 1 To Adodc1.Recordset.RecordCount

Adodc1.Recordset.Fields(0).Value = k

k = k + 1

Adodc1.Recordset.MoveNext

Next

Adodc1.Recordset.AbsolutePosition = NumTek

NumLast = Adodc1.Recordset.RecordCount

End Sub

Private Sub Connection()

Adodc1.CommandType = adCmdUnknown

Adodc1.RecordSource = "Select * From [Общая] ORDER BY [Номер]"

Adodc1.Refresh

Adodc1.CommandType = adCmdTable

NumTek = Adodc1.Recordset.AbsolutePosition

'Перенумерация

NewNumber

End Sub

Private Sub List1_Click()

Select Case List1.ListIndex

Case 0

Image1.Picture = LoadPicture("")

Case 1

Image1.Picture = LoadPicture(App.Path & "\Pict\1.jpg")

Case 2

Image1.Picture = LoadPicture(App.Path & "\Pict\2.jpg")

Case 3

Image1.Picture = LoadPicture(App.Path & "\Pict\3.jpg")

Case 4

Image1.Picture = LoadPicture(App.Path & "\Pict\4.jpg")

Case 5

Image1.Picture = LoadPicture(App.Path & "\Pict\5.jpg")

End Select

End Sub

Private Sub List2_Click()

Select Case List2.ListIndex

Case 0

Image1.Picture = LoadPicture("")

Case 1

Image1.Picture = LoadPicture(App.Path & "\Pict\6.jpg")

Case 2

Image1.Picture = LoadPicture(App.Path & "\Pict\7.jpg")

Case 3

Image1.Picture = LoadPicture(App.Path & "\Pict\8.jpg")

Case 4

Image1.Picture = LoadPicture(App.Path & "\Pict\9.jpg")

Case 5

Image1.Picture = LoadPicture(App.Path & "\Pict\10.jpg")

End Select

End Sub

Private Sub mnuAdd_Click()

flag = 2

Form1.Hide

Form2.Show

End Sub

Private Sub mnuDelete_Click()

If MsgBox("Вы действительно хотите удалить???", vbYesNo + vbQuestion, "Подтверждение") = vbYes Then

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then

If Adodc1.Recordset.RecordCount = 0 Then

Blocing

Exit Sub

End If

Adodc1.Recordset.MoveLast

End If

NumTek = Adodc1.Recordset.AbsolutePosition

'Перенумерация

NewNumber

End If

End Sub

Private Sub mnuEdit_Click()

flag = 1

Form1.Hide

Form2.Show

End Sub

Private Sub mnuExit_Click()

If MsgBox("Закончить работу программы??", vbYesNo + vbQuestion, "Выход из программы") <> vbYes Then

Form1.Show

Else

End

End If

End Sub

Private Sub mnuFilter_Click()

If cmdFilter.Caption = "Фильтрация" Then

flag = 5

Form7.Show vbModal

If flag = -1 Then Exit Sub

Adodc1.CommandType = adCmdUnknown

Select Case NumField

Case 1

Adodc1.RecordSource = "Select * From [Общая] Where [Дата] =" & "'" & CritFind & "'"

Case 2

Adodc1.RecordSource = "Select * From [Общая] Where [ФИО Посетителя] =" & "'" & CritFind & "'"

Case 3

Adodc1.RecordSource = "Select * From [Общая] Where [Телефон посетителя] =" & "'" & CritFind & "'"

Case 4

Adodc1.RecordSource = "Select * From [Общая] Where [Вид Прически] =" & "'" & CritFind & "'"

Case 5

Adodc1.RecordSource = "Select * From [Общая] Where [ФИО исполнителя] =" & "'" & CritFind & "'"

Case 6

Adodc1.RecordSource = "Select * From [Общая] Where [Используемые средства] =" & "'" & CritFind & "'"

Case 7

Adodc1.RecordSource = "Select * From [Общая] Where [Цена руб] =" & "'" & CritFind & "'"

End Select

Adodc1.Refresh

Adodc1.CommandType = adCmdTable

cmdFilter.Caption = "Отменить фильтрацию"

Else

cmdUpd_Click

cmdFilter.Caption = "Фильтрация"

End If

End Sub

Private Sub mnuFind_Click()

flag = 4

Form6.Show vbModal

If flag = -1 Then Exit Sub

Adodc1.Recordset.MoveFirst

For f = 1 To Adodc1.Recordset.RecordCount

If Adodc1.Recordset.Fields(2).Value = CritFind Then Exit Sub

Adodc1.Recordset.MoveNext

Next

MsgBox "Для данного критерия поиска данных нет", vbInformation, "Поиск"

Adodc1.Recordset.MoveFirst

End Sub

Private Sub mnuInformation_Click()

Form3.Show

End Sub

Private Sub mnuPrint_Click()

flag1 = 6

If flag1 < 0 Then Exit Sub

On Error Resume Next

Set xlApp = GetObject(, "Excel.Application")

If Err.Number <> 0 Then

Set xlApp = CreateObject("Excel.Application")

End If

Err.Clear

xlApp.Workbooks.Add Template:=App.Path & "\Шаблон.xlt"

Set xlBook = xlApp.ActiveWorkbook

Set xlSheet = xlBook.Worksheets(1)

xlApp.Visible = True

z = 0

Adodc1.Recordset.MoveFirst

For i = 1 To Adodc1.Recordset.RecordCount

If idField = 0 Or (LCase(Adodc1.Recordset.Fields(idField).Value) = LCase(idCrit)) Then

z = z + 1

For j = 1 To Adodc1.Recordset.Fields.Count

xlSheet.Cells(z + 2, j).HorizontalAlignment = xlGeneral

xlSheet.Cells(z + 2, j).VerticalAlignment = xlTop

xlSheet.Cells(z + 2, j).WrapText = True

xlSheet.Cells(z + 2, j).Value = Adodc1.Recordset.Fields(j - 1).Value

Next

End If

Adodc1.Recordset.MoveNext

Next

Adodc1.Recordset.MoveFirst

With xlSheet

With .Range(.Cells(1, 1), .Cells(z + 2, j - 1)).Borders

.Weight = xlThin

.Color = RGB(0, 0, 0)

End With

End With

Set xlApp = Nothing

Set xlBook = Nothing

Set xlSheet = Nothing

End Sub

Private Sub mnuProgram_Click()

Form4.Show vbModal

End Sub

Private Sub mnuSetPas_Click()

Form8.Show vbModal

End Sub

Private Sub Option10_Click()

Frame3.Visible = True

Frame4.Visible = False

Frame5.Visible = False

End Sub

Private Sub Option11_Click()

Frame4.Visible = True

Frame3.Visible = False

Frame5.Visible = False

End Sub

Private Sub Option7_Click()

cmdUpd_Click

End Sub

Private Sub Option9_Click()

Frame5.Visible = True

Frame4.Visible = False

Frame3.Visible = False

End Sub

Private Sub Timer1_Timer()

StatusBar1.Panels(4).Text = Time

End Sub

Private Sub mnuDelPas_Click()

Form9.Show vbModal

End Sub

Private Sub Option1_Click()

Adodc1.CommandType = adCmdUnknown

Adodc1.RecordSource = "Select*From[Общая] ORDER BY [Дата]"

Adodc1.Refresh

Adodc1.CommandType = adCmdTable

End Sub

Private Sub Option2_Click()

Adodc1.CommandType = adCmdUnknown

Adodc1.RecordSource = "Select*From[Общая] ORDER BY [ФИО Посетителя]"

Adodc1.Refresh

Adodc1.CommandType = adCmdTable

End Sub

Private Sub Option3_Click()

Adodc1.CommandType = adCmdUnknown

Adodc1.RecordSource = "Select*From[Общая] ORDER BY [Телефон посетителя]"

Adodc1.Refresh

Adodc1.CommandType = adCmdTable

End Sub

Private Sub Option4_Click()

Adodc1.CommandType = adCmdUnknown

Adodc1.RecordSource = "Select*From[Общая] ORDER BY [Адрес Посетителя]"

Adodc1.Refresh

Adodc1.CommandType = adCmdTable

End Sub

Private Sub Option5_Click()

Adodc1.CommandType = adCmdUnknown

Adodc1.RecordSource = "Select*From[Общая] ORDER BY [ФИО Исполнителя]"

Adodc1.Refresh

Adodc1.CommandType = adCmdTable

End Sub

Private Sub Option6_Click()

Adodc1.CommandType = adCmdUnknown

Adodc1.RecordSource = "Select*From[Общая] ORDER BY [Цена руб]"

Adodc1.Refresh

Adodc1.CommandType = adCmdTable

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Key

Case "btnFind"

cmdFind_Click

Case "btnPrint"

mnuPrint_Click

Case "btnUpd"

cmdUpd_Click

Case "btnExit"

mnuExit_Click

End Select

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If MsgBox("Закончить работу программы??", vbYesNo + vbQuestion, "Выход из программы") <> vbYes Then

Cancel = 1

Else

End

End If

End Sub

Рис.2

Option Explicit

Dim i As Integer

Private Sub Form_Load()

    If flag = 1 Then

        Form2.Caption = "Редактирование"

        For i = 0 To (Form1.Adodc1.Recordset.Fields.Count - 1)

            Select Case i

                Case 2, 3, 4, 5, 6, 7, 8

                    Text1(i).Text = Form1.Adodc1.Recordset.Fields(i).Value & ""

                Case 1

                    If IsNull(Form1.Adodc1.Recordset.Fields(1).Value) Then

                    DTPicker2.Value = Date

                Else

                    DTPicker2.Value = Form1.Adodc1.Recordset.Fields(1).Value

                    End If

            End Select

        Next

    Else

         Form2.Caption = "Добавление"

         DTPicker2.Value = Date

    End If

End Sub

Private Sub Command1_Click()

    If Trim(Text1(2).Text) = "" Then

        MsgBox "Введите ФИО посетителя", vbExclamation, "Сообщение"

        Text1(2).Text = ""

        Exit Sub

    End If

     If flag = 2 Then

     Form1.Adodc1.Recordset.AddNew

     NotBlocing

     Form1.Adodc1.Recordset.Fields(1).Value = NumLast + 1

     NumLast = NumLast + 1

     End If

    For i = 0 To (Form1.Adodc1.Recordset.Fields.Count - 1)

            Select Case i

                Case 2, 3, 4, 5, 6, 7, 8

                    Form1.Adodc1.Recordset.Fields(i).Value = IIf((Text1(i).Text = ""), Null, Text1(i).Text)

                Case 1

                    Form1.Adodc1.Recordset.Fields(1).Value = Format(DTPicker2.Value, "dd.mm.yyyy")

            End Select

    Next

    Form1.Adodc1.Recordset.Update

    Unload Form2

    Form1.Show

End Sub

Private Sub Command2_Click()

    Unload Form2

    Form1.Show

End Sub

Рис.3

Private Sub Form_Load()

    Set nd = TreeView1.Nodes.Add(, , "u1", "Работа с данными", 1)

        Set nd = TreeView1.Nodes.Add("u1", tvwChild, "u1u1", "Добавление Данных", 2)

        Set nd = TreeView1.Nodes.Add("u1", tvwChild, "u1u2", "Редактирование данных", 2)

        Set nd = TreeView1.Nodes.Add("u1", tvwChild, "u1u3", "Удаление Данных", 2)

        Set nd = TreeView1.Nodes.Add("u1", tvwChild, "u1u4", "Обновление Данных", 2)

        Set nd = TreeView1.Nodes.Add("u1", tvwChild, "u1u5", "Фильтрация данных", 2)

        Set nd = TreeView1.Nodes.Add("u1", tvwChild, "u1u6", "Поиск Данных", 2)

        Set nd = TreeView1.Nodes.Add("u1", tvwChild, "u1u7", "Печать данных", 2)

    Set nd = TreeView1.Nodes.Add(, , "u2", "Работа с паролем", 1)

        Set nd = TreeView1.Nodes.Add("u2", tvwChild, "u2u1", "Установка Пароля", 2)

        Set nd = TreeView1.Nodes.Add("u2", tvwChild, "u2u2", "Удаление Пароля", 2)

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

Select Case Node.Index

Case 1

RichTextBox1.LoadFile App.Path & "\help\pusto.rtf"

Case 2

RichTextBox1.LoadFile App.Path & "\help\dob.rtf"

Case 3

RichTextBox1.LoadFile App.Path & "\help\red.rtf"

Case 4

RichTextBox1.LoadFile App.Path & "\help\ud.rtf"

Case 5

RichTextBox1.LoadFile App.Path & "\help\obn.rtf"

Case 6

RichTextBox1.LoadFile App.Path & "\help\eri.rtf"

Case 7

RichTextBox1.LoadFile App.Path & "\help\sr.rtf"

Case 8

RichTextBox1.LoadFile App.Path & "\help\pd.rtf"

Case 9

RichTextBox1.LoadFile App.Path & "\help\pusto.rtf"

Case 10

RichTextBox1.LoadFile App.Path & "\help\uspass.rtf"

Case 11

RichTextBox1.LoadFile App.Path & "\help\udpass.rtf"

End Select

End Sub

Рис.4

Private Sub Form_Load()

Image1.Picture = LoadPicture(App.Path & "\pict\ya.jpg")

End Sub

Рис.5

Option Explicit

Dim f As Integer

Private Sub cmdCancel_Click()

flag = -1

    Unload Form6

End Sub

Private Sub cmdOk_Click()

Unload Form6

End Sub

Private Sub Form_Load()

cmdOk.Enabled = False

End Sub

Private Sub Text1_Change()

CritFind = Trim(Text1.Text)

    If CritFind = "" Then

        cmdOk.Enabled = False

    Else

        cmdOk.Enabled = True

    End If

End Sub

Рис.6

Option Explicit

Dim i As Integer

Dim j As Integer

Private Sub Form_Load()

    Option1(2).Value = True

    DTPicker2.Value = Date

End Sub

Private Sub cmdCancel_Click()

    flag = -1

    Unload Me

End Sub

Private Sub DTPicker2_Change()

    CritFind = DTPicker2.Value

End Sub

Private Sub cmdOk_Click()

    Unload Me

End Sub

Private Sub Option1_Click(Index As Integer)

    NumField = Index

    Select Case Index

        Case 1

           Frame4.Visible = True

            cmdOk.Enabled = True

        Case 2

            Frame2.Visible = True

            Frame4.Visible = False

            Frame2.Caption = "ФИО посетителя"

            cmdOk.Enabled = False

            Text1.Text = ""

        Case 3

            Frame2.Visible = True

            Frame4.Visible = False

            Frame2.Caption = "Телефон посетителя"

            cmdOk.Enabled = True

             Text1.Text = ""

        Case 4

            Frame2.Visible = True

            Frame4.Visible = False

            Frame2.Caption = "Вид Прически"

            cmdOk.Enabled = True

            Text1.Text = ""

        Case 5

            Frame2.Visible = True

            Frame4.Visible = False

            Frame2.Caption = "ФИО исполнителя"

            cmdOk.Enabled = True

            Text1.Text = ""

        Case 6

            Frame2.Visible = True

            Frame4.Visible = False

            Frame2.Caption = "Используемые средства"

            cmdOk.Enabled = True

            Text1.Text = ""

    Case 7

            Frame2.Visible = True

            Frame4.Visible = False

            Frame2.Caption = "Цена руб"

            cmdOk.Enabled = True

             Text1.Text = ""

           End Select

End Sub

Private Sub Text1_Change()

    CritFind = Trim(Text1.Text)

    If CritFind = "" Then

        cmdOk.Enabled = False

    Else

        cmdOk.Enabled = True

    End If

End Sub

Рис.7

Private Sub Form_Load()

    Text1.Text = ""

    Text2.Text = ""

End Sub

Private Sub cmdOk_Click()

     If Text1.Text = Text2.Text Then

        If Text1.Text <> "" Then

            Form1.AdodcPasU.Recordset.Fields(0).Value = Text1.Text

            Form1.AdodcPasU.Recordset.Fields(1).Value = "1"

            Form1.mnuSetPas.Enabled = False

            Form1.mnuDelPas.Enabled = True

        End If

        Form1.AdodcPasU.Recordset.Update

        Unload Me

    Else

        MsgBox "Подтвердите ввод нового пароля: введите его в поле 'Подтверждение'!!!", 48, "Ошибочка вышла"

    End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Рис.8

Private Sub cmdExit_Click()

Unload Me

End Sub

Private Sub cmdOk_Click()

If Text1.Text = Form1.AdodcPasU.Recordset.Fields(0).Value Then

        Form1.AdodcPasU.Recordset.Fields(0).Value = Text1.Text

        Form1.AdodcPasU.Recordset.Fields(1).Value = "0"

        Form1.mnuSetPas.Enabled = True

        Form1.mnuDelPas.Enabled = False

        Form1.AdodcPasU.Recordset.Update

        Unload Me

    Else

        MsgBox "Подтвердите ввод нового пароля: введите его в поле 'Подтверждение'!!!", 48, "Ошибочка вышла"

    End If

End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

Рис.9

Private Sub Form_Activate()

    AdodcPas.Refresh

    If AdodcPas.Recordset.Fields(1).Value = "0" Then

        Unload frmPas

        frmZagruzka.Show

    End If

    txtPas.Text = ""

End Sub

Private Sub cmdCancel_Click()

End

End Sub

Private Sub cmdOk_Click()

    If txtPas.Text = AdodcPas.Recordset.Fields(0).Value Then

        Unload frmPas

       frmZagruzka.Show

    Else

        MsgBox "Вы ввели не тот пароль", 48, "Ошибка"

        txtPas.SetFocus

        txtPas.SelStart = 0

        txtPas.SelLength = Len(txtPas.Text)

    End If

End Sub

Рис.10

Private Sub Form_Load()

   Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

ProgressBar1.Value = ProgressBar1.Value + 5

    If ProgressBar1 = 300 Then

        Unload frmZagruzka

        Form1.Show

    End If

End Sub

Код модуля

Public flag As Integer 'переменная выбора действия (функции)

Public CritFind As String

Public NumField As Integer

Public flag1 As Integer

Public NumLast As Integer

Public idField As Integer

Public idCrit As String

Public Znac As String

Public Sub Blocing()

    Form1.Adodc1.Enabled = False

    Form1.Command1.Enabled = False

    Form1.cmdDel.Enabled = False

    Form1.cmdFind.Enabled = False

    Form1.cmdFilter.Enabled = False

    Form1.mnuPrint.Enabled = False

End Sub

Public Sub NotBlocing()

    Form1.Adodc1.Enabled = True

    Form1.Command1.Enabled = True

    Form1.cmdDel.Enabled = True

    Form1.cmdFind.Enabled = True

    Form1.cmdFilter.Enabled = True

    Form1.mnuPrint.Enabled = True

End Sub

5.Список используемых сокращений

OЗУ- оперативно-запоминающее устройство

ОС- операционная система

ПЗУ- постоянно-запоминающее устройство

ПО- программное обеспечение

ПП- программный продукт

ЭВМ- электронно-вычислительная машина

ТО-техническое обслуживание

ПС- программное средство

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

1. Дьяконов; Компьютер в быту; Смоленск 1998;

2. Ефимова; Курс компьютерной технологии с основами информатики; Москва 2002;

3. Курт Симмонс; Windows XP  самоучитель; Москва 2004;         

4. Левин; Самоучитель работы на компьютере; Минск 2004;

5. Владимир Молочков; Компьютер для секретаря и офисного менеджера; Воронеж 2006;

6. Зараев А.В. Новая энциклопедия ПК 2005г.