IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> FoxPro
сообщение
Сообщение #1


Фанат Delphi
**

Группа: Пользователи
Сообщений: 72
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Имеется таблица SVED, содержащая инф-ю о сотрудниках:имя, фам, дата рождения, табельный номер, оклад и т.д.
Цитата
Помогите составить программу для вывода фамилий, имен, должности сотрудников с указанным годом рождения.Исполользовть быстрей поиск.

seek dt - неужели нельзя искать по дате?
Код

set color to w+/n,GR+/b
use sved
if .not. file("sved_i.idx")
    index on Date_r to sved_i
endif
set index to sved_i
do while .T.
    clear
    dt=space(10)
    @ 0,0 say "gama noucka = " get dt
    read     
if dt=space(10)
   exit
endif
  seek dt
  ?
  do while Date_r=dt
  ? Fam,im,dolzn           
  skip
enddo
wait "Search finished..."
enddo
use


--------------------
ICQ (384-043-857)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.11.2020 10:42
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name