|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проверка значения поля
Здравствуйте!
Возникла необходимость взяться за Delphi. Приходится осваивать. Не могу справиться с проблемой: Есть база данных в Access. Поля: счётчик, Артикул и Наименование. Каждому Артикул соответствует своё Наименование. Вообщем DBGrid отоброжает всё благополучно. Поиск прописан следующим образом: PHP код:
Так вот моих познаний не хватает для того чтобы прописать значение поля из выделенной строки как строковую переменную. Подскажите, пожалуйста, как это сделать. Или может я не в том направлении ищу? Последний раз редактировалось Crocodil, 10.01.2011 в 21:41. |
#2
|
|||
|
|||
Код:
dbgrid1.DataSource.DataSet.FieldByName('имяполя').AsString; или dbgrid1.DataSource.DataSet.Fields[номерполя].AsString; |
#3
|
|||
|
|||
Спасибо! Буду пробовать!
|
#4
|
|||
|
|||
Уважаемый Stil, что-то не выходит каменный цветок
Код:
procedure TForm2.dbgrid1KeyPress(Sender: TObject; var Key: Char); begin obozn:=obozn+key; dbgrid1.DataSource.DataSet.Locate('Обозначение',obozn,[loPartialKey]); StatusBar1.Panels.Items[0].Text:='Поиск:'+obozn; end; procedure TForm2.Button3Click(Sender: TObject); var naim: string; begin naim:=dbgrid1.DataSource.DataSet.FieldByName('Наименование').AsString; if naim = 'Корпус сверла Shark Drill HP4' then begin Hide; Form4.Show; Exit; end; if naim = 'Пластина сверла Shark Drill HP4' then begin Hide; Form5.Show; Exit; end; end; Не могу понять, в чём дело |
#5
|
||||
|
||||
Попробуй дописать функцию Trim.
может быть из за какого нить пробела она и не хочет сравнивать; naim:=Trim(dbgrid1.DataSource.DataSet.FieldByName( 'Наименование').AsString); или попробуй naim:=dbgrid1.DataSource.DataSet.FieldByName('Наим енование').value; |