|
다음과 같이 파라독스 db를 만들어지게 했습니다..근데 잘 만들어 지는데..접근을 어떻게 해야 하는지....보통은 컴포넌트를 위치해 놓고 접근하잖아요..이건 컴포넌트를 위치시켜 놓은게 아니니깐.
어떻게 접근을 해야 하는지 정말 궁금합니다.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TTable *NewTable = new TTable(Form1);
NewTable->Active = false;
NewTable->DatabaseName = "FOOD_POS";
NewTable->TableName = "0001";
NewTable->TableType = ttDefault;
NewTable->FieldDefs->Clear();
TFieldDef *NewField = NewTable->FieldDefs->AddFieldDef(); // 첫번째 필드
NewField->DataType = ftString;
NewField->Size = 13;
NewField->Name = "DATE";
NewField = NewTable->FieldDefs->AddFieldDef(); // 두번째 필드
NewField->DataType = ftString;
NewField->Size = 1;
NewField->Name = "SECT";
NewField = NewTable->FieldDefs->AddFieldDef(); //세번째 필드
NewField->DataType = ftString;
NewField->Size = 10;
NewField->Name = "INCST";
NewField = NewTable->FieldDefs->AddFieldDef(); //네번째 필드
NewField->DataType = ftString;
NewField->Size = 10;
NewField->Name = "OUTCST";
NewField = NewTable->FieldDefs->AddFieldDef(); //다번째 필드
NewField->DataType = ftString;
NewField->Size = 10;
NewField->Name = "REMAINDER";
NewTable->IndexDefs->Clear();
TIndexDef *NewIndex = NewTable->IndexDefs->AddIndexDef();
NewIndex->Name = "PrimaryIndex";
NewIndex->Fields = "DATE";
NewIndex->Options << ixPrimary << ixUnique;
bool CreateIt = (!NewTable->Exists);
if (!CreateIt)
if (Application->MessageBox((AnsiString("Overwrite table ") + "0001" +
AnsiString("?")).c_str(),
"Table Exists", MB_YESNO) == IDYES)
CreateIt = true;
if(CreateIt) NewTable->CreateTable();
}
|