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

alekssgor

Well-known member
26.05.2008
118
0
#1
Создал програмно псевданим и таблицу PARADOX c с помощью Table.
Как програмно добавить пароль доступа к таблице? Не используя Database Desktor?

Пример:
Код:
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 = "АДРЕС";