VPF::поиск DBGrid-ComboBox-edit - Форум программистов

alf138

Дата 19.3.2010, 16:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 161
Регистрация: 15.11.2009

Репутация: нет
Всего: нет

Тема получилась от сюда http://forum.vingrad.ru/topic-264007.html, проблема малость меняется
есть такая строчка

Код


procedure TForm1.Button6Click(Sender: TObject);
begin
Form1.DBGrid1.DataSource.DataSet.Locate('fam',Edit5.Text,[loPartialKey]);
end;

т.е по нажатию кнопки в столбике "FAM" ищется значение введенное в Edit5, хотелось бы поставить ComboBox и с помощью него менять значение 'fam', а 'imya' 'otch' и другие чтобы сделать возможным менять столбики для поиска, вопрос состоит что писать в комбобоксе для его корректной работы.
пытался писать

Код


procedure TForm1.Button6Click(Sender: TObject);
begin
Form1.DBGrid1.DataSource.DataSet.Locate(ComboBox2.Text,Edit5.Text,[loPartialKey]);
end;

в комбобоксе

Код


procedure TForm1.ComboBox2Change(Sender: TObject);
var LRow,LCol,R,C:integer;
begin
case ComboBox1.ItemIndex of
    0: C:='fam;
    1: C:='otch';
    2: C:='imya';
end;

пишет ошибку

Код


[Error] Unit1.pas(307): Incompatible types: 'Boolean' and 'String'

Akella

Дата 21.3.2010, 11:41 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Цитата(alf138 @ 19.3.2010, 16:08

)

procedure TForm1.ComboBox2Change(Sender: TObject);
var LRow,LCol,R,C:integer;
begin
case ComboBox1.ItemIndex of
    0: C:='fam;
    1: C:='otch';
    2: C:='imya';
end;

у тебя C - числовое значение, а ты что присваиваешь?? smile

Добавлено @ 11:43

Цитата(alf138 @ 19.3.2010, 16:08

)

пишет ошибку

Цитата

Incompatible types: 'Boolean' and 'String'

а что, нынче программисты уже переводчиками и встроенной в IDE справкой уже не пользуются?? Не модно?

Или ты не читатель, а писатель? smile

Добавлено через 2 минуты и 48 секунд
Тебе же дебагер явно пишет ГДЕ и КАКАЯ ошибка ;)

Это сообщение отредактировал(а) Akella - 21.3.2010, 11:43

alf138

Дата 21.3.2010, 17:01 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 161
Регистрация: 15.11.2009

Репутация: нет
Всего: нет

Цитата(Akella @ 21.3.2010, 11:41

)

у что, нынче программисты уже переводчиками и встроенной в IDE справкой уже не пользуются?? Не модно?Или ты не читатель, а писатель?

Пользуемся, всем пользуемся. Мы и пишем и читаем, и даже иногда пьем ... тьфу поем)))

Код


procedure TForm1.ComboBox1Change(Sender: TObject);
var
i:byte;
begin
for i:=0 to Combobox1.Items.Count-1 do
if Combobox1.Text=Combobox1.Items[i] then
Combobox1.ItemIndex:=i;
case Combobox1.ItemIndex of
0:FName:='fam';
1:FName:='otch';
2:FName:='imya'
end
end;


procedure TForm1.Button6Click(Sender: TObject);
begin
Form1.DBGrid1.DataSource.DataSet.Locate(FName,Edit5.Text,[loPartialKey]);
end;

Спасибо Mad_Dog помог все растолковал. Тема решена, всем спасибо.

dumser2

Дата 1.8.2011, 16:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 1.8.2011

Репутация: нет
Всего: нет

Так лутше будет.
А как сделать чтобы еще выделялась строка???

procedure TForm1.Edit1Change(Sender: TObject);
begin
Form1.DBGrid1.DataSource.DataSet.Locate(FName,Edit1.Text,[loPartialKey]);
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »