Имя поля
|
Тип
|
Размер
|
Назначение
|
kod_kosmetiki
|
Autoincrement
|
4
|
Код объема
|
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. Специальная часть
.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.
. Delphi 7 и создание приложений баз данных, Шумаков П., М.: Нолидж, 1998
г.
. Язык Pascal и основы программирования в Delphi, Архангельский А.
Учебное пособие, Москва 2004.
.http://www.delphicomponent.ru
Приложение
Листинг программы
unit Unit1;, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg,
ExtCtrls, eff_button;= class(TForm): TLabel;: TEdit;: TEffectButton;:
TEffectButton;Button1Click(Sender: TObject);Button2Click(Sender:
TObject);EffectButton1Click(Sender: TObject);EffectButton2Click(Sender:
TObject);
{ Private declarations }
{ Public declarations
};: TForm1;
Unit2;
{$R
*.dfm}TForm1.Button1Click(Sender: TObject);edit1.text='1234' then form2.Show
elseApplication.MessageBox('неверный пароль.повторить ввод?','ошибка',mb_yesno+mb_iconstop+mb_defbutton1)=idyesbegin.Clear;.SetFocus;;;TForm1.Button2Click(Sender:
TObject);;;TForm1.EffectButton1Click(Sender:
TObject);.Hide;.show;;TForm1.EffectButton2Click(Sender: TObject);;;.
Unit2;, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, jpeg,
ExtCtrls, StdCtrls;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;:
TMenuItem;: TMenuItem;: TMenuItem;: TImage;N1Click(Sender:
TObject);N5Click(Sender: TObject);N2Click(Sender: TObject);N3Click(Sender:
TObject);N4Click(Sender: TObject);Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations
};: TForm2;Unit1, Unit3, Unit4, Unit5, Unit6, Unit8;
{$R
*.dfm}TForm2.N1Click(Sender: TObject);.Hide;.show;;TForm2.N5Click(Sender:
TObject);;;TForm2.N2Click(Sender: TObject);.Hide;.show;;TForm2.N3Click(Sender:
TObject);.Hide;.show;;TForm2.N4Click(Sender:
TObject);.Hide;.show;;TForm2.Button1Click(Sender: TObject);.show;;.
Unit3;, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask,
DBCtrls, DB, DBTables, Grids, DBGrids, jpeg,, eff_button;= class(TForm):
TGroupBox;: TGroupBox;: TDataSource;: TDBGrid;: TTable;: TDBEdit;: TTable;:
TDataSource;: TDBGrid;: TDBEdit;: TAutoIncField;: TStringField;:
TAutoIncField;: TStringField;: TTable;: TDataSource;: TAutoIncField;:
TStringField;: TGroupBox;: TDBGrid;: TEffectButton;: TEffectButton;:
TEffectButton;: TEffectButton;: TEffectButton;: TEffectButton;: TEffectButton;:
TEffectButton;: TEffectButton;: TEffectButton;Button7Click(Sender:
TObject);Button4Click(Sender: TObject);Button5Click(Sender:
TObject);Button6Click(Sender: TObject);Button8Click(Sender:
TObject);Button9Click(Sender: TObject);Button10Click(Sender:
TObject);EffectButton1Click(Sender: TObject);EffectButton2Click(Sender:
TObject);EffectButton3Click(Sender: TObject);EffectButton4Click(Sender:
TObject);EffectButton5Click(Sender: TObject);EffectButton6Click(Sender:
TObject);EffectButton7Click(Sender: TObject);EffectButton8Click(Sender:
TObject);EffectButton9Click(Sender: TObject);EffectButton10Click(Sender:
TObject);
{ Private declarations }
{ Public declarations };
: TForm3;Unit1, Unit2,
Unit8;
{$R
*.dfm}TForm3.Button7Click(Sender: TObject);;;TForm3.Button4Click(Sender:
TObject);.Append;;TForm3.Button5Click(Sender: TObject);application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyesnaznachenie.Delete;;TForm3.Button6Click(Sender:
TObject);.edit;.post;;TForm3.Button8Click(Sender: TObject);.Append;;
TForm3.Button9Click(Sender:
TObject);application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyesobem.Delete;;TForm3.Button10Click(Sender:
TObject);.edit;.post;;TForm3.EffectButton1Click(Sender:
TObject);.Append;;TForm3.EffectButton2Click(Sender:
TObject);application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyesvid.Delete;;TForm3.EffectButton3Click(Sender:
TObject);.edit;.post;;TForm3.EffectButton4Click(Sender:
TObject);.Append;;TForm3.EffectButton5Click(Sender:
TObject);application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyesobem.Delete;;TForm3.EffectButton6Click(Sender:
TObject);.edit;.post;;TForm3.EffectButton7Click(Sender:
TObject);.Append;;TForm3.EffectButton8Click(Sender:
TObject);application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyesnaznachenie.Delete;;TForm3.EffectButton9Click(Sender:
TObject);.edit;.post;;
TForm3.EffectButton10Click(Sender:
TObject);;.Show;;.TForm5.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;:
TShiftState; X, Y: Integer);.IndexFieldNames:='kod_str';.SetRange([stranakod.Value],[stranakod.value]);;TForm5.Button7Click(Sender:
TObject);.CancelRange;;;
Unit6;, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DBCtrls, DB,
DBTables, Grids, DBGrids, Mask, dblookup,, jpeg, ExtCtrls, eff_button;=
class(TForm): TGroupBox;: TDBGrid;: TDataSource;: TTable;: TDBLookupComboBox;:
TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;:
TDBLookupComboBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;:
TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TGroupBox;:
TDBLookupCombo;: TDBLookupCombo;: TCheckBox;: TCheckBox;: TCheckBox;: TButton;:
TCheckBox;_kosm: TAutoIncField;: TStringField;_firm: TIntegerField;_vida:
TIntegerField;_naznach: TIntegerField;_vozrast_kat: TIntegerField;_tipa_koji:
TIntegerField;_tipa_volos: TIntegerField;_stran: TIntegerField;:
TIntegerField;: TIntegerField;: TDBLookupCombo;: TLabel;: TCheckBox;: TLabel;:
TButton;: TDBImage;: TGraphicField;: TOpenPictureDialog;: TImage;: TEdit;:
TStringField;: TStringField;: TStringField;: TStringField;: TStringField;:
TStringField;: TStringField;: TDBLookupComboBox;: TLabel;: TStringField;:
TTable;: TDataSource;: TAutoIncField;: TStringField;_str: TIntegerField;:
TTable;: TDataSource;: TLabel;: TEffectButton;: TEffectButton;: TEffectButton;:
TEffectButton;: TDBLookupComboBox;Button1Click(Sender:
TObject);Button2Click(Sender: TObject);Button3Click(Sender:
TObject);Button4Click(Sender: TObject);Button5Click(Sender:
TObject);Button6Click(Sender: TObject);FormActivate(Sender:
TObject);EffectButton1Click(Sender: TObject);EffectButton2Click(Sender:
TObject);EffectButton4Click(Sender: TObject);
{ Private declarations }
{ Public declarations
};: TForm6;
Unit5, Unit1, Unit2,
Unit3, Unit4, Unit7, Unit8;
{$R *.dfm}TForm6.Button1Click(Sender:
TObject);.Append;;TForm6.Button2Click(Sender: TObject);application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyeskosmetika.Delete;;TForm6.Button3Click(Sender:
TObject);.edit;.post;.Edit;openpicturedialog1.execute.loadfromfile(openpicturedialog1.filename);.Post;;TForm6.Button4Click(Sender:
TObject);.firmab.MasterSource:=nil;.firmab.MasterFields:='';;;
procedure
TForm6.Button5Click(Sender: TObject);checkbox1.checked and
(checkbox2.checked=false) and (checkbox3.checked=false)and
(checkbox4.checked=false) and
(checkbox5.checked=false)
and(edit1.text='')begin.Caption:= 'фильтрация по:
'+form3.vidNaim.Value;.IndexFieldNames:='kod_vida';.SetRange([form3.vidkod.Value],[form3.vidkod.value]);;
(checkbox1.checked=false) and (checkbox2.checked) and
(checkbox3.checked=false)(checkbox4.checked=false) and
(checkbox5.checked=false)
and (edit1.Text='')begin.Caption:= 'фильтрация по:
'+form3.naznachenieNaim.Value;.IndexFieldNames:='kod_naznach';.SetRange([form3.naznacheniekod.Value],[form3.naznacheniekod.value]);;(checkbox1.checked=false)
and (checkbox2.checked=false) and (checkbox3.checked) and
(checkbox4.checked=false) and
(checkbox5.checked=false)
and (edit1.Text='')begin.Caption:= 'фильтрация по: '+form4.vozrastNaim.Value+''+'лет';.IndexFieldNames:='kod_vozrast_kat';.SetRange([form4.vozrastkod.Value],[form4.vozrastkod.value]);;
(checkbox1.checked) and
(checkbox2.checked) and (checkbox3.checked=false) and (checkbox4.checked=false)
and
(checkbox5.checked=false)and
(edit1.Text='')begin.Caption:='фильтрация по: '+ form3.vidNaim.Value+'
'+form3.naznachenieNaim.Value;.IndexFieldNames:='kod_vida;kod_naznach';
.SetRange([form3.vidkod.value,form3.naznacheniekod.value],[form3.vidkod.value,form3.naznacheniekod.value]);;(checkbox1.checked)
and (checkbox2.checked=false) and (checkbox3.checked) and
(checkbox4.checked=false) and
(checkbox5.checked=false)
and (edit1.Text='')begin.Caption:='фильтрация по: '+ form3.vidNaim.Value+'
'+form4.vozrastNaim.Value;.IndexFieldNames:='Kod_vida;Kod_vozrast_kat';.SetRange([form3.vidkod.value,form4.vozrastkod.value],[form3.vidkod.value,form4.vozrastkod.value]);;(checkbox1.checked=false)
and (checkbox2.checked=false) and (checkbox3.checked=false) and
(checkbox4.checked) and
(checkbox5.checked=false)
and (edit1.Text<>'')begin.Caption:='фильтрация по:
'+edit1.text;.IndexFieldNames:='naim';.SetRange([form6.edit1.text],[form6.edit1.text]);;
if (checkbox1.checked)
and (checkbox2.checked=false) and (checkbox3.checked=false) and
(checkbox4.checked) and
(checkbox5.checked=false)
and (edit1.Text='')begin.Caption:='фильтрация по: '+ form3.vidNaim.Value+'
'+edit1.text;.IndexFieldNames:='kod_vida;naim';.SetRange([form3.vidkod.value,form6.edit1.text],[form3.vidkod.value,form6.edit1.text]);;(CheckBox5.Checked)then.CancelRange;
.Checked:=false;.Checked:=false;.Checked:=false;.Checked:=false;.Checked:=false;.Text:='';;TForm6.Button6Click(Sender:
TObject);.IndexFieldNames:='kod_vida';.Hide;.quickrep1.preview;;TForm6.FormActivate(Sender:
TObject);.Refresh;.Refresh;.IndexFieldNames:='kod_str';.MasterSource:=DataSource3;.MasterFields:='kod';;TForm6.EffectButton1Click(Sender:
TObject);.Append;;TForm6.EffectButton2Click(Sender:
TObject);application.MessageBox('удалить?','удаление',mb_yesno+MB_ICONQUESTION)=idyeskosmetika.Delete;;TForm6.EffectButton4Click(Sender:
TObject);.firmab.MasterSource:=nil;.firmab.MasterFields:='';;.Show;
end;.