![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Код:
procedure TForm_Otchet.BitBtn1Click(Sender: TObject); begin DataModule2.ADOQuery1.Active:=false; DataModule2.ADOQuery1.SQL.Clear; DataModule2.ADOQuery1.SQL.Add('select*'); DataModule2.ADOQuery1.SQL.Add('from клиенты'); if form_otchet.ComboBox1.ItemIndex=0 then DataModule2.ADOQuery1.SQL.Add('where ФИО '''+Edit1.Text+''''); if form_otchet.ComboBox1.ItemIndex=1 then DataModule2.ADOQuery1.SQL.Add('where Адрес '''+Edit1.Text+''''); DataModule2.ADOQuery1.Active:=true; Form_Rezult_Otchet.ShowModal; end; Пжл поправте код, чтобы выполнялось исловие if. Последний раз редактировалось Admin, 15.01.2011 в 15:48. |
#2
|
||||
|
||||
![]() Код:
if form_otchet.ComboBox1.ItemIndex=0 then DataModule2.ADOQuery1.SQL.Add('where ФИО='''+Edit1.Text+''''); if form_otchet.ComboBox1.ItemIndex=1 then DataModule2.ADOQuery1.SQL.Add('where Адрес='''+Edit1.Text+''''); Код:
if form_otchet.ComboBox1.ItemIndex=0 then DataModule2.ADOQuery1.SQL.Add('where ФИО like ''%'+Edit1.Text+'%'''); if form_otchet.ComboBox1.ItemIndex=1 then DataModule2.ADOQuery1.SQL.Add('where Адрес like ''%'+Edit1.Text+'%'''); Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 15.01.2011 в 18:51. |
#3
|
|||
|
|||
![]() А если поле по которомы нужно искать является датой? как перевести его в строку?
|
#4
|
|||
|
|||
![]() Цитата:
DateToStr() |
#5
|
|||
|
|||
![]() Неправильно вопроc задал
![]() Код:
if form_otchet.ComboBox1.ItemIndex=0 then DataModule2.ADOQuery1.SQL.Add('where ФИО like ''%'+Edit1.Text+'%'''); if form_otchet.ComboBox1.ItemIndex=1 then DataModule2.ADOQuery1.SQL.Add('where Адрес like ''%'+Edit1.Text+'%'''); |
#6
|
||||
|
||||
![]() Можно например так:
Код:
if form_otchet.ComboBox1.ItemIndex=0 then DataModule2.ADOQuery1.SQL.Add('where Дата = '''+DateToStr(DateTimePicker1.Date)+''''); Код:
if form_otchet.ComboBox1.ItemIndex=0 then begin DataModule2.ADOQuery1.SQL.Add('where Дата = :Date'); DataModule2.ADOQuery1.Parameters.ParamByName('Date').Value := DateTimePicker1.Date; end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#7
|
|||
|
|||
![]() На оба варианта выдает ошибку
![]() |
#8
|
||||
|
||||
![]() Какую ошибку?
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#9
|
|||
|
|||
![]() Цитата:
|