База данных в Access, ADOQuery, организовать поиск

[monushka]

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

еще раз повторяю, если Вы используете DBGrid то тогда достаточно обратиться

DataModule1.FindQuery.FieldByName('имя поля').As[Нужный вам тип]

- здесь будет хранится значение поля на строке,где стоит фокус

Да, но в СтрингГрид записывается во все ячейки значение одного поля, которое введено

DataModule1.FindQuery.FieldByName('имя поля').As[Нужный вам тип]

А мне нужна вся строка...

[quit]

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

Да, но в СтрингГрид записывается во все ячейки значение одного поля, которое введено

DataModule1.FindQuery.FieldByName('имя поля').As[Нужный вам тип]

А мне нужна вся строка...

for i:=0 to [Количество колонок] do
begin
  StringGrid.Cells[i,0] := string(DataModule1.FindQuery.Fields[i] .Value);
end;

как то так

[monushka]

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

for i:=0 to [Количество колонок] do
begin
  StringGrid.Cells[i,0] := string(DataModule1.FindQuery.Fields[i] .Value);
end;

как то так

О, вот это оно!! Чуток подправлю и все будет гуд! Большооооое спасибо, Quit!

[monushka]

Опять непонятки... Что-то голова уже туго соображает. Как организовать наращивание и вывод в следующую строку?
Т.е. если я выбрала один товар, нажала "добавить", у меня добавляется в СтрингГрид в первую строку. Потом выбираю другой товар и по идее при нажатии на "Добавить" он должен добавиться во вторую строку и т.д.

Написало ЭТО:

procedure TEquipForm.Button1Click(Sender: TObject);
var i,j:integer;
begin
i:=2;
if SG1.RowCount<=i then
begin
 i:=i+1;
 SG1.RowCount:=SG1.RowCount+1;
end;
for j:=1 to 7 do
begin
  SG1.Cells[j-1,i-1]:= DataModule1.FindQuery.Fields[j].Value;
end;
end;

Но ерунда какая-то вышла... Изначально в параметрах СтрингГрида 2 строки. Запускаю прогу, при нажатии на "Добавить" добавляется третья строка и в нее записывается выбранная позиция. Выбираю другую позицию, нажимаю "Добавить" и она записывается во вторую строку! После этого при нажатии на "Добавить" все записывается во вторую строку. У меня неправильно написано условие, но как оно должно быть я что-то не могу сообразить. Помогите опять!

[quit]

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

Но ерунда какая-то вышла... Изначально в параметрах СтрингГрида 2 строки. Запускаю прогу, при нажатии на "Добавить" добавляется третья строка и в нее записывается выбранная позиция. Выбираю другую позицию, нажимаю "Добавить" и она записывается во вторую строку! После этого при нажатии на "Добавить" все записывается во вторую строку. У меня неправильно написано условие, но как оно должно быть я что-то не могу сообразить. Помогите опять!

У Вас вся задача сводится к тому, чтобы инкрементировать строку.
Опять же, существует множество способов. Самый простой - создать глобальную целочисленную переменную, определяющую номер строки, и после удачного добавления к ней прибавлять единицу, а при обновлении загруженных данных, ее обнулять

[monushka]

Сделала так:

procedure TEquipForm.Button1Click(Sender: TObject);
var i,j,k:integer;
begin
i:=SG1.RowCount;
k:=300;
if SG1.RowCount<=k then
begin
i:=i+1;
SG1.RowCount:=SG1.RowCount+1;
end;
for j:=1 to 7 do
begin
SG1.Cells[j-1,i-2]:= DataModule1.FindQuery.Fields[j].Value;
end;
end;

Определила, что таблица у меня не может быть больше 300 строк... Работает! Но это же извращение какое-то! Другое в голову не лезет пока... Но спасибо за ответ и за помощь! Всем!

[quit]

на CreateForm укажите StringGrid.RowCount := 1

procedure TEquipForm.Button1Click(Sender: TObject);
var i,j:integer;
begin
  i:=SG1.RowCount-1;
  SG1.RowCount:=SG1.RowCount+1;
  for j:=0 to 6 do
  begin
    SG1.Cells[j,i]:= DataModule1.FindQuery.Fields[j+1].Value;
  end;
end;

А также при обновлении данных или загрузки данных, тоже нужно обнулять(ставить единицу) rowcount

[monushka]

Точно! Вот я канеша даю. Спасибо большое еще раз!