Разработка приложений баз данных в Delphi. Шейкер Т.Д. - 17 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

17
1. Щёлкнуть правой кнопкой мыши по компоненту Table и выбрать из
контекстного меню команду Fields Editor. Откроется окно Редактора полей,
которое будет пустым, так как по умолчанию все поля динамические.
Рис. 8. Создание постоянных полей
2. Щёлкнуть правой кнопкой мыши по окну Редактора полей и выбрать
из контекстного меню команду Add Fields. В окне диалога Add Fields появится
перечень всех полей таблицы.
3. В списке всех доступных динамических полей следует выбрать нужные
поля и нажать ОК. В окне Редактора полей появятся выбранные поля и одно-
временно будут внесены изменения
в текст программного модуля: в объявле-
нии класса появятся компоненты полей.
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
Table1Cod: TAutoIncField;
Table1Author: TIntegerField;
Table1Name: TStringField;
Table1Graph: TGraphicField;
Table1Gallery: TIntegerField;
end;
В приведённом примере все поля таблицы объявлены как постоянные.
Порядок следования полей определяется их расположением в Редакторе полей.
При необходимости порядок следования можно изменить, перемещая поля 
     1. Щёлкнуть правой кнопкой мыши по компоненту Table и выбрать из
контекстного меню команду Fields Editor. Откроется окно Редактора полей,
которое будет пустым, так как по умолчанию все поля динамические.




                      Рис. 8. Создание постоянных полей


     2. Щёлкнуть правой кнопкой мыши по окну Редактора полей и выбрать
из контекстного меню команду Add Fields. В окне диалога Add Fields появится
перечень всех полей таблицы.
     3. В списке всех доступных динамических полей следует выбрать нужные
поля и нажать ОК. В окне Редактора полей появятся выбранные поля и одно-
временно будут внесены изменения в текст программного модуля: в объявле-
нии класса появятся компоненты полей.
type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    Table1Cod: TAutoIncField;
    Table1Author: TIntegerField;
    Table1Name: TStringField;
    Table1Graph: TGraphicField;
    Table1Gallery: TIntegerField;
  end;
     В приведённом примере все поля таблицы объявлены как постоянные.
Порядок следования полей определяется их расположением в Редакторе полей.
При необходимости порядок следования можно изменить, перемещая поля
                                     17

Страницы