98545

Разработка электронного каталога косметических средств

Курсовая

Информатика, кибернетика и программирование

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

Русский

2015-11-04

661.35 KB

0 чел.

ВВЕДЕНИЕ

Произнося сегодня слово «Интернет» большинство из нас думает о технической стороне дела – намного более интересным представляется то, что может дать интернет человеку. Что такое интернет в человеческом сознании на сегодняшний день?

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

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

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

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

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

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

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

В данном программном приложении нужно выполнить следующее:

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

2.Редактирование самого каталога при помощи уже готовых данных из справочной информации.

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

4.Вывод электронного каталога на печать.

1.2Входные документы. Входная информация.

Входная информация:

1.Наименование косметики

2.Наименование назначения

3.Наименование типа кожи

4.Наименование типа волос

5.Наименование возрастной категории

6. Наименование фирмы

7. Код страны

8. Наименование объема

Входные документы:

  1.  Электронный каталог
  2.  Бумажный каталог

1.3Выходные документы. Входная информация.

Выходная информация:

1. Наименование косметики

2. Наименование назначения

3. Наименование типа кожи

4. Наименование типа волос

5. Наименование возрастной категории

6. Наименование фирмы

7. Наименование страны

8. Наименование объема

Выходные документы:

  1.  Бумажный каталог
  2.  Электронный каталог

1.4 Описание таблиц

Таблица 1-vid-справочная таблица видов косметики

Имя поля

Тип

Размер

Назначение

kod

Autoincrement

4

Код вида косметики

naim

Alpha

20

Наименование вида косметики

Таблица 2-naznachenie-справочная таблица назначения косметики

Имя поля

Тип

Размер

Назначение

kod

Autoincrement

4

Код назначения косметики

naim

Alpha

20

Наименование назначения косметики

Таблица 3-tip koji-справочная таблица типов кожи

Имя поля

Тип

Размер

Назначение

kod

Autoincrement

4

Код типа кожи

naim

Alpha

20

Наименование типа кожи

Таблица 4-tip volos-справочная таблица типов волос

Имя поля

Тип

Размер

Назначение

kod

Autoincrement

4

Код типа волос

naim

Alpha

20

Наименование типа волос

Таблица 5-vozrast-справочная таблица возрастов

Имя поля

Тип

Размер

Назначение

kod

Autoincrement

4

Код возрастной категории

naim

Alpha

20

Наименование возрастной категории

Таблица 6-firma-справочная таблица фирм

Имя поля

Тип

Размер

Назначение

kod

Autoincrement

4

Код фирмы

naim

Alpha

20

Наименование фирмы

kod_str

Integer

4

Код страны

Таблица7-strana-справочная таблица стран

Имя поля

Тип

Размер

Назначение

kod

Autoincrement

4

Код страны

naim

Alpha

20

Наименование страны

Таблица8-Obem-справочная таблица единиц измерения объема

Имя поля

Тип

Размер

Назначение

kod

Autoincrement

4

Код объема

naim

Alpha

20

Наименование объема

Таблица9-kosmetika-справочная таблица косметика

Имя поля

Тип

Размер

Назначение

kod_kosmetiki

Autoincrement

4

Код объема

naim

Alpha

20

Наименование косметики

kod_firm

Integer

4

Код фирмы

kod_vida

Integer

4

Код вида

kod_vozrast_kat

Integer

4

Код возраста

kod_tipa_koji

Integer

4

Код типа кожи

kod_tipa_volos

Integer

4

Код типа волос

kod_obem

Integer

4

Код единицы измерения объема

cena

Integer

4

Цена

objem

Integer

4

Объем

foto

Graphic

4

Фото

Naznachenie

Kod

naim

Firma

Kod

naim

Kosmetika

Kod_kosmetiki

Naim

Kod_firm

Kod_vida

Kod_naznach

Kod_vazrast_kat

Kod_tipa_koji

Kod_tipa_volos

Cena

Kod _obem

foto

kod_stran

1.5 Даталогическая схема

Vid        

Kod

Tip volos

Kod

naim

Naim

Vozrast

Kod

naim

Tip koji

Kod

naim

Strana

Kod

naim

Obem

Kod

naim

 


1.6 Блок схема

1

 начало

2

k-?

1.Справочная информация

2.Каталог

 

1.Вид

2.Назначение

3.Тип кожи

4.Тип волос

5.Возрастная категория

6.Страна

7.Фирма

t-?

3

   1

Запись

vid

Чтение

vid

Наименование

vid

5

7

6

4

Список

vid

11

Запись

naznach

Наименование

naznach

 

10

9

Чтение

naznach

8

Список

naznach

   2

15

Наименование

Tip koji

14

13

12

Чтение

Tip koji

Запись

Tip koji

Список

Tip koji

   3

   4

Чтение

Tip vol

19

Наименование

Tip vol

18

17

16

Запись

Tip vol

Список

Tip vol

   5

23

Чтение

vozrast

Наименование

vozrast

22

21

Список

vozrast

20

Запись

vozrast

   6

27

26

Наименование

strana

Чтение

strana

25

24

Запись

strana

Список

strana

   7

31

30

29

Чтение

firma

28

Наименование

firma

Запись

firma

Список

firma

   8

Наименование

firma

35

34

 Список

firma

 33

Чтение

strana

32

Чтение

firma

Запись

firma

38

37

 Выбор

strana

 Список

firma

36

15

165

12

39

39

    v-?

41

Чтение

kosmet

1.Формирование

2.Просмотр, печать

11

39

40

    s-?

1.Ввод данных

2.Редактирование

3.Удаление

1

Чтение

naznach

Чтение

strana

44

43

42

Чтение

vid

Чтение

vozrast

47

Чтение

Tip vol

48

46

45

Чтение

Tip koji

Чтение

firma

м

52

 Выбор

 vid

 Список

  vid

51

50

 Данные о                                   косметике

49

Каталог

56

 Выбор

 strana

55

 Список

  strana

53

 Список

 firma

54

 Выбор

  firma

 Выбор

  Tip koji

60

 Выбор

 Tip vol

59

 Список

 Tip vol

57

 Список

 Tip koji

58

61

 Список

 naznach

62

Запись

kosmet

63

 Выбор

  naznach

2

67

Чтение

strana

66

Чтение

naznach

65

Чтение

vid

64

Чтение

kosmet

Чтение

vozrast

70

Чтение

Tip vol

69

Чтение

Tip koji

68

Чтение

firma

71

73

 Выбор

  naznach

76

 Выбор

 vid

75

 Список

  vid

 Данные о                                   косметике

74

72

Каталог

13

165

13

86

15

165

13

77

12

39

 Выбор

 strana

80

 Список

strana

79

78

 Выбор

 firma

77

 Список

firma

12

76

12

40

84

 Выбор

 Tip vol

83

 Список

Tip vol

82

 Выбор

 Tip koji

81

 Список

Tip koji

85

 Список

naznach

86

87

Запись

kosm

 Выбор

 naznach

3

90

Чтение

naznach

89

Чтение

vid

88

Чтение

kosmet

91

Чтение

strana

Чтение

Tip vol

94

93

Чтение

Tip koji

92

Чтение

firma

95

Чтение

vozrast

96

каталог

98

  Выбор

  naznach

96

97

каталог

Удаление зап

1.По наименованию

2.По назначению

3.По виду

4.По возрастной категории

5.По возрасту и по виду

99

p-?

1

101

100

   Наименование

103

Чтение

naznach

102

Чтение

vid

Чтение

kosmet

107

Чтение

Tip

106

Чтение

Tip koji

105

Чтение

firma

 Чтение

strana

104

111

  Каталог

да

110

печать

109

108

нет

 Инф о

косметике

 Чтение

vozrast

15

165

15

165

Чтение

kosmet

Чтение

vozrast

Чтение

nazach

2

112

117

Чтение

vid

116

115

114

  Выбор

 назначения

113

 Список

 naznach

13

99

13

111

Чтение

strana

Чтение

kosmet

Чтение

Tip koji

Чтение

Tip vol

Чтение

firma

122

121

120

119

118

124

   Каталог

да

123

Печать

Информация о косметике

122

  

нет

Чтение

vid

Чтение

kosmet

Чтение

vozrast

3

134

133

132

131

Чтение

naznach

129

128

127

  Выбор

 vid

126

 Список

 vid

125

130

Чтение

firma

Чтение

Tip vol

Чтение

Tip koji

Чтение

kosmet

Чтение

strana

нет

138

   Каталог

да

137

Печать

Информация о косметике

135

136

4

143

Чтение

vid

142

Чтение

kosmet

141

  Выбор

 vozrast

140

 Список

 vozrast

139

Чтение

vozrast

144

Чтение

naznach

149

Чтение

strana

148

Чтение

kosmet

147

Чтение

Tip koji

146

Чтение

Tip vol

145

Чтение

firma

нет

152

   Каталог

да

151

Печать

Информация о косметике

150

162

161

160

Чтение

firma

164

163

Чтение

strana

Чтение

kosmet

Чтение

Tip koji

Чтение

Tip vol

Чтение

naznach

153

156

Чтение

vid

5

  Выбор

 vozrast

157

 Список

 vozrast

158

155

154

  Выбор

 vid

Чтение

vozrast

 Список

 vid

159

15

168

15

165

167

165

нет

   Каталог

да

166

Печать

Информация о косметике

14

165

14

164

12

63

13

111

11

38

168

Конец

2 СПЕЦИАЛЬНАЯ ЧАСТЬ

2.1 Инструкция пользователю

Для запуска программы нужно открыть файл kosmetika.exe. При запуске программы необходимо выбрать кем вы являетесь: администратором или пользователем. (Смотрите рисунок 1)

Рисунок 1- Выбор типа пользователя

 Если вы являетесь пользователем, то при запуске программы нажимаете кнопку пользователь. Затем появится 9 форма. На ней будут расположены данные о косметике, включая их изображение, но их нельзя будет редактировать. Здесь можно воспользоваться фильтрацией  для поиска нужной вам косметики. (Смотрите рисунок 2)

 Рисунок 2 – Просмотр данных о косметике

Если вы являетесь администратором, то вам необходимо ввести пароль для входа в систему. (Смотрите рисунок 3)

Рисунок 3-Ввод пароля для входа в систему

Далее вам необходимо выбрать, какие данные вам необходимо отредактировать, т.е. нужно заполнить электронный каталог, если же он уже заполнен, то вы можете удалить, добавить или отредактировать ту или иную запись. Выбор данных осуществляется на 2 форме. (Смотрите рисунок 4)

Рисунок 4-Выбор данных

На 3 форме находятся данные по видам косметики и её назначении. (Смотрите рисунок 5)

Рисунок 5-Виды косметических средств

На 4 форме находятся физические данные пользователя,  при которых стоит пользоваться данными косметическими средствами. (Смотрите рисунок 6)

Рисунок 6-Физические данные пользователя

На 5 форме находятся производительные фирмы и страны тех или иных косметических средств. (Смотрите рисунок 7)

Рисунок 7-Производители косметики

На 6 форме находится сам каталог, в котором представлены все данные о косметике. А также есть фильтрация для поиска нужных вам косметических средств. У каждого косметического средства имеется его изображение. Также предоставляется возможность редактирования и добавления данных. (Смотрите рисунок 8)

Рисунок 8-Каталог

С формы 6 при нажатии кнопки «печать отчета» вы увидите группирующий отчет по видам косметики. (Смотрите рисунок 9)

Рисунок 9-Группирующий отчет

Выход из программы осуществляется как из обычного Windows приложения.

2.2 Инструкция программисту

       Аппаратные и программные требования:

