Электронное справочное пособие по дисциплине «Товароведение непродовольственных товаров», тема «Трикотажные товары»

              УО «ПОЛОЦКИЙ ТОРГОВО-ТЕХНОЛОГИЧЕСКИЙ КОЛЛЕДЖ»

БЕЛКООПСОЮЗА

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

по дисциплине: «Основы алгоритмизации и программирования»

Тема: «Электронное справочное пособие по дисциплине «Товароведение непродовольственных товаров», 
тема «Трикотажные товары»

Выполнила:

учащейся II курса группы П-25

специальности: “Программное обеспечение информационных технологий”

Ярмош Виктория Олеговна

Руководитель: Тюстина Елена Геннеадьевна

                                                  Полоцк 2011 г

УО «Полоцкий торгово-технологический колледж» Белкоопсоюза

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

                            к курсовому проекту по дисциплине
                 «Основы алгоритмизации и программирования»

                 Тема:Электронное справочное пособие по дисциплине                        «Товароведение непродовольственных товаров»,

                                  тема «Трикотажные товары»

КП 508600.2530 ПЗ

Выполнила:

                                                             Ярмош Виктория

              Олеговна

Руководитель:

                                                                        Тюстина Елена

              Геннадьевна

Полоцк 2011

              1

СОДЕРЖАНИЕ

ВВЕДЕНИЕ……………………………………………………………..4

2 Актуальность задачи,суть выполненной  работы…………………..5

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

2.2 Назначение и функции задачи…………….……………………...7

2.3 Формулировка задачи…………………………………………......7

3 Описание программы……………………………………………..….8

3.1 Компонент Tbutton………………………………………………..8

3.2 Компонент Tlabel………………………………………………..10

3.3 Компонент Timage………………………………………………12

3.4 Компонент Tmemo……………....................................................14

Заключение……………………………………………………………17

Список использованных источников………………………………..18

Приложение А………………………………………………………...19

Приложение Б…………………………………………………………41

                                  ВВЕДЕНИЕ

Данная программа разрабатывалась на Delphi 7. Она включает в себя учебную программу по данной теме, тесты. Предназначена для обучения и ознакомления с данной темой. Создавалась с помощью 22 форм и  для каждой формы было отведено определенное количество компонентов.

2 Актуальность задачи, суть выполненной работы
 

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

Данный курсовой проект был разработан в среде Delphi 7 с базовым языком программирования Delphi. Среди множества языков Delphi является наиболее универсальным и легко изучаемым языком. На сегодня Delphi поддерживает все современные возможности объектно-ориентированного программирования в такой мощной системе проектирования как Delphi 7.

Цель курсовой работы – закрепление и демонстрация знаний, полученных при изучении курса «Основы Алгоритмизации и Программировния».

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

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

Разработать тестирующую программу на тему:"Организационно-правовые формы организаций". Программа должна содержать в себе учебную программу, тест, иллюстрации и таблицы на эту тему.

2.2 Назначение и функции программы

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

2.3 Формулировка задачи

Разработать программу-тест для проверки знаний учащийся по предмету “Экономика”.

3 ОПИСАНИЕ ПРОГРАММЫ

3.1. Компонент TButton

Компонент Delphi Button это простая командная кнопка. Командная кнопка Delphi Button используется для реализации в программе команд с помощью обработчика события OnClick этого компонента.

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

Создадим, обработчик кнопки Button1, а для Button2 и Button3 в Инспекторе Объектов на вкладке Events выберем событие OnClick, и из выпадающего списка выберем появившийся там обработчик Button1Click. Теперь он обрабатывает нажатие всех трёх кнопок.

procedure TForm1.Button1Click(Sender: TObject);

begin

  Form1.Caption:=(Sender as TButton).Caption;

end;

Конструкция Sender as TButton позволяет работать со свойствами объекта Sender как со свойствами кнопки. Непосредственно же различить кнопку как объект можно обычным оператором сравнения:

if (Sender = Button1) then

Form1.Caption:=Button1.Caption;

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

if (Sender is TButton) then

  Form1.Caption:='Кнопка';

3.2 Компонент TLabel

