Ирина Эланс

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

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

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

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

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

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

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

Выполнила:

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

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

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

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

Полоцк 2011 г

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

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

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

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

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

КП 508600.2530 ПЗ

Выполнила:

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

Олеговна

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

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

Геннадьевна

Полоцк 2011

СОДЕРЖАНИЕ

ВВЕДЕНИЕ……………………………………………………………..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

Остаётся вопрос, как определить, где сейчас находится курсор, на какой строке, и позицию в строке. Эти параметры содержатся в свойстве CaretPos компонента Delphi Memo, которое имеет тип TPoint, то есть точка - запись с координатами X и Y

ЗАКЛЮЧЕНИЕ

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

В результате создания конечного продукта были выявлены следующие достоинства:

• Простой и понятный интерфейс;

• Совместимость с любой версией Windows;

• Крайне минимальные системные и аппаратные требования;

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

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

Производство трикотажных изделий непрерывно растет.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Т.С. Гусейнова, Г.В. Жильцова « Товароведение швейных и трикотажных товаров». Изд.: Экономика. Москва 1985 г.

2. А.А. Гусева «Общая технология трикотажного производства». Изд.: Легкая промышленность и бытовое обслуживание. Москва 1987 г.

3. О.Д. Галанина, Э.Г. Прохоренко «Технология трикотажного производства». Изд.: Легкая индустрия. Москва 1975 г.

4. И.И. Шалов «Проектирование трикотажного производства». Изд.: Легкая индустрия. Москва 1977 г.

5. Л.Н. Флерова, Л.В. Золотцева «Изготовление трикотажных бельевых изделий». Изд.: Легкая промышленность и бытовая индустрия. Москва 1987 г.

6. А.К. Знаменский, А.Г. Кузнецова «Технический контроль в трикотажном производстве». Изд.: Легкая индустрия». Москва 1968 г.

Приложение А

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

img1: TImage;

lbl1: TLabel;

img2: TImage;

btn1: TButton;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

begin

form2.showmodal;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

img1: TImage;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

lbl6: TLabel;

lbl7: TLabel;

lbl8: TLabel;

lbl9: TLabel;

lbl10: TLabel;

lbl11: TLabel;

lbl12: TLabel;

lbl13: TLabel;

procedure lbl2Click(Sender: TObject);

procedure lbl3Click(Sender: TObject);

procedure lbl4Click(Sender: TObject);

procedure lbl5Click(Sender: TObject);

procedure lbl6Click(Sender: TObject);

procedure lbl7Click(Sender: TObject);

procedure lbl8Click(Sender: TObject);

procedure lbl9Click(Sender: TObject);

procedure lbl10Click(Sender:TObject);

procedure lbl11Click(Sender: TObject);

procedure lbl12Click(Sender: TObject);

procedure lbl13Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11,

Unit12, Unit13, Unit15, Unit16;

{$R *.dfm}

procedure TForm2.lbl2Click(Sender: TObject);

begin

form3.showmodal;

end;

procedure TForm2.lbl3Click(Sender: TObject);

begin

form4.showmodal;

end;

procedure TForm2.lbl4Click(Sender: TObject);

begin

form5.showmodal;

end;

procedure TForm2.lbl5Click(Sender: TObject);

begin

form6.showmodal;

end;

procedure TForm2.lbl6Click(Sender: TObject);

begin

form7.showmodal;

end;

procedure TForm2.lbl7Click(Sender: TObject);

begin

form8.showmodal;

end;

procedure TForm2.lbl8Click(Sender: TObject);

begin

form9.showmodal;

end;

procedure TForm2.lbl9Click(Sender: TObject);

begin

form10.showmodal;

end;

procedure TForm2.lbl10Click(Sender: TObject);

begin

form11.showmodal;

end;

procedure TForm2.lbl11Click(Sender: TObject);

begin

form12.showmodal;

end;

procedure TForm2.lbl12Click(Sender: TObject);

begin

form13.showmodal;

end;

procedure TForm2.lbl13Click(Sender: TObject);

begin

form16.showmodal;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

img1: TImage;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

