|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.05.2011, 00:13 | #11 |
Пользователь
Регистрация: 14.05.2010
Сообщений: 26
|
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; } |
18.05.2011, 00:13 | #12 |
Пользователь
Регистрация: 14.05.2010
Сообщений: 26
|
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(); } |
18.05.2011, 00:13 | #13 |
Пользователь
Регистрация: 14.05.2010
Сообщений: 26
|
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; } |
18.05.2011, 00:13 | #14 |
Пользователь
Регистрация: 14.05.2010
Сообщений: 26
|
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); } |
18.05.2011, 00:13 | #15 |
Пользователь
Регистрация: 14.05.2010
Сообщений: 26
|
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; } |
18.05.2011, 00:14 | #16 |
Пользователь
Регистрация: 14.05.2010
Сообщений: 26
|
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); } |
18.05.2011, 00:14 | #17 |
Пользователь
Регистрация: 14.05.2010
Сообщений: 26
|
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; } //--------------------------------------------------------------------------- |
18.05.2011, 00:31 | #18 |
Старожил
Регистрация: 19.08.2009
Сообщений: 2,119
|
запакуй всё в архив и выложи ссылку.
кто захочет - скачает. эта портянка на две страницы ничего кроме желания её удалить не вызывает.
А вы почему со мной не соглашаетесь, у вас что, импотенция? (c) ACE Valery
|
18.05.2011, 00:50 | #19 |
Пользователь
Регистрация: 14.05.2010
Сообщений: 26
|
здравая мысль))
на самом деле мне будет достаточно понять как работает этот алгоритм - что в каждом конкретном макросе происходит... Описание каждой ф-ии не является необходимостью - есть гугл |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Что это?Примечание?Как удалить?Как изменить? | 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 |