Для нормальной работы программы необходимо персональный компьютер совместимый с IBM PC, с процессором не ниже 486, оперативной памятью не менее 8 МБ, тактовой частотой 120 МГц занимаемое место на диске после инсталляции 5 МБ[4].Операционная система Windows XP/Vista/7/8.

В данной программе используются следующие системные модули: Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, eff_button;

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


ЗАКЛЮЧЕНИЕ

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

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

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

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

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

1.Delphi 2005 язык, среда, разработка приложений, Фараонов В., СПб.: Питер, 2007.

2. Delphi 7 и создание приложений баз данных, Шумаков П., М.: Нолидж, 1998 г.

3. Язык Pascal и основы программирования в Delphi, Архангельский А. Учебное пособие,  Москва  2004.

4.http://www.delphicomponent.ru

ПРИЛОЖЕНИЕ: ЛИСТИНГ ПРОГРАММЫ

unit Unit1;

interface

uses

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

 Dialogs, StdCtrls, jpeg, ExtCtrls, eff_button;

type

 TForm1 = class(TForm)

   Label1: TLabel;

   Edit1: TEdit;

   EffectButton1: TEffectButton;

   EffectButton2: TEffectButton;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure EffectButton1Click(Sender: TObject);

   procedure EffectButton2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if edit1.text='1234' then form2.Show else

if Application.MessageBox('неверный пароль.повторить ввод?','ошибка',mb_yesno+mb_iconstop+mb_defbutton1)=idyes

then begin

edit1.Clear;

edit1.SetFocus;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.EffectButton1Click(Sender: TObject);

begin

form1.Hide;

form2.show;

end;

procedure TForm1.EffectButton2Click(Sender: TObject);

begin

close;

end;

end.

unit Unit2;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, jpeg, ExtCtrls, StdCtrls;

Type

TForm2 = class(TForm)

MainMenu1: TMainMenu;

   N1: TMenuItem;

   N2: TMenuItem;

   N3: TMenuItem;

   N4: TMenuItem;

   N5: TMenuItem;

   Image1: TImage;

   procedure N1Click(Sender: TObject);

   procedure N5Click(Sender: TObject);

   procedure N2Click(Sender: TObject);

   procedure N3Click(Sender: TObject);

   procedure N4Click(Sender: TObject);

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form2: TForm2;

implementation

uses Unit1, Unit3, Unit4, Unit5, Unit6, Unit8;

{$R *.dfm}

procedure TForm2.N1Click(Sender: TObject);

begin

form2.Hide;

form3.show;

end;

procedure TForm2.N5Click(Sender: TObject);

begin

close;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

form2.Hide;

form4.show;

end;

procedure TForm2.N3Click(Sender: TObject);

begin

form2.Hide;

form5.show;

end;

procedure TForm2.N4Click(Sender: TObject);

begin

form2.Hide;

form6.show;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

form8.show;

end;

end.

unit Unit3;

     interface

uses

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

 Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, Grids, DBGrids, jpeg,

 ExtCtrls, eff_button;

type

 TForm3 = class(TForm)

   GroupBox1: TGroupBox;

   GroupBox2: TGroupBox;

   DataSource1: TDataSource;

   DBGrid1: TDBGrid;

   vid: TTable;

   DBEdit1: TDBEdit;

   naznachenie: TTable;

   DataSource2: TDataSource;

   DBGrid2: TDBGrid;

   DBEdit2: TDBEdit;

   vidKod: TAutoIncField;

   vidNaim: TStringField;

   naznachenieKod: TAutoIncField;

   naznachenieNaim: TStringField;

   obem: TTable;

   DataSource3: TDataSource;

   obemKod: TAutoIncField;

   obemNaim: TStringField;

   GroupBox3: TGroupBox;

   DBGrid4: TDBGrid;

   EffectButton1: TEffectButton;

   EffectButton2: TEffectButton;

   EffectButton3: TEffectButton;

   EffectButton4: TEffectButton;

   EffectButton5: TEffectButton;

   EffectButton6: TEffectButton;

   EffectButton7: TEffectButton;

   EffectButton8: TEffectButton;

   EffectButton9: TEffectButton;

   EffectButton10: TEffectButton;

   procedure Button7Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

   procedure Button5Click(Sender: TObject);

   procedure Button6Click(Sender: TObject);

   procedure Button8Click(Sender: TObject);

   procedure Button9Click(Sender: TObject);

   procedure Button10Click(Sender: TObject);

   procedure EffectButton1Click(Sender: TObject);

   procedure EffectButton2Click(Sender: TObject);

   procedure EffectButton3Click(Sender: TObject);

   procedure EffectButton4Click(Sender: TObject);

   procedure EffectButton5Click(Sender: TObject);

   procedure EffectButton6Click(Sender: TObject);

   procedure EffectButton7Click(Sender: TObject);

   procedure EffectButton8Click(Sender: TObject);

   procedure EffectButton9Click(Sender: TObject);

   procedure EffectButton10Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form3: TForm3;

