Предыдущая страница реферата | 6  7  8  9  10  11  12  13  14  15  16 | Следующая страница реферата

set Escape off

Clear

@ 4,18 to 4,62 Color u/w*

@ 3,18 Say 'Процесс печати сведений о заданной продукции' Color u/w*

@ 12,0

Accept ' Введите имя файла данных: ' to NameFd

@ 12,0 Clear

@ 12,0

Accept ' Введите вид продукции: ' to TypeProd

If Len(NameFd) >0  And Len(TypeProd) > 0   && Если имя файла или

                                           && вид продукции не ввели,

                                           && то делать нечего

  * Изменение заголовка

  @ 3,0 Clear

  Zag='Сведения о продукции: ' + TypeProd

  LenZag=Int(Len(Zag))

  @ 4,Int((80-lenZag)/2) to 4,Int((80-lenZag)/2)+LenZag Color u/w*

  @ 3,Int((80-LenZag)/2) Say Zag Color u/w*

  Use &NameFd

  * Формирование шапки

  L='+-----------------+---------------+--------+-----------+'

  @ 7,12 Say L

  @ 8,12 Say '| Код предприятия | Объем выпуска |  Цена  | Стоимость |'

  @ 9,12 Say L

  Row=10               && Текущий номер строки для вывода данных

Рекомендуем скачать другие рефераты по теме: диплом о высшем, отчет о прохождении практики.



Предыдущая страница реферата | 6  7  8  9  10  11  12  13  14  15  16 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки