Дипломная работа: Автоматизация учета посещений клиентов в ООО "Bagira"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
//---------------------------------------------------------------------------
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;
}
Источник: https://baza.diplomsite.ru/previewfile/2401

Смотрите также:

3328
Альбом изломов за 2009г
Анализ изобретений в области валковых дробилок
Антикоррупционное просвещение как фактор обеспечения социальной безопасности
Историческое и современное положение в произведениях И. Эфендиева
Как устроен Интернет. IP-адрес компьютера
Структурно-блоковая модель видов реабилитационно-туристических услуг в системе географических наук