Форум » [x]Harbour » Дело жизни и смерти, помогите с прогой » Ответить
Дело жизни и смерти, помогите с прогой
BlackGhost: Только вчера узнал, что есть такой язык, как Clipper. На собеседовании дали задание написать следующую прогу: В библиотеке реестр книг храниться в таблице Books.dbf. Структура таблицы Books: Имя Поля Тип Поля Описание NAME Character(50) Хранит название книги Author Character(50) Хранит автора книги (в формате ФАМИЛИЯ ИМЯ) PublicationDate Date Хранит дату публикации книги Необходимо написать программу которая будет выводить на экран названия всех книг для указанного автора. Программа должна осуществлять поиск книг по полному имени или только по фамилии. Я не прошу писать ее полностью, просто может кто подскажет, хоть пример какой даст... Ну не писал я раньше на этом языке. Скачал себе xHarbour, только дальше этого не пошло, в инете толкового ничего не нашел, а в магазине книг по этому тоже нет. А очень надо. Буду очень. Признателен))) Если возьмут на работу - материально взгрею))))))
Ответов - 2
PSP: #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 Очень примитивно, но для понимания достаточно.
Dima: BlackGhost пишет: Если возьмут на работу На работу берут в качестве кого ?
полная версия страницы