|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как положить результат запроса напрямую в Label1.Caption
Столкнулся недавно с проблемой, начал создавать программу, которая из некоторой базы MSSQL вытягивает скидку заказчика по номеру его дисконтной карты или фамилии. Всего скидок на материалы окола 7 типов: пвх-конструкции,алюминиевые,комплектующие,ролеты,подок онники и т.д. Чтобы определить скидку на любой 1 вид материала из перечисленных делаю через запрос Query, и потом весь результат помещаю в DBGridEh, тут всё нормально проходит.
Проблема: Я еще создал 6 штук label сбоку формы, и 6 запросов Query, как мне через нажатие на кнопку чтобы сразу результаты запросов помещались в label.caption. |
#2
|
|||
|
|||
|
#3
|
||||
|
||||
Ну к примеру можно так:
Код:
procedure TForm1.BitBtn1Click(Sender: TObject); begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('select count(zakupok), sum(Cena), avg(Cena), max(cena), min(cena) from pokupki;'); Query1.Open; Label1.Caption:=Query1.Fields[0].AsString; Label2.Caption:=Query1.Fields[1].AsString; Label3.Caption:=Query1.Fields[2].AsString; Label4.Caption:=Query1.Fields[3].AsString; Label5.Caption:=Query1.Fields[4].AsString; end; From VasYa with LoVe... |
#4
|
|||
|
|||
xchrom,Appolon - спасибо, всё работает.
|