//--------------------------------------------------------------------------- void __fastcall TFin2001::cbPeriodoChange(TObject *Sender) { data_ini->ReadOnly = true; data_ini->Color = AppConfig->Colors->Disabled; data_ini->ReadOnly = true; data_fim->Color = AppConfig->Colors->Disabled; if (cbPeriodo->ItemIndex == 0) { //Pode ser por dia atual data_ini->Text = FormatDateTime("dd/mm/yyyy", Date()); data_fim->Text = FormatDateTime("dd/mm/yyyy", Date()); RefazConsulta(); } else if (cbPeriodo->ItemIndex == 1) { //Pode ser por semana atual data_ini->Text = FormatDateTime("dd/mm/yyyy", StartOfTheWeek(Date())); data_fim->Text = FormatDateTime("dd/mm/yyyy", EndOfTheWeek(Date())); RefazConsulta(); } else if (cbPeriodo->ItemIndex == 2) { //Pode ser por mês atual data_ini->Text = FormatDateTime("dd/mm/yyyy", StartOfTheMonth(Date())); data_fim->Text = FormatDateTime("dd/mm/yyyy", EndOfTheMonth(Date())); RefazConsulta(); } else { //Ou um período informado pelo usuário data_ini->ReadOnly = false; data_ini->Color = AppConfig->Colors->Enabled; data_ini->ReadOnly = false; data_fim->Color = AppConfig->Colors->Enabled; } }
void __fastcall TForm1::fltpcClick(TObject *Sender) { fltfp->Visible=fltpc->Checked; if (!fltpc->Checked) return; do_date->Date=StartOfTheMonth(Now())-1; ot_date->Date=StartOfTheMonth(StartOfTheMonth(Now())-1); TADOQuery* x=new TADOQuery(NULL); x->Connection=connect; x->SQL->Clear(); x->SQL->Add("SELECT name FROM prep WHERE id<>0 ORDER BY name"); x->ExecSQL(); x->Open(); prep_flt->Items->Clear(); for(x->First();!x->Eof;x->Next()) { prep_flt->Items->Add(x->FieldByName("name")->AsString); } x->Close(); delete x; }