Диплом: Автоматизация учёта и анализа ассортимента на примере интернет-магазина ООО "Ситилинк"

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
96
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
Form2->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn2Click(TObject *Sender)
{
Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn3Click(TObject *Sender)
{
Form4->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn4Click(TObject *Sender)
{
Form5->Show();
}
//---------------------------------------------------------------------------
97
UUnit3
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
98
Form3->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
if( !Form6->Visible )
Form6->Show();
}
//---------------------------------------------------------------------------
Unit4
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::BitBtn1Click(TObject *Sender)
{
99
Form4->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
if( !Form7->Visible )
Form7->Show();
}
//---------------------------------------------------------------------------
Unit5
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit8.h"
#include "Unit7.h"
#include "Unit6.h"
#include "Unit5.h"
#include "Unit4.h"
#include "Unit3.h"
#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn1Click(TObject *Sender)
{
Form5->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
if( !Form8->Visible )
100
Form8->Show();
}
//---------------------------------------------------------------------------
Unit6
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Button1Click(TObject *Sender)
{
Edit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Button2Click(TObject *Sender)
{
Edit2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::ListBox1Click(TObject *Sender)
{
if( ListBox1->ItemIndex == 0)
Edit2->Text = Edit2->Text + "Cod" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 1)
Edit2->Text = Edit2->Text + "Price" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 2)
Edit2->Text = Edit2->Text + "Brand" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 3)
101
Edit2->Text = Edit2->Text + "''" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 4)
Edit2->Text = Edit2->Text + "Colors" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 5)
Edit2->Text = Edit2->Text + "HDTV" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 6)
Edit2->Text = Edit2->Text + "Sklad" + "='" + Edit1->Text + "'";
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn1Click(TObject *Sender)
{
Form3->ADOTable1->Filter = Edit2->Text;
Form3->ADOTable1->Filtered = true;
}
//---------------------------------------------------------------------------
Unit7
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button1Click(TObject *Sender)
{
Edit1->Clear();
}
102
//---------------------------------------------------------------------------
void __fastcall TForm7::Button2Click(TObject *Sender)
{
Edit2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm7::BitBtn1Click(TObject *Sender)
{
Form4->ADOTable1->Filter = Edit2->Text;
Form4->ADOTable1->Filtered = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm7::ListBox1Click(TObject *Sender)
{
if( ListBox1->ItemIndex == 0)
Edit2->Text = Edit2->Text + "Cod" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 1)
Edit2->Text = Edit2->Text + "Price" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 2)
Edit2->Text = Edit2->Text + "Brand" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 3)
Edit2->Text = Edit2->Text + "''" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 4)
Edit2->Text = Edit2->Text + "RAM" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 5)
Edit2->Text = Edit2->Text + "Memory" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 6)
Edit2->Text = Edit2->Text + "Camera" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 7)
Edit2->Text = Edit2->Text + "Internet" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 8)
Edit2->Text = Edit2->Text + "OS" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 9)
Edit2->Text = Edit2->Text + "Sklad" + "='" + Edit1->Text + "'";
}
//---------------------------------------------------------------------------
Unit8
//---------------------------------------------------------------------------
#include <vcl.h>
103
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Button1Click(TObject *Sender)
{
Edit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Button2Click(TObject *Sender)
{
Edit2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn1Click(TObject *Sender)
{
Form5->ADOTable1->Filter = Edit2->Text;
Form5->ADOTable1->Filtered = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm8::ListBox1Click(TObject *Sender)
{
if( ListBox1->ItemIndex == 0)
104
Edit2->Text = Edit2->Text + "Cod" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 1)
Edit2->Text = Edit2->Text + "Price" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 2)
Edit2->Text = Edit2->Text + "Brand" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 3)
Edit2->Text = Edit2->Text + "''" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 4)
Edit2->Text = Edit2->Text + "RAM" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 5)
Edit2->Text = Edit2->Text + "VideoCard" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 6)
Edit2->Text = Edit2->Text + "CPU" + "='" + Edit1->Text + "'";
if( ListBox1->ItemIndex == 7)
Edit2->Text = Edit2->Text + "Sklad" + "='" + Edit1->Text + "'";
}
//---------------------------------------------------------------------------

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

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)