checklistbox

[King_Of_Arthur]

Здравствуйте есть два checklistbox и две таблицы "Разделы" и "Документы"
Таблицы связаны по полю (kmr)-код раздела
В первый checklistbox1 запросом заносятся Разделы

  Query1.Close;
  Query1.DatabaseName:='БД';
  Query1.SQL.Clear;
  Query1.SQL.Text:='select * from Разделы where kmr<>0 order by nmr';
  Query1.Open;
  CheckListBox1.Clear;
  while not Query1.Eof do begin
    CheckListBox1.Items.Add(Query1.FieldByName('nmr').AsString);
    Query1.Next;
  end;
  Query1.Close;
end;

Мне нужно чтоб при нажатии на какой либо раздел в checklistbox1, в checklistbox2 отображались документы этого раздела. мне подсказали ия сделала вот так:

Query1.Close;
  Query1.DatabaseName:='БД';
  Query1.SQL.Clear;
  Query1.SQL.Text:='select * from Разделы where kmr<>0 order by nmr';
  Query1.Open;
  CheckListBox1.Clear;
  while not Query1.Eof do begin
    CheckListBox1.Items.AddObject(Query1['nmr'], Query1.FieldByName('kmr').AsInteger);
    Query1.Next;
  end;
  Query1.Close;
end;

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
  Query2.SQL.Text := 'select * from Документы where kmr='+
                    IntToStr(Integer(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]));
  Query2.Open;
  CheckListBox2.Items.Clear;
  while not Query2.Eof do begin
    CheckListBox2.Items.Add(Query2.FieldByName('npmr').AsString);
    Query2.Next;
  end;
  Query2.Close;
end;

Но так не получается т.к. выходит ошибка.
Подскажите как можно решить данную задачу?
зарание спасибо)

[Stilet]

т.к. выходит ошибка.

Заталкивай ее обратно.

как можно решить данную задачу?

Правильно подсказывали. Научись понимать ошибки и будешь писать коды без них.

Query1.Close;
  Query1.DatabaseName:='БД';
  Query1.SQL.Clear;
  Query1.SQL.Text:='select * from Разделы where kmr<>0 order by nmr';
  Query1.Open;
  CheckListBox1.Clear;
  while not Query1.Eof do begin
    CheckListBox1.Items.AddObject(Query1['nmr'],integer(Query1.FieldByName('kmr').AsInteger));
    Query1.Next;
  end;
  Query1.Close;
end;

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
  Query2.SQL.Text := 'select * from Документы where kmr='+
                    IntToStr(Integer(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]));
  Query2.Open;
  CheckListBox2.Items.Clear;
  while not Query2.Eof do begin
    CheckListBox2.Items.Add(Query2.FieldByName('npmr').AsString);
    Query2.Next;
  end;
  Query2.Close;
end;

[King_Of_Arthur]

Тут я исправила

Query1.Close;
  Query1.DatabaseName:='БД';
  Query1.SQL.Clear;
  Query1.SQL.Text:='select * from Разделы where kmr<>0 order by nmr';
  Query1.Open;
  CheckListBox1.Clear;
  while not Query1.Eof do begin
    CheckListBox1.Items.AddObject(Query1['nmr'],integer(Query1.FieldByName('kmr').AsInteger));
    Query1.Next;
  end;
  Query1.Close;
end;

на это

 CheckListBox1.Items.AddObject(Query1['nmr'], 
            TObject(Query1.FieldByName('kmr').AsInteger));

а вот ошибку "Таблица не существует
файл или каталог не существует" я не понимаю

[King_Of_Arthur]

Ой вот я тупитца я поняла)))

Query2.Close;
  Query2.DatabaseName:='БД';
  Query2.SQL.Clear;
  Query2.SQL.Text := 'select * from Документы where kmr='+
                    IntToStr(Integer(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]));
  Query2.Open;
  CheckListBox2.Items.Clear;
  while not Query2.Eof do begin
    CheckListBox2.Items.Add(Query2.FieldByName('npmr').AsString);
    Query2.Next;
  end;
  Query2.Close;
end;

[King_Of_Arthur]

три первых строчки самых важных не добавила

[Stilet]

Бывает... )