
10.08.2013, 19:06
|
 |
Специалист
|
|
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
|
|
Код:
with Module.Q_PoiskKontragenta do
begin
Close;
SQL.Clear;
SQL.Add('SELECT id_face, adres_id, telefon_id, agency_contract_id, full_name, r_k_o, district, nas_punct, town, streen, doc, korpus, flat, inn, birthday');
SQL.Add('FROM adres');
SQL.Add(' JOIN face ON face.adres_id = adres.id_adres');
SQL.Add('WHERE full_name CONTAINING (:tb)');
Parameters.ParamByName('tb').Value := tb_Poisk.Text;
end;
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту. 
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|