Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C/C++ Базы данных
Перезагрузить страницу бд - что и как с++
Регистрация

Восстановить пароль		 Повторная активизация e-mail
Регистрация Задать
вопрос		 Заплачу
за решение		 Новые
сообщения 		Сообщения
за день 		Расширенный
поиск		 Правила Всё
прочитано

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
Страница 1 из 2 1 2
 
Опции темы Поиск в этой теме
Старый 18.05.2011, 00:07   #1
Azgor
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 26
Вопрос бд - что и как с++
Добрый вечер. Мой товарищ должен был делать презентацию своей работы завтра на концеренции. Однако всвязи с Дтп лежит в больнице. В итоге доклад придется делать мне. Выкладываю готовую прогу, прощу вашей помощи - помогите разобраться что в ней и как. Работаю в другой области и не знаю языка С++... Так что для меня темный лес, что здесь и как.
Благодарен за любую инфу.
В конце есть архив с работающим проектом.

1.cpp
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", DataModule2); /* TDataModule: File Type */
USEFORM("Unit3.cpp", Form3);
USEFORM("Unit4.cpp", Form4);
USEFORM("Unit5.cpp", Form5);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->CreateForm(__classid(TDataModule2) , &DataModule2);
Application->CreateForm(__classid(TForm3), &Form3);
Application->CreateForm(__classid(TForm4), &Form4);
Application->CreateForm(__classid(TForm5), &Form5);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
Последний раз редактировалось Azgor; 18.05.2011 в 01:00.
Azgor вне форума Ответить с цитированием
Старый 18.05.2011, 00:08   #2
Azgor
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 26
По умолчанию
Unit1.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

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

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
DBNavigator1->Visible=false;
N3->Enabled=false;
DBGridkom->Visible=true;
DBGridmain->Visible=false;
DBGridfirm->Visible=false;
DBMemo1->Visible=false;
DBImage1->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
Form4->ShowModal();
Form4->CheckBox1->Checked=true;
Form4->Label6->Caption="Выберите комплектующие";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N4Click(TObject *Sender)
{
Form3->Caption="Добавление";
switch (DataModule2->KomTableDSDesigner->AsInteger)
{
case 1:{
Form3->DBEdit1->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->SpeedButton3->Visible=false;
break;
}
case 2:{
Form3->DBEdit1->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->SpeedButton3->Visible=false;
break;
}
case 3:{
Form3->Label1->Caption="Объем";
Form3->Label2->Caption="Mb";
Form3->SpeedButton3->Visible=false;
break;
}
case 4:{
Form3->Label1->Visible=true;
Form3->Label2->Visible=true;
Form3->Label1->Caption="Емкость";
Form3->Label2->Caption="Gb";
Form3->DBEdit1->Visible=true;
Form3->SpeedButton3->Visible=false;
break;
}
case 5:{
Form3->DBEdit1->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->SpeedButton3->Visible=false;
break;
}
case 6:{
Form3->Label1->Caption="Диагональ";
Form3->Label2->Caption="''";
Form3->SpeedButton3->Visible=true;
break;
}
case 7:{
Form3->Label1->Caption="Объем";
Form3->Label2->Caption="Gb";
Form3->SpeedButton3->Visible=false;
break;
}
break;
}

DataModule2->ADOTable1->Insert();
Form3->ShowModal();
}

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

