Нахождение произведения

[Таракашка]

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

[ACE Valery]

Ну а ваш код где?

[denisbrain]

Сообщение от Таракашка

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

1 SQL запросе написать
2 столбик с вычисляемым полем на базе DataSet

[Таракашка]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, DB,
  DBTables;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

var KeyFields: String;
KeyValues:Variant;
Options:TLocateOptions;

begin
if not (CheckBox1.Checked and CheckBox2.Checked and CheckBox3.Checked and CheckBox4.Checked) then
begin
MessageDlg('не заданы условия поиска', mtInformation, [mbOK],0);
exit;
end;
if CheckBox1.Checked and CheckBox2.Checked and CheckBox3.Checked and CheckBox4.Checked then
begin
keyFields:='Name;Prise;kol-vo;summa';
KeyValues:=VararrayOf([Edit1.Text, Edit2.Text, Edit3.Text, Edit4.Text]);
end
else
begin
if CheckBox1.Checked then
begin
KeyFields:='Name';
KeyValues:=Edit1.Text;
end;
if CheckBox2.Checked then
begin
KeyFields:='Price';
KeyValues:=Edit2.Text;
end;
if CheckBox3.Checked then
begin
KeyFields:='Kol-vo';
KeyValues:=Edit3.Text;
end;

if CheckBox4.Checked then
begin
KeyFields:='Summa';
KeyValues:=Edit4.Text;
end;



end;
options:=[locaseinsensitive, loPartialKey];
if not table1.Locate(keyfields, keyvalues, options) then
begin
beep;
messageDlg ('запись не найдена',  mtinformation, [mbok], 0);
exit;
end;
end; 

procedure TForm1.FormCreate(Sender: TObject);

begin

Table1Summa.Value:=Table1BKol-vo.Value * Table1BPrice.Value;
end;
end.

[Stilet]

kol-vo

Это что имя поля? Ты в курсе что символ "-" может тебе поперек прямой кишки стать?

Нужно добавить столбец количество и сумма.

Это должно быть вычисляемым полем. Добавь его в настройках полей Table как calculated, а Table1Summa.Value:=Table1BKol-vo.Value * Table1BPrice.Value; вынеси в событие OnCalcFields.

[Таракашка]

сейчас попробую) а как сделать его в вычисляемым? в каких именно настройках это смотреть?

[Таракашка]

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
Table1Summa.Value:=Table1BKolichest vo.Value * Table1BPrice.Value;
end;


и все равно ошибка

[Stilet]

и все равно ошибка

Не вижу. А раз не вижу - все в порядке.

[Таракашка]

мне пишет, что типо нельзя производить действия с данными операндами(

[Stilet]

Значит действительно нельзя )