Создание поля выбора.

Создание вычисляемого поля.

Удаление статического поля.

Создание статического поля.

В контекстном меню Редактора полей выбрать пункт Add Fields (добавить поля) (<Ctrl>+<A>) или Add All Fields (добавить все поля) (<Ctrl>+<F>).Добавленное статическое поле (или поля) является полем данных и связано с конкретным физическим полем таблицы БД.

Выделить поле в списке Редактора полей и нажать <Delete> или выбрать в контекстном меню пункт Delete.

Изменение порядка следования полей выполняется с помощью мыши или клавишами <Ctrl>+¯, <Ctrl>+.

Существует три типа статических полей:

1) поле данных, связанное с соответствующим физическим полем таблицы;

2) вычисляемое поле, значение которого рассчитывается в обработчике события OnCalcFields во время выполнения приложения;

3) поле выбора, значение которого можно выбирать из списка, формируемого на основе заданных критериев и правил.

Создание нового поля:

1) в контекстном меню Редактора полейвыбрать пункт New Field…(Новое поле) (<Ctrl>+<N>).

2) В появившемся окне New Field задать:

a) Field Properties (Свойства поля):

Name (Имя) – значение свойства Field Name,то есть имя поля,

Component – значение свойства Name, то есть название компонента (Объекта типа TField)

Type – тип поля,

Size – размер поля.

b) Field Type (Тип нового поля) выбирается из группы переключателей

Data – поле данных,

Calculated – вычисляемое поле,

Lookup – поле выбора.

c) Lookup definition (определение выбора) – указываются набор данных и поля связи, поля для формирования списка выбора и результата.

Создание поля данных выполняется по описанным выше шагам.

1) В окне New Field задать имя и тип поля;

2) Установить переключатель Calculated;

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

Поле выбора позволяет выбирать одно значение из предлагаемого списка и автоматически заносить информацию в заданное поле изменяемой записи. С полем выбора связывается список, заполняемый значениями указанного поля из второго набора данных. Оба набора данных связываются с помощью соответствующих полей.

1) В окне New Field задать имя и тип поля создаваемого поля выбора;

2) Установить переключатель Lookup и задать: имя поля связи текущего набора данных, имя набора данных выбора, поле связи набора данных выбора, поле выбора.

Пример 1. Для БД Tovary создать вычисляемое поле Summa, для определения общей стоимости товара.

1) Создать псевдоним Tovary.

2) Создать приложение, разместив на нем следующие компоненты:

Компонент	Свойства
Table1	Databasename = Tovary; TableName =Tovary.db; Name=TbTovary;
DataSource1	Dataset= TbTovary; Name=dsTovary;
DBGrid1	DataSource=dsTovary;
DBNavigator1	DataSource=dsTovary;

3) Для компонента TbTovary:

a) Создать все статические поля (T_Code, T_Nazv, T_Cena, T_Kol_vo);

b) Вызвать окно New Field и задать

4) В обработчике события OnCalcFields компонента TbTovary записать код вычисления стоимости товара:

procedure TForm1.TbTovaryCalcFields(DataSet: TDataSet);

begin

TbTovarySumma.AsCurrency:=

TbTovaryT_Cena.AsCurrency*TbTovaryT_Kol_vo.AsInteger;

end;

Пример 2. Для базы данных “Pokupka”, состоящей из двух таблиц создать поле подстановки в наборе данных таблицы Pokupka для названия товара из набора данных таблицы Tovar.

1) Создать псевдоним Pokupka.

2) Создать приложение, разместив на нем следующие компоненты:

Компонент	Свойства
Table1	Databasename = Pokupka; TableName =Pokupka.db; Active = True; Name=TbPokupka;
DataSource1	Dataset= TbPokupka; Name=dsPokupka;
DBGrid1	DataSource=dsPokupka;
DBNavigator1	DataSource=dsPokupka;
Table2	Databasename = Pokupka; TableName =Tovar.db; Active = True; Name=TbTovar;
DataSource2	Dataset= TbTovar; Name=dsTovar;
DBGrid2	DataSource=dsTovar;
DBNavigator2	DataSource=dsTovar;

Создать поле подстановки для названия товара:

3) Для компонента TbPokupka:

a) Создать все статические поля (P_Code, P_Date, P_Tovar, P_Kol_vo);

b) Вызвать окно New Field и задать

Пример 3. Для базы данных “Pokupka”, состоящей из двух таблиц создать вычисляемое поле Summa в наборе данных таблицы Pokupka, для подсчета стоимости купленного товара.

1) Выполнить пункты 1)-2) из предыдущего примера.

2) Для компонента TbTovar создать все статические поля (T_Code, T_Nazv, T_Cena);

3) Для компонента TbPokupka:

a) – создание поля связи - Вызвать окно New Field и задать

b) Создать вычисляемое поле Summa, для этого вызвать окно New Field и задать

c) В обработчике события OnCalcFields компонента TbPokupka записать код вычисления стоимости товара:

procedure TForm1.TbPokupkaCalcFields(DataSet: TDataSet);

begin

TbPokupkaSumma.AsCurrency:=

TbPokupkaCena.AsCurrency*TbPokupkaP_Kol_vo.AsInteger;

end;