Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте люди хорошие! вновь я обращаюсь к вашей помощи!
помогите пожалуйста!
есть табличка (MSaccess), состоящая из пяти полей: номер группы, количетво электроприемников вгруппе, номинальная мощность, коэффициент мощности и коэффициент использования. Также используются 5 соответствующих переменных.
В табличке несколько записей по нескольким группам электроприепмиков.
Нужно создать какой-то цикл, чтобы по очереди перезаписывать в переменные данные из разных записей.
Пробовала без цикла-в переменные записываются значения из активной записи (на которую мышью ткну).

Помогите пожалуйста придумать такой цикл...

Вопрос задала: Ромашка (статус: Посетитель) Вопрос отправлен: 16 мая 2012, 14:18 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Ну вот. У твоего AdoTable есть свойства RecNo, Bof, Eof, и методы First(), Last(), Next(), Prior().
Ещё рекомендую воспользоваться методами DisableControls() - перед циклом, и EnableControls() - после него. Примерно так:

var
  CurrentNo: Integer;
begin
  Table.DisableControls();
  try
    CurrentNo:= Table.RecNo; // запоминаешь текущую позицию
    Table.First(); // переход к первой записи таблицы
 
    // твой цикл
    while not Table.Eof do
      begin
        // * <--- здесь твоя работа с полями текущей записи
        Table.Next(); // переход к следующей записи
      end;
  finally
    Table.RecNo:= CurrentNo; // восстанавливаешь текущую позицию
    Table.EnableControls();
  end;
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 16 мая 2012, 15:12 Оценка за ответ: 5 Комментарий к оценке: о! спасибо большое! сейчас апробирую

Мини-форум вопроса

min@y™ (статус: Доктор наук), 16 мая 2012, 14:29 [#1]: Мне помнится, есть у компонентов для работы с БД свойства RecNo, Bof, Eof, а также такие методы, как First(), Last(), Next(), Prior(). Ну и вот, собственно. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Ромашка (статус: Посетитель), 16 мая 2012, 14:34 [#2]: вы меня пожалуйста простите, но я всего лишь студент-пятникурсник, к тому же не программист, и мне эти команды ничего не объяснили...(((

min@y™ (статус: Доктор наук), 16 мая 2012, 14:46 [#3]: Цитата (Ромашка): вы меня пожалуйста простите, но я всего лишь студент-пятникурсник, к тому же не программист Бывает... Я тоже не на программиста учился. И с базами данных никогда не работал. Скачай какую-нибудь книжку по программированию в Delphi, где есть главы по работе с БД. Каким компонентом ты коннектишься к эксцессовской базе? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Ромашка (статус: Посетитель), 16 мая 2012, 14:48 [#4]: ADOCommection, ADOTable, DataSourse

Ромашка (статус: Посетитель), 16 мая 2012, 15:42 [#5]: Спасибо огромное! всё получилось!)))

16 мая 2012, 15:43: Статус вопроса изменён на решённый (изменил автор вопроса — Ромашка)

min@y™ (статус: Доктор наук), 16 мая 2012, 15:56 [#6]: Цитата (Ромашка): Спасибо огромное! всё получилось!))) Ну, вот видишь? Тебе с программой СУБД бесплатно помог совершенно незнакомый человек, который учился на конструктора и никогда не занимался базами данных. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.