//---------------------------------------------------------------------------
void __fastcall TForm10::Button1Click(TObject *Sender)
{
if(Edit2->Text=="")
ShowMessage("Не выбран парикмахер");
else
{
if (Edit3->Text=="") {
ShowMessage("Не выбрана услуга");
}
else
{
if(Edit4->Text!=""){
ADOQuery4->SQL->Clear();
ADOQuery4->SQL->Add("insert into
заявки(код_клиента,код_парикмахера,код_средства,код_услуги,дата,время) values
('"+Form2->ADOQuery1->Fields->Fields[0]->Value+"','"+DBLookupComboBox1-
>KeyValue+"','"+DBLookupComboBox3->KeyValue+"','"+DBLookupComboBox2-
>KeyValue+"','"+StrToDate(DateTimePicker1->Date)+"','"+Edit1->Text+"')");
ADOQuery4->ExecSQL();
ADOQuery5->SQL->Clear();
ADOQuery5->SQL->Add("select услуги.цена as id1 from услуги,заявки where
заявки.номер_заявки like '"+DBEdit1->Text+"' and
заявки.код_услуги=услуги.номер_услуги ") ;
ADOQuery5->ExecSQL();
ADOQuery5->Active=true;
DBEdit2->DataField="id1";
ADOQuery7->SQL->Clear();
ADOQuery7->SQL->Add("select средства.цена as id2 from заявки,средства where
заявки.номер_заявки like '"+DBEdit1->Text+"' and
заявки.код_средства=средства.номер_средства ") ;
ADOQuery7->ExecSQL();
ADOQuery7->Active=true;
DBEdit3->DataField="id2";
if(DBEdit3->Text!="")
{
Edit5->Text=StrToInt(DBEdit2->Text)+ StrToInt(DBEdit3->Text) ;
}
else
{
Edit5->Text=StrToInt(DBEdit2->Text);
}
ADOQuery4->SQL->Clear();
ADOQuery4->SQL->Add("update заявки set цена='"+Edit5->Text+"' where
заявки.номер_заявки like '"+DBEdit1->Text+"' ") ;
ADOQuery4->ExecSQL();
Form10->Close();
}
else
{
ADOQuery4->SQL->Clear();
ADOQuery4->SQL->Add("insert into
заявки(код_клиента,код_парикмахера,код_услуги,дата,время) values ('"+Form2-
>ADOQuery1->Fields->Fields[0]->Value+"','"+DBLookupComboBox1-
>KeyValue+"','"+DBLookupComboBox2-
>KeyValue+"','"+StrToDate(DateTimePicker1->Date)+"','"+Edit1->Text+"')");
ADOQuery4->ExecSQL();
ADOQuery5->SQL->Clear();
ADOQuery5->SQL->Add("select услуги.цена as id1 from услуги,заявки where
заявки.номер_заявки like '"+DBEdit1->Text+"' and
заявки.код_услуги=услуги.номер_услуги ") ;
ADOQuery5->ExecSQL();
ADOQuery5->Active=true;
DBEdit2->DataField="id1";
if(DBEdit3->Text!="")
{
Edit5->Text=StrToInt(DBEdit2->Text)+ StrToInt(DBEdit3->Text) ;
}
else
{
Edit5->Text=StrToInt(DBEdit2->Text);
}
ADOQuery4->SQL->Clear();
ADOQuery4->SQL->Add("update заявки set цена='"+Edit5->Text+"' where
заявки.номер_заявки like '"+DBEdit1->Text+"' ") ;
ADOQuery4->ExecSQL();
Form10->Close();
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm10::DBLookupComboBox3Click(TObject *Sender)
{
Edit4->Text=DBLookupComboBox1->KeyValue;
}
//---------------------------------------------------------------------------
void __fastcall TForm10::Button2Click(TObject *Sender)
{
if(Edit2->Text=="")
{
ShowMessage("Не выбран парикмахер");
}
else
{
Form14->ADOQuery1->SQL->Clear();
Form14->ADOQuery1->SQL->Add("select
дата,время,заявки.код_парикмахера,парикмахер.фио,клиент.фио from
заявки,парикмахер,клиент where заявки.код_клиента=клиент.номер_клиента and
заявки.код_парикмахера=парикмахер.номер_парикмахера and
заявки.код_парикмахера like'"+Edit2->Text+"'");
Form14->ADOQuery1->Filter="дата = "+DateTimePicker1->Date+ " " ;
Form14->ADOQuery1->Filtered=true;
Form14->ADOQuery1->ExecSQL();
Form14->ADOQuery1->Active=true;
Form14->Caption= "Расписание "+DBLookupComboBox1->Text+" на
"+DateTimePicker1->Date+"" ;
Form14->Show();
}
}
//---------------------------------------------------------------------------
Unit11
#include <vcl.h>
#pragma hdrstop
#include "Unit11.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm11 *Form11;
//---------------------------------------------------------------------------
__fastcall TForm11::TForm11(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm11::FormCreate(TObject *Sender)
{
Form11->Color = RGB(255,203,219);
TForm1 *Form1;
TDateTime CurrentDate = Date();
DateTimePicker1->Date = CurrentDate;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select
клиент.фио,парикмахер.фио,услуги.название,средства.название,заявки.дата,заявки.
время,заявки.цена from заявки,клиент,услуги,средства,парикмахер where
заявки.код_клиента=клиент.номер_клиента and
заявки.код_услуги=услуги.номер_услуги and
заявки.код_парикмахера=парикмахер.номер_парикмахера and
заявки.код_средства=средства.номер_средства order by заявки.время" );
ADOQuery1->Filter ="дата = "+DateTimePicker1->Date+" ";
ADOQuery1->Filtered=true;
ADOQuery1->ExecSQL();
ADOQuery1->Active=true;
}
//---------------------------------------------------------------------------
Unit12
#include <vcl.h>
#pragma hdrstop
#include "Unit12.h"
#include "Unit1.h"
#include "Unit13.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm12 *Form12;
//---------------------------------------------------------------------------
void __fastcall TForm12::Button1Click(TObject *Sender)
{
Form13->ADOQuery1->SQL->Clear();
Form13->ADOQuery1->SQL->Add("select
парикмахер.номер_парикмахера,клиент.фио,парикмахер.фио,заявки.цена,дата from
заявки,клиент,парикмахер where заявки.код_клиента=клиент.номер_клиента and
заявки.код_парикмахера=парикмахер.номер_парикмахера order by
парикмахер.фио");
Form13->ADOQuery1->Filter ="дата > "+DateTimePicker1->Date+" and
дата<"+DateTimePicker2->Date+"";
Form13->ADOQuery1->Filtered=true;
Form13->ADOQuery1->ExecSQL();
Form13->ADOQuery1->Active=true;
//Form13->frxDBDataset1->DataSet=Form1->ADOQuery1;
Form13->frxReport1->ShowReport();
Form13->Show() ;
}
//---------------------------------------------------------------------------
void __fastcall TForm12::FormCreate(TObject *Sender)
{
Form12->Color = RGB(255,203,219);
TForm1 *Form1;
TDateTime CurrentDate = Date();
DateTimePicker1->Date = CurrentDate;
DateTimePicker2->Date = CurrentDate;
}
//---------------------------------------------------------------------------
Unit13
#include <vcl.h>
#pragma hdrstop
#include "Unit13.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma link "frxDBSet"
#pragma link "frxPreview"
#pragma resource "*.dfm"
TForm13 *Form13;
//---------------------------------------------------------------------------
void __fastcall TForm13::Button2Click(TObject *Sender)
{
frxReport1->Print();
}
//---------------------------------------------------------------------------
void __fastcall TForm13::FormCreate(TObject *Sender)
{
TForm1 *Form1;
}
//---------------------------------------------------------------------------
Unit14
#include <vcl.h>
#pragma hdrstop
#include "Unit14.h"
#include "Unit1.h"
#include "Unit10.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm14 *Form14;
//---------------------------------------------------------------------------
void __fastcall TForm14::FormCreate(TObject *Sender)
{
Form14->Color = RGB(255,203,219);
TForm10 *Form10;
TForm1 *Form1;
}
Инструкция работы с программой «Салон красоты “Bagira”»
Авторизация пользователя.
После авторизации пользователя откроется главная форма приложения
показанная на рисунке 1.
Рисунок 2. Главное окно приложения «Салон красоты “Bagira”»
При выборе пункта «Клиенты» откроется окно (См. Рисунок 2):
Рисунок 2. Форма «Клиенты»
Что бы добавить нового клиента следует выбрать пункт меню «Клиенты»,
затем нажать «Добавить клиента», и затем заполнить форму, которая показана на
рисунке 3:
Рисунок 3. Форма «Добавить клиента»
Аналогичным образом организована работа с добавлением парикмахеров,
средства, услуги.
Что бы добавить новое средство следует заполнить формы, показанные на
рисунке 4.
Рисунок 4. Форма «Добавить средство»
Аналогичным образом организован процесс добавления услугу или
парикмахера, через соответствующие пункты меню «Парикмахер» и «Услуги», где
следует выбрать пункты «Добавить парикмахера» и «Добавить услугу» (См.
Рисунок 5-6). То есть процесс добавления организован аналогичным образом.
Рисунок 5. Форма «добавления парикмахера»
Рисунок 6. Форма добавление услуги
Оформление заявки.
Для того, что бы оформить заявку следует выбрать «меню» - «Клиенты» -
«Оформить заявку», в результате откроется форму, которую надо заполнить, как
показано на рисунке 7.
Рисунок 7. Форма «Оформить заявку» (бронирование/запись к мастеру на
услуги)
Все поля следует заполнять в соответствие с названием приведенных полей.
Если в случае ввода была допущена ошибка в ФИО клиента или его номере
телефона, то ее можно просто исправить, для этого необходимо выделить нужного
клиента, а затем в правой части формы внести изменения, и все сохранится в
программе автоматически.
В «Меню» - «Парикмахеры», после нажатия, которой откроется форма
представленная на рисунке 8.
Рисунок 8. Внесение изменения в «Парикмахеры»
Аналогичным образом можно внести изменения в «Средства», «Услуги», как
показано на рисунках 9-10
Рисунок 9. Внесение изменения в «Средства»