Отправлено: 14.07.10 21:11. Заголовок: Дело жизни и смерти, помогите с прогой

Только вчера узнал, что есть такой язык, как Clipper.

На собеседовании дали задание написать следующую прогу:
В библиотеке реестр книг храниться в таблице Books.dbf.
Структура таблицы Books:


Имя Поля Тип Поля Описание
NAME Character(50) Хранит название книги
Author Character(50) Хранит автора книги (в формате ФАМИЛИЯ ИМЯ)
PublicationDate Date Хранит дату публикации книги

Необходимо написать программу которая будет выводить на экран названия всех книг для указанного автора. Программа должна осуществлять поиск книг по полному имени или только по фамилии.

Я не прошу писать ее полностью, просто может кто подскажет, хоть пример какой даст... Ну не писал я раньше на этом языке. Скачал себе xHarbour, только дальше этого не пошло, в инете толкового ничего не нашел, а в магазине книг по этому тоже нет. А очень надо. Буду очень. Признателен))) Если возьмут на работу - материально взгрею))))))

 Отправлено: 14.07.10 21:32. Заголовок: #include "inkey...

#include "inkey.ch"


LOCAL cName := Space( 50 )

USE Books NEW
INDEX ON Author TO Author

CLS

WHILE .T.

@ 0, 0 GET cName PICTURE "@K"
READ

IF Lastkey() <> K_ESC

BOOKS->( DBSeek( cName ) )

WHILE BOOKS->Name == cName .and. ! BOOKS->( EOF() )
? "Автор: " + BOOKS->Author + " Название: " + BOOKS->Name + " Дата: " + DToC( BOOKS->PublicationDate )
BOOKS->( DBSkip() )
END // WHILE

WAIT

ELSE
EXIT
END // IF

END //WHILE

QUIT


Очень примитивно, но для понимания достаточно.

 Отправлено: 15.07.10 10:30. Заголовок: BlackGhost пишет: Е..

BlackGhost пишет:

цитата:

Если возьмут на работу

На работу берут в качестве кого ?