Вопрос и Ответ 38 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Прыжок в мечту, или Продажи в B2B. Как выигрывать в два раза больше корпоративных тендеров

Отношения с клиентами – это не что-то абстрактное, возникающее само по себе. В секторе B2B существует последовательная система, позволяющая выстроить деловые связи с практически любым клиентом, а значит, успешно продавать и выполнять планы продаж.

Она будет полезна везде, где есть тендеры и корпоративные заказчики: в маркетинге, сфере диджитал, PR, рекламе, юридических, медицинских, страховых и консалтинговых услугах и т. д.

Книга адресована всем, кто хочет научиться использовать эту систему, выполнять планы продаж и обзавестись клиентами на всю жизнь.

Продающие вопросы: Эффективный способ выяснить, чего действительно хотят ваши клиенты

Итак, если вы желаете выяснить, чего на самом деле хочет ваш клиент, о чем мечтает, чего опасается и что его мотивирует, то для этого нужно задавать правильные вопросы, – способные его заинтересовать, – и преобразовывать его интерес в действия. Поможет в этом проверенный и надежный инструментарий, который вам предоставит автор этой книги Пол Черри, более 20 лет работающий в области продаж и ежегодно инструктирующий более 5000 специалистов по продажам. Хотя его методы изложены применительно к смоделированным ситуациям в разных отраслях бизнеса, но они пригодны для использования и в других сферах человеческой деятельности.

Вопрос и Ответ 38

Версия для печати

Вопросы и Ответы

38. Как из приложения получить псевдонимы DBE, определенные в Database Engine Configuration?

Список определенных псевдонимов находится в объекте Session. Получить его можно с помощью следующей процедуры:

procedure GetAliasNames(List: TStrings);

в качестве единственного параметра передается переменная типа TString. В ней после выполнения процедуры будет содержатся список псевдонимов.

Чтобы получить параметры (тип и путь) определенные для псевдонима, можно воспользоваться процедурой DbiGetDatabaseDesc, которая, по имени псевдонима, заполняет структуру типа DBDesc необходимыми значениями.

Пример:

............

USES

DB, DBITypes, DBIProcs;

............

{получение списка псевдонимов}
procedure TForm1.FormCreate(Sender: TObject);
begin

Session.GetAliasNames(ListBox1.Items);

end;

............

{получение параметров для выбранного псевдонима}
procedure TForm1.ListBox1Click(Sender: TObject);
VAR

tStr: ARRAY[0..31] OF Char;
Desc: DBDesc;

begin

IF ListBox1.Items.Count = 0 THEN Exit;
StrPLCopy(tStr, ListBox1.Items.Strings[ListBox1.ItemIndex], High(tStr));
DbiGetDatabaseDesc(tStr, @Desc);
WITH Desc DO BEGIN

Caption := 'Alias - '+StrPas(Desc.szName);
eType.Text := StrPas(Desc.szDbType);
ePath.Text := StrPas(Desc.szPhyName);

END;

end;

............

...предыдущая страница следующая...
оглавление