Формирование структуры заданных баз данных с помощью команд оболочки FoxPro. Разработка программных модулей, выполняющих заданные действия, страница 3

Replace vou with "005", nmo with "Пенсионный фонд" , pd with "0" , pf with "0" , pa with "0" , pe with "1" , spz with ""

else

use C:\temp\labs\1\myusou

endif

browse

Pasport.prg

if!(file('C:\temp\labs\1\pasport.dbf'))

create table pasport (ser c(7), nompas c(7), datv d(8), vdp c(50), adr c(50), tn c(4), fio c(40))

use pasport

append Blank

Replace ser with "73 01", nompas with "589632" , datv with CTOD("06.10.2001") , vdp with "УВД Ленинского р-на г. Ульяновска" , adr with "ул. Робеспьера, д. 12-23" , tn with "0001" , fio with "Виноградов Илья Николаевич"

append Blank

Replace ser with "73 00", nompas with "596412" , datv with CTOD("09.09.2000") , vdp with "РУВД Ленинского р-на г. Ульяновска" , adr with "ул. Гагарина, д.21-34" , tn with "0002" , fio with "Игнатьев Руслан Владимирович"

append Blank

Replace ser with "73 01", nompas with "365784" , datv with CTOD("06.10.2001") , vdp with "УВД Железнодорожного р-на г. Ульяновска" , adr with "ул. Локомотивная, д. 32-21" , tn with "0003" , fio with "Печенкин Сергей Александрович"

append Blank

Replace ser with "73 00", nompas with "965754" , datv with CTOD("06.05.2000") , vdp with "УВД Засвияжского р-на г. Ульяновска" , adr with "ул. Рябикова, д. 2-45" , tn with "0004" , fio with "Шнуров Игорь Борисович"

append Blank

Replace ser with "73 02", nompas with "489658" , datv with CTOD("14.07.2002") , vdp with "УВД Ленинского р-на г. Ульяновска" , adr with "ул. Тухачевского, д. 21-3" , tn with "0005" , fio with "Фросин Вадим Петрович"

append Blank

Replace ser with "73 01", nompas with "136689" , datv with CTOD("24.12.2001") , vdp with "РУВД Ленинского р-на г. Ульяновска" , adr with "ул. Карла Либнехта, д. 12-56" , tn with "0006" , fio with "Федоров Николай Трофимович"

else

use C:\temp\labs\1\pasport

endif

browse

deponent.prg

if !(file('c:\temp\labs\1\deponent.dbf'))

create table deponent ( uc c(2), gd c(2), ms c(2), tn c(4), vou c(3), zp n(12.2), spz c(9) , dt d(8))

use deponent

append Blank

Replace uc with "1" , gd with "05" , ms with "05" , tn with "0001" , vou with "001" , zp with 1300 , dt with CTOD("01.06.2005")

append Blank

Replace uc with "1" , gd with "05" , ms with "05" , tn with "0001" , vou with "006" , zp with 10000 , dt with CTOD("01.06.2005")

append Blank

Replace uc with "1" , gd with "05" , ms with "07" , tn with "0002" , vou with "001" , zp with 1560 , dt with CTOD("01.08.2005")

append Blank

Replace uc with "1" , gd with "05" , ms with "07" , tn with "0002" , vou with "006" , zp with 12000 , dt with CTOD("01.08.2005")

append Blank

Replace uc with "1" , gd with "05" , ms with "10" , tn with "0003" , vou with "001" , zp with 1300 , dt with CTOD("01.11.2005")

append Blank

Replace uc with "1" , gd with "05" , ms with "10" , tn with "0003" , vou with "006" , zp with 10000 , dt with CTOD("01.11.2005")

else

use C:\temp\labs\1\deponent

endif

browse

uzrgd01.prg

if !(file('c:\temp\labs\1\uzrgd01.dbf'))

create table uzrgd01 ( uc c(2), tn c(4), vou c(3), zp n(12.2), gd c(2), ms c(2), dn n(2), dr n(2), ch n(3), tr n(7.2), ob n(12.2), spz c(9))

use uzrgd01

append Blank

Replace uc with "1" , tn with "0001" , vou with "001" , zp with 1300 , gd with "06" , ms with "02" , dn with 24 , dr with 24 , ch with 192 , tr with 300

append Blank

Replace uc with "1" , tn with "0002" , vou with "001" , zp with 1460 , gd with "06" , ms with "02" , dn with 24 , dr with 24 , ch with 192 , tr with 410

append Blank

Replace uc with "1" , tn with "0003" , vou with "001" , zp with 1300 , gd with "06" , ms with "02" , dn with 24 , dr with 24 , ch with 192 , tr with 300

append Blank

Replace uc with "1" , tn with "0004" , vou with "001" , zp with 1600 , gd with "06" , ms with "02" , dn with 24 , dr with 24 , ch with 192 , tr with 350

else

use C:\temp\labs\1\uzrgd01

endif

browse