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

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

     В предыдущей статье я рассказывал, как фильтровать данные в компоненте TClientDataSet. Сегодня я расскажу, как редактировать данные в компоненте TClientDataSet.

     Фактически в компоненте TClientDataSet можно редактировать только текущую запись и извлекать значение только из текущей записи. Текущая запись это та запись, которая имеет фокус ввода в данный момент. Для того чтобы некоторая запись стала текущей её должен выделить пользователь, также её можно выделить программно. Для того сделать некоторую запись текущей используется метод Locate:

Locate(const KeyFields: string;
const KeyValues: Variant; Options: TLocateOptions): Boolean;

     Первый параметр это список полей разделяемых "точкой с запятой" либо одно поле. Второй параметр это значения, которым должны быть равны поля указанные в первом параметре если полей много то во втором параметре должен быть массив из Variant. Если указано несколько полей то переход осуществляется, только если каждое поле, указанное в первом параметре равно значению, указанному во втором параметре. Если переход прошёл успешно, то функция возвращает True. Для того чтобы получить массив из Variant можно использовать функцию VarArrayOf. Вот примеры использования метода Locate:

……
If not ClientDataSet1.Locate('LastName',Edit1.text,[]) then
MessageDlg(' " '+Edit1.text+' " не найдено', mtError, [mbOK], 0);
…..

…..
ClientDataSet1.Locate('LastName;FirstName', VarArrayOf( ['Иванов', 'Иван'] ), []);
….

     Если нужно перейти к записи, зная лишь часть строкового поля можно использовать опцию loPartialKey в третьем параметре.

     ClientDataSet1.Locate('Adres','Mosk',[loPartialKey]); Часть значения не может быть где-то посередине поля она может составлять лишь несколько символов сначала. Допустим, что значение поля Adres равно 'Moskva' то:

ClientDataSet1.Locate('Adres','Mosk',[loPartialKey]); сработает
ClientDataSet1.Locate('Adres','skv',[loPartialKey]); несработает.

     Для навигации в таблице также можно использовать хорошо знакомые нам методы:

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; вызывать не надо.