implementation

uses Unit1, Unit2, Unit8;

{$R *.dfm}

procedure TForm3.Button7Click(Sender: TObject);

begin

close;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

naznachenie.Append;

end;

procedure TForm3.Button5Click(Sender: TObject);

begin

if application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyes

then naznachenie.Delete;

end;

procedure TForm3.Button6Click(Sender: TObject);

begin

naznachenie.edit;

naznachenie.post;

end;

procedure TForm3.Button8Click(Sender: TObject);

begin

Obem.Append;

end;

procedure TForm3.Button9Click(Sender: TObject);

begin

if application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyes

then obem.Delete;

end;

procedure TForm3.Button10Click(Sender: TObject);

begin

obem.edit;

obem.post;

end;

procedure TForm3.EffectButton1Click(Sender: TObject);

begin

vid.Append;

end;

procedure TForm3.EffectButton2Click(Sender: TObject);

begin

if application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyes

then vid.Delete;

end;

procedure TForm3.EffectButton3Click(Sender: TObject);

begin

vid.edit;

vid.post;

end;

procedure TForm3.EffectButton4Click(Sender: TObject);

begin

Obem.Append;

end;

procedure TForm3.EffectButton5Click(Sender: TObject);

begin

if application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyes

then obem.Delete;

end;

procedure TForm3.EffectButton6Click(Sender: TObject);

begin

obem.edit;

obem.post;

end;

procedure TForm3.EffectButton7Click(Sender: TObject);

begin

naznachenie.Append;

end;

procedure TForm3.EffectButton8Click(Sender: TObject);

begin

if application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyes

then naznachenie.Delete;

end;

procedure TForm3.EffectButton9Click(Sender: TObject);

begin

naznachenie.edit;

naznachenie.post;

end;

procedure TForm3.EffectButton10Click(Sender: TObject);

begin

close;

form8.Show;

end;

end.

procedure TForm5.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;

 Shift: TShiftState; X, Y: Integer);

begin

firmab.IndexFieldNames:='kod_str';

firmab.SetRange([stranakod.Value],[stranakod.value]);

end;

procedure TForm5.Button7Click(Sender: TObject);

begin

firmab.CancelRange;

close;

end;

unit Unit6;

interface

uses

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

 Dialogs, StdCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, Mask, dblookup,

 ExtDlgs, jpeg, ExtCtrls, eff_button;

