Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 441

•  TDictionary Custom Sort  6 471

•  Fast Watermark Sources  6 262

•  3D Designer  9 215

•  Sik Screen Capture  6 599

•  Patch Maker  6 986

•  Айболит (remote control)  6 985

•  ListBox Drag & Drop  5 858

•  Доска для игры Реверси  97 004

•  Графические эффекты  7 187

•  Рисование по маске  6 482

•  Перетаскивание изображений  5 350

•  Canvas Drawing  5 726

•  Рисование Луны  5 441

•  Поворот изображения  4 970

•  Рисование стержней  3 532

•  Paint on Shape  2 799

•  Генератор кроссвордов  3 666

•  Головоломка Paletto  2 953

•  Теорема Монжа об окружностях  3 761

•  Пазл Numbrix  2 479

•  Заборы и коммивояжеры  3 165

•  Игра HIP  2 128

•  Игра Go (Го)  2 060

•  Симулятор лифта  2 425

•  Программа укладки плитки  2 108

•  Генератор лабиринта  2 570

•  Проверка числового ввода  2 259

•  HEX View  2 586

•  Физический маятник  2 200

 
скрыть

Delphi Sources

Программное создание таблиц и ключей (первичных и вторичных) для БД Access



Автор: Дима

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Программное создание таблиц/ключей(первичных и вторичных) для бд Access

В принципе данный пример описан на сайте http://www.olap.ru/desc/microsoft/borland_ado.asp ,за
исключением создания ключей. Там же можно прочитать , о том как включить ссылку на библиотеку
типов ADOX(Для этого следует выбрать Project | Import Type Library главного меню среды
разработки Delphi, а затем из списка доступных библиотек типов выбрать Microsoft ADO Ext.
2.5 for DDL and Security. Чтобы избежать конфликтов с именами уже имеющихся классов Delphi
(например, TTable), следует переименовать классы ADOX, заменив имена на что-нибудь типа TADOXxxx.
Затем нужно убрать отметку из опции Generate Component Wrapper — в данном случае нам нужен
только файл *.pas, содержащий интерфейс для доступа к объектам ADOX, а затем нажать кнопку
Create Unit. Это приведет к созданию файла ADOX_TLB.PAS, содержащего интерфейс к библиотеке
типов ADOX. Создав этот файл, мы должны сослаться на него, а также на модуль ADODB в
предложении Uses главного модуля нашего проекта).

Создаются 2 таблицы (Otdel,Departament).Поле NumDepartament в таблице Otdel является
внешним ключем к полю NumDepartament в таблице NumDepartament. Поля NumDepartament и
NumOtdel в таблицах Departament и Otdel сответственно являются первичными ключами.

Зависимости: Библиотека типов ADOX
Автор:       Дима
Copyright:   http://www.olap.ru/desc/microsoft/borland_ado.asp + msdn
Дата:        30 июля 2003 г.
***************************************************** }

var
  Catalog: _Catalog;
  Table: _Table;
  Column: _Column;
  FKKey: _Key;
begin
  Catalog := CoCatalog.Create;
  try
    Catalog.Set_ActiveConnection('Provider=Microsoft.Jet.OLEDB.4.0;' +
      'Data Source=' + DatabaseName + ';Persist Security Info=False');
    //DatabaseName - Путь к файлу с базой данных (C:\1\12.mdb)
    //=============================================DOLGNOST=========================
    Table := CoTable.Create;
    try
      Table.Name := 'Dolgnost';
      Table.ParentCatalog := Catalog;
      Column := CoColumn.Create;
      try
        with Column do
        begin
          ParentCatalog := Catalog;
          Name := 'NumDolgnost';
          Type_ := adInteger;
        end;
        Table.Columns.Append(Column, 0, 0);
      finally
        Column := nil;
      end;
      with Table.Columns do
      begin
        Append('NameDolgnost', adVarWChar, 50);
      end;
      Catalog.Tables.Append(Table);
    finally
      Table := nil;
    end;
    //=============================================DEPARTAMENT======================
    Table := CoTable.Create;
    try
      Table.Name := 'Departament';
      Table.ParentCatalog := Catalog;
      Column := CoColumn.Create;
      try
        with Column do
        begin
          ParentCatalog := Catalog;
          Name := 'NumDepartament';
          Type_ := adInteger;
        end;
        Table.Columns.Append(Column, 0, 0);
      finally
        Column := nil;
      end;
      with Table.Columns do
      begin
        Append('NameDepartament', adVarWChar, 50);
      end;
      Catalog.Tables.Append(Table);
    finally
      Table := nil;
    end;
    //==============================Создание первичных ключей=======================
        //Otdel
    FKKey := CoKey.Create;
    try
      with FKKey do
      begin
        Name := 'PKNumOtdel';
        Type_ := adKeyPrimary;
        Columns.Append('NumOtdel', adInteger, 0);
      end;
      Catalog.Tables['Otdel'].Keys.Append(FKKey, 0, EmptyParam, '', '');
    finally
      FKKey := nil;
    end;
    //Departament
    FKKey := CoKey.Create;
    try
      with FKKey do
      begin
        Name := 'PKNumDepartament';
        Type_ := adKeyPrimary;
        Columns.Append('NumDepartament', adInteger, 0);
      end;
      Catalog.Tables['Departament'].Keys.Append(FKKey, 0, EmptyParam, '', '');
    finally
      FKKey := nil;
    end;
    //==============================Создание вторичных ключей=======================
        //Otdel
    FKKey := CoKey.Create;
    try
      with FKKey do
      begin
        Name := 'FKNumOtdel';
        Type_ := adKeyForeign;
        Columns.Append('NumDepartament', adInteger, 0);
        RelatedTable := 'Departament';
        Columns['NumDepartament'].RelatedColumn := 'NumDepartament';
        UpdateRule := adRICascade;
      end;
      Catalog.Tables['Otdel'].Keys.Append(FKKey, 0, EmptyParam, '', '');
    finally
      FKKey := nil;
    end;
  finally
    Catalog = nil;
  end;




Похожие по теме исходники

Создание таблиц в Paradox

Таблица совместимости продуктов питания

Нейросеть для распознавания образов

Механизм станка качалки для нефти

 

Весы для взвешивания

Кувшины для воды

Доска для игры Реверси

Transfer Tables Excel-Access