DBGrid два знака после запятой

@Oliynyk · Регистрация: 17.02.2016

Студворк — интернет-сервис помощи студентам

Добрый вечер, подскажите, пожалуйста, как сделать, чтобы в DBGrid выводилось в столбце "Цена за единицу" число и два знака после запятой. Про DataSet>DisplayFormat>'#.00' в курсе..но у меня в бд access уже вбиты числа, а при вводе вышеуказанной команды, проставляется то что в кавычках...Можно ли как то сделать чтоб числа из бд отображались и просто добавить два знака после запятой, или нужно снова данные вводить уже в Delphi?

P.S. если что то сверхглупое и примитивное спросила, извините, я периодически перекрашиваюсь в блонд, так что сделайте уж скидочку на умственные способности.

Скандербег · 26.02.2016, 19:55

В списке полей Датасета выбирается нужное и создается процедура-обработчик события OnGetText.
В этой процедуре возможно изменить формат отображения числа:

Delphi
1
2
3
4
procedure TForm1.ADOQuery1S2GetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  Text := Format('%7.2f', [DBGrid1.DataSource.DataSet.FieldByName('S2').AsFloat]);
end;

Здесь имя поля S2 для примера и вместо этого имени подставить нужное.

Добавлено через 8 минут
Да и свойство DisplayFormat, который относится не к Датасету в целом, а к конкретному полю тоже не стоит выбрасывать на помойку - работает нормально.

@krapotkin · 27.02.2016, 06:21

Сообщение от Oliynyk

DataSet>DisplayFormat>'#.00'

должно быть не Dataset а конкретное поле

@kavasaka · 22.03.2016, 11:01

Delphi
1
[quote="Скандербег;8806315"]Text := Format('%7.2f', [DBGrid1.DataSource.DataSet.FieldByName('S2').AsFloat]);[/quote]

А как сделать чтобы пустые значения оставались пустыми вместо 0.00?

Скандербег · 22.03.2016, 11:12

Delphi
1
2
3
4
5
6
7
procedure TForm1.ADOQuery1S2GetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  if DBGrid1.DataSource.DataSet.FieldByName('S2').AsFloat <> 0 then
    Text := Format('%7.2f', [DBGrid1.DataSource.DataSet.FieldByName('S2').AsFloat])
  else
    Text := '';
end;

@kavasaka · 22.03.2016, 11:38

Супер! Спс!
Только чего у грида значение поля спрашивать то? А если несколько гридов или вообще их нет, тогда как?
думаю можно будет короче

Delphi
1
 DataSet111.FieldByName('S2').AsFloat

проверил работает))

@northener · 22.03.2016, 11:43

Сообщение от kavasaka

думаю можно будет короче

Delphi
1
Sender.AsFloat

Скандербег · 22.03.2016, 11:48

Сообщение от kavasaka

можно будет короче

Короче, разумеется и спорить никто не собирается

Вот только бы народ давал себе труд указывать какие применяет компоненты.
А доступ к данным через датасет грида - это просто наиболее универсальный метод для демонстрации приемов.

Сообщение от kavasaka

А если несколько гридов или вообще их нет, тогда как?

Никак, потому что никаких данных тогда нет и спрашивать нечего и не у кого

По поводу нескольких гридов - так ведь указываем конкретно датасет какого грида используем (здесь для примера DBGrid1)

@kavasaka · 22.03.2016, 12:04

Сообщение от Скандербег

наиболее универсальный метод для демонстрации приемов.

Но на форуме ж постоянно твердят что Грид никакие данные не хранит, только отображает. Тогда чего за ними туда лазить, даже в обучающих целях? Для этого датасет есть - из него и брать.

Сообщение от northener

Sender.AsFloat

Это воопще супер - еще и заголовок процедуры на все Float поля всех датасетов этого модуля раскидать, чтобы не повторяться))

Скандербег · 22.03.2016, 12:14

Сообщение от kavasaka

Тогда чего за ними туда лазить, даже в обучающих целях?

А где в приведенном примере видно, что за данными лезут в грид? Ничего похожего там нет. Повнимательнее присмотритесь и увидите тот же самый датасет, который хранит данные.

А доступ к данным в датсете через грид и буферный Datasource - это нормальная практика (редко применяемая, конечно, из-за длинной цепочки доступа).

К тому же, если бы вопрошающий четко и ясно указал какой датасет применяется, то именно он и был бы использован для примера.

Впрочем, чего тут дискутировать, все равно northener показал наиболее оптимальный вариант доступа к данным поля.

@Oliynyk · 30.03.2016, 01:04 **[ТС]**

Сообщение от Скандербег

К тому же, если бы вопрошающий четко и ясно указал какой датасет применяется, то именно он и был бы использован для примера.

Извините, что не отвечала, ноут залила нечаянно..
У меня пошло с кодом "Скандербег", ниже из моей версии приведен код

