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

Автор: Пользователь скрыл имя, 15 Марта 2012 в 21:42, курсовая работа

Описание работы

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

Содержание

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

Скачать полностью (1.61 Мб) Сколько стоит заказать работу?

Работа содержит 1 файл

ПЗ.doc

— 1.78 Мб (Скачать)

Остаётся вопрос, как определить, где сейчас находится курсор, на какой строке, и позицию в строке. Эти параметры содержатся в свойстве 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.

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