Шаг 3 - Программно заносим записи

Моя жена как раз этим и занимается. У неё есть куча готовых структур на все случаи жизни. Она делает с них копию, вносит сначала номера по порядку, а потом для каждого номера еще и государственный номер, который повторяется. Только после этого она берет свой микроскоп и заносит результаты анализов. Заносить надо часто сотни проб. Вот для автоматизации подобной работы и написан этот шаг. Сейчас напишу вам, а потом сделаю ей программу.

Итак создаем программу. Программа это просто текстовый файл с командами и расширением prg. Выбираем меню File - New в окне выбираем Programm и кнопку OK. Появится окно с именем программы untitled.prg. Давайте поменяем это имя на Auto.prg. Меню File - Save As.., дальше вводим имя и выбираем Save. Готово. Экран должен быть примерно такой.

3_1.gif (4605 b)

Ну что гоним код ?

clear
close databases
filename='         '
gosnomer='             '
nomera=0001
@ 10,10 SAY 'Имя файла '  GET filename 
@ 12,10 SAY 'Гос номер'   GET gosnomer
@ 14,10 SAY 'Кол номеров' GET nomera
READ
filename=LTRIM(filename)
filename=RTRIM(filename)
gosnomer=LTRIM(gosnomer)
gosnomer=RTRIM(gosnomer)
filename=filename+'.dbf'
use &filename
for x=1 to nomera
 append blank
 replace nn     with STR(x)
 replace gosnom with gosnomer
next x
browse
close databases

После того, как код набран можно закрыть окно File -> Close. Теперь можно выполнить наш код. Наберите в окне Command команду Do Auto. То есть запустить нашу программу. Появится окно как ниже.

После нажатия Enter на последней записи будут вставлены записи и заменены номера. Выведется окно просмотра.

3_2.gif (965 b)

Вот работает. Пояснения в следующем шаге.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.