БД на C++builder, Создание пароля

Тема в разделе "Borland C++ Builder & Kylix", создана пользователем alekssgor, 7 янв 2010.

  1. alekssgor

    alekssgor Well-Known Member

    Регистрация:
    26 май 2008
    Сообщения:
    118
    Симпатии:
    0
    Создал програмно псевданим и таблицу PARADOX c с помощью Table.
    Как програмно добавить пароль доступа к таблице? Не используя Database Desktor?

    Пример:
    Код (Text):
    if(!Session->IsAlias("myBase"))
    {
    ShowMessage("Вероятно это первый запуск программы");
    //Создание псевдонима базы данных
    Session->AddStandardAlias("myBase",
    "F:", "PARADOX");
    Session->SaveConfigFile();
    Session->Close();

    }
    Table1->DatabaseName = "myBase";
    Table1->TableName ="Tel.db";
    if(!Table1->Exists)
    {
    Table1->TableType = ttParadox;
    Table1->FieldDefs->Clear();
    TFieldDef* pNewDef = Table1->FieldDefs->AddFieldDef();
    //Описание первого поля
    pNewDef->Name = "NUM";
    pNewDef->DataType = ftAutoInc;
    pNewDef->Required = true;
    //Описание второго поля
    pNewDef = Table1->FieldDefs->AddFieldDef();
    pNewDef->Name = "NAM";
    pNewDef->DataType = ftString;
    pNewDef->Size = 20;
    //Описание третьего поля
    pNewDef = Table1->FieldDefs->AddFieldDef();
    pNewDef->Name = "FAM";
    pNewDef->DataType = ftString;
    pNewDef->Size = 20;
    //Описание четвёртого поля
    pNewDef = Table1->FieldDefs->AddFieldDef();
    pNewDef->Name = "TEL";
    pNewDef->DataType = ftString;
    pNewDef->Size = 20;
    //Описание пятого поля
    pNewDef = Table1->FieldDefs->AddFieldDef();
    pNewDef->Name = "ADDR";
    pNewDef->DataType = ftString;
    pNewDef->Size = 30;
    //Описание индекса
    Table1->IndexDefs->Clear();
    //Индекс без имени - первичный ключ таблицы
    Table1->IndexDefs->Add("","NUM",TIndexOptions() <<ixPrimary <<ixUnique);
    //Создание таблицы методом CreateTable
    Table1->CreateTable();
    Table1->Open();
    }
    else
    Table1->Active =true;

    DBGrid1->Columns->Add();
    DBGrid1->Columns->Items[0]->Alignment = taCenter;
    DBGrid1->Columns->Items[0]->FieldName = "NAM";
    DBGrid1->Columns->Items[0]->Title->Alignment = taCenter;
    DBGrid1->Columns->Items[0]->Title->Caption = "ИМЯ";

    DBGrid1->Columns->Add();
    DBGrid1->Columns->Items[1]->Alignment = taCenter;
    DBGrid1->Columns->Items[1]->FieldName = "FAM";
    DBGrid1->Columns->Items[1]->Title->Alignment = taCenter;
    DBGrid1->Columns->Items[1]->Title->Caption = "ФАМИЛИЯ";

    DBGrid1->Columns->Add();
    DBGrid1->Columns->Items[2]->Alignment = taCenter;
    DBGrid1->Columns->Items[2]->FieldName = "TEL";
    DBGrid1->Columns->Items[2]->Title->Alignment = taCenter;
    DBGrid1->Columns->Items[2]->Title->Caption = "ТЕЛЕФОН";

    DBGrid1->Columns->Add();
    DBGrid1->Columns->Items[3]->Alignment = taCenter;
    DBGrid1->Columns->Items[3]->Width = 225;
    DBGrid1->Columns->Items[3]->FieldName = "ADDR";
    DBGrid1->Columns->Items[3]->Title->Alignment = taCenter;
    DBGrid1->Columns->Items[3]->Title->Caption = "АДРЕС";
     
Загрузка...

Поделиться этой страницей