lbl6: TLabel;

lbl7: TLabel;

lbl8: TLabel;

lbl9: TLabel;

lbl10: TLabel;

lbl11: TLabel;

lbl12: TLabel;

lbl13: TLabel;

procedure lbl2Click(Sender: TObject);

procedure lbl3Click(Sender: TObject);

procedure lbl4Click(Sender: TObject);

procedure lbl5Click(Sender: TObject);

procedure lbl6Click(Sender: TObject);

procedure lbl7Click(Sender: TObject);

procedure lbl8Click(Sender: TObject);

procedure lbl9Click(Sender: TObject);

procedure lbl10Click(Sender:TObject);

procedure lbl11Click(Sender: TObject);

procedure lbl12Click(Sender: TObject);

procedure lbl13Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11,

Unit12, Unit13, Unit15, Unit16;

{$R *.dfm}

procedure TForm2.lbl2Click(Sender: TObject);

begin

form3.showmodal;

end;

procedure TForm2.lbl3Click(Sender: TObject);

begin

form4.showmodal;

end;

procedure TForm2.lbl4Click(Sender: TObject);

begin

form5.showmodal;

end;

procedure TForm2.lbl5Click(Sender: TObject);

begin

form6.showmodal;

end;

procedure TForm2.lbl6Click(Sender: TObject);

begin

form7.showmodal;

end;

procedure TForm2.lbl7Click(Sender: TObject);

begin

form8.showmodal;

end;

procedure TForm2.lbl8Click(Sender: TObject);

begin

form9.showmodal;

end;

procedure TForm2.lbl9Click(Sender: TObject);

begin

form10.showmodal;

end;

procedure TForm2.lbl10Click(Sender: TObject);

begin

form11.showmodal;

end;

procedure TForm2.lbl11Click(Sender: TObject);

begin

form12.showmodal;

end;

procedure TForm2.lbl12Click(Sender: TObject);

begin

form13.showmodal;

end;

procedure TForm2.lbl13Click(Sender: TObject);

begin

form16.showmodal;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm3 = class(TForm)

mmo1: TMemo;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm4 = class(TForm)

mmo1: TMemo;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm5 = class(TForm)

mmo1: TMemo;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm6 = class(TForm)

mmo1: TMemo;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm7 = class(TForm)

mmo1: TMemo;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm8 = class(TForm)

mmo1: TMemo;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

end.

unit Unit10;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, jpeg;

type

TForm10 = class(TForm)

img1: TImage;

img2: TImage;

img3: TImage;

img4: TImage;

img5: TImage;

img6: TImage;

img7: TImage;

img8: TImage;

img9: TImage;

img10: TImage;

img11: TImage;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses Unit2;

{$R *.dfm}

unit Unit10;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm10 = class(TForm)

mmo1: TMemo;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

{$R *.dfm}

end.

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm11 = class(TForm)

mmo1: TMemo;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

{$R *.dfm}

end.

unit Unit12;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm12 = class(TForm)

mmo1: TMemo;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

{$R *.dfm}

end.

unit Unit13;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm13 = class(TForm)

img1: TImage;

img2: TImage;

img4: TImage;

btn1: TButton;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

uses Unit14;

{$R *.dfm}

procedure TForm13.btn1Click(Sender: TObject);

begin

form14.showmodal;

end;

end.

unit Unit14;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, StdCtrls;

type

TForm14 = class(TForm)

img1: TImage;

img2: TImage;

btn1: TButton;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm14.btn1Click(Sender: TObject);

begin

Form14.Visible:=True;

Close;

end;

end.

unit Unit15;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs;

type

TForm15 = class(TForm)

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form15: TForm15;

implementation

{$R *.dfm}

end.

unit Unit16;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls;

type

TForm16 = class(TForm)

img1: TImage;

img2: TImage;

img3: TImage;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form16: TForm16;

implementation

{$R *.dfm}

end.

unit Unit18;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls;

type

TForm18 = class(TForm)

img1: TImage;

img2: TImage;

img3: TImage;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form18: TForm18;

implementation

{$R *.dfm}

end.