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

Скачать файл

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

ADOQuery2->SQL->Add("insert into парикмахер

(фио,телефон,стаж,адрес,курсы) values ('"+Edit1->Text+"', '"+StrToInt(Edit2-

>Text)+"', '"+StrToInt(Edit3->Text)+"','"+Edit4->Text+"','"+Edit5->Text+"')");

ADOQuery2->ExecSQL();

Form4->ADOQuery1->Active=false;

Form4->ADOQuery1->Active=true;

Form5->Close();

}

//---------------------------------------------------------------------------

Unit6

#include <vcl.h>

#pragma hdrstop

#include "Unit6.h"

#include "Unit7.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm6 *Form6;

//---------------------------------------------------------------------------

__fastcall TForm6::TForm6(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm6::Edit4Change(TObject *Sender)

{

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("select * from средства where название like '%" +

Edit4->Text + "%'");

ADOQuery1->ExecSQL();

ADOQuery1->Active = false;

ADOQuery1->Active = true;

}

//---------------------------------------------------------------------------

void __fastcall TForm6::FormCreate(TObject *Sender)

{

Form6->Color = RGB(255,203,219);

TForm1 *Form1;

TForm7 *Form7;

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("select * from средства ") ;

ADOQuery1->ExecSQL();

ADOQuery1->Active=true;

DBEdit1->DataField="название";

DBEdit2->DataField="цена";

DBEdit3->DataField="Производитель";

DBEdit4->DataField="Срок_годности";

}

//---------------------------------------------------------------------------

void __fastcall TForm6::DBEdit2KeyPress(TObject *Sender, System::WideChar &Key)

{

if (isdigit(Key) || (Key == VK_BACK)) {

return;

}

Key = 0;

}

//---------------------------------------------------------------------------

void __fastcall TForm6::Button1Click(TObject *Sender)

{

Form7->Show();

}

//---------------------------------------------------------------------------

Unit 7

#include <vcl.h>

#pragma hdrstop

#include "Unit7.h"

#include "Unit6.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm7 *Form7;

//---------------------------------------------------------------------------

void __fastcall TForm7::FormCreate(TObject *Sender)

{

Form7->Color = RGB(255,203,219);

TForm6 *Form6;

TForm1 *Form1;

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Button1Click(TObject *Sender)

{

if (Edit1->Text.Length()==0 & Edit2->Text.Length()==0 & Edit3->Text.Length()==0

& Edit4->Text.Length()==0) {

ShowMessage("Заполните все поля!") ;

}

else

{

ADOQuery2->SQL->Clear();

ADOQuery2->SQL->Add("insert into средства

(название,цена,производитель,срок_годности) values ('"+Edit1->Text+"',

'"+StrToInt(Edit2->Text)+"', '"+Edit3->Text+"', '"+Edit4->Text+"')");

ADOQuery2->ExecSQL();

Form6->ADOQuery1->Active=false;

Form6->ADOQuery1->Active=true;

Form7->Close();

}

//---------------------------------------------------------------------------

Unit8

#include <vcl.h>

#pragma hdrstop

#include "Unit8.h"

#include "Unit1.h"

#include "Unit9.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm8 *Form8;

//---------------------------------------------------------------------------

void __fastcall TForm8::DBEdit2KeyPress(TObject *Sender, System::WideChar &Key)

{

if (isdigit(Key) || (Key == VK_BACK)) {

return;

}

Key = 0;

}

//---------------------------------------------------------------------------

void __fastcall TForm8::FormCreate(TObject *Sender)

{

Form8->Color = RGB(255,203,219);

TForm1 *Form1;

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("select * from услуги ") ;

ADOQuery1->ExecSQL();

ADOQuery1->Active=true;

DBEdit1->DataField="название";

DBEdit2->DataField="цена";

}

//---------------------------------------------------------------------------

void __fastcall TForm8::Edit4Change(TObject *Sender)

{

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("select * from услуги where название like '%" +

Edit4->Text + "%'");

ADOQuery1->ExecSQL();

ADOQuery1->Active = false;

ADOQuery1->Active = true;

}

//---------------------------------------------------------------------------

void __fastcall TForm8::Button1Click(TObject *Sender)

{

Form9->Show();

}

//---------------------------------------------------------------------------

Unit9

#include <vcl.h>

#pragma hdrstop

#include "Unit9.h"

#include "Unit8.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm9 *Form9;

//---------------------------------------------------------------------------

void __fastcall TForm9::Button1Click(TObject *Sender)

{

if (Edit1->Text.Length()==0 & Edit2->Text.Length()==0 ) {

ShowMessage("Заполните все поля!") ;

}

else

{

ADOQuery2->SQL->Clear();

ADOQuery2->SQL->Add("insert into услуги (название,цена) values ('"+Edit1-

>Text+"', '"+StrToInt(Edit2->Text)+"')");

ADOQuery2->ExecSQL();

Form8->ADOQuery1->Active=false;

Form8->ADOQuery1->Active=true;

Form9->Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm9::FormCreate(TObject *Sender)

{

Form9->Color = RGB(255,203,219);

TForm8*Form8;

TForm1*Form1;

}

//---------------------------------------------------------------------------

Unit10

#include <vcl.h>

#pragma hdrstop

#include "Unit10.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit14.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm10 *Form10;

//---------------------------------------------------------------------------

void __fastcall TForm10::FormCreate(TObject *Sender)

{

Form10->Color = RGB(255,203,219);

TForm1 *Form1;

TForm14 *Form14;

TForm2 *Form2;

DBText1->DataField="фио";

ADOQuery6->SQL->Clear();

ADOQuery6->SQL->Add("select max(Номер_заявки)+1 as id from заявки ") ;

ADOQuery6->ExecSQL();

ADOQuery6->Active=true;

DBEdit1->DataField="id";

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("select * from парикмахер");

ADOQuery1->ExecSQL();

ADOQuery1->Active=true;

DBLookupComboBox1->KeyField="номер_парикмахера";

DBLookupComboBox1->ListField="Фио";

ADOQuery3->SQL->Clear();

ADOQuery3->SQL->Add("select * from средства");

ADOQuery3->ExecSQL();

ADOQuery3->Active=true;

DBLookupComboBox3->KeyField="номер_средства";

DBLookupComboBox3->ListField="название";

ADOQuery2->SQL->Clear();

ADOQuery2->SQL->Add("select * from услуги");

ADOQuery2->ExecSQL();

ADOQuery2->Active=true;

DBLookupComboBox2->KeyField="номер_услуги";

DBLookupComboBox2->ListField="название";

}

//---------------------------------------------------------------------------

void __fastcall TForm10::DBLookupComboBox1Click(TObject *Sender)

{

Edit2->Text=DBLookupComboBox1->KeyValue;

}

//---------------------------------------------------------------------------

void __fastcall TForm10::DBLookupComboBox2Click(TObject *Sender)

{

Edit3->Text=DBLookupComboBox1->KeyValue;

//ADOQuery4->SQL->Clear();

//ADOQuery4->SQL->Add("select sum (услуги.цена,средсва.цена) from

услуги,средства where ");

}

Источник: https://baza.diplomsite.ru/previewfile/2401

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

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