АПЕКСОФТ Community
Главный сайт | Скачать ДЕМО | Скриншоты | Продукты | Прайс-лист | Статьи | Новости | Контакты
Добро пожаловать, Гость! Чтобы использовать все возможности Вход или Регистрация.

Уведомление

Icon
Error

Как выполнить SQL
Сергей Offline
#1 Оставлено : 7 июля 2012 г. 17:29:45(UTC)
Ранг: Сотрудник

Группы: Пользователи, Администраторы
Зарегистрирован: 27.12.2010(UTC)
Сообщений: 220
Баллов: 712

Сказал(а) «Спасибо»: 2 раз
Поблагодарили: 47 раз в 46 постах
Например, функция для поиска контрагента по полному имени:



function GetComp(CompName : string) : string;   
begin
Result := '';
with dmGlobal.PrepareQuery do
try
CompName := trim(CompName);
SQL.Text := 'SELECT ID FROM COMP WHERE UPPER(COMP_FULLNAME) = UPPER(:NAME)';
Params.ParamByName('NAME').AsString := CompName;
Open;
if not eof then
Result := FieldByName('ID').AsString;
finally
Free;
end;
end;
Пользователи, просматривающие эту тему
Guest
Быстрый переход  
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.