DBGridEh Access

@Feelosoff · Регистрация: 05.01.2009

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

есть база данных, надо посчитать возраст человека и поставить "+" в нужную ячейку(от 15 до 23+ лет) средствами Delphi

Добавлено через 18 минут
достали меня с работы... нужно не плюс ставить а только в одной колонке возраст

Добавлено через 25 секунд
помогите кто может! очень надо

@Feelosoff · 07.06.2011, 07:30 **[ТС]**

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

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
var
   bm: TBookMark;
begin
  try
    with qry1 do
    begin
      DisableControls;
      if not Active then Open;
      bm := GetBookMark;
      First;
        while not Eof do
          begin
          Edit;
              if YearsBetween(Now,FieldByName('ДатаРождения').AsDateTime) in [1..80] then
                FieldByName('Возраст').AsInteger := YearsBetween(Now,FieldByName('ДатаРождения').AsDateTime)
              else
            FieldByName('Возраст').AsInteger := 0;
            Post;
            Next;
          end;
        GotoBookmark(bm);
        FreeBookMark(bm);
        EnableControls;
    end;
    except
 
    end;

@harmless · 07.06.2011, 07:54

Если записей немного, то проще вычисляемое поле создать.

@Feelosoff · 07.06.2011, 08:05 **[ТС]**

да в том то и дело что записей немного.

@harmless · 07.06.2011, 09:56

Создаем вычисляемое поле в наборе данных и используем обработчик OnCalcFields.
Лучше конечно в самом запросе вычислять.

@MsGuns · 07.06.2011, 10:44

Delphi
1
а почему процедура не пересчитывает возраст сразу, а только после перезапуска?

Дык кто ж его знает, куда Вы встромили этот код. Если в OnCreate формы (типо по Архангельскому, туды его в качель), тогда и будет "пересчитывать" только один раз, при загрузке программы. А надо чаще ?

И советую все-таки прислушаться к harmless (меня Вы не слушаете, так хоть его послушайте, дело ведь говорит !) и определять возраст непосредственно при выборках, а не хранить его в базе.

@Feelosoff · 07.06.2011, 11:36 **[ТС]**

а как это сделать? я вообще ума не приложу. не мое это

а делать приходится

Добавлено через 25 минут
данные должны пересчитываться сразу после добавления новой записи или после её редактирования.
я так понимаю что эти данные можно не хранить в базе(возраст), но тогда как вычислять их в условии добавления и редактирования. что бы не приходилось перезапускать программу

@Feelosoff · 08.06.2011, 12:12 **[ТС]**

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

Дык кто ж его знает, куда Вы встромили этот код. Если в OnCreate формы (типо по Архангельскому, туды его в качель), тогда и будет "пересчитывать" только один раз, при загрузке программы. А надо чаще ?

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

@MsGuns · 08.06.2011, 12:28

Вам осталось только напомнить мне мантру, произнеся которую я смогу увидеть код вызова и тело Вашей процедуры (не Ваше, а процедуры

) пересчета и соответственно эффективно ткнуть Вас носом в ошибку

@Feelosoff · 08.06.2011, 14:44 **[ТС]**

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
procedure TForm1.year;
var
   bm: TBookMark;
begin
  try
    with qry1 do
    begin
      DisableControls;
      if not Active then Open;
      bm := GetBookMark;
      First;
        while not Eof do
          begin
          Edit;
              if YearsBetween(Now,FieldByName('ДатаРождения').AsDateTime) in [1..80] then
                FieldByName('Возраст').AsInteger := YearsBetween(Now,FieldByName('ДатаРождения').AsDateTime)
              else
            FieldByName('Возраст').AsInteger := 0;
            Post;
            Next;
          end;
        GotoBookmark(bm);
        FreeBookMark(bm);
        EnableControls;
    end;
    except
 
    end;
end;

Delphi
1
2
3
4
procedure TForm1.btn1Click(Sender: TObject);
begin
year;
end;

@MsGuns · 08.06.2011, 17:35

Не считая фиглярства с названием метода класса ('year' за такое название ухи надо драть) и того, что вообще-то после изменений набор данных нормальные кунаки переоткрывают (Close-Open), код рабочий. Почему "не работает" неясно, надо еще мантру: текст сообщения об ошибке или с чего Вы взяли, что "не работает" ?

@harmless · 08.06.2011, 19:16

Такой огород вместо пары строк в OnCalcFields....

@Feelosoff · 08.06.2011, 19:55 **[ТС]**

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

Такой огород вместо пары строк в OnCalcFields....

ну так Вы подскажите что за строки надо там ввести

А этот код ошибок не выдает. он считает один раз при запуске программы и все.

@harmless · 09.06.2011, 07:46

в OnCalcFields:

Delphi
1
2
3
4
age := YearsBetween(Now,FieldByName('ДатаРождения').AsDateTime);
if  age in [1..80]
  then
    FieldByName('Возраст').AsInteger := age;

При этом надо поле создать вычисляемое в наборе данных - в данном пример 'Возраст'.
Еще раз - не в БД, а в наборе данных - qry1 (вроде как) в Вашем случае.

Delphi нету - если я не прав, пусть кто-нить поправит.

@Feelosoff · 09.06.2011, 08:00 **[ТС]**

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

в OnCalcFields:

