Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 01.12.2014
Сообщений: 34

Поиск в Edit1

31.05.2015, 13:08. Показов 478. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
добрый день всем!!! Нужна помощь!! в Edit1 ввожу число от 0 до 1000, во время ввода открывается DBGrid1, где хранятся эти числа, выбираю нужную мне цифру, типа как поиск. со строковыми знаю как, а вот с числами не получается

Добавлено через 2 часа 46 минут
народ, есть кто нибудь???
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
31.05.2015, 13:08
Ответы с готовыми решениями:

осущестить поиск в таблице в соответствии с значением, вводимым в поле Edit1
Делаю так procedure TfMain.Button1Click(Sender: TObject); begin with fdm.QMainComp do begin close; sql.Clear; ...

Edit1 константы
В поле Edit целое значение, это значение нужно сделать константой, использовать в программе. Как реализовать и где прописать?

Добавление из edit1
Ребят,подскажите как из поля Edit1 на форме добавить текст в nomber procedure TForm1.Button3Click(Sender: TObject); var JpegIm:...

6
4 / 4 / 3
Регистрация: 17.05.2013
Сообщений: 63
31.05.2015, 15:27
Delphi
1
tbl1.Locate(edt1.Text, [loPartialKey, loCaseInsensitive]);;
0
0 / 0 / 0
Регистрация: 01.12.2014
Сообщений: 34
31.05.2015, 15:33  [ТС]
это все?
0
4 / 4 / 3
Регистрация: 17.05.2013
Сообщений: 63
31.05.2015, 15:34
да на кнопку код вставляй
0
0 / 0 / 0
Регистрация: 01.12.2014
Сообщений: 34
31.05.2015, 15:40  [ТС]
у меня нет кнопки, у меня автоматически выводит список в DBGrid, когда начинаю в поле вводить
0
4 / 4 / 3
Регистрация: 17.05.2013
Сообщений: 63
31.05.2015, 15:45
в таком случае для фильтра нужно писать запрос чтоб числа искал
0
0 / 0 / 0
Регистрация: 01.12.2014
Сообщений: 34
31.05.2015, 15:51  [ТС]
я это и имела в виду, вот пример со строковыми. подскажите что поменять здесь
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure TForm1.Edit4Change(Sender: TObject);
var s:string;
begin
p:=2;
 s:=form1.Edit4.Text;
if length(form1.Edit4.Text)>0 then
 begin
  if (s[1] in ['а'..'я']) then s[1]:= chr(ord(s[1]) - 32);
  form1.Edit4.Text:=s;
  form1.Edit4.SetFocus;
  form1.Edit4.SelLength:=0;
  form1.Edit4.SelStart:=Length(form1.Edit4.Text);
 end;
 
if Length(form1.Edit4.Text)>0 then
  begin
    form1.DBGrid1.Visible:=true;
    form1.DBGrid1.DataSource:=DataModule4.DataSource11;
 
    DBGrid1.Columns[0].Visible:=false;
 
    DataModule4.KEM_VPasport_Table1.IndexFieldNames:='Kem_v_pasport';
    DataModule4.KEM_VPasport_Table1.Filtered:=true;
    DataModule4.KEM_VPasport_Table1.Filter:='Kem_v_pasport>='''+Edit4.Text+'''';
    form1.DBGrid1.Left:=670;
    form1.DBGrid1.Top:=280;
  end
 else
   begin
    DataModule4.KEM_VPasport_Table1.Filtered:=false;
    form1.DBGrid1.Visible:=false;
   end;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
31.05.2015, 15:51
Помогаю со студенческими работами здесь

ЗНАЧЕНИЕ ПОЛЯ + EDIT1
Добрый ... У меня есть 2 таблицы одна выводит адозапрос(вывод информации о школьниках) втарая таблица выводит адотэйбл с похожей...

Связка ComboBox, Edit1,2,3 c БД
Допустим Есть вот такое окно (вложение) Вот я выбираю в combobox номер рейса как и в бд, например 1, 2, 3 и чтобы в Edit1,2,3 сразу...

Данные с edit1 в две таблицы access
Добрый день! У меня есть две таблицы клиенты и автомобили . Я хочу что бы с edit'а (фамилия) вносилась фамилия в клиенты и автомобили....

Сравнить значения edit1 и edit2 с базой
Всем доброго времени суток. Нужна ваша помощь, уже несколько дней мучаюсь с этой проблемой, суть которой в: Есть база данных( MySQL )...

Как не дать менять значение в Edit1
Здравствуйте, пожалуйста помогите. Я в вывожу с помощью IBStoredproc1 параметр хранимой процедуры в Edit1.Text. Всё нормально...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru