|
#16
|
|||
|
|||
Добрй день!
А можно ли по нажатию одной кнопки Найти выполнить поиск сначала по организации, а потом по организации за определенный период. Вот мой код: Код:
procedure TForm15.SpeedButton1Click(Sender: TObject); var StartDate: TdateTime; FinishDate: TdateTime; begin DataModule4.FindQuery.Active:=false; DataModule4.FindQuery.SQL.Clear; DataModule4.FindQuery.SQL.Add('SELECT *'); DataModule4.FindQuery.SQL.Add('FROM ТаблицаГИБДД); DataModule4.FindQuery.SQL.Add('WHERE Кто LIKE ''%'+Edit1.Text+'%''' ); DataModule4.FindQuery.SQL.Add('and [Дата поступления в ИФНС] between :StartDate and :FinishDate'); StartDate:=StrToDate(Edit2.Text); FinishDate:=StrToDate(Edit3.Text); DataModule4.FindQuery.Parameters.ParamByName('StartDate').Value := StartDate; DataModule4.FindQuery.Parameters.ParamByName('FinishDate').Value := FinishDate; DataModule4.FindQuery.Active:=true; Form12.ShowModal; end; |