type

 TForm6 = class(TForm)

   GroupBox1: TGroupBox;

   DBGrid1: TDBGrid;

   DataSource1: TDataSource;

   kosmetika: TTable;

   DBLookupComboBox1: TDBLookupComboBox;

   DBLookupComboBox2: TDBLookupComboBox;

   DBLookupComboBox3: TDBLookupComboBox;

   DBLookupComboBox4: TDBLookupComboBox;

   DBLookupComboBox5: TDBLookupComboBox;

   DBLookupComboBox6: TDBLookupComboBox;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Label5: TLabel;

   Label6: TLabel;

   Label7: TLabel;

   DBEdit1: TDBEdit;

   Label8: TLabel;

   DBEdit2: TDBEdit;

   Label9: TLabel;

   DBEdit3: TDBEdit;

   GroupBox2: TGroupBox;

   DBLookupCombo2: TDBLookupCombo;

   DBLookupCombo3: TDBLookupCombo;

   CheckBox2: TCheckBox;

   CheckBox3: TCheckBox;

   CheckBox4: TCheckBox;

   Button5: TButton;

   CheckBox1: TCheckBox;

   kosmetikaKod_kosm: TAutoIncField;

   kosmetikaNaim: TStringField;

   kosmetikaKod_firm: TIntegerField;

   kosmetikaKod_vida: TIntegerField;

   kosmetikaKod_naznach: TIntegerField;

   kosmetikaKod_vozrast_kat: TIntegerField;

   kosmetikaKod_tipa_koji: TIntegerField;

   kosmetikaKod_tipa_volos: TIntegerField;

   kosmetikaKod_stran: TIntegerField;

   kosmetikaCena: TIntegerField;

   kosmetikaObjem: TIntegerField;

   DBLookupCombo4: TDBLookupCombo;

   Label10: TLabel;

   CheckBox5: TCheckBox;

   Label12: TLabel;

   Button6: TButton;

   DBImage1: TDBImage;

   kosmetikaFoto: TGraphicField;

   OpenPictureDialog1: TOpenPictureDialog;

   Image1: TImage;

   Edit1: TEdit;

   kosmetikafirma: TStringField;

   kosmetikavid: TStringField;

   kosmetikanaznach: TStringField;

   kosmetikavozrast: TStringField;

   kosmetikatipkoji: TStringField;

   kosmetikatipvolos: TStringField;

   kosmetikastrana: TStringField;

   DBLookupComboBox8: TDBLookupComboBox;

   Label13: TLabel;

   kosmetikaObem: TStringField;

   firma: TTable;

   DataSource2: TDataSource;

   firmaKod: TAutoIncField;

   firmaNaim: TStringField;

   firmaKod_str: TIntegerField;

   Stran: TTable;

   DataSource3: TDataSource;

   Label11: TLabel;

   EffectButton1: TEffectButton;

   EffectButton2: TEffectButton;

   EffectButton3: TEffectButton;

   EffectButton4: TEffectButton;

   DBLookupComboBox7: TDBLookupComboBox;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

   procedure Button5Click(Sender: TObject);

   procedure Button6Click(Sender: TObject);

   procedure FormActivate(Sender: TObject);

   procedure EffectButton1Click(Sender: TObject);

   procedure EffectButton2Click(Sender: TObject);

   procedure EffectButton4Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form6: TForm6;

implementation

uses Unit5, Unit1, Unit2, Unit3, Unit4, Unit7, Unit8;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

kosmetika.Append;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

if application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyes

then kosmetika.Delete;

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

kosmetika.edit;

kosmetika.post;

kosmetika.Edit;

if openpicturedialog1.execute

then

kosmetikaFoto.loadfromfile(openpicturedialog1.filename);

kosmetika.Post;

end;

procedure TForm6.Button4Click(Sender: TObject);

begin

form5.firmab.MasterSource:=nil;

form5.firmab.MasterFields:='';

close;

end;

procedure TForm6.Button5Click(Sender: TObject);

begin

if checkbox1.checked and (checkbox2.checked=false) and (checkbox3.checked=false)and (checkbox4.checked=false) and

(checkbox5.checked=false) and(edit1.text='')

then  begin

label11.Caption:= 'фильтрация по: '+form3.vidNaim.Value;

kosmetika.IndexFieldNames:='kod_vida';

kosmetika.SetRange([form3.vidkod.Value],[form3.vidkod.value]);

end;  

if (checkbox1.checked=false) and (checkbox2.checked) and (checkbox3.checked=false)

and (checkbox4.checked=false) and

(checkbox5.checked=false) and (edit1.Text='')

then       begin

label11.Caption:= 'фильтрация по: '+form3.naznachenieNaim.Value;

