1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| void __fastcall TForm1::Button1Click(TObject *Sender)
{
TTable *Client;
Client=new TTable(Form1);
Client->Active=false;
Client->DatabaseName="mabdd";
Client->TableName="Table_Client";
Client->FieldDefs->Clear();
TFieldDef *NouveauChamp=Client->FieldDefs->AddFieldDef();
NouveauChamp->Name="Id-Client";
NouveauChamp->DataType=ftInteger;
Client->FieldDefs->AddFieldDef();
NouveauChamp->Name="Nom";
NouveauChamp->DataType=ftString;
//Def des indexs
Client->IndexDefs->Clear();
TIndexDef *NewIndex=Client->IndexDefs->AddIndexDef();
NewIndex->Name="Cle-primaire";
NewIndex->Fields="Id-Client";
Client->CreateTable();
} |