подсчет суммы выбранной строки БД Аксесс 03 в Делфи 7

@MrJohn · Регистрация: 12.02.2010

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

Как подсчетать и отобразить в эдит при выборе поле таблицы в бд?

подсчет суммы выбранной строки БД Аксесс 03 в Делфи 7

@new_in_net · 15.04.2011, 22:31

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

Как подсчетать и отобразить в эдит при выборе поле таблицы в бд?Вложение 72716

никакого другого способа как подсчитывать самому не существует.
либо в Делфи

Delphi

function TForm1.Sum: integer;
var
  Bmk: TBookmark;
begin
  Result := 0;
  with Table1 do begin
    //Чтоб экран не дергался делаем
    DisableControls
    Bmk := GetBookmark;
    First;
    while not Eof do begin
      Result := Result + FieldByName('MySumField').AsInteger;
      Next;
    end;
    GotoBookmark(Bmk);
  end;
end;

либо через запрос с SQL:

SQL

1	SELECT SUM(MyField) FROM ... WHERE ...

@MrJohn · 16.04.2011, 00:30 **[ТС]**

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

никакого другого способа как подсчитывать самому не существует.
либо в Делфи

Delphi

function TForm1.Sum: integer;
var
  Bmk: TBookmark;
begin
  Result := 0;
  with Table1 do begin
    //Чтоб экран не дергался делаем
    DisableControls
    Bmk := GetBookmark;
    First;
    while not Eof do begin
      Result := Result + FieldByName('MySumField').AsInteger;
      Next;
    end;
    GotoBookmark(Bmk);
  end;
end;

либо через запрос с SQL:

SQL

1	SELECT SUM(MyField) FROM ... WHERE ...

можно все..

Я подсчетал сумму всего строчек в таблице, а вот выбранную...не выходит

@new_in_net · 16.04.2011, 00:42

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

можно все..

Я подсчетал сумму всего строчек в таблице, а вот выбранную...не выходит

честно говоря не понял что у вас не выходит...

@MrJohn · 16.04.2011, 00:52 **[ТС]**

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

честно говоря не понял что у вас не выходит...

КОроче, на фото видна таблица загруженная с бд аксессе..
Есть метка с именем "сумма выбранного поля" - это значит что когда мы вибраем поле с таблицы, стоимость( если оно есть) которая есть в базе, отображало в Edit вот пример

@new_in_net · 16.04.2011, 00:59

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

КОроче, на фото видна таблица загруженная с бд аксессе..
Есть метка с именем "сумма выбранного поля" - это значит что когда мы вибраем поле с таблицы, стоимость( если оно есть) которая есть в базе, отображало в Edit вот пример
Вложение 72756

Может вы имеете ввиду отобразить поле выделенной строки в edit? Тогда бросьте на форму TDBEdit и выбирите соответствующий DataSource & Field

@MrJohn · 16.04.2011, 12:52 **[ТС]**

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

Может вы имеете ввиду отобразить поле выделенной строки в edit? Тогда бросьте на форму TDBEdit и выбирите соответствующий DataSource & Field

Спасибо. Заработало!

А как теперь подсчетать скику товара( как это видно на скрине).? Пасибо!

@new_in_net · 16.04.2011, 16:37

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

Спасибо. Заработало!

А как теперь подсчетать скику товара( как это видно на скрине).? Пасибо!

Если известна сумма Х и скидка Y, то % скидки = Y/X*100
(если сумма - 500р, а скидка - 20р, то % скидки вычисляем так: 20/500*100 = 4%)

@MrJohn · 16.04.2011, 17:50 **[ТС]**

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

Если известна сумма Х и скидка Y, то % скидки = Y/X*100
(если сумма - 500р, а скидка - 20р, то % скидки вычисляем так: 20/500*100 = 4%)

Агапов.rar
можешь помоч с кодом, пытался - невыходит..

@new_in_net · 18.04.2011, 19:23

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

Вложение 72864
можешь помоч с кодом, пытался - невыходит..

у меня проблема с русскими таблицами и полями, но по крайней мере открыть проект удалось.
Понял что тебе нужно: Вычисляемое поле (calculated field), а потом показываете его опять с помощью TDBEdit

1. double click on ADOTable1
2. Right click - Add Fields. Добавьте все
3. Right click - New Field. введите скажем: Name: Стоимость, Type: Currency, Field Type: Calculated
4. on ADOTable1 добавьте обработку события OnCalcFields:

