Interbase & Builder
Всем привет!
Народ, как решить следующие проблемы:
1) мне на отдельной форме нужно в комбобокс из базы данных Interbase вытащить некоторую информацию (напрмер, названия товаров). Неужели придётся бросать на форму все компоненты (IBDatabase, IBTransaction,IBQuery) или можно обойтись малой кровью (например, создать динамически все эти объекты, выудить инфу, и закрытть их с глаз долой)????
2) каким образом сделать так, что бы юзер в комбобоксе выбирал название товара, а он интерпретировался в числовой ключ для запроса в БД???
Народ, как решить следующие проблемы:
1) мне на отдельной форме нужно в комбобокс из базы данных Interbase вытащить некоторую информацию (напрмер, названия товаров). Неужели придётся бросать на форму все компоненты (IBDatabase, IBTransaction,IBQuery) или можно обойтись малой кровью (например, создать динамически все эти объекты, выудить инфу, и закрытть их с глаз долой)????
2) каким образом сделать так, что бы юзер в комбобоксе выбирал название товара, а он интерпретировался в числовой ключ для запроса в БД???
1. Можешь создать динамически - никто тебе не запрещает. Но я бы не стал так делать - потом больше запутаешься - откуда это берется и почему. Лучше вынеси все компоненты для работы с БД в DataModule и когда тебе будет необходимо создавай его и пользуйся, а как попользовался - так удаляй его.
2. Я использую примерно вот такой код
.....
//инициализация комбо
IBTransaction1->StartTransaction();
IBSQL1->SQL->Text = "select id_tovar, name from tovar";
IBSQL1->ExecQuery();
while(!IBSQL1->Eof)
{
ComboBox1->Items->AddObject(IBSQL1->Fields[1]->AsString,(TObject *)(new String(IBSQL1->Fields[0]->AsString)));
IBSQL1->Next();
}
IBSQL1->Close();
IBTransaction1->Rollback();
..........
//получение значения
String *add = (String *)ComboBox1->Items->Objects[ComboBox1->ItemIndex];
ShowMessage("Код товара - "+*add);
2. Я использую примерно вот такой код
.....
//инициализация комбо
IBTransaction1->StartTransaction();
IBSQL1->SQL->Text = "select id_tovar, name from tovar";
IBSQL1->ExecQuery();
while(!IBSQL1->Eof)
{
ComboBox1->Items->AddObject(IBSQL1->Fields[1]->AsString,(TObject *)(new String(IBSQL1->Fields[0]->AsString)));
IBSQL1->Next();
}
IBSQL1->Close();
IBTransaction1->Rollback();
..........
//получение значения
String *add = (String *)ComboBox1->Items->Objects[ComboBox1->ItemIndex];
ShowMessage("Код товара - "+*add);
Ух ты! Круть! Всё работает. Огромное спасибо за помощь!:}