Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.11.2010, 22:50   #1
Lesa1988
Пользователь
 
Регистрация: 22.11.2010
Сообщений: 11
По умолчанию Как вывести в Label Значение из таблицы

Нужно чтобы на форме в label вывелось значение из таблицы
В базе есть таблица с материалами (Код,наимен,ЕД изм и тд)
В DBLookupComboboxEh1 сделал чтоб выбиралось из таблицы код материала, а в Label нужно чтобы выводились Ед.измерения

В коде все правильно только нужно дописать в конце где label
Код:
procedure TAnaliz_mat2.DBLookupComboboxEh1DropDown(Sender: TObject);
begin
   with ADOQuery1 do begin
    Close;
    with SQL do begin
      Clear;
      Add('Use baza2001');
      Add('select top 10 item from dbo.item');
      Add('where P_M_T_Code=''P'' and item like isnull('+StrNull(StringReplace(DBLookupComboboxEh1.Text,'*','%',[rfReplaceAll, rfIgnoreCase]))+',item) and description <> ''не использовать''');
      Add('order by item');
    end;
    Open;
  end;
  if ADOQuery1.RecordCount > 0 then
    begin
      with MemTableEh1 do
      begin
       IF Active then Close;
        MemTableEh1.CreateDataSet;
      end;
    end;
 ADOQuery1.Close;

  with ADOQuery2 do begin
    Close;
    with SQL do begin
      Clear;
      Add('Use baza2001');
      Add('select U_M from dbo.item');

      Add(' where item=isnull('+StrNull(StringReplace(DBLookupComboboxEh1.Text,'*','%',[rfReplaceAll, rfIgnoreCase]))+',item) and description <> ''не использовать''');
      Add('order by item');
    end;
    Open;
  end;

     Label.text

Последний раз редактировалось Stilet; 25.11.2010 в 09:41.
Lesa1988 вне форума Ответить с цитированием
Старый 25.11.2010, 11:28   #2
skgwazap
Пользователь
 
Регистрация: 24.11.2010
Сообщений: 40
По умолчанию

У Label есть свойство Caption
Попробуйте так:
Код:
Label1.Caption:=Label1.Caption + ваше значение + #13 + #10;
#13 и #10 это перевод строки
skgwazap вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как вывести в комбобох столбцы таблицы? MeTeOpA БД в Delphi 4 18.05.2010 03:31
Win32 как вывести на экран значение переменной STill_ace Общие вопросы C/C++ 11 22.08.2009 17:47
Как вывести значение полей из выделенной записи в DBGrid ? DS75 БД в Delphi 5 30.04.2009 13:40
Как отловить значение из таблицы? mik Microsoft Office Excel 5 27.10.2008 16:34