Создание компонента TTable без формы 3

Delphi , Компоненты и Классы , TTable и TQuery

Для создания таблицы программным способом вы должны сделать приблизительно следующее:

with Table1 do
begin
  Close;
  TableName := 'test.db';
  TableType := ttParadox;
  DatabaseName := 'Sample';
  FieldDefs.Clear;
  {FldName,FldType,FldLength,Required}
  FieldDefs.Add('Field1',ftString,10,false);
  ...
  { Создание первичного индекса }
  IndexDefs.Add('','Field1',[ixPrimary]);
  CreateTable;
end;

Here's the translation of the text into Russian:

Код создает компонент TTable в Delphi без открытия формы. Это программный способ создания и настройки таблицы.

Рассмотрим, что каждый строка делает:

with Table1 do

Эта строка открывает объект Table1 для изменения. Стatement with позволяет доступ к свойствам и методам объекта без необходимости префиксировать их именем объекта.

begin
  Close;

Эта строка закрывает любые существующие соединения с базой данных файла.

Создание компонента TTable в Delphi без формы 3 заключается в программной инициализации его свойств, таких как имя таблицы, тип базы данных, имя поля, длина поля, обязательность поля, а также создании первичного индекса.

Комментарии и вопросы

:: Главная :: TTable и TQuery ::