Delphi
1
2
3
4
age := YearsBetween(Now,FieldByName('ДатаРождения').AsDateTime);
if  age in [1..80]
  then
    FieldByName('Возраст').AsInteger := age;

При этом надо поле создать вычисляемое в наборе данных - в данном пример 'Возраст'.
Еще раз - не в БД, а в наборе данных - qry1 (вроде как) в Вашем случае.

Delphi нету - если я не прав, пусть кто-нить поправит.

если я правильно понял, то мне надо в базе удалить поле "Возраст" и создать это поле в query?
и что за переменная age?

@harmless · 09.06.2011, 09:41

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

и что за переменная age?

Просто переменная... Целочисленная естественно.

@Feelosoff · 09.06.2011, 10:04 **[ТС]**

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

@harmless · 09.06.2011, 10:14

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

мне надо создать в query поле и что потом?

Ничего по идее - наслаждаться.

@Feelosoff · 09.06.2011, 10:49 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.qry1CalcFields(DataSet: TDataSet);
var
  age:Integer;
begin
age := YearsBetween(Now,FieldByName('ДатаРождения').AsDateTime);
if  age in [1..80]
  then
    FieldByName('Возраст').AsInteger := age
end;

сделал так. но выдает ошибку
[Error] Unit1.pas(195): Undeclared identifier: 'FieldByName'
я не знаю как создать это поле! подскажите?

@harmless · 09.06.2011, 11:03

Query(или чего там).FieldByName....

Добавлено через 1 минуту
Qry1.FieldByName('Возраст').AsInteger := age;
Чет сразу ступил.

@Feelosoff · 09.06.2011, 11:07 **[ТС]**

Добавлено через 1 минуту
Qry1.FieldByName('Возраст').AsInteger := age;
Чет сразу ступил.[/QUOTE]
куда это добавить?

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Feelosoff 11 / 11 / 2 Регистрация: 05.01.2009 Сообщений: 131

	DBGridEh Access 06.06.2011, 09:42. Показов 8695. Ответов 87 Метки нет (Все метки) есть база данных, надо посчитать возраст человека и поставить "+" в нужную ячейку(от 15 до 23+ лет) средствами Delphi Добавлено через 18 минут достали меня с работы... нужно не плюс ставить а только в одной колонке возраст Добавлено через 25 секунд помогите кто может! очень надо 1

@harmless 151 / 151 / 3 Регистрация: 05.05.2010 Сообщений: 570
	07.06.2011, 07:54
	Если записей немного, то проще вычисляемое поле создать. 0

@Feelosoff 11 / 11 / 2 Регистрация: 05.01.2009 Сообщений: 131
	07.06.2011, 08:05 [ТС]
	да в том то и дело что записей немного. 0

@harmless 151 / 151 / 3 Регистрация: 05.05.2010 Сообщений: 570
	07.06.2011, 09:56
	Создаем вычисляемое поле в наборе данных и используем обработчик OnCalcFields. Лучше конечно в самом запросе вычислять. 0

@Feelosoff 11 / 11 / 2 Регистрация: 05.01.2009 Сообщений: 131
	07.06.2011, 11:36 [ТС]
	а как это сделать? я вообще ума не приложу. не мое это а делать приходится Добавлено через 25 минут данные должны пересчитываться сразу после добавления новой записи или после её редактирования. я так понимаю что эти данные можно не хранить в базе(возраст), но тогда как вычислять их в условии добавления и редактирования. что бы не приходилось перезапускать программу 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	08.06.2011, 12:28
	Вам осталось только напомнить мне мантру, произнеся которую я смогу увидеть код вызова и тело Вашей процедуры (не Ваше, а процедуры ) пересчета и соответственно эффективно ткнуть Вас носом в ошибку 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	08.06.2011, 17:35
	Не считая фиглярства с названием метода класса ('year' за такое название ухи надо драть) и того, что вообще-то после изменений набор данных нормальные кунаки переоткрывают (Close-Open), код рабочий. Почему "не работает" неясно, надо еще мантру: текст сообщения об ошибке или с чего Вы взяли, что "не работает" ? 0

@harmless 151 / 151 / 3 Регистрация: 05.05.2010 Сообщений: 570
	08.06.2011, 19:16
	Такой огород вместо пары строк в OnCalcFields.... 0

@Feelosoff 11 / 11 / 2 Регистрация: 05.01.2009 Сообщений: 131
	09.06.2011, 10:04 [ТС]
	а что по поводу вычисляемого поля? мне надо создать в query поле и что потом? я просто вообще почти ничего не понимаю. у нас штатного программиста нет. вот мне и приходится осваивать то, что я пока очень, очень плохо знаю 0

@harmless 151 / 151 / 3 Регистрация: 05.05.2010 Сообщений: 570
	09.06.2011, 11:03
	Query(или чего там).FieldByName.... Добавлено через 1 минуту Qry1.FieldByName('Возраст').AsInteger := age; Чет сразу ступил. 0

@Feelosoff 11 / 11 / 2 Регистрация: 05.01.2009 Сообщений: 131
	09.06.2011, 11:07 [ТС]
	Добавлено через 1 минуту Qry1.FieldByName('Возраст').AsInteger := age; Чет сразу ступил.[/QUOTE] куда это добавить? 0