CYFROWY BARON • PROGRAMOWANIE

banita napisał(a):Co do ADO to kiedys pisalem taki sytem podpowiedzi (sugerowanie co uzytkownik moze wprowadzic w danym polu, mozliwe wartosci pobierane z bazy np kody pocztowe). podczas wprowadzanai danych rozwija sie lista ktora parsowala sugerowane wyniki zgodnie z tym co zostalo juz wprowadzone. parsowanie opieralo sie o filtrowanie wynikow w ADOQuery i DBGrid, calosc chodzi pieknie i nie ma problemow z oodswiezaniem.

jesli chcesz odczytac wartosci z komorek w DBGrid to musisz odwolac sie do obiektu TADOQueery ktory jest polaczony z tym gridem. bezposrednio do tego query albo za posrednictwem wlasciwosci datasource, data set ....

Kod: Zaznacz cały

void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if (Key==VK_RETURN){
        if (Edit1->Text!=""){
           ADOQuery1->Filtered=false;
           ADOQuery1->Filter=ComboBox1->Text+" Like '*"+Edit11->Text+"*'";//combobox przechowuje nazwy kolumn, edit1 to treść filtra
           ADOQuery1->Filtered=true;//teraz powinno odbyć się filtrowanie i DBGrid1 powinno się odświerzyć

        }else
         
        ADOQuery1->Filtered=false;

}
}

Kod: Zaznacz cały

   if(dynamic_cast<TEdit*>(Sender)->Text.IsEmpty())
   {
      data_set_->Filter = "";   
      return;
   }
   try
   {
      data_set_->Filter = filter_field_ + " LIKE '" + dynamic_cast<TEdit*>(Sender)->Text + "*'";
  }

banita napisał(a):nie ma znaczenie czy odwolasz sie bezposrednio do tego edita czy poprzez wskaznik TObject ktory wywolal owe zdarzenie.
[...]

Kod: Zaznacz cały

void __fastcall TForm1::Kontrahenta1Click(TObject *Sender)// moja nazwa opcji w PopUpMenu
{
QRaport->Filtered=false;//QRaport to ADOQuery
QRaport->Filter= "nzf_IdAdresu LIKE '*" + GridKontrahenci->Fields[10]->Value + "*'";//GridKontrahenci to DBGrid
QRaport->Filtered=true;
RDluznik->PRaport->Preview();//RDluznik to QReport
}
//---------------------------------------------------------------------------

Kod: Zaznacz cały

DBGrid->DataSource = DSKontrahenci //TDataSource
DSKontrahenci->DataSet = QKontrahenci //TADOQuery
QKontrahenci->Connection = DBConnect //TADOConnect

Kod: Zaznacz cały

void __fastcall TForm1::Kontrahenta1Click(TObject *Sender)
{
int Id=GridKontrahenci->Fields[10]->Value;// na próbę bez dynamicznego rzutowania

QRaport->Filtered=false;
QRaport->Filter= "nzf_IdAdresu LIKE '*" + IntToStr(Id) + "*'";
QRaport->Filtered=true;

RDluznik->PRaport->Preview();
}


Kod: Zaznacz cały

pdInput
pdInputOutput
pdOutput
pdReturnValue
pdUnknown