void __fastcall TForm1::N5Click(TObject *Sender)
{

if (Application->MessageBox
("Вы действительно хотите удалить"
,"Внимание!!!", MB_YESNO + MB_ICONEXCLAMATION) == IDYES)
DataModule2->ADOTable1->Delete();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)
{
if (MessageDlg("Вы действительно хотите выйти?",mtWarning,mbOKCancel,0)==mr Ok)
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N7Click(TObject *Sender)
{
Form4->ShowModal();
Form4->Label6->Caption="Выберите комплектующие";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N8Click(TObject *Sender)
{
WinHelp(Handle,"help.hlp",HELP_CONT ENTS,0);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormShow(TObject *Sender)
{
Form5->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N9Click(TObject *Sender)
{
Form3->Caption="Добавление";
switch (DataModule2->KomTableDSDesigner->AsInteger)
{
case '1':{
Form3->DBEdit1->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->SpeedButton3->Visible=false;
break;
}
case '2':{
Form3->DBEdit1->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->SpeedButton3->Visible=false;break;
}
case '3':{
Form3->Label1->Caption="Объем";
Form3->Label2->Caption="Mb";
Form3->SpeedButton3->Visible=false;break;
}
case '4':{
Form3->Label1->Caption="Емкость";
Form3->Label2->Caption="Gb";
Form3->SpeedButton3->Visible=false; break;
}
case '5':{
Form3->DBEdit1->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->SpeedButton3->Visible=false; break;
}
case '6':{
Form3->Label1->Caption="Диагональ";
Form3->Label2->Caption="''";
Form3->SpeedButton3->Visible=true; break;
}
case '7':{
Form3->Label1->Caption="Объем";
Form3->Label2->Caption="Gb";
Form3->SpeedButton3->Visible=false; break;
Azgor вне форума Ответить с цитированием
Старый 18.05.2011, 00:08   #3
Azgor
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 26
По умолчанию
}
}
DataModule2->ADOTable1->Insert();
Form3->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N10Click(TObject *Sender)
{
if (MessageDlg("Вы действительно хотите удалить?",mtWarning,mbOKCancel,0)== mrOk)
DataModule2->ADOTable1->Delete();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N11Click(TObject *Sender)
{
DataModule2->ADOTable1->Edit();
Form3->Caption="Редактирование";
switch (DataModule2->KomTableDSDesigner->AsInteger)
{
case '1':{
Form3->DBEdit1->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->SpeedButton3->Visible=false; break;
}
case '2':{
Form3->DBEdit1->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->SpeedButton3->Visible=false; break;
}
case '3':{
Form3->Label1->Caption="Объем";
Form3->Label2->Caption="Mb";
Form3->SpeedButton3->Visible=false; break;
}
case '4':{
Form3->Label1->Caption="Емкость";
Form3->Label2->Caption="Gb";
Form3->SpeedButton3->Visible=false; break;
}
case '5':{
Form3->DBEdit1->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->SpeedButton3->Visible=false; break;
}
case '6':{
Form3->Label1->Caption="Диагональ";
Form3->Label2->Caption="''";
Form3->SpeedButton3->Visible=true; break;
}
case '7':{
Form3->Label1->Caption="Объем";
Form3->Label2->Caption="Gb";
Form3->SpeedButton3->Visible=false; break;
}
}
Form3->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::DBGridkomCellClick(TColumn *Column)
{
DBGridkom->Visible=false;
DBGridfirm->Visible=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::DBGridfirmCellClick(TColumn *Column)
{
DBNavigator1->Visible=true;
N3->Enabled=true;
DBGridmain->Visible=true;
Form1->DBMemo1->Visible=true;
DataModule2->ADOTable1->Filtered=false;
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString;
DataModule2->ADOTable1->Filtered=true;
switch (DataModule2->KomTableDSDesigner->AsInteger)
{
case 1:{
DataModule2->ADOTable1Field->DisplayWidth=40;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=false;
break;
}
case 2:{
DataModule2->ADOTable1Field->DisplayWidth=40;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=false;
break;
}
case 3:{
DataModule2->ADOTable1Field->DisplayWidth=20;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=true;
DataModule2->ADOTable1DSDesigner5->DisplayLabel="Объем(Mb)";
break;
}
case 4:{
DataModule2->ADOTable1Field->DisplayWidth=20;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=true;
DataModule2->ADOTable1DSDesigner5->DisplayLabel="Емкость(Gb)";
break;
}
case 5:{
DataModule2->ADOTable1Field->DisplayWidth=40;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=false;
break;
}
case 6:{
DataModule2->ADOTable1Field->DisplayWidth=20;
Form1->DBImage1->Visible=true;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=true;
DataModule2->ADOTable1DSDesigner5->DisplayLabel="Диагональ";
break;
}
case 7:{
DataModule2->ADOTable1Field->DisplayWidth=20;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=true;
DataModule2->ADOTable1DSDesigner5->DisplayLabel="Объем(Gb)";
break;
}
break;
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N6Click(TObject *Sender)
{
DataModule2->ADOTable1->Edit();
Form3->Caption="?aaaeoe?iaaiea";
switch (DataModule2->KomTableDSDesigner->AsInteger)
{
case '1':{
Form3->DBEdit1->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->SpeedButton3->Visible=false;}
case '2':{
Form3->DBEdit1->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->SpeedButton3->Visible=false;
}
case '3':{
Form3->Label1->Caption="Iauai";
Form3->Label2->Caption="Mb";
Form3->SpeedButton3->Visible=false;
}
case '4':{
Form3->Label1->Caption="Aieinou";
Form3->Label2->Caption="Gb";
Form3->SpeedButton3->Visible=false;
}
case '5':{
Form3->DBEdit1->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->SpeedButton3->Visible=false;
}
case '6':{
Form3->Label1->Caption="Aeaaiiaeu";
Form3->Label2->Caption="''";
Form3->SpeedButton3->Visible=true;
}
case '7':{
Form3->Label1->Caption="Iauai";
Form3->Label2->Caption="Gb";
Form3->SpeedButton3->Visible=false;
}
}
Form3->ShowModal();
}
Azgor вне форума Ответить с цитированием
Старый 18.05.2011, 00:09   #4
Azgor
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 26
По умолчанию
unit2.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDataModule2 *DataModule2;
//---------------------------------------------------------------------------
__fastcall TDataModule2::TDataModule2(TCompone nt* Owner)
: TDataModule(Owner)
{
}
Azgor вне форума Ответить с цитированием
Старый 18.05.2011, 00:10   #5
Azgor
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 26
По умолчанию
unit3.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit3.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm3::CheckBox1Click(TObject *Sender)
{
if (CheckBox1->Checked==true)
CheckBox1->Caption="Да";
else
CheckBox1->Caption="Нет";
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)
{
DataModule2->ADOTable1->Cancel();
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm3::SpeedButton1Click(TObject *Sender)
{
switch (DataModule2->KomTableDSDesigner->AsInteger)
{
case 1:{
if ((DBEdit2->Text=="")|(DBMemo1->Lines->Text==""))
MessageDlg("Заполните все поля",mtError,mbOKCancel,0);
else
{
DBEdit4->Text=DataModule2->KomTableDSDesigner->AsString;
DBEdit5->Text=DataModule2->KomfirmTableDSDesigner4->AsString;
if (CheckBox1->Checked==true)
DBEdit3->Text="+";
if (CheckBox1->Checked==false)
DBEdit3->Text="-";
if (DataModule2->ADOTable1->Modified)
DataModule2->ADOTable1->Post();
Close();
}
break;
}
case 2:{
if ((DBEdit2->Text=="")|(DBMemo1->Lines->Text==""))
MessageDlg("Заполните все поля",mtError,mbOKCancel,0);
else
{
DBEdit4->Text=DataModule2->KomTableDSDesigner->AsString;
DBEdit5->Text=DataModule2->KomfirmTableDSDesigner4->AsString;
if (CheckBox1->Checked==true)
DBEdit3->Text="+";
if (CheckBox1->Checked==false)
DBEdit3->Text="-";
if (DataModule2->ADOTable1->Modified)
DataModule2->ADOTable1->Post();
Close();
}
break;
}
case 3:{
if ((DBEdit2->Text=="")|(DBMemo1->Lines->Text=="")|(DBEdit1->Text==""))
MessageDlg("Заполните все поля",mtError,mbOKCancel,0);
else
{
DBEdit4->Text=DataModule2->KomTableDSDesigner->AsString;
DBEdit5->Text=DataModule2->KomfirmTableDSDesigner4->AsString;
if (CheckBox1->Checked==true)
DBEdit3->Text="+";
if (CheckBox1->Checked==false)
DBEdit3->Text="-";
if (DataModule2->ADOTable1->Modified )
DataModule2->ADOTable1->Post();
Close();
}
break;
}
case 4:{
if ((DBEdit2->Text=="")|(DBMemo1->Lines->Text=="")|(DBEdit1->Text==""))
MessageDlg("Заполните все поля",mtError,mbOKCancel,0);
else
{
DBEdit4->Text=DataModule2->KomTableDSDesigner->AsString;
DBEdit5->Text=DataModule2->KomfirmTableDSDesigner4->AsString;
if (CheckBox1->Checked==true)
DBEdit3->Text="+";
if (CheckBox1->Checked==false)
DBEdit3->Text="-";
if (DataModule2->ADOTable1->Modified)
DataModule2->ADOTable1->Post();
Close();
}
break;
}
Azgor вне форума Ответить с цитированием
Старый 18.05.2011, 00:10   #6
Azgor
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 26
По умолчанию
case 5:{
if ((DBEdit2->Text=="")|(DBMemo1->Lines->Text==""))
MessageDlg("Заполните все поля",mtError,mbOKCancel,0);
else
{
DBEdit4->Text=DataModule2->KomTableDSDesigner->AsString;
DBEdit5->Text=DataModule2->KomfirmTableDSDesigner4->AsString;
if (CheckBox1->Checked==true)
DBEdit3->Text="+";
if (CheckBox1->Checked==false)
DBEdit3->Text="-";
if (DataModule2->ADOTable1->Modified)
DataModule2->ADOTable1->Post();
Close();
}
break;
}
case 6:{
if ((DBEdit2->Text=="")|(DBMemo1->Lines->Text=="")|(DBEdit1->Text==""))
MessageDlg("Заполните все поля",mtError,mbOKCancel,0);
else
{
DBEdit4->Text=DataModule2->KomTableDSDesigner->AsString;
DBEdit5->Text=DataModule2->KomfirmTableDSDesigner4->AsString;
if (CheckBox1->Checked==true)
DBEdit3->Text="+";
if (CheckBox1->Checked==false)
DBEdit3->Text="-";
if (DataModule2->ADOTable1->Modified)
DataModule2->ADOTable1->Post();
Close();
}
break;
}
case 7:{
if ((DBEdit2->Text=="")|(DBMemo1->Lines->Text=="")|(DBEdit1->Text==""))
MessageDlg("Заполните все поля",mtError,mbOKCancel,0);
else
{
DBEdit4->Text=DataModule2->KomTableDSDesigner->AsString;
DBEdit5->Text=DataModule2->KomfirmTableDSDesigner4->AsString;
if (CheckBox1->Checked==true)
DBEdit3->Text="+";
if (CheckBox1->Checked==false)
DBEdit3->Text="-";
if (DataModule2->ADOTable1->Modified)
DataModule2->ADOTable1->Post();
Close();
}
break;
}
}

}
//---------------------------------------------------------------------------

void __fastcall TForm3::SpeedButton2Click(TObject *Sender)
{
DataModule2->ADOTable1->Cancel();
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm3::SpeedButton3Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{
DataModule2->ADOTable1->Edit();
DataModule2->ADOTable1image->LoadFromFile(OpenDialog1->FileName);
DataModule2->ADOTable1->Post();
}
}
void __fastcall TForm3::DBEdit1KeyPress(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;}
}
}
Azgor вне форума Ответить с цитированием
Старый 18.05.2011, 00:11   #7
Azgor
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 26
По умолчанию
unit4.cpp
#include <vcl.h>
#pragma hdrstop

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

void __fastcall TForm4::DBGrid1CellClick(TColumn *Column)
{
Label6->Caption="Выберите производителя";
SpeedButton1->Visible=true;
Label5->Visible=true;
DBGrid2->Visible=true;
DBGrid1->Visible=false;
switch(DataModule2->KomTableDSDesigner->AsInteger)
{
case 1:{
SpeedButton3->Visible=false;
SpeedButton2->Visible=true;
SpeedButton4->Visible=true;
break;}
case 2:{
SpeedButton3->Visible=false;
SpeedButton2->Visible=true;
SpeedButton4->Visible=true;
break;}
case 3:{
SpeedButton3->Caption="По обьему";
SpeedButton3->Visible=true;
SpeedButton2->Visible=true;
SpeedButton4->Visible=true;
Form4->Label1->Caption="Объем до";
Form4->Label2->Caption="Mb";
break; }
case 4:{
SpeedButton3->Caption="По емкости";
SpeedButton3->Visible=true;
SpeedButton2->Visible=true;
SpeedButton4->Visible=true;
Form4->Label1->Caption="Емкость до";
Form4->Label2->Caption="Gb";
break;}
case 5:{
SpeedButton3->Visible=false;
SpeedButton2->Visible=true;
SpeedButton4->Visible=true;
break; }
case 6:{
SpeedButton3->Caption="По диагонали";
SpeedButton3->Visible=true;
SpeedButton2->Visible=true;
SpeedButton4->Visible=true;
Form4->Label1->Caption="Диагональ до";
Form4->Label2->Caption="";
break;}
case 7:{
SpeedButton3->Caption="По объему";
SpeedButton3->Visible=true;
SpeedButton2->Visible=true;
SpeedButton4->Visible=true;
Form4->Label1->Caption="Объем до";
Form4->Label2->Caption="Gb";
break;}
Azgor вне форума Ответить с цитированием
Старый 18.05.2011, 00:11   #8
Azgor
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 26
По умолчанию
}

}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton1Click(TObject *Sender)
{
switch (DataModule2->KomTableDSDesigner->AsInteger)
{
case 1:{Form1->DBImage1->Visible=false; break;}
case 2:{Form1->DBImage1->Visible=false; break;}
case 3:{Form1->DBImage1->Visible=false; break;}
case 4:{Form1->DBImage1->Visible=false; break;}
case 5:{Form1->DBImage1->Visible=false; break;}
case 6:{Form1->DBImage1->Visible=true; break;}
case 7:{Form1->DBImage1->Visible=false; break;}
}
Form1->DBMemo1->Visible=false;
Form1->DBNavigator1->Visible=true;
DataModule2->ADOTable1->Filtered=false;
switch (DataModule2->KomTableDSDesigner->AsInteger)
{
case 1:{
if ((Edit1->Text=="")&(CheckBox1->Visible==false))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==true))
{
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))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"наличие="+nalich;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==false))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"цена<="+Edit1->Text;
DataModule2->ADOTable1->Filtered=true;
}
DataModule2->ADOTable1Field->DisplayWidth=40;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=false;
Form1->DBGridfirm->Visible=true;
Form1->DBGridmain->Visible=true;
Form1->DBGridkom->Visible=false;
Form1->DBMemo1->Visible=true;
Form1->N3->Enabled=true;
Close();
break;
}
Azgor вне форума Ответить с цитированием
Старый 18.05.2011, 00:12   #9
Azgor
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 26
По умолчанию
case 2:{
if ((Edit1->Text=="")&(CheckBox1->Visible==false))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==true))
{
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))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"наличие="+nalich;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==false))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"цена<="+Edit1->Text;
DataModule2->ADOTable1->Filtered=true;
}
DataModule2->ADOTable1Field->DisplayWidth=40;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=false;
Form1->DBGridfirm->Visible=true;
Form1->DBGridmain->Visible=true;
Form1->DBGridkom->Visible=false;
Form1->DBMemo1->Visible=true;
Form1->N3->Enabled=true;
Close();
break;
}
case 3:{
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;
}
DataModule2->ADOTable1Field->DisplayWidth=20;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=true;
DataModule2->ADOTable1DSDesigner5->DisplayLabel="Объем(Mb)";
Form1->DBGridfirm->Visible=true;
Form1->DBGridmain->Visible=true;
Form1->DBGridkom->Visible=false;
Form1->DBMemo1->Visible=true;
Form1->N3->Enabled=true;
Close();
}
Azgor вне форума Ответить с цитированием
Старый 18.05.2011, 00:12   #10
Azgor
Пользователь
 
