Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 446

/ вопрос открыт /

Приветствую, уважаемые эксперты!
Вот столкнулся со следующей проблеммой, даже не заню как реализовать её решение. Тав вот, по сути:

Есть интерфейс (на рис.) при нажатие на "проверить" - происходит поиск-сравнение по базе по значениям поля "код" (из edit). далее в memo2 при удачном результате поиска выводится вся строка (все поля заданной записи)из бд - так сказать в качестве подтверждения.

бд - mssql
пишу на delphi7

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Арефьев Олег Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Арефьев Олег (статус: Посетитель)
Вопрос отправлен: 25 июня 2011, 03:38
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 5; последнее сообщение — 3 июля 2011, 17:07; участников в обсуждении: 2.
min@y™

min@y™ (статус: Доктор наук), 25 июня 2011, 09:57 [#1]:

А в чём, собственно, вопрос-то?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Арефьев Олег

Арефьев Олег (статус: Посетитель), 25 июня 2011, 12:39 [#2]:

дык второй абзац - и надо то сделать! проверка-поиск-сравнение-вывод подтверждения - не работает именно - это и надо!
min@y™

min@y™ (статус: Доктор наук), 25 июня 2011, 14:37 [#3]:

Ну и в чём проблема-то? На кнопку "Проверка" вешаешь обработчик, а нём делаешь поиск по базе и выводишь результаты. Что не получается-то?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Арефьев Олег

Арефьев Олег (статус: Посетитель), 2 июля 2011, 20:40 [#4]:

не получается. точнее я даже не знаю как, вывесте целую строку в edit\memo
Арефьев Олег

Арефьев Олег (статус: Посетитель), 3 июля 2011, 17:07 [#5]:

к слову пробывал так:
var

ffield, fvalue: string;
opts : TLocateOptions;

begin
ffield := 'kod';
fvalue := Edit1.Text;
opts := [loCaseInsensitive];

if not AdoTable1.Locate(ffield, fvalue, opts) then
ShowMessage(fvalue + ' - ââåäåííûé êîä íå íàéäåí!')
else ****************************

и при else оно должно выводить не только найденный код в таблице, но и всю запись

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 12:01
Выполнено за 0.02 сек.