Автор | Сообщение |
|
| |
Пост N: 1
Зарегистрирован: 14.07.10
|
|
Отправлено: 14.07.10 21:11. Заголовок: Дело жизни и смерти, помогите с прогой
Только вчера узнал, что есть такой язык, как Clipper. На собеседовании дали задание написать следующую прогу: В библиотеке реестр книг храниться в таблице Books.dbf. Структура таблицы Books: Имя Поля Тип Поля Описание NAME Character(50) Хранит название книги Author Character(50) Хранит автора книги (в формате ФАМИЛИЯ ИМЯ) PublicationDate Date Хранит дату публикации книги Необходимо написать программу которая будет выводить на экран названия всех книг для указанного автора. Программа должна осуществлять поиск книг по полному имени или только по фамилии. Я не прошу писать ее полностью, просто может кто подскажет, хоть пример какой даст... Ну не писал я раньше на этом языке. Скачал себе xHarbour, только дальше этого не пошло, в инете толкового ничего не нашел, а в магазине книг по этому тоже нет. А очень надо. Буду очень. Признателен))) Если возьмут на работу - материально взгрею))))))
|
|
|
Ответов - 2
[только новые]
|
|
|
| постоянный участник
|
Пост N: 413
Зарегистрирован: 27.01.07
|
|
Отправлено: 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 Очень примитивно, но для понимания достаточно.
|
|
|
|
| |
Пост N: 1805
Зарегистрирован: 17.05.05
|
|
Отправлено: 15.07.10 10:30. Заголовок: BlackGhost пишет: Е..
BlackGhost пишет: На работу берут в качестве кого ?
|
|
|
|