Регистрация: 14.05.2010
Сообщений: 26
По умолчанию
case 4:{
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;
}
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();
}
case 5:{
if ((Edit1->Text=="")&(CheckBox1->Visible==false))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==true))
{
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))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"наличие="+nalich;
DataModule2->ADOTable1->Filtered=true;
}
if ((Edit1->Text!="")&(CheckBox1->Visible==false))
{
DataModule2->ADOTable1->Filter="Комплект="+DataModule2->KomTableDSDesigner->AsString+" and "+"Производитель="+DataModule2->KomfirmTableDSDesigner4->AsString+" and "+"цена<="+Edit1->Text;
DataModule2->ADOTable1->Filtered=true;
}
DataModule2->ADOTable1Field->DisplayWidth=40;
DataModule2->ADOTable1->FieldByName("Обьем/Диагональ")->Visible=false;
Form1->DBGridfirm->Visible=true;
Form1->DBGridmain->Visible=true;
Form1->DBGridkom->Visible=false;
Form1->DBMemo1->Visible=true;
Form1->N3->Enabled=true;
Close();
}
Azgor вне форума Ответить с цитированием
Ответ
Страница 1 из 2 1 2


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Что это?Примечание?Как удалить?Как изменить? vfv Microsoft Office Excel 3 07.03.2010 13:51
С++. Что и как можно внести в DLL и как потом с этим работать? dampirik Помощь студентам 5 21.09.2009 08:19
Как узнать что в содержимое буфера обмена добавилось что либо? zotox Общие вопросы Delphi 2 15.09.2009 12:07
не могу понять как решать(( что и как(( дурачок же я )) durachok) Паскаль, Turbo Pascal, PascalABC.NET 0 25.12.2008 14:45

Реклама на форуме - Обратная связь - Правила - Исходники Delphi - Справочник Delphi - Архив - Вверх