Acess и Делфи 7

@MobileDemon · Регистрация: 31.12.2009

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

В общем суть такова. Использую ADO для коннекта к базе. Хотелось бы посчитать все значения от начала до конца в одном столбике- например сумма. Подскажите пожалуйста как реализовать это.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
unit base;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, Mask, DBCtrls,
  ExtCtrls, Calendar, DBGridEh, DBSumLst, DBCtrlsEh, DBLookupEh;
 
type
  TForm2 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBNavigator1: TDBNavigator;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    ADOQuery1: TADOQuery;
    summ: TLabel;
    today: TLabel;
    zpm: TLabel;
    BitBtn4: TBitBtn;
    DBGridEh1: TDBGridEh;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    DBCheckBoxEh1: TDBCheckBoxEh;
    DBCheckBoxEh2: TDBCheckBoxEh;
    DBNumberEditEh1: TDBNumberEditEh;
    zpp: TDBNumberEditEh;
    SpeedButton1: TSpeedButton;
    percz: TEdit;
    Label14: TLabel;
    DBEditEh1: TDBEditEh;
    DBSumList1: TDBSumList;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    DBEditEh2: TDBEditEh;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
function mfDateTimeToString(const Date: TDateTime): string;
//Возвращает строку в формате YYYYMMDDHHNNSS из входящей DateTime
begin
  mfDateTimeToString := FormatDateTime('dd.mm.yyyy', Date); //No comments
end;
 
procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
if DBNavigator1.Controls[Ord(nbInsert)].Enabled then BitBtn1.Enabled:=true else BitBtn1.Enabled:=false;
if DBNavigator1.Controls[Ord(nbEdit)].Enabled then BitBtn2.Enabled:=true else BitBtn2.Enabled:=false;
if DBNavigator1.Controls[Ord(nbDelete)].Enabled then BitBtn3.Enabled:=true else BitBtn3.Enabled:=false;
end;
 
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbInsert);
end;
 
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
DBNaviGator1.BtnClick(nbEdit);
 
end;
 
procedure TForm2.BitBtn3Click(Sender: TObject);
begin
DBNaviGator1.BtnClick(nbDelete);
end;
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
 
procedure TForm2.BitBtn4Click(Sender: TObject);
var
temp,i: integer;
zpmonth,zptoday,summonth,today:real;
begin
 
temp:=0;
for i:=1 to ADOTable1.FieldCount do
begin
 
 // if DBGridEh1.CellRect(9,i)<>'' then
  //temp:=strtofloat(DBGridEh1.CellRect(9,i));
 
{  if ADOTable1.FieldValues[inttostr(9),inttostr(i)] <>'' then
      temp:=temp+strtoint(ADOTable1.FieldValues[9,inttostr(i)]);   }
end;
summ.Caption:=inttostr(temp);
end;
 
 
 
procedure TForm2.BitBtn5Click(Sender: TObject);
var
j:integer;
begin
 
end;
 
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
suh,re,perc:integer;
begin
perc:=strtoint(percz.Text);
suh:=DBNumberEditEh1.Value*(perc*0.01);
zpp.Text:=inttostr(suh);
end;
 
procedure TForm2.DBGridEh1CellClick(Column: TColumnEh);
begin
if DBNavigator1.Controls[Ord(nbInsert)].Enabled then BitBtn1.Enabled:=true else BitBtn1.Enabled:=false;
if DBNavigator1.Controls[Ord(nbEdit)].Enabled then BitBtn2.Enabled:=true else BitBtn2.Enabled:=false;
if DBNavigator1.Controls[Ord(nbDelete)].Enabled then BitBtn3.Enabled:=true else BitBtn3.Enabled:=false;
end;
 
end.

@SAMZ · 13.01.2010, 18:04

Практически во всех СУБД реализованы так называемые агрегаты: sum, max, min, avr и т. д.
Есть ини и в аксессе. Для обращения к этим функциям необходимо использовать TAdoQuery. В нем прописываете свойство SQL и получаете некоторый набор данных. Напримет если Ваша таблица называется TBL1 , а поле, которое надо суммировать F1, то задавая SQL в виде
select sum(F1) as SF1 from TBL1
после открытия этого набора получите искомую сумму

@Deemc · 13.01.2010, 23:21

Вот попробуй еще так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
var sum:real;
begin
sum:=0;
DataModule2.adotable.First;
while not DataModule2.adotable.Eof do
begin
sum:=sum+DataModule2.adotable.fieldbyname('имя поля').AsFloat;
Edit1.Text:=floattostr(sum);
DataModule2.adotable.Next;
end;
end;

@Senya_L · 14.01.2010, 00:03

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

@Deemc · 14.01.2010, 00:39

Senya_L, во первых в едите отображается ответ(т.е сумма), во вторых из дата модуля мы обращаемся к самой таблице, в которой проводим вычисления!!

@Senya_L · 14.01.2010, 01:45

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

Senya_L, во первых в едите отображается ответ(т.е сумма), во вторых из дата модуля мы обращаемся к самой таблице, в которой проводим вычисления!!

Во-первых, в "едиту" совсем не нужны промежуточные значения суммы. Во-вторых - советую почитать про слои приложения. В-третьих, вычислять сумму на клиенте - глупость несусветная.

@MobileDemon · 14.01.2010, 06:44 **[ТС]**

Написал таким образом:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
temp,i: integer;
zpp:integer;
summ:integer;
zpmonth,zptoday,summonth,today:real;
begin
  summ:=0;
  adotable1.First;
  for i:=1 to AdoTable1.RecordCount do
  begin
    zpp:=adotable1.FieldByName('ЗП').AsInteger;
    summ:=summ+zpp;
    adotable1.Next;
  end;
  zpm.Caption:=inttostr(summ);

Работает нормально. Теперь ещё вопрос. как сделать что бы ывсчитывалась сумма данный месяц. Поле дата присутсвует в каждой записи

@SAMZ · 14.01.2010, 07:01

Это, возможно, и работает нормально, но так делать не надо. Это порочный путь и вам об этом писали. Используйте возможности SQL, используйте агрегаты, если хотите чему-нибудь научиться в работе с БД. Тот подход к решению задачи, который Вам посоветовали, а Вы реализовали - это чистейшей водв гемморой и проктология

@MobileDemon · 14.01.2010, 07:48 **[ТС]**

Я попробую по другому, чёть позже отпишусь.
Написал запрос

SQL
1
SELECT SUM(ЗП) AS SF1 FROM Ремонт

При выставлении свойства active true всё нормально, ошибок не даёт. Но как только запускаю программу, выдаёт Field 'ЗП' not found. Вызываю я его вот так:

Delphi
1
2
3
  sumzp.Active:=true;
  sumzp.ExecSQL;
  sumzp.Active:=false;

@Senya_L · 14.01.2010, 08:59

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

Я попробую по другому, чёть позже отпишусь.
Написал запрос

SQL
1
SELECT SUM(ЗП) AS SF1 FROM Ремонт

При выставлении свойства active true всё нормально, ошибок не даёт. Но как только запускаю программу, выдаёт Field 'ЗП' not found. Вызываю я его вот так:

Delphi
1
2
3
  sumzp.Active:=true;
  sumzp.ExecSQL;
  sumzp.Active:=false;

ExecSQL используется только для запросов, не возвращающих данные. Так что здесь вторая строка лишняя

@MobileDemon · 14.01.2010, 09:13 **[ТС]**

Без этих команд пишет тоже самое

Добавлено через 8 минут
Всё, заставил его выводить как надо

Написал запрос

SQL
1
SELECT SUM(ЗП) FROM Ремонт

Добавил к AdoQuery DataSource этой таблицы.Кинул на форму ещё один datasource со значением датасета adoquery. И DBText присвоил значение последнего datasource. Для каждого запроса обязательно делать AdoQuery, или можно использовать один и присваивать ему команды?

@unick12345 · 14.01.2010, 09:32

если будешь использованть один Adoquery и для DBText и для поиска суммы, то будет сбиватся запрос.

@MobileDemon · 14.01.2010, 15:50 **[ТС]**

Пытаюсь сделать вывод по дате. Пишу

SQL
1
SELECT SUM(ЗП) FROM Ремонт WHERE Ремонт.Дата_Приёма=DATE

Но при назначении Active true говорит что Параметр Дата приёма не имеет значения по умолчанию. Формат поля Дата/время

Добавлено через 5 часов 26 минут
Не могу решить данную проблему

@Senya_L · 15.01.2010, 09:55

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

Пытаюсь сделать вывод по дате. Пишу

SQL
1
SELECT SUM(ЗП) FROM Ремонт WHERE Ремонт.Дата_Приёма=DATE

Но при назначении Active true говорит что Параметр Дата приёма не имеет значения по умолчанию. Формат поля Дата/время

Добавлено через 5 часов 26 минут
Не могу решить данную проблему

Параметры в запросе указываются так

SQL
1
SELECT SUM(ЗП) FROM Ремонт WHERE Ремонт.Дата_Приёма=:DATE

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

@Usernews · 16.01.2010, 17:50

Жесть от баз access плохие воспоминания(

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,256
	13.01.2010, 18:04
	Практически во всех СУБД реализованы так называемые агрегаты: sum, max, min, avr и т. д. Есть ини и в аксессе. Для обращения к этим функциям необходимо использовать TAdoQuery. В нем прописываете свойство SQL и получаете некоторый набор данных. Напримет если Ваша таблица называется TBL1 , а поле, которое надо суммировать F1, то задавая SQL в виде select sum(F1) as SF1 from TBL1 после открытия этого набора получите искомую сумму 1

@Senya_L 23 / 23 / 1 Регистрация: 20.12.2009 Сообщений: 74
	14.01.2010, 00:03
	Ты шо советуешь? Значение TEdit менять прямо по ходу вычислений - это знатно! Не говоря уж о том, что из датамодуля обращаться к элементам интерфейса... 0

@Deemc 4 / 4 / 4 Регистрация: 05.05.2009 Сообщений: 91
	14.01.2010, 00:39
	Senya_L, во первых в едите отображается ответ(т.е сумма), во вторых из дата модуля мы обращаемся к самой таблице, в которой проводим вычисления!! 0

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,256
	14.01.2010, 07:01
	Это, возможно, и работает нормально, но так делать не надо. Это порочный путь и вам об этом писали. Используйте возможности SQL, используйте агрегаты, если хотите чему-нибудь научиться в работе с БД. Тот подход к решению задачи, который Вам посоветовали, а Вы реализовали - это чистейшей водв гемморой и проктология 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	14.01.2010, 09:32
	если будешь использованть один Adoquery и для DBText и для поиска суммы, то будет сбиватся запрос. 0

@Usernews 4 / 4 / 1 Регистрация: 12.12.2009 Сообщений: 55
	16.01.2010, 17:50
	Жесть от баз access плохие воспоминания( 0