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.


 

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

29541. Логарифмическая производная. Дифференцирование функций, заданных неявно и параметрически. Производные высших порядков 374.5 KB
  Логарифмической производной функции называется производная от логарифма этой функции т. Применение предварительного логарифмирования функции приводит к следующему часто более простому способу вычисления её производной: . Например для степеннопоказательной функции где дифференцируемые функции: . Если дифференцируемая функция задана неявно уравнением то производная этой неявной функции может быть найдена из уравнения линейного относительно где рассматривается как сложная функция переменной .
29542. ПРОФЕСІЙНА ЕТИКА ТА ЕСТЕТИКА 431.18 KB
  Знання естетики впливає на розвиток людини розкриває принципи пізнання естетичних об’єктів. Вона вивчає мораль загалом як особливу сферу життєдіяльності людини аналізує природу структуру та соціальну роль моралі досліджує її походження й історичний розвиток теоретично обґрунтовує певну систему моральних поглядів і норм. Вона розглядає закономірності морального життя особистості та суспільства шляхи й засоби вдосконалення стосунків між людьми способи запобігання руйнації моральних взаємин моральну культуру особистості що проявляється в...
29543. ФІНАНСИ ПІДПРИЄМСТВ. Конспект лекцій 315.5 KB
  Фінанси підприємства – економічні відносини які пов’язані з кругообігом засобів створенням розподілом і використанням фондів грошових коштів. Децентралізовані фонди грошових коштів які використовуються в процесі фінансової діяльності представляють собою фінансові ресурси виробничих об’єднань підприємства і галузей народного господарювання а також населення. За браком власних оборотних коштів для поточного інвестування необхідно визначити потребу в позичкових коштах. Безпосереднім завдання управління фінансами підприємств є забезпечення...
29544. Конспект лекцій з Фінансового права 333.5 KB
  Бюджетне право УкраїниТема 5. Банківська система України. валюта України грошові знаки у вигляді банкнотів казначейських білетів монет і в інших формах що перебувають в обігу та є законним платіжним засобом на території України а також вилучені з обігу або такі що вилучаються з нього але підлягають обмінові на грошові знаки які перебувають в обігу кошти на рахунках у внесках в банківських та інших кредитнофінансових установах на території України; 2. платіжні документи та інші цінні папери акції облігації купони до них бони...
29545. Фінансове право. Конспект лекцій 713 KB
  Фінансове право в системі права України. Однак коли Національний банк України перевіряє діяльність комерційного банку і виявляє порушення в умовах надання кредиту він має право застосувати фінансові санкції за порушення банківського законодавства як орган що представляє інтереси держави у сфери забезпечення фінансової діяльності держави. Конституція України є Основним Законом держави єдиним нормативноправовим актом найвищої юридичної сили що регулює найважливіші суспільні відносини у тому числі у сфері фінансової діяльності. Норми...
29548. ФУТБОЛЬНЫЙ КЛУБ ЦСКА В ЗЕРКАЛЕ СОВРЕМЕННОЙ СПОРТИВНОЙ ПРЕССЫ: ЕВРОКУБКОВЫЕ ИГРЫ 389 KB
  ЧЕРНЫШЕВСКОГО Кафедра новейшей русской литературы ФУТБОЛЬНЫЙ КЛУБ ЦСКА В ЗЕРКАЛЕ СОВРЕМЕННОЙ СПОРТИВНОЙ ПРЕССЫ: ЕВРОКУБКОВЫЕ ИГРЫ ДИПЛОМНАЯ РАБОТА студента 5 курса Института филологии и журналистики Кудряшова Владимира Александровича фамилия имя отчество Научный руководитель профессор д. звание подпись дата инициалы фамилия Саратов 2012 Содержание Введение3 1 глава: ЦСКА 20012005 гг.21 2 глава: ЦСКА 20052012 гг.77 Введение Профессиональный футбольный клуб ЦСКА...
29549. Микрофоны. Использование на сцене и в студии звукозаписи 765.31 KB
  Озвучивание сцены с помощью систем подвесных микрофонов 3 Индивидуальное озвучивание с помощью радиомикрофонов 4 Озвучивание сцены с помощью систем подвесных микрофонов Как правило под словом театр представляется спектакль в больш ом красивом здании с хорошей акустикой где даже шепот будет сл ышен в последнем ряду. Наиболее естественного звучания при усилении актерской речи можно добиться при помощи системы подвесных микрофонов. Для этих целей использу...