With L do

begin Add('SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB'); Add('USER NAME=MYNAME');

end; Session1.AddAlias('NewIB', 'InterBase 4.x Driver by Visigen',L); finally L.Free; end; end;

Процедура AddAlias компонента ТSession создаёт псевдоним нестандартного типа. Первый параметр -имя псевдонима. Второй -имя драйвера. Третий параметр -указатель на TStringList, в котором хранятся дополнительные настройки. Дополнительные параметры хранятся в виде строк (например 'SERVER NAME= IB_SERVER: /PATH/DATABASE.GDB'). В строке указывается имя параметра и после знака равно его значение. Параметры могу отличаться, в зависимости от драйвера. Чтобы узнать, какие параметры доступны, можно создать пробный псевдоним в SQL Explorer и посмотреть, какие там присутствуют параметры.

Внимание!!! -имя драйвера у тебя может отличаться. Чтобы увидеть все доступные драйверы, нужно войти в BDE Administrator. Здесь, на закладе Configuration на дереве выбираешь Drivers, и здесь в разделах Native и ODBC есть все имена драйверов.

На компакт диске, в директорииПримерыГлава 16Aliasты можешь увидеть пример этой программы.

16.5 Работа с XML таблицами.

огда мы работаем с базами данных Access, то используем библиотеку DAO. Для доступа к таблицам Paradox или DBF, нужна библиотека BDE. Для XML таблиц нужен всего один файл, который достаточно зарегистрировать в

системе и больше никакой головной боле. Из-за такой простоты установки, мы не смоем получить мощь других баз данных, зато получаем простоту, скорость и универсальность XML.

Итак, для того, чтобы ты мог работать с XML тебе понадобиться файл midas.dll. Чаще всего он находиться в системной директории windows. Для Windows 95/98/ME это windowssystem, а для NT/2000/XP это WinNT/system32. Если у тебя этого файла нет, то можешь взять его с диска этой книги, в директории dll/midas. Там же находиться файл regsvr32.exe, который может произвести регистрацию этого dll файла. Для регистрации нужно выполнить команду regsvr32.exe с параметром midas.dll. Например, помести эти файлы в систему с:windowssystem (regsvr32.exe уже может находиться там), и нажми кнопку «Пуск» и выбери «Выполнить». Здесь напиши следующее с:windowssystemregsvr32.exe с:windowssystemmidas.dll. Затем нажми ОК и ты должен увидеть сообщение о успешной регистрации.

Создавать XML таблицу мы будем прямо в Delphi. Для этого создай новый проект и сразу же добавь к нему модуль данных. Теперь брось в модуль данных два компонента: DataSource и ClientDataSet1. Сразу же укажи у компонента DataSource в свойстве DataSet компонент ClientDataSet, чтобы связать их.

Теперь выделяй компонент ClientDataSet. Дважды щёлкни по свойству FieldDefs в объектном инспекторе чтобы открыть окно определения полей (рисунок 16.5.1). В этом окне можно создавать объявления новых полей. Для этого щёлкни правой кнопкой мышки и выбери пункт Add, чтобы создать новое поле. Выдели в окне строку нового поля и посмотри в объектный инспектор. Тут у нас есть три интересных свойства:

DataType – тип поля.

Name – имя.

Size – размер.

Первое поле у нас будет ключевым, поэтому выбирай тип поля ftAutoInc и имя Key1. Остальное не изменяем. Теперь создай ещё одно поле типа ftString, с именем FIO и размер поля оставим по умолчанию 20. Для примера этого хватит, хотя ты можешь создать ещё несколько полей.

Теперь щёлкни правой кнопкой по компоненту ClientDataSet и в появившемся меню выбери пункт Create DataSet. Теперь ещё раз щёлкни правой кнопкой по этому же компоненту и перед тобой откроется меню, в котором уже намного больше пунктов. Выбери Save to MyBase Xml Table и перед тобой откроется стандартное окно сохранения файла. Введи имя exapl и нажми «Сохранить».

Всё таблица готова. Теперь можно с ней работать абсолютно так же, как и с ADO или BDE таблицами. Дважды щёлкни по компоненту ClientDataSet чтобы открыть редактор полей. Здесь добавь все поля и дай им нормальные, русские заголовки. Кстати, ключевое поле можно вообще спрятать.

Теперь брось на главную форму программы сетку DBGrid и свяжи её с нашей таблицей. Программу можно запускать и попробовать с ней поработать. Здесь я не буду писать полноценного примера и ограничусь только этим, потому что свойства и методы компонента ClientDataSet схожи с компонентами TTable и TADOTable.

Здесь я хочу сделать только одно замечание. Таблицы XML по умолчанию растут достаточно быстро. Это связано с тем, что в них сохраняется журнал изменений. С одной стороны постоянный рост файлов очень быстро есть пространство на диске, а с другой, благодаря этому журналу ты можешь в любой момент отменить последние действия. Для этого нужно вызвать метод UndoLastChange компонента ClientDataSet. У этого метода есть один параметр – булево значение. Если он равен true, то текущий курсор перебежит на строку, изменения которой были отменены, иначе курсор останется на месте.

Чтобы очистить журнал изменений вызови метод MergeChangeLog, а если хочешь, чтобы журнал вообще не вёлся, то присвой свойству LogChanges значение false.

Вот и всё, что я хотел сказать про XML таблицы. В остальном работа с ними ничем не отличается от работы с другими базами данных.

На компакт диске, в директорииПримерыГлава 16XMLты можешь увидеть пример этой программы.