|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.05.2011, 00:07 | #1 |
Пользователь
Регистрация: 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. |
18.05.2011, 00:08 | #2 |
Пользователь
Регистрация: 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; |
18.05.2011, 00:08 | #3 |
Пользователь
Регистрация: 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(); } |
18.05.2011, 00:09 | #4 |
Пользователь
Регистрация: 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) { } |
18.05.2011, 00:10 | #5 |
Пользователь
Регистрация: 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; } |
18.05.2011, 00:10 | #6 |
Пользователь
Регистрация: 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;} } } |
18.05.2011, 00:11 | #7 |
Пользователь
Регистрация: 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;} |
18.05.2011, 00:11 | #8 |
Пользователь
Регистрация: 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; } |
18.05.2011, 00:12 | #9 |
Пользователь
Регистрация: 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(); } |
18.05.2011, 00:12 | #10 |
Пользователь
Регистрация: 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(); } |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Что это?Примечание?Как удалить?Как изменить? | 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 |