Автоматизированная система каталога косметических средств

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Введение

программа интерфейс пользователь

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

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

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

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

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



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	Фото



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.

Размещено на Allbest.ru