Клуб программистов

Здравствуйте Delphi'сты и им сочувствующие.

     В комплекте с Delphi 7 поставляются сразу несколько библиотек для работы с базами данных (ADO, BDE, dbExpress, InterBase и др.). Для того чтобы создать приложение, работающее с локальной базой данных, то вы обычно используете библиотеку BDE. Эта библиотека создана компанией Borland и уже порядком устарела. Но без определённой подготовки операционной системы эти компоненты работать не будут. Есть альтернатива этим компонентам.

     Существует автономный компонент TClientDataSet который использует свой собственный формат данных.

    Итак, переходим к практике. Компонент TClientDataSet использует файлы с расширением *.CDS и *.XML мы будем рассматривать формат CDS, так как XML формат занимает вдвое больше места на диске и такой файл легко можно изменить, открыв его через блокнот. Этот компонент при создании проецирует файл в память и модифицирует только память, а при уничтожении данные записываются в файл целиком. Путь к файлу определяет свойство FileName. Файлы формата CDS можно найти в папке program files\Common Files\Borland Shared\Data. Давайте сначала откроем один из них. Скопируем один из них в папку c:\data .

    Кидаем на форму 4 компонента
    1.  TClientDataSet
    2.  TDataSource
    3.  TDBGrid
    4.  TDBNavigator

    В результате :
    1.  DataSource1
    2.  ClientDataSet1
    3.  DBGrid1
    4.  DBNavigator1

    Настраиваем их свойства так чтобы получилось примерно так:
    DBNavigator1.DataSource = DataSource1
    DBGrid1.DataSource = DataSource1
    DataSource1.DataSet = ClientDataSet1
    ClientDataSet1.FileName = 'D:\111\www\customer.cds'
    ClientDataSet1.Active = True (самое главное этого не забыть :-))

    И всё готово. Вы сразу у меня спросите: "А как создать новую таблицу?".
     Всё очень просто даже не нужно НИКАКИХ дополнительных программ, только компонент TClientDataSet и конечно Delphi.

    1.  Создаём новый проект (можно даже его не сохранять) и добавляем на форму компонент TClientDataSet.
    2.  Сначала определим структуру таблицы. Для этого открываем свойство FieldDefs нашего компонента. Открывается окно "Editing ClientDataSet1.FieldDefs" жмём "добавить новый", и определяем свойства поля (тип, формат, размер и т.д.).
    3.  Теперь самое главное. Щёлкаем правой кнопкой мыши на компоненте TClientDataSet и выбираем пункт CreateDataSet. Потом ещё раз открываем контекстное меню и выбираем пункт "Save to binary MyBase file" и сохраняем файл туда, куда нам надо.

     Всё готово теперь у нас есть файл CDS. Можно закрывать данный проект и создавать новый, так как это было показано выше. Изменяете его, как хотите, добавляйте, удаляйте, изменяйте короче как обычно. Как модифицировать файл программно и фильтровать и индексировать записи, я вам расскажу позже.