Заполнение базы данных «Депонированная зарплата с использованием справочников», страница 7

set default to "C:\temp\kurs"

do new_dbf

do new_cdx

do open

return

************************************************************

procedure new_dbf

if !(file('kad.dbf'))

  create table kad (tn c(4),otd c(2), dol c(3),fio c(40),kld n(2), dtp d(8),okl n(12.2),tr n(10.2),pdx c(3),dtu d(8),prfs n(1))

endif

if !(file('uzrgd01.dbf'))

  create table uzrgd01 (tn c(4), uc c(2), 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))

endif

if !(file('uzrgd02.dbf'))

  create table uzrgd02 (tn c(4), uc c(2), 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))

endif

if !(file('uzrgd03.dbf'))

  create table uzrgd03 (tn c(4), uc c(2), 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))

endif

if !(file('uzrgd04.dbf'))

  create table uzrgd04 (tn c(4), uc c(2), 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))

endif

if !(file('uzrgd05.dbf'))

  create table uzrgd05 (tn c(4), uc c(2), 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))

endif

if !(file('uzrgd06.dbf'))

  create table uzrgd06 (tn c(4), uc c(2), 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))

endif

if !(file('uzrgd07.dbf'))

  create table uzrgd07 (tn c(4), uc c(2), 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))

endif

if !(file('uzrgd08.dbf'))

  create table uzrgd08 (tn c(4), uc c(2), 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))

endif

if !(file('uzrgd09.dbf'))

  create table uzrgd09 (tn c(4), uc c(2), 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))

endif

if !(file('uzrgd10.dbf'))

  create table uzrgd10 (tn c(4), uc c(2), 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))

endif

if !(file('uzrgd11.dbf'))

  create table uzrgd11 (tn c(4), uc c(2), 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))

endif

if !(file('uzrgd12.dbf'))

  create table uzrgd12 (tn c(4), uc c(2), 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))

endif

if !(file('usou.dbf'))

  create table usou (vou n(3), nmo c(25),pd c(1),pf c(1),pa c(1),pe c(1), spz c(9))

endif

if !(file('pasp.dbf'))

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

endif

if !(file('dep.dbf'))

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

endif

close all

return

*******************************************************

procedure new_cdx

If !(file("kad.cdx"))

   use kad

   index on tn tag i

Endif

If !(file("uzrgd01.cdx"))

  use uzrgd01

  index on tn tag i

Endif

If !(file("uzrgd02.cdx"))

  use uzrgd02

  index on tn tag i

Endif

If !(file("uzrgd03.cdx"))

  use uzrgd03

  index on tn tag i

Endif

If !(file("uzrgd04.cdx"))

  use uzrgd04

  index on tn tag i

Endif

If !(file("uzrgd05.cdx"))

  use uzrgd05

  index on tn tag i

Endif

If !(file("uzrgd06.cdx"))

  use uzrgd06

  index on tn tag i

Endif

If !(file("uzrgd07.cdx"))

  use uzrgd07

  index on tn tag i

Endif

If !(file("uzrgd08.cdx"))

  use uzrgd08

  index on tn tag i

Endif

If !(file("uzrgd09.cdx"))

  use uzrgd09

  index on tn tag i

Endif

If !(file("uzrgd10.cdx"))

  use uzrgd10

  index on tn tag i

Endif

If !(file("uzrgd11.cdx"))

  use uzrgd11

  index on tn tag i

Endif

If !(file("uzrgd12.cdx"))