Категория
Информатика
Тип
реферат
Страницы
13 стр.
Дата
14.12.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
21531.zip — 10.53 kb
  • realizacija-algoritma-obrabotki-dannyx_21531_1.rtf — 49.05 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо



Текст работы

new
use dd index dd0004 new
return nil
3) п.п. уплотнения Б.Д. :
FUNCTION db_compress()
s_scr(24,0,25,79)
CLOSE ALL
SETCOLOR("w/n")
@ 24,0 CLEAR TO 25,79
@ 24,6 SAY "Ждите идет уплотнение !" COLOR ("w+*/n")
USE aa // уплотнение файла f
COPY TO work
IF ERRORLEVEL() = 0
USE
DELETE FILE f
RENAME f TO f
ENDIF
USE bb // уплотнение файла f
COPY TO work
IF ERRORLEVEL() = 0
USE
DELETE FILE f
RENAME f TO f
ENDIF
USE cc // уплотнение файла f
COPY TO work
IF ERRORLEVEL() = 0
USE
DELETE FILE f
RENAME f TO f
ENDIF
USE dd // уплотнение файла f
COPY TO work
IF ERRORLEVEL() = 0
USE
DELETE FILE f
RENAME f TO f
ENDIF
CLOSE ALL
r_scr()
RETURN NIL
4) п.п. выдачи информации о клавишах, на которые реагирует система ”Help”:
PROCEDURE hlp(callpnt,prm)
LOCAL retcol,crow,ccol
IF prm = NIL
prm := .F.
ENDIF
crow = ROW()
ccol = COL()
retcol = SETCOLOR("w/n")
@ 22,0 CLEAR TO 24,79
IF callpnt = "GET"
// исправленный HLP для GET 26.09.96
@ 22,0 SAY "Enter/" + CHR(24) + '/' + CHR(25) + '/PgUp/PgDn' ;
+ " -Завершить редактирование с сохранением измененного значения"
@ 22,0 SAY "Enter/"+ CHR(24) + '/' + CHR(25) + '/PgUp/PgDn' COLOR "r+/n"
@ 23,1 SAY CHR(26) + ' / ' + CHR(27) + ' / ^' + CHR(26) ;
+ ' / ^' + CHR(27) + ' / Home / End - Перемещение курсора'
@ 23,1 SAY CHR(26) + ' / ' + CHR(27) + ' / ^' + CHR(26) ;
+ ' / ^' + CHR(27) + ' / Home / End' COLOR "r+/n"



Ваше мнение



CAPTCHA