Дипломная работа: Автоматизация учёта и анализа ассортимента на примере интернет-магазина ООО "Ситилинк"
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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 + "'";
}
//---------------------------------------------------------------------------
Источник: https://baza.diplomsite.ru/previewfile/2475