Delphi

procedure TForm3.ADOTable1CalcFields(DataSet: TDataSet);
begin
  ADOTable1.FieldByName('Стоимость').AsCurrency :=
    ADOTable1.FieldByName('Цена').AsCurrency * ADOTable1.FieldByName('Количество').AsInteger;
end;

предположив что вы добавили поле "Скидка" типа Currency, можно было бы добавить вычисляемое поле "СкидкаВПроцентах" и в вышеуказанной процедуре дописать вычисление нового поля:

Delphi

1
2

  ADOTable1.FieldByName('СкидкаВПроцентах').AsCurrency :=
    (ADOTable1.FieldByName('Стоимость').AsCurrency - ADOTable1.FieldByName('Скидка').AsCurrency)*100/ADOTable1.FieldByName('Стоимость').AsCurrency;

@madjaxed · 08.07.2011, 07:43

Киньте исходник ПЛИИИИИИИИЗ

@MrJohn 0 / 0 / 0 Регистрация: 12.02.2010 Сообщений: 87
		1
	подсчет суммы выбранной строки БД Аксесс 03 в Делфи 7 15.04.2011, 20:39. Показов 4100. Ответов 10 Метки нет (Все метки) Как подсчетать и отобразить в эдит при выборе поле таблицы в бд? 0

@new_in_net 283 / 262 / 32 Регистрация: 11.11.2009 Сообщений: 605
	16.04.2011, 00:42	4
	Сообщение от MrJohn можно все.. Я подсчетал сумму всего строчек в таблице, а вот выбранную...не выходит честно говоря не понял что у вас не выходит... 0

@MrJohn 0 / 0 / 0 Регистрация: 12.02.2010 Сообщений: 87
	16.04.2011, 00:52 [ТС]	5
	Сообщение от new_in_net честно говоря не понял что у вас не выходит... КОроче, на фото видна таблица загруженная с бд аксессе.. Есть метка с именем "сумма выбранного поля" - это значит что когда мы вибраем поле с таблицы, стоимость( если оно есть) которая есть в базе, отображало в Edit вот пример 0

@new_in_net 283 / 262 / 32 Регистрация: 11.11.2009 Сообщений: 605
	16.04.2011, 00:59	6
	Сообщение от MrJohn КОроче, на фото видна таблица загруженная с бд аксессе.. Есть метка с именем "сумма выбранного поля" - это значит что когда мы вибраем поле с таблицы, стоимость( если оно есть) которая есть в базе, отображало в Edit вот пример Вложение 72756 Может вы имеете ввиду отобразить поле выделенной строки в edit? Тогда бросьте на форму TDBEdit и выбирите соответствующий DataSource & Field 0

@MrJohn 0 / 0 / 0 Регистрация: 12.02.2010 Сообщений: 87
	16.04.2011, 12:52 [ТС]	7
	Сообщение от new_in_net Может вы имеете ввиду отобразить поле выделенной строки в edit? Тогда бросьте на форму TDBEdit и выбирите соответствующий DataSource & Field Спасибо. Заработало! А как теперь подсчетать скику товара( как это видно на скрине).? Пасибо! 0

@new_in_net 283 / 262 / 32 Регистрация: 11.11.2009 Сообщений: 605
	16.04.2011, 16:37	8
	Сообщение от MrJohn Спасибо. Заработало! А как теперь подсчетать скику товара( как это видно на скрине).? Пасибо! Если известна сумма Х и скидка Y, то % скидки = Y/X100 (если сумма - 500р, а скидка - 20р, то % скидки вычисляем так: 20/500100 = 4%) 0

@MrJohn 0 / 0 / 0 Регистрация: 12.02.2010 Сообщений: 87
	16.04.2011, 17:50 [ТС]	9
	Сообщение от new_in_net Если известна сумма Х и скидка Y, то % скидки = Y/X100 (если сумма - 500р, а скидка - 20р, то % скидки вычисляем так: 20/500100 = 4%) Агапов.rar можешь помоч с кодом, пытался - невыходит.. 0

@madjaxed 0 / 0 / 0 Регистрация: 08.07.2011 Сообщений: 15
	08.07.2011, 07:43	11
	Киньте исходник ПЛИИИИИИИИЗ 0

Опции темы