Сброс RecordCount

[alfikss]

Не удалось сжать архив до 500кб, поэтому сделал 2.
Надеюсь в коде не заблудитесь=) Если что спрашивайте

[Yurk@]

еще бы расписал что по твоему должно быть (делаться)?

[alfikss]

При выборе организации из ЛистБокса в СтрингГрид должна появиться информация о комплектах.

[Serge_Bliznykov]

ОМГ!!

Посмотрите на процедуру sgSelectCell, которая у Вас назначена на Sg - OnSelectCell

И обратите внимание на то, что в ней переопределяется Query1

удалить то, что красным

procedure TForm2.sgSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
CurRow:=ARow;
Procent.Text:=sg.Cells[3,ARow];
rub.Text:=sg.Cells[4,ARow];
fix.Text:=sg.Cells[5,ARow];
cb.ItemIndex:=cb.Items.IndexOf(sg.Cells[6,ARow]);
cbVer.ItemIndex:=cbVer.Items.IndexOf(sg.Cells[1,ARow]);
if cbVer.Text='Флеш' then cbLoc.Visible:=true else
begin
  cbLoc.Checked:=false;
  cbLoc.Visible:=false;
end;

if (cbVer.Text='Флеш') and (fix.Text<>'0') then
begin
cbLoc.Checked:=false;
cbLoc.Visible:=false;
end;

Query1.Active:=false;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT compl.flash');
Query1.SQL.Add('FROM org INNER JOIN (cena INNER JOIN compl ON cena.id_cena = compl.id_cena) ON org.id_org = compl.id_org');
Query1.SQL.Add('WHERE ((cena.Complect)=:compl) AND ((org.nazv)=:nazv);');
Query1.Parameters.ParamByName('compl').Value:=sg.Cells[0,CurRow];
Query1.Parameters.ParamByName('nazv').Value:=org.Items[org.ItemIndex];
Query1.Active:=true;
Query1.ExecSQL;
Query1.First;
if Query1.Fields[0].Value='0' then cbLoc.Checked:=false else cbLoc.Checked:=true;
end;

ещё есть вопросы?

[alfikss]

Говорила мне мама следи за запросами. Себя матерю, тебе спасибо.

п.с. остается вопрос почему это все дело работало?

[Serge_Bliznykov]

не за что...
а кто его знает, почему оно работало...


Кстати, есть такой контрол - DBGrid.
Обычно для отображения табличных данных его используют (ну или продвинутых потомков, типа TDBGridEh из EhLib )
и ещё пара советов.
Если видите, что один и тот же код Вы пишете несколько раз, то это повод выносить подобный код в процедуры (у Вас там много такого дублирующего кода).
Форматируйте код с помощью отступов. Это резко повышает читабельность кода!

[alfikss]

Я привык просто к StringGrid, мне кажется ручками удобнее заносить и получать данные. А по-поводу процедур - я эту программу для себя делаю и поэтому особо не заморачиваюсь с правилами оформления.
Но как бы то ни было еще раз спасибо =)

[Yurk@]

мне кажется ручками удобнее заносить и получать данные.

когда кажеться - креститься нужно ;-)
прислушайся к совету. ведь не просто так они (компоненты типа DBGrid) придуманы.
да и на один такой косяк занесения данных вручную ты уже наткнулся только что).
а по поводу правил оформления кода - изначально привыкай к правильному (пусть даже для себя).
вот ты попросил помощи, показал нам код ... а нам тяжело его читать т.к. он плохо оформлен. а где гарантия что в следующий раз никого не обломит искать косяки в неоформленном коде?) ... вывод делай сам

[alfikss]

Да я все прекрасно понимаю. Я не обитаю на форумах. Все делаю сам. Это исключение. Удачи =)