kosmetika.IndexFieldNames:='kod_naznach';

kosmetika.SetRange([form3.naznacheniekod.Value],[form3.naznacheniekod.value]);

end;

if (checkbox1.checked=false) and (checkbox2.checked=false) and (checkbox3.checked) and (checkbox4.checked=false) and

(checkbox5.checked=false) and (edit1.Text='')

then   begin

label11.Caption:= 'фильтрация по: '+form4.vozrastNaim.Value+''+'лет';

kosmetika.IndexFieldNames:='kod_vozrast_kat';

kosmetika.SetRange([form4.vozrastkod.Value],[form4.vozrastkod.value]);

end;

if (checkbox1.checked) and (checkbox2.checked) and (checkbox3.checked=false) and (checkbox4.checked=false) and

(checkbox5.checked=false)and (edit1.Text='')

then   begin

label11.Caption:='фильтрация по: '+ form3.vidNaim.Value+' '+form3.naznachenieNaim.Value;

kosmetika.IndexFieldNames:='kod_vida;kod_naznach';  

kosmetika.SetRange([form3.vidkod.value,form3.naznacheniekod.value],[form3.vidkod.value,form3.naznacheniekod.value]);

end;

if (checkbox1.checked) and (checkbox2.checked=false) and (checkbox3.checked) and (checkbox4.checked=false) and

(checkbox5.checked=false) and (edit1.Text='')

then   begin

label11.Caption:='фильтрация по: '+ form3.vidNaim.Value+' '+form4.vozrastNaim.Value;

kosmetika.IndexFieldNames:='Kod_vida;Kod_vozrast_kat';

kosmetika.SetRange([form3.vidkod.value,form4.vozrastkod.value],[form3.vidkod.value,form4.vozrastkod.value]);

end;

if (checkbox1.checked=false) and (checkbox2.checked=false) and (checkbox3.checked=false) and (checkbox4.checked) and

(checkbox5.checked=false) and (edit1.Text<>'')

then   begin

label11.Caption:='фильтрация по: '+edit1.text;

kosmetika.IndexFieldNames:='naim';

kosmetika.SetRange([form6.edit1.text],[form6.edit1.text]);

end;

if (checkbox1.checked) and (checkbox2.checked=false) and (checkbox3.checked=false) and (checkbox4.checked) and

(checkbox5.checked=false) and (edit1.Text='')

then   begin

label11.Caption:='фильтрация по: '+ form3.vidNaim.Value+' '+edit1.text;

kosmetika.IndexFieldNames:='kod_vida;naim';

kosmetika.SetRange([form3.vidkod.value,form6.edit1.text],[form3.vidkod.value,form6.edit1.text]);

end;

if (CheckBox5.Checked )then

 kosmetika.CancelRange;    

CheckBox1.Checked:=false;

 CheckBox2.Checked:=false;

  CheckBox3.Checked:=false;

   CheckBox4.Checked:=false;

    CheckBox5.Checked:=false;

    edit1.Text:='';

end;

procedure TForm6.Button6Click(Sender: TObject);

begin

kosmetika.IndexFieldNames:='kod_vida' ;

form6.Hide;

form7.quickrep1.preview;

end;

procedure TForm6.FormActivate(Sender: TObject);

begin

firma.Refresh;

stran.Refresh;

firma.IndexFieldNames:='kod_str';

firma.MasterSource:=DataSource3;

firma.MasterFields:='kod';

     end;

procedure TForm6.EffectButton1Click(Sender: TObject);

begin

kosmetika.Append;

end;

procedure TForm6.EffectButton2Click(Sender: TObject);

begin

if application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyes

then kosmetika.Delete;

end;

procedure TForm6.EffectButton4Click(Sender: TObject);

begin

form5.firmab.MasterSource:=nil;

form5.firmab.MasterFields:='';

close;

form8.Show;

end;

end.


 

А также другие работы, которые могут Вас заинтересовать

