База данных поиск

[eval]

анекдот по теме:

он совсем не по теме, вы посмотрите на качество вопросов там и тут, и поймете почему не по теме

[Аватар]

Когда спрашивают какая СУБД имеют ввиду - ACCESS ли это, парадокс, а может MS SQL? А то что вы перечислили всего лишь средства доступа к базе. Исходя из database desktop могу предположить, что парадокс. Дальше - приведите здесь структуру таблицы, с которой работаете. И да, для определения всяких средних и т.п. больше Query с запросом подойдет, а не программный рассчет

[helpkz]

Сообщение от sasha_14-88

как я понимаю нужно просуммировать все значения столбца "температура" и разделить на количество значений, это и будет средняя температура

ну да, это же из курса школьной математики

Сообщение от sasha_14-88

нужно определить среднюю температуру

как-то так:

procedure TForm1.Button1Click(Sender: TObject);
var i,t:integer;
begin
Memo1.Clear;
Table1.Active:=false;
Table1.Active:=true;
DataSource1.DataSet.First;
q:=0;
for i:=1 to DataSource1.DataSet.RecordCount do
  begin
    t:=StrToInt(DataSource1.DataSet.FieldValues['temp']);
    DataSource1.DataSet.Next;
    Memo1.Lines.Add(IntToStr(t));
    q:=q+t;
  end;
//Memo1.Lines.Add(s);
end;

procedure TForm1.Button2Click(Sender: TObject);
var w,t:Double;
begin
Memo1.Clear;
w:=DataSource1.DataSet.RecordCount;
t:=q/w;
Memo1.Lines.Add('Среднее значение: '+FloatToStr(t));
end;

Сообщение от sasha_14-88

и выводило через шов мессадж

ShowMessage('');

Сообщение от sasha_14-88

желательно не при запуске программы а при нажатиии на кнопку..???

Два раза на Button

[helpkz]

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

он совсем не по теме, вы посмотрите на качество вопросов там и тут, и поймете почему не по теме

На счёт качества согласен, но тем не менее доля правды в анекдоте есть

[sasha_14-88]

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

begin

 Table1.Active:=false;
Table1.Active:=true;

s:=0;
i:=0;
Table1.DisableControls;
Table1.First;
while not(Table1.Eof) do
  begin
    S:=S+Table1.FieldByName('TEMPER').AsInteger;//.AsFloat;
    Table1.Next;
  end;
Table1.RecNo:=i;    //номер записи в наборе данных
//подсчет суммы а ниже вычисление среднего

w:=Table1.RecNo;
t:=s/w;
showmessage('Среднее значение: '+floatToStr(t));

[helpkz]

procedure TForm1.Button3Click(Sender: TObject);
var s,t,i:integer;
w:Double;
begin
s:=0;
t:=DataSource1.DataSet.RecordCount; //количество записей в таблице
Table1.First;
for i:=1 to DataSource1.DataSet.RecordCount do //суммирование всех записей,
  begin                                      //и занесение их в переменную s
    s:=s+Table1.FieldValues['temp'];
    Table1.Next;
  end;
      w:=s/t;                        //вычисляем среднее значение, т.е.
Memo1.Lines.Add(IntToStr(s));         //сумму делим на количество записей
Memo1.Lines.Add(FloatToStr(w));
end;

Можете в начале добавить
Table.active:=false;
Table.Active:=true;
а можно и на отдельное событие

[sasha_14-88]

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

procedure TForm1.Button3Click(Sender: TObject);
var s,t,i:integer;
w:Double;
begin
s:=0;
t:=DataSource1.DataSet.RecordCount; //количество записей в таблице
Table1.First;
for i:=1 to DataSource1.DataSet.RecordCount do //суммирование всех записей,
  begin                                      //и занесение их в переменную s
    s:=s+Table1.FieldValues['temp'];
    Table1.Next;
  end;
      w:=s/t;                        //вычисляем среднее значение, т.е.
Memo1.Lines.Add(IntToStr(s));         //сумму делим на количество записей
Memo1.Lines.Add(FloatToStr(w));
end;

Можете в начале добавить
Table.active:=false;
Table.Active:=true;
а можно и на отдельное событие

я убрал это т.к. не знаю для чего это, если объясните)

[helpkz]

Сообщение от sasha_14-88

я убрал это т.к. не знаю для чего это, если объясните)

ты про Table.active?
Так это, чтобы с таблицей работать. нужно ее активировать

[sasha_14-88]

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

ты про Table.active?
Так это, чтобы с таблицей работать. нужно ее активировать

я не пойму зачем ее сначала выключить а потом сразу же включить??

[helpkz]

Сообщение от sasha_14-88

я не пойму зачем ее сначала выключить а потом сразу же включить??

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