|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Вычисляемые поля в dbGrid
не могу выполнить арифметичекие операции с полями в dbGrid и чтобы результат выводился.Помогите,кто умеет или знает
|
#2
|
|||
|
|||
На форме DBGrid1, он связан с DataSource1, который в свою очередь связан с Table1. Выберем для Table1 базу данных DBDEMOS, таблицу animals.dbf, Active=True.
Для таблицы запустим редактор полей, добавим два поля SIZE и WEIGHT. Заведём новое поле, назовём Vasya, тип Float. Оно будет объявлено Calculated. Вычисления поместим в обработчик таблицы OnCalcFields. Если поля SIZE и WEIGHT не нужно просматривать, то у них Visible = False. Можно запускать. Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, DBTables; type TForm1 = class(TForm) DataSource1: TDataSource; Table1: TTable; DBGrid1: TDBGrid; Table1SIZE: TSmallintField; Table1WEIGHT: TSmallintField; Table1Vasya: TFloatField; procedure Table1CalcFields(DataSet: TDataSet); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Table1CalcFields(DataSet: TDataSet); begin Table1Vasya.AsFloat:= Table1SIZE.AsFloat * Table1WEIGHT.AsFloat; end; end. |
#3
|
||||
|
||||
А ты смотрела этот ответ? -
http://www.delphisources.ru/forum/sh...0626#post10626 Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#4
|
||||
|
||||
Прости,забыла отписаться!На самом деле очень помогло много раз пасибочки
|
#5
|
||||
|
||||
Всегда Welcome!
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|