![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
Вообще имееться на форме ComboBox и DBComboBox, как зделать чтобы при выборе например: 4 курса 410 группы, определенная база подгрузилась в DBGrid...
http://rapidshare.com/files/28193722..._mod3.zip.html |
|
#2
|
||||
|
||||
|
В DBGrid ничего не грузится, он только отображает, то что ты загрузил в набор данных. А вот загрузить один из наборов данных в зависимости от выбора в ComboBox можно примерно так:
Код:
case ComboBox1.ItemIndex of 0: Query1.SQL.Text := 'select * from MyTable where Gruppa=''410'''; 1: Query1.SQL.Text := 'select * from MyTable where Gruppa=''310'''; 2: Query1.SQL.Text := 'select * from MyTable where Gruppa=''210'''; end; Query1.Open; |
|
#3
|
||||
|
||||
|
если предположить, что в комбоБоксе будут номера групп, то можно и так:
Код:
Query1.SQL.Text := 'select * from MyTable where Gruppa='+ComboBox1.Text +''; Query1.Open; |
|
#4
|
||||
|
||||
|
покажите на исходнике
![]() |
|
#5
|
||||
|
||||
|
Не, так дело не пойдет. Вам дали практически готовый код, мозг включите и тогда будет Вам счастье.
|
|
#6
|
||||
|
||||
|
а что там показывать то .... тебе готовый код дали осталось его только вставить в событие OnChange твоего ComboBox
|
|
#7
|
||||
|
||||
|
Код:
try
TableDB.Active:=false;
TableDB.Close;
TableDB.TableName:=extractfilepath(Application.ExeName)+'DB\'+ComboBox2.Text+'.db';
TableDB.Open;
TableDB.Active:=true;
Except
ON E:EDBEngineError do showmessage('DB не найдена');
end; |