бд - что и как с++

[Azgor]

case 6:{
if ((Edit1->Text=="")&(CheckBox1->Visible==false)&(Edit2->Text==""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==true)&(Edit2->Text!=""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"наличие="+nalich+" and "+"цена<="+Edit1->Text+" and "+"Обьем/Диагональ<="+Edit2->Text;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text=="")&(CheckBox1->Visible==true)&(Edit2->Text==""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"наличие="+nalich;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==false)&(Edit2->Text==""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"цена<="+Edit1->Text;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text=="")&(CheckBox1->Visible==false)&(Edit2->Text!=""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"Обьем/Диагональ<="+Edit2->Text;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==false)&(Edit2->Text!=""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"цена<="+Edit1->Text+" and "+"Обьем/Диагональ<="+Edit2->Text;
DataModule2->ADOTable1->Filtered=true;
}

[Azgor]

if ((Edit1->Text!="")&(CheckBox1->Visible==true)&(Edit2->Text==""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"наличие="+nalich+" and "+"цена<="+Edit1->Text;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text=="")&(CheckBox1->Visible==true)&(Edit2->Text!=""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"наличие="+nalich+" and "+"Обьем/Диагональ<="+Edit2->Text;
DataModule2->ADOTable1->Filtered=true;
}
DataModule2->ADOTable1Field->DisplayWidth=20;
Form1->DBImage1->Visible=true;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=true;
DataModule2->ADOTable1DSDesigner5->DisplayLabel="Диагональ";
Form1->DBImage1->Visible=true;
Form1->DBGridfirm->Visible=true;
Form1->DBGridmain->Visible=true;
Form1->DBGridkom->Visible=false;
Form1->DBMemo1->Visible=true;
Form1->N3->Enabled=true;
Close();
}

[Azgor]

case 7:{
if ((Edit1->Text=="")&(CheckBox1->Visible==false)&(Edit2->Text==""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==true)&(Edit2->Text!=""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"наличие="+nalich+" and "+"цена<="+Edit1->Text+" and "+"Обьем/Диагональ<="+Edit2->Text;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text=="")&(CheckBox1->Visible==true)&(Edit2->Text==""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"наличие="+nalich;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==false)&(Edit2->Text==""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"цена<="+Edit1->Text;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text=="")&(CheckBox1->Visible==false)&(Edit2->Text!=""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"Обьем/Диагональ<="+Edit2->Text;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==false)&(Edit2->Text!=""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"цена<="+Edit1->Text+" and "+"Обьем/Диагональ<="+Edit2->Text;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==true)&(Edit2->Text==""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"наличие="+nalich+" and "+"цена<="+Edit1->Text;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text=="")&(CheckBox1->Visible==true)&(Edit2->Text!=""))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"наличие="+nalich+" and "+"Обьем/Диагональ<="+Edit2->Text;
DataModule2->ADOTable1->Filtered=true;
}

[Azgor]

DataModule2->ADOTable1Field->DisplayWidth=20;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=true;
DataModule2->ADOTable1DSDesigner5->DisplayLabel="Объем(Gb)";
Form1->DBGridfirm->Visible=true;
Form1->DBGridmain->Visible=true;
Form1->DBGridkom->Visible=false;
Form1->DBMemo1->Visible=true;
Form1->N3->Enabled=true;
Close();
}
}

}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton3Click(TObject *Sender)
{
Edit2->Text="";
Label1->Visible=!(Label1->Visible);
Edit2->Visible=!(Edit2->Visible);
Label2->Visible=!(Label2->Visible);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton4Click(TObject *Sender)
{
Edit1->Text="";
Label3->Visible=!(Label3->Visible);
Edit1->Visible=!(Edit1->Visible);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton2Click(TObject *Sender)
{
Label4->Visible=!(Label4->Visible);
CheckBox1->Visible=!(CheckBox1->Visible);
CheckBox1->Checked=!(CheckBox1->Checked);
}

[Azgor]

void __fastcall TForm4::Edit2KeyPress(TObject *Sender, char &Key)
{
switch (Key)
{
case '0':break;
case '1':break;
case '2':break;
case '3':break;
case '4':break;
case '5':break;
case '6':break;
case '7':break;
case '8':break;
case '9':break;
case '.':break;
case 8:break;
default:{ Key=0;break;}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Edit1KeyPress(TObject *Sender, char &Key)
{
switch (Key)
{
case '0':break;
case '1':break;
case '2':break;
case '3':break;
case '4':break;
case '5':break;
case '6':break;
case '7':break;
case '8':break;
case '9':break;
case '.':break;
case 8:break;
default:{ Key=0;break;}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton5Click(TObject *Sender)
{
Label6->Caption="Выберите комплектующие";
Edit2->Visible=false;
Panel8->Visible=false;
Label1->Visible=false;
Label2->Visible=false;
DBGrid1->Visible=true;
DBGrid2->Visible=false;
Edit1->Visible=false;
Panel7->Visible=false;
Panel6->Visible=false;
CheckBox1->Visible=false;
Label3->Visible=false;
Label4->Visible=false;
}

[Azgor]

void __fastcall TForm4::FormClose(TObject *Sender, TCloseAction &Action)
{
DBGrid1->Visible=true;
SpeedButton1->Visible=false;
DBGrid2->Visible=false;
SpeedButton2->Visible=false;
SpeedButton3->Visible=false;
SpeedButton4->Visible=false;
Form4->Edit2->Text="";
Form4->Edit1->Text="";
Label1->Visible=false;
Edit2->Visible=false;
Label2->Visible=false;
Panel8->Visible=false;
if (Panel8->Visible==false)
Label3->Visible=false;
Panel7->Visible=false;
Edit1->Visible=false;
if (Edit1->Visible==false)
CheckBox1->Visible=false;
Label4->Visible=false;
Panel6->Visible=false;
if (CheckBox1->Visible==false)
Label5->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::CheckBox1Click(TObject *Sender)
{
nalich=BoolToStr(CheckBox1->Checked);
}

[Azgor]

unit5.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit5.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}

//---------------------------------------------------------------------------
void __fastcall TForm5::Timer1Timer(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::FormClose(TObject *Sender, TCloseAction &Action)
{
Action=caFree;
}
//---------------------------------------------------------------------------

[Rififi]

запакуй всё в архив и выложи ссылку.
кто захочет - скачает.

эта портянка на две страницы ничего кроме желания её удалить не вызывает.

[Azgor]

здравая мысль))
на самом деле мне будет достаточно понять как работает этот алгоритм - что в каждом конкретном макросе происходит... Описание каждой ф-ии не является необходимостью - есть гугл