В комплекте с 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:I\www\customer.cds' ClientDataSet1.Active = True (самое главное этого не забыть :-))
И всё готово. Вы сразу у меня спросите: "А как создать новую таблицу?". Всё очень просто даже не нужно НИКАКИХ дополнительных программ, только компонент TClientDataSet и конечно Delphi.
1. Создаём новый проект (можно даже его не сохранять) и добавляем на форму компонент TClientDataSet. 2. Сначала определим структуру таблицы. Для этого открываем свойство FieldDefs нашего компонента. Открывается окно "Editing ClientDataSet1.FieldDefs" жмём "добавить новый", и определяем свойства поля (тип, формат, размер и т.д.). 3. Теперь самое главное. Щёлкаем правой кнопкой мыши на компоненте TClientDataSet и выбираем пункт CreateDataSet. Потом ещё раз открываем контекстное меню и выбираем пункт "Save to binary MyBase file" и сохраняем файл туда, куда нам надо.
Всё готово теперь у нас есть файл CDS. Можно закрывать данный проект и создавать новый, так как это было показано выше. Изменяете его, как хотите, добавляйте, удаляйте, изменяйте короче как обычно. Как модифицировать файл программно и фильтровать и индексировать записи, я вам расскажу позже.
В предыдущей статье о создании базы данных в delphi, я рассказывал про компонент TClientDataSet, как подключаться к локальной базе данных и создавать новую локальную таблицу. Сегодня я вам расскажу, как фильтровать записи в таблице и индексировать их. Фильтровка записей таблицы это эквивалент SQL запросам. Фильтровка нужна, для того чтобы показать пользователю меньше записей согласно определённому условию (например: показать только тех учеников группы у кого день рождения в июне или в декабре и т.д.). Также фильтрацию можно использовать как поиск некоторой записи в таблице. На практике в большинстве случаев SQL запросы используются именно в таких случаях, какой описан в примере.
Фильтр задается, как строка и её определяет свойство Filter, а активность фильтра определяет свойство Filtered, соответственно если оно True то записи фильтруются. Фильтр задаётся согласно всем правилам программирования Delphi, к которым вы привыкли. Фильтр имеет очень много функций:
1. Арифметические и логические функции и операторы сравнения Примеры: a. Population < 100; b. Vozrast > 24 and Rost < 165; c. Stoimost > 300 or Razmer < 400; d. Town <> Moskva e. Ves + Rost > 200; f. Vozrast/Ves > 9; 2. Можно выполнят операции над строками Примеры a. Last_Name = 'Иван'; b. First_Name+Last_Name = 'ИгорьПетров'; c. Substring(Last_Name,1,2)= 'Ca'; 3. Также функции даты и времени Примеры a. Year(Birth_Day) = 1986; b. Day(Birth_Day) = 12; 4. Используются также операторы Like и In.
Все возможности фильтрации полностью документированы в файле справки Delphi в разделе Developing Database Applications > Using client datasets > Limiting what records appear.
Индексацию определяет свойство IndexFieldNames. Для того чтобы упорядочить по возрастанию таблицу по полю Vozrast нужно присвоить свойству IndexFieldNames значение 'Vozrast'. Очень часто индексация нужна тогда, когда пользователь щёлкает на заголовках столбцов компонента DBGrid.
procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin ClientDataSet1.IndexFieldNames:=Column.FieldName; end;
Также можно создать индексы с помощью свойства IndexDefs. Индексы можно создать как во время выполнения, так и в стадии создания базы данных. Во время выполнения delphi приложения, для того чтобы создать индекс нужно вызвать метод Add свойства IndexDefs. Первый параметр это имя индекса, второй - имя поля (или полей), третий - опции. Теперь для того чтобы упорядочить таблицу по полю нужно присвоить свойству IndexName имя нужного индекса. Данный метод лучше, чем предыдущий, так как можно быстро переключаться между созданными заранее индексами. Для того чтобы изменить индексы нужно воспользоваться свойством Items свойства IndexDefs, указав порядковый номер индекса. Получить порядковый номер индекса можно через метод свойства IndexDefs IndexOf , указав имя индекса. Например:
var i:integer; begin ….. i:=ClientDataSet1.IndexDefs.IndexOf('i3'); ClientDataSet1.IndexDefs.Items[i].Fields:='Birth_Day';
В предыдущей статье я рассказывал, как фильтровать данные в компоненте TClientDataSet. Сегодня я расскажу, как редактировать данные в компоненте TClientDataSet.
Фактически в компоненте TClientDataSet можно редактировать только текущую запись и извлекать значение только из текущей записи. Текущая запись это та запись, которая имеет фокус ввода в данный момент. Для того чтобы некоторая запись стала текущей её должен выделить пользователь, также её можно выделить программно. Для того сделать некоторую запись текущей используется метод Locate:
Первый параметр это список полей разделяемых "точкой с запятой" либо одно поле. Второй параметр это значения, которым должны быть равны поля указанные в первом параметре если полей много то во втором параметре должен быть массив из Variant. Если указано несколько полей то переход осуществляется, только если каждое поле, указанное в первом параметре равно значению, указанному во втором параметре. Если переход прошёл успешно, то функция возвращает True. Для того чтобы получить массив из Variant можно использовать функцию VarArrayOf. Вот примеры использования метода Locate:
…… If not ClientDataSet1.Locate('LastName',Edit1.text,[]) then MessageDlg(' " '+Edit1.text+' " не найдено', mtError, [mbOK], 0); …..
Если нужно перейти к записи, зная лишь часть строкового поля можно использовать опцию loPartialKey в третьем параметре.
ClientDataSet1.Locate('Adres','Mosk',[loPartialKey]); Часть значения не может быть где-то посередине поля она может составлять лишь несколько символов сначала. Допустим, что значение поля Adres равно 'Moskva' то:
Для навигации в таблице также можно использовать хорошо знакомые нам методы:
First; Last; Next; Prior;
Также: MoveBy(Distance : Integer):Integer; Функция возвращает количество записей, на которое фактически произошло перемещение. Например: если до конца осталось 7 записей, а перемещение происходит на 10 записей, то функция возвратит 7. RecNo: Integer; Свойство обозначает номер записи, на которой находится фокус ввода. Очень странно, но отсчёт начинается с 1. Получить порядковый номер текущей записи: Current_record:=ClientDataSet1.recno; Установить фокус ввода на четвёртую запись в таблице: ClientDataSet1.RecNo:=4;
Итак, мы перешли к нужной нам записи. Сначала про класс TField: чтобы получить его значение нужно воспользоваться свойством value, которое возвращает значение типа Variant. Также есть специализированные свойства: AsString;AsFloat;AsCurrency;AsDateTime и т.д. Для того чтобы получить значение некоторого поля существует много способов.
1. Свойство Fields - является массивом объектов TField. Чтобы получить значение поля нужно указать его порядковый номер (отсчёт с нуля): Str:= ClientDataSet1.Fields[3]. AsString; 2. Метод FieldByName - возвращает объект типа TField. ShowMessage(ClientDataSet1.FieldByName('Adres').AsString); 3. Свойство FieldValues - возвращает значение Variant. ShowMessage(ClientDataSet1. FieldValues ['LastName']); Это свойство является свойством по умолчанию, поэтому можно писать так ShowMessage(ClientDataSet1['LastName']);
Для того чтобы изменить значение полей нужно сначала перевести компонент в состояние редактирования присвоить нужным полям нужные значения и обновить компонент. Переход в состояние редактирования осуществляет процедура Edit; обновление осуществляет процедура Post;
Вот пример: ClientDataSet1.edit; ClientDataSet1['LastName']:='Иванов'; ClientDataSet1['Ves']:='71'; ClientDataSet1.Fields[1].AsString:='Moskva'; ClientDataSet1.FieldByName('Vozrast').AsFloat:='24'; ClientDataSet1.post;
Добавление записи в конец таблицы осуществляет метод Append; после вызова этого метода запись переходит в состояние редактирования, для обновления таблицы также используется метод Post. Точно также используется метод Insert; только он вставляет запись сразу после текущей записи.
Для удаления записи используется метод Delete; предупреждение не выводится и метод Post; вызывать не надо.
Сообщение отредактировал Alex - Вторник, 24.07.2012, 09:43
ведение в объектно-ориентированное программирование
Источник: codingrus Kest Объектно-ориентированное проектирование программ или просто объектно-ориентированное программирование (ООП) представляет собой качественно новый шаг в развитии современных методов программирования. Настоящая работа посвящена знакомству с принципами ООП применительно к программированию в среде DELPHI.
Любая программа в широком смысле может рассматриваться как модель (воспроизведение или отражение) части реального мира (внешней среды, предметной области). Различные образования реального мира могут быть определены единым термином: объекты. К ним относятся окружающие нас в быту предметы, технические устройства, сооружения, животные и, наконец, сами люди. Каждый объект характеризуется только присущим ему набором (множеством) параметров (свойств), а также множеством действий, которые может выполнить сам объект и которые могут быть выполнены над данным объектом другими объектами. Ко всем объектам реального мира может быть применена единая по смыслу функция классифицирования, результатом выполнения которой является разбиение объектов на группы по различным признакам, видам и свойствам. В связи с этим можно ввести в рассмотрение понятие классов (групп) объектов. Это понятие определяет множество различных свойств объектов и множество различных действий (операций) над ними. Любая схема (или система) классифицирования обычно строится по принципу от "общего" к "частному" и, как правило, имеет многоуровневую структуру отношений, в которой элементы высших ступеней порождают (производят) элементы низших уровней. Эти элементы имеют свои конкретные особенности и одновременно получают все основные свойства и действия, то есть "наследуют" их от элементов верхнего уровня. Например, реальный объект стол обладает множеством различных свойств, таких как тип (обеденный, книжный, кухонный), габариты, цвет, тип древесины и т. д. К нему применимы различные действия: стол можно изготовить, смонтировать (собрать), ремонтировать, передвигать, демонтировать и т. д. Очевидно, что конкретный стол, как объект реального мира, можно считать принадлежащим к классу столов, который определяет общие характеристики всех столов. В свою очередь класс столов можно считать порождением элемента верхнего уровня, а именно класса мебели, все свойства которого одновременно являются и свойствами класса столов. Это означает, что класс столов "наследует" свойства и действия класса мебели. Далее можно рассмотреть класс изделий, в который будет включен класс мебели. О классе изделий и классе мебели можно сделать такие же заключения, что и о классах мебели и столов. Продолжая аналогичные рассуждения, можно создать сложную иерархическую структуру отношений классов различных объектов реального мира. Все они могут найти свое отражение в компьютерных программах, так как любая программа взаимодействует с внешней средой, получая из нее исходные данные и выдавая в нее (точнее, сохраняя в ней) результаты. В известных ранее традиционных языках и системах программирования также существует соответствие между объектами программы (переменные, операторы и т.д.) и объектами реального мира. В отличие от этих систем, в ООП вводятся новые, более широкие по смыслу и назначению понятия и объекты, которые позволяют программисту точнее и глубже отражать сложную структуру отношений различных объектов реального мира и, следовательно, создавать более совершенные и эффективные программы. ООП обладает рядом преимуществ, к которым, в частности, можно отнести: • использование более естественных с точки зрения повседневной практики понятий и простота введения новых понятий; • возможность создания и использования библиотек классов (примером такой библиотеки является, в частности, библиотека компонент DELPHI): • параллельная разработка визуальных средств взаимодействия с пользователем и средств, реализующих алгоритмическую часть задачи и т. д. Вместе с тем следует отметить, что все эти преимущества и эффективность ООП проявляются в полной мере только при разработке больших программ или классов программ.
Сноски: 8 Модель - некоторое физическое или логическое (искусственное или естественное) образование (предмет или явление), которое обладает свойствами и поведением, подобными (сходственными) свойствам и поведению другого образования, называемого оригиналом (аналогом).