Delphi
1
2
3
4
5
procedure TDataModule1.bcdfldFindQueryDSDesigner6GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  Text := Format('%7.2f', [TovaryForm.DBGrid2.DataSource.DataSet.FieldByName('Цена за единицу').AsFloat]);
end;

СПАСИБО БОЛЬШОЕ)))

@northener · 30.03.2016, 01:43

Не по теме:

Сообщение от Oliynyk

ниже из моей версии приведен код

Сообщение от Oliynyk

bcdfldFindQueryDSDesigner6

Это ж надо придумать такое имя для компонента! :)

@Oliynyk · 30.03.2016, 01:51 **[ТС]**

Сообщение от northener

DelphiВыделить код
1
Sender.AsFloat

А куда это вставлять?
если в OnGetText, то просто пустой столбец становится..

Добавлено через 2 минуты

Сообщение от northener

Это ж надо придумать такое имя для компонента!

Версия такая на залитом ноуте стоит..когда особо нет времени не меняю префикс компонентов..причем если запустить на другой день опять будет свои названия предлагать вновь установленным на форму компонентам..

@northener · 30.03.2016, 02:00

Сообщение от Oliynyk

А куда это вставлять?

Раз у вас и так всё "пошло", то никуда пока ничего не надо вставлять.

Не по теме:

P.S. Ей-богу я не придумывал специально сей ответ!

@Oliynyk · 30.03.2016, 02:06 **[ТС]**

Сообщение от northener

Раз у вас всё "пошло", то никуда пока ничего не надо вставлять.

Пошло, чему я несказанно рада!!! Но у меня часто встречается в одной бд столбец с ценой или суммой, и в одной и той же, да и в разных тоже таблицах, пока прописала к каждому такому столбцу, но на будущее, не факт, что это негромостко смотрится..

@northener · 30.03.2016, 02:09

Сообщение от Oliynyk

не факт, что это негромостко смотрится..

А что наш взгляд "громоздко смотрится"?

@Oliynyk · 30.03.2016, 02:16 **[ТС]**

Сообщение от northener

А что наш взгляд "громоздко смотрится"?

количество процедур...
у меня их аж 10 вышло..
Да я и не спорю, что в проге Delphi даже в той, которая построена только на обращении к БД могут быть очень навороченные и длинные процедуры,а тут маленькие, в одну строчку, но всё равно хотелось узнать, нет ли возможности обобщить..а то 10 процедур конечно не много, а если будет ну не знаю, допустим, порядка 30, уже будет рябить в глазах..

@kavasaka · 30.03.2016, 08:22

Сообщение от northener

Sender.AsFloat

Тогда сделайте так вот ОДНУ процедуру, а потом в инспекторе повставляйте ее имя на все ваши 10 полей. Будет не громоздко.

@Oliynyk · 30.03.2016, 12:09 **[ТС]**

Сообщение от kavasaka

Тогда сделайте так вот ОДНУ процедуру, а потом в инспекторе повставляйте ее имя на все ваши 10 полей. Будет не громоздко.

Если несложно, можно чуть чуть поподробнее

прямо скажу в delphi делаю либо с учебником, либо по исходникам, либо по видео урокам...поэтому не совсем поняла..так скажем смысл поняла, а как выглядеть будет нет..

@kavasaka · 30.03.2016, 13:13

Ну например у вас на форме 25 кнопок и все должны делать одно и тоже действие.
Создаем 1 кнопку. на ее событие onClick в инспекторе двойной щелчек и пишем код.

Delphi
1
2
3
4
procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
.... действие
end;

Дальше что? 25 раз этот код повторять? Не надо, просто создаем 25 кнопок и каждой в инспекторе в onClick пишем слово BitBtn1Click. Здесь будет аналогично. Или опять не понятно?

Добавлено через 7 минут
может не понятно написал, слово BitBtn1Click вставляем в инспекторе для каждой из 24 оставшихся кнопок.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Oliynyk 0 / 0 / 0 Регистрация: 17.02.2016 Сообщений: 29

	DBGrid два знака после запятой 26.02.2016, 18:10. Показов 6163. Ответов 20 Метки нет (Все метки) Добрый вечер, подскажите, пожалуйста, как сделать, чтобы в DBGrid выводилось в столбце "Цена за единицу" число и два знака после запятой. Про DataSet>DisplayFormat>'#.00' в курсе..но у меня в бд access уже вбиты числа, а при вводе вышеуказанной команды, проставляется то что в кавычках...Можно ли как то сделать чтоб числа из бд отображались и просто добавить два знака после запятой, или нужно снова данные вводить уже в Delphi? P.S. если что то сверхглупое и примитивное спросила, извините, я периодически перекрашиваюсь в блонд, так что сделайте уж скидочку на умственные способности. 0