Delphi компонент Label предназначен для отображения статического текста, то есть надписей и меток на Форме, которые не меняются в течение всего времени работы программы. Конечно, текст надписи, отображаемый компонентом Label можно изменить, но не непосредственно, а только программно.

   Свойством компонента Label, которое используется для задания отображаемого текста, является Caption (Заголовок англ.). Вот типичные способы использования этого Delphi компонента:

Хотя считается, что компонент Delphi Label предназначен для отображения именно однострочного текста, это не совсем верно. Свойство WordWrap компонента Label позволяет выводить текст в несколько строк.

Устанавливаем свойство WordWrap в True и смотрим на результат. Как видим, в этом случае происходит автоматический переход на новую строку слова, не помещающегося на текущую строку. Очевидно, если растянуть компонент Label на всю Форму, он способен отобразить достаточно большой текст. Так как свойство Caption компонента Label имеет тип String, то размер текста может достигать 2 Гбайт

Свойство Font компонента Label предоставляет возможности по изменению шрифта выводимого текста. При переходе на строку Font в Инспекторе объектов появляется кнопочка, предоставляющая доступ к диалоговому окну выбора шрифта, такому же, с каким мы встречаемся работая, например, в Worde. Плюсик слева на строке Font раскрывает атрибуты шрифта для установки прямо в Инспекторе объектов:

В комментариях возник вопрос, как отобразить с помощью метки только текст. Дело в том, что метка - это и текст, и прямоугольник фона. Так вот, как сделать так, чтобы был виден только текст, а фон не был заметен? Если фон метки совпадает по цвету с компонентом, на который она установлена, то фон метки незаметен. А если нужно разместить метку на цветной картинке (компонент Image)?

Как раз для этого существует свойство Transparent. Установленное в True, оно делает фон метки прозрачным, и на рисунке будет виден только текст.

3.3 Компонент TImage

Этот компонент служит для размещения на форме одного из трех поддерживаемых Delphi типов изображений: растровой картинки, пиктограммы или метафайла. Любой из этих типов изображения содержится в центральном свойстве компонента — picture. В свойстве canvas содержится канва, с помощью которой при необходимости программа может отредактировать растровое изображение

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

Во время разработки формы иллюстрация задается установкой значения свойства picture путем выбора файла иллюстрации в стандартном диалоговом окне, которое появляется в результате щелчка на командной кнопке Load окна Picture Editor. Чтобы запустить Image Editor, нужно в окне Object Inspector выбрать свойство Picture и щелкнуть на кнопке с тремя точками.

Если размер иллюстрации больше размера компонента, то свойству strech нужно присвоить значение True и установить значения свойств width и Height пропорционально реальным размерам иллюстрации.

Чтобы вывести иллюстрацию в поле компонента image во время работы программы, нужно применить метод LoadFromFile к свойству Picture, указав в качестве параметра имя файла иллюстрации. Например, инструкция

Form1.Image1.Picture.LoadFromFile('e:\temp\bart.bmp')

загружает иллюстрацию из файла bart.bmp и выводит ее в поле вывода иллюстрации (imagel).

Метод LoadFromFile позволяет отображать иллюстрации различных графических форматов: BMP, WMF, JPEG (файлы с расширением jpg).

3.4. Компонент Tmemo

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

    Простота текстового редактора компонента Delphi Memo заключается в том, что текстовый редактор Delphi Memo не обладает возможностями форматирования содержещегося в нём текста. Это означает, что все атрибуты выбранного шрифта будут относиться ко всему тексту.

    Текст в компоненте Delphi Memo размещается построчно. Поэтому имеется доступ к каждой строке текста отдельно. Строки в редакторе Delphi Memo являются объектами Lines[i] типа String, где i - номер строки, отсчитываемый от нуля. Объект Lines[i] доступен и для чтения, и для записи. Соответственно, текст в компоненте Memo можно редактировать не только с клавиатуры, но и программно.

- свойство SelStart типа Integer задаёт номер символа, после которого будет стоять курсор (отсчитывается от начала всего текста);

- свойство SelLenght типа Integer определяет количество выделенных символов;

- свойство SelText типа String содержит выделенный текст.

    Для того, чтобы выделение текста было заметно на экране, небходимо, чтобы компонент обладал фокусом ввода. То есть, чтобы ранее либо пользователь переместил туда курсор, клавишей Tab или щёлкнув мышкой, либо был выполнен оператор Memo1.SetFocus