Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Создание базы данных на с++builder (http://forum.oszone.net/showthread.php?t=30435)

Galosh 12-06-2003 05:22 208621

Eсть значит моя форма по криету базы данных


[img]c:\primer.jpg[/img]


Колонки базы задаются компонентом Edit. Значение свойства Text присваивается некоей переменной (допустим perviy). Далее идет непосдедственно создание самой базы. Вот код:
Код:


SmallString<43> * perviy;
SmallString<43> * vtoroy;
SmallString<43> * nazva;
 
 
 
void __fastcall TForm4::Button1Click(TObject *Sender)
{
perviy = Edit2->Text;
vtoroy = Edit3->Text;
nazva = Edit1->Text;
Table1->Active = false;
Table1->TableName = nazva * ;
 
if (! Table1->Exists)
{
 * Table1->TableType = ttParadox;
 * Table1->FieldDefs->Clear();
 * TFieldDef *pNewDef = Table1->FieldDefs->AddFieldDef();
 *
 * pNewDef->Name = perviy;
 * pNewDef->DataType = ftString;
 * pNewDef->Size = 20;
 * pNewDef->Required = true;
 * pNewDef = Table1->FieldDefs->AddFieldDef();
 * pNewDef->Name = vtoroy;
 * pNewDef->DataType = ftBoolean;
 * Table1->IndexDefs->Clear();
 * Table1->IndexDefs->Add("",perviy,TIndexOptions() <<ixPrimary <<ixUnique);
 * Table1-> CreateTable();
 * Table1->Open();
 * Table1->Insert();
 * Table1->FieldByName(perviy)->AsString = "Петренко";
 * Table1->FieldByName(vtoroy)->AsBoolean = false;
 * Table1->Post();
 * ShowMessage(AnsiString("Таблица создана"));
 * }
 * else
 * {
 
 * ShowMessage(AnsiString("Таблица уже создана"));
 * * * Table1->Active = false;
 * Table1->Active = true;
 
 * } * * * *
}

Проблема в следующем: при незаполнении любого поля выбивает мол одна из переменных пуста(тоесть не имеет значения). О думаю что ошибка в этом. Надо сделать так, чтоб если переменной не присвоено никакое значение, значит и не создавалась колонка, тоесть кусок кода типа
Код:

pNewDef = Table1->FieldDefs->AddFieldDef();
 * pNewDef->Name = vtoroy;
 * pNewDef->DataType = ftBoolean;

не выполнялся. Также надо переделать все, и доделать что-то(вот о том что надо до делать я у вас народ и спрашиваю).
И еще надо сделать чтоб заполнение полей было в любом случае по-порядку. Тоесть Если даных нет в первом поле, а есть во втором, то выдавалось соответствующее сообщение. А если данные есть в первов, но нет в последуюющих, то чтоб создавалась база с одной колонкой и без вывода каких либо ошибок. Работаю с Paradox

DYURIK 27-06-2003 11:32 208622

Значит слушай сюда....
Код ты конечно с хелпа стянул и по этому кое-что не получается (надо вдуплить для чего каждая строка)....
Но вот как делаю я:
 TTable* dbftable = new TTable(Application);
 dbftable->DatabaseName=/*сдесь алиас базы*/alias;
 dbftable->TableName="EXCH_TMP.DBF";/*сдесь че хош*/
  if (!dbftable->Exists)
     {
     dbftable->Active = false;
     dbftable->TableType=ttDBase;/*сдесь пишеш свой тип*/
     dbftable->FieldDefs->Clear();
     dbftable->FieldDefs->Add("NOMKV", ftInteger, 0, False);
     dbftable->FieldDefs->Add("TYP", ftInteger, 0, False);
     dbftable->FieldDefs->Add("KODVAL", ftInteger, 0, False);
     dbftable->FieldDefs->Add("SUM_EXCH", ftFloat, 0, False);
     dbftable->FieldDefs->Add("SUM_EQUI", ftFloat, 0, False);
     dbftable->FieldDefs->Add("KURS_OPER", ftFloat, 0, False);
     dbftable->FieldDefs->Add("STATUS", ftInteger, 0, False);
     dbftable->CreateTable();
     }
  dbftable->Active = true;

но это  я делал в 4 билдере
в 5 делаю так:

TTable* Table1= new TTable(Application);

AnsiString * perviy;
AnsiString* vtoroy;
AnsiString * nazva;

perviy = Edit2->Text;
vtoroy = Edit3->Text;
nazva = Edit1->Text;
Table1->Active = false;
Table1->TableName = nazva;

if (! Table1->Exists)
{
* Table1->TableType = ttParadox;
* Table1->FieldDefs->Clear();
* TFieldDef *pNewDef = Table1->FieldDefs->AddFieldDef();
 
if (!perviy.IsEmpty())
 {
* pNewDef->Name = perviy;
* pNewDef->DataType = ftString;
* pNewDef->Size = 20;
* pNewDef->Required = true;
 }
* pNewDef = Table1->FieldDefs->AddFieldDef();
if (!vtoroy.IsEmpty())*
 {
  pNewDef->Name = vtoroy;
* pNewDef->DataType = ftBoolean;
 }

* Table1->CreateTable();
* Table1->Active = true;
* Table1->Append();
 if (Table1->FieldList->Fields[0]->FieldName == perviy)
* Table1->FieldByName(perviy)->AsString = "Петренко";
 if (Table1->FieldList->Fields[1]->FieldName == vtoroy)
* Table1->FieldByName(vtoroy)->AsBoolean = false;
* Table1->Post();
* ShowMessage(AnsiString("Таблица создана"));
* }
* else
* {

* ShowMessage(AnsiString("Таблица уже создана"));
* * * Table1->Active = false;
* Table1->Active = true;

* }

удачи!!!!

Galosh 27-06-2003 15:47 208623

Вот пасибо. Токо я уже сделал, но чуть не так(да и дипломную уже вчера сдал). Кстати с хелпа не тачил, у меня урезаный Билдер, а еси ты про красоту, дык это я для себя ифы разбрасывал, чтоб проще было:( .
Так вот так как никто не писал(посотри когда тема создана) пошел через Ифы(похожим способом). Вот токо при проверке второе разветвление не пахало. Тоесть проверялось, но не пахало. С кодом все было нормально. Ошибки небыло - уверен.
Короче не пошло.

Сделал кординально по другому.
При создании формы пермым был запрос "На скоко колонок вы хотите базу?". И в зависимости от того какая цифра была введена выполнялся соответствующий код. кстати использовал switch. Проще...Все равно пасибо, первый человек, которому было не лень:up:

[s]Исправлено: Galosh, 16:48 27-06-2003[/s]


Время: 07:20.

Время: 07:20.
© OSzone.net 2001-