23504. Переход е в о в современном русском языке 42.5 KB
  1960 Переход е в о в современном русском языке Из истории русского языка известен закон о переходе не начального е в о. По силе этого закона в нашем современном русском языке мы имеем в соответствии с старшим е под ударением как из исконного е так и из образовавшегося из еря гласный о если далее следует твердый согласный. В положении перед ч щ как согласными звучащими только мягко в современном литературном языке перехода е в о не должно быть. Перед согласным ц в литературном языке известным только в твердом виде но некогда...
23505. Сочетание чн в русском языке 33 KB
  1960 Сочетание чн в русском языке Согласно с историей русского языка звукосочетание чн в русском языке нового исторической поры происхождения. Исчезновение редуцированных между двумя согласными не в позициях абсолютного конца и абсолютного конца слова вызвало появление в русском языке впервые рядов новых групп согласных таких которые до этой поры в языке не существовали. Теоретически можно ожидать троякой возможной судьбы сочетания чн в языке: А это сочетание сохраняется в языке; Б в результате редукции взрывной части трифтонга из него...
23508. Фразеологизмы новозаветного происхождения в современном русском языке 982.5 KB
  Курск 1998 [1] Введение [2] Глава I [3] Краткие сведения по некоторым теоретическим вопросам фразеологии русского языка. [5] Новозаветные по происхождению фразеологизмы как элемент фразеологической системы русского языка [5. Библейская фразеология и проблемы культуры речи [10] Заключение [11] Список использованной литературы [12] Приложение № 1 Введение О фразеологии написано множество статей книг диссертаций а интерес к этой области языка не иссякает ни у исследователей ни у тех кто просто неравнодушен к слову.
23509. ОБ ОСНОВНЫХ ТИПАХ ФРАЗЕОЛОГИЧЕСКИХ ЕДИНИЦ В РУССКОМ ЯЗЫКЕ 159 KB
  Шахматов в своем Синтаксисе русского языка настойчиво подчеркивал чрезвычайную важность вопроса о неразложимых сочетаниях слов не только для лексикологии resp. Под разложением словосочетания писал А. Между тем подобное разложение для некоторых словосочетаний оказывается невозможным. В неразложимых словосочетаниях связь компонентов может быть объяснена с исторической точки зрения но она непонятна немотивирована с точки зрения живой системы современных грамматических отношений.
23510. СТИЛЬ ПИКОВОЙ ДАМЫ 430.5 KB
  ВИНОГРАДОВ СТИЛЬ ПИКОВОЙ ДАМЫ€œ Пушкинский стиль пушкинская манера лирического выражения и повествования почти не описаны и не исследованы. Современнее и резче всего пушкинская манера повествования обозначилась в структуре Пиковой Дамы€œ. Сюжет Пиковой Дамы€œ и профессиональноигрецкие анекдоты В Пиковой Даме€œ семантическое многообразие доведено до предела. Игра в фараон в Пиковой Даме€œ не столько тема авторского повествования сколько тема разговора между персонажами.
23511. Смысл: семь дихотомических признаков 93.5 KB
  Новиков Смысл: семь дихотомических признаков Смысл относится к тем загадочным явлениям которые считаются как бы общеизвестными поскольку постоянно фигурируют как в научном так и обыденном общении. Иногда допускается что смысл принадлежит к тем наиболее общим категориям которые не подлежат определению и должны восприниматься как некоторая данность. В настоящее время в связи с необходимостью решения целого ряда актуальных задач как теоретического так и прикладного характера где понятие смысла играет ключевое значение требуются...
23512. Словообразование как наука 197 KB
  В этом аспекте словообразование рассматривается как одно из важнейших средств пополнения словарного состава языка. Новые слова в языке образуются по определенным правилам моделям схемам – по определенным образцам которые образуют определенный языковой механизм который и называется словообразованием. В языке различают непроизводные слова ех: лес река море стол идти веселый синий – примарные первообразные и производные слова – образованные на базе существующих слов ех: морской речник развеселый лесной. Производные слова...