Не получается выполнить запрос

[Stilet]

Так. Значит раскоментируй строки. Поставь бряк на Form15.Query1.Active:=True;.
В Watch добавь Form15.Query1.SQL.Text, когда прога брякнится выложи сюда содержимое этого свойства, однозначно ты запрос неверный формируешь. Ну и если ничего самому не получается то прикрепи сюда весь проект с базой, мож кто-то потестит, и скажет как лучче.

[artemavd]

Вот, пришел к такому коду:

procedure TForm15.BitBtn1Click(Sender: TObject);
begin
 with  Form15.Query1 do
 begin
  Form15.Query1.Active:=False;
  Form15.Query1.SQL.Clear;
  Form15.Query1.SQL.Add('SELECT DISTINCT Pred_jur,Chetvert,God_jur,Klass,Data,Mark_2,Mark_3,Mark_4,Mark_5');
  Form15.Query1.SQL.Add('FROM jur');

{Pred_jur}
  Form15.DBGridEh1.Columns[0].Visible:= Form15.CheckBox7.Checked;
{Chetvert}
  Form15.DBGridEh1.Columns[1].Visible:= Form15.CheckBox8.Checked;
{God_jur}
  Form15.DBGridEh1.Columns[2].Visible:= Form15.CheckBox6.Checked;
{Klass}
  Form15.DBGridEh1.Columns[3].Visible:= Form15.CheckBox5.Checked;
{Data}
  Form15.DBGridEh1.Columns[4].Visible:= Form15.CheckBox9.Checked;
{Mark_2}
  Form15.DBGridEh1.Columns[5].Visible:= Form15.CheckBox1.Checked;
{Mark_3}
  Form15.DBGridEh1.Columns[6].Visible:= Form15.CheckBox2.Checked;
{Mark_4}
  Form15.DBGridEh1.Columns[7].Visible:= Form15.CheckBox3.Checked;
{Mark_5}
  Form15.DBGridEh1.Columns[8].Visible:= Form15.CheckBox4.Checked;

  Form15.Query1.SQL.Add('WHERE Fam_jur= '+QuotedStr(Form15.Edit3.Text)+
                          ' AND Imy_jur= '+QuotedStr(Form15.Edit4.Text)+
                          ' AND Otche_jur= '+QuotedStr(Form15.Edit5.Text)+
                          ' AND Data BETWEEN '+QuotedStr(Form15.Edit2.Text)+' AND '+QuotedStr(Form15.Edit6.Text)+ 
                          ' AND Klass='+QuotedStr(Form15.ComboBox3.Text)+
                          ' AND God_jur='+QuotedStr(Form15.ComboBox1.Text)+
                          ' AND Pred_jur='+QuotedStr(Form15.ComboBox2.Text)+
                          ' AND Chetvert='+QuotedStr(Form15.DBLookupComboboxEh2.Text)+
                          '');
   Form15.Query1.Active:=True;
 end;
end;

Работа данного кода меня устраивает. Но есть один минус, который бы мне хотелось убрать. Нужно, чтобы если не выбрано какое-то условие (CheckBox), то программа бы не реагировало на то, что в это окошко не введено значение и там пусто. Как этого добиться? Помогите подправить мой код.

[soleil@mmc]

хорошо бы конечно чтобы кверя понимала макросы, но если не умеет, то надо разбить условия по отдельности
типа такого

Form15.Query1.SQL.Add('WHERE 0=0 ');
if Form15.Edit3.Text<>'' then
  Form15.Query1.SQL.Add(' AND Fam_jur= '+QuotedStr(Form15.Edit3.Text));
  .....
if Form15.ComboBox3.Text<>'' then
  Form15.Query1.SQL.Add(' AND Klass='+QuotedStr(Form15.ComboBox3.Text);
......
// etc.

[artemavd]

А что значит эта строчка:

('WHERE 0=0 ')

???

[soleil@mmc]

Сообщение от artemavd

А что значит эта строчка:

('WHERE 0=0 ')

???

а попробуй выполнить запрос без нее

но если тебя смущают именно нули, то можешь написать так

('WHERE 1=1 ')

и даже так

('WHERE 2=2 ')

могу продолжить...