Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
45 / 45 / 15
Регистрация: 17.01.2013
Сообщений: 328

Lookup

16.09.2013, 08:30. Показов 1762. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Delphi
1
2
3
4
  LookRes:=DM.Priem_DB.Lookup('TypeP; NameP; ArcticP; DateP; Kol_voP; Cena',
    VarArrayOf([DBLookupComboBox1.KeyValue, Edit1.Text, MaskEdit1.Text,
    DateTimePicker1.Date, StrToInt(Edit2.Text), StrToFloat(Edit3.Text)]),
    'Type_ix; Name_ix; Date_ix; Cena_ix');
Здравствуйте. Подскажите в чем ошибка. Priem_DB это Table, DM datamodule. Пишет Priem_DB: Field 'Type_ix' not found, хотя такой индексный файл есть. Заранее спасибо.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.09.2013, 08:30
Ответы с готовыми решениями:

Поиск в LookUp
Есть созданное поле LookUp, нужно сделать поиск по этому полю, не получается. делаю через ADOQuery Var help1,help2:string; ...

Lookup поля
Не понимаю как правильно настроить Lookup поля, использую базу в которой есть 2 таблицы `пицца` и `акции` что связаны по общему полю...

LookUp в Query
Можно ли в Query реализовать LookUp?

9
 Аватар для Аватар
5393 / 1465 / 513
Регистрация: 31.05.2012
Сообщений: 5,153
16.09.2013, 21:53
1. Не стал бы пробелы в обеих списках полей делать
2. DateTimePicker1.Date - там и время есть, у поле DateP как со временем?
3. Cena - видимо TFloatField - Double, StrToFloat - Extended не факт, что найдет из-за отличий в каком-нибуть далеком разряде
4. Метод регистрочувствительный, что совсем не фонтан
1
45 / 45 / 15
Регистрация: 17.01.2013
Сообщений: 328
17.09.2013, 15:54  [ТС]
Цитата Сообщение от Аватар Посмотреть сообщение
1. Не стал бы пробелы в обеих списках полей делать
2. DateTimePicker1.Date - там и время есть, у поле DateP как со временем?
3. Cena - видимо TFloatField - Double, StrToFloat - Extended не факт, что найдет из-за отличий в каком-нибуть далеком разряде
4. Метод регистрочувствительный, что совсем не фонтан
Весь прикол в том что буквально прошлым вечером все работало.
1) Без пробелов попробовал
2) DateTimePicker на свойство Date выдает только дату проверил через переменную
3) На счет этого не задавался но при поиске например работает на Ура
4) Пробовал с IndexName Table`а копировать тот же косяк
Уже незнаю что еще попробовать. Спасибо за помощь хоть кто-то откликнулся.
0
 Аватар для Аватар
5393 / 1465 / 513
Регистрация: 31.05.2012
Сообщений: 5,153
17.09.2013, 18:36
Этим методом давным-давно не пользовался, еще с Д4, когда на клинтдатасетах какие-то проблемы были с полями типа дата-время при поиске. Table и аналогичные вообще не использую. Можно поиграться, укоротив 2-ой список до одного поля и постепенно добавлять новые. Аналогично с 1-ым списком и поисковыми значениями. Глядишь и что-то проявится. По поводу времени в DateTimePicker1.Date - в Д7 точно есть, если только программно не убрал, возможно плохо проверил
1
45 / 45 / 15
Регистрация: 17.01.2013
Сообщений: 328
17.09.2013, 21:46  [ТС]
Цитата Сообщение от Аватар Посмотреть сообщение
Этим методом давным-давно не пользовался, еще с Д4, когда на клинтдатасетах какие-то проблемы были с полями типа дата-время при поиске. Table и аналогичные вообще не использую. Можно поиграться, укоротив 2-ой список до одного поля и постепенно добавлять новые. Аналогично с 1-ым списком и поисковыми значениями. Глядишь и что-то проявится. По поводу времени в DateTimePicker1.Date - в Д7 точно есть, если только программно не убрал, возможно плохо проверил
Спасибо а не подскажешь какой поиск можно реализовать типо Lookup чтобы бегунок не бегал. Заранее спасибо.
0
 Аватар для Аватар
5393 / 1465 / 513
Регистрация: 31.05.2012
Сообщений: 5,153
17.09.2013, 22:03
чтобы бегунок не бегал
Это чтобы в гриде не мелькало? Запоминаешь RecNo. В DataSource Enable в False. Грид мелькать не будет. Попробуй Locate для поиска. Нашел, взял что надо, в RecNo Table запомненное значение и Enable DataSource в True
1
45 / 45 / 15
Регистрация: 17.01.2013
Сообщений: 328
17.09.2013, 22:28  [ТС]
Цитата Сообщение от Аватар Посмотреть сообщение
Это чтобы в гриде не мелькало? Запоминаешь RecNo. В DataSource Enable в False. Грид мелькать не будет. Попробуй Locate для поиска. Нашел, взял что надо, в RecNo Table запомненное значение и Enable DataSource в True
Спасибо попробую. Вот кстати проект может посмотришь если время будет. Глюков быть не должно вроде везде ExtractFilePath использовал.
Вложения
Тип файла: rar Sklad_uchet.rar (1.14 Мб, 16 просмотров)
0
 Аватар для Аватар
5393 / 1465 / 513
Регистрация: 31.05.2012
Сообщений: 5,153
17.09.2013, 22:43
Запустить не запущу, там какие-то сторонние компоненты. Но в Priem_DB в упор нет полей с именами Type_ix; Name_ix; Date_ix; Cena_ix - это факт
1
17 / 17 / 0
Регистрация: 19.02.2012
Сообщений: 68
17.09.2013, 22:43
Цитата Сообщение от Аватар Посмотреть сообщение
Это чтобы в гриде не мелькало? Запоминаешь RecNo. В DataSource Enable в False. Грид мелькать не будет. Попробуй Locate для поиска. Нашел, взял что надо, в RecNo Table запомненное значение и Enable DataSource в True
Может я что-то путаю, но у многих контролов, а так же ресурсов данных есть методы типа BeginUpdate() и EndUpdate().
Которые стартуют и завершают "блокировку" визуального отображения действий на контроле в момент таких вот пробежек...
К сожалению сейчас делфей под рукой нет, точнее сказать не могу.
1
45 / 45 / 15
Регистрация: 17.01.2013
Сообщений: 328
18.09.2013, 10:52  [ТС]
Цитата Сообщение от Аватар Посмотреть сообщение
Запустить не запущу, там какие-то сторонние компоненты. Но в Priem_DB в упор нет полей с именами Type_ix; Name_ix; Date_ix; Cena_ix - это факт
Это индексные файлы

Добавлено через 5 минут
Спасибо Вам реализовал вот так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
  DM.Priem_DB.EditRangeEnd;
 
  if not (DM.Priem_DB.Locate('TypeP; NameP; ArcticP; DateP; Kol_voP; Cena',
      VarArrayOf([DBLookupComboBox1.KeyValue, Edit1.Text, MaskEdit1.Text,
      DateTimePicker1.Date, StrToInt(Edit2.Text), StrToFloat(Edit3.Text)]),
      [loCaseInsensitive, loPartialKey]))
    then begin
       MessageBox(Handle, 'Запись уже существует', 'Поиск',
             MB_ICONASTERISK+MB_OK+MB_DEFBUTTON1);
       exit;
    end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
18.09.2013, 10:52
Помогаю со студенческими работами здесь

Lookup fields
Беда, товарищи! В этом деле уж совсем новичок, местами сильно тормозящий... не судите строго. Есть на форме грид с полями из разных...

Фильтрация + LookUp
Здравствуйте. Скажите пожалуйста как сделать фильтрацию по LookUp полю. Заранее спасибо. Вот не рабочие наброски которые ошибку выдают...

2 зависимых lookup
здравствуйте подскажите пожалуста как реализовать и ли стратегию или вообще пример даже лучше у меня база в sql server к ней delphi...

Lookup field
у меня такой вопрос появился:можно ли сделать так,чтобы лукап поле заполняло несколько полей при выборе? у меня есть база на InterBase и...

Lookup поля
Здравствуйте, есть БД в Access, подключена к Delphi, таблицы подключены через ADOTable и в DBGrid отображают через DatasSource, зделаны...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru