Реферат: Автоматизированное рабочее место

Реферат: Автоматизированное рабочее место

Файл Дополнения\Изменения – ADD_DEL.PRG

************************************************************************************* Дополнение\Изменение данных **

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

PROCEDURE ins && Процедура Дополнения\Изменения

PARAMETERS d_ins

ord_a=order()

CLEAR

RELEASE KW,GW,XW,KS,ELC,TL,RD,OT,OR1,LG_TA

HIDE POPUP serv

ON KEY LABEL F1 DO HELP WITH 8

ON KEY LABEL F7 DO N_YDOS_AND_KOD

sele a

STORE .F. TO _PAD_OTCH

DEFINE POPUP YL FROM 4,10

n=recno()

m=1

br=1

DIMENSION yl_za(100,1)

go top

i=1

yl_za(i,1)=yl

DO WHILE !EOF()

DEFINE BAR (br) OF YL PROMPT yl_za(i,1)

IF yl=yl_za(i,1)

skip

loop

ENDIF

m=m+1

i=i+1

yl_za(i,1)=yl

br=br+1

ENDDO

DIMENSION yl_za(m,1)

ON SELECTION POPUP YL DO YLIZ WITH PROMPT()

define window hp from 12,28 to 20,60 shadow color scheme 16

DO CASE

CASE d_ins=1

SCATTER MEMVAR BLANK

STORE 1 TO red

set skip to

CLOSE DATA

SELE i

USE HELP

SELE a

USE RABOT

SELE d

USE LGOT

CASE d_ins=2

IF RECCOUNT()=0

RETURN

ELSE

GO _REC

kw=kw_l

gw=g_w_l

xw=x_w_l

ks=k_ys_l

ot=otop_l

elc=el_c_l

tl=tel_l

rd=rad_l

lg_ta=lgot

or1=or_r

yl_ins=yl

dom_ins=dom

k_ins=kw_ra

SCATTER MEMVAR

STORE 2 TO red

ENDIF

ENDCASE

ACTIVATE WINDOW INS

=POS_CH2()

@ 1,10 GET m.fam

@ 2,10 GET m.tab picture '9999' VALID unic() ERROR 'Повтор Табеля'

@ 2,28 GET m.tel picture '99999999'

@ 3,10 GET m.yl WHEN yliz_s()

@ 3,30 GET m.dom PICTURE 'NNNN'

@ 3,40 GET m.kw_ra picture 'nnnn'

@ 4,10 GET m.kv_m picture '###.##' default ''

*@ 5,39 GET m.kol_vo DISABLE

*@ 3,2 GET yl_z FUNCTION '*I ' VALID YLIZ1() WHEN INS2() DEFA 1 SIZE 1,7

@ 5,35 GET m.elec picture '999999'

@ 6,35 GET m.elec1 picture '999999'

@ 5,43 GET or1 FUNCTION '*C Ордер' VALID O_R() DEFA 0 COLOR SCHEME 16

@ 6,43 GET lg_ta FUNC '*C Льгота' VALID vib_lg() DEFA .f.COLOR SCHEME 16

@ 8,1 to 8,70 double

@ 12,2 GET kw FUNCTION '*C Квартплата' DEFAULT .F. VALID KW_INS() COLOR SCHEME 16

@ 13,2 GET gw FUNCTION '*C Горячая вода' VALID GW_INS() defa .f. COLOR SCHEME 16

@ 14,2 GET xw FUNCTION '*C Холодная вода' VALID XW_INS() DEFA .F. COLOR SCHEME 16

@ 15,2 GET ks FUNC '*C Комунальные услуги' VALI KS_INS() DEFA .F. COLO SCHEME 16

@ 16,2 GET ot FUNCTION '*C Отопление' VALID OT_INS() DEFA .F. COLOR SCHEME 16

@ 17,2 GET elc FUNC '*C Электроэнергия' VALID ELC_INS() DEFA .F. COLOR SCHEME 16

@ 18,2 GET tl FUNCTION '*C Телефон' VALID TL() WHEN TL1() DEFA .F. COLOR SCHEME 16

@ 19,2 GET rd FUNCTION '*C Радио' VALID rd() WHEN rd1() DEFA .F. COLOR SCHEME 16

*@ 10,30 SAY 'Категория'

*@ 10,47 get d.info

@ 11,30 say 'Действительна с' COLOR SCHEME 17

@ 11,47 get m.dat_c COLOR SCHEME 17

@ 11,58 say 'по' COLOR SCHEME 17

@ 11,61 get m.dat_po VALID IIF(m.dat_c=

@ 12,35 say '%начислений кв.платы' COLOR SCHEME 17

@ 12,60 get d.kwp_l PICTURE '#.##' COLOR SCHEME 17

@ 12,65 SAY '%' COLOR SCHEME 17

@ 13,35 SAY '%начислений телефона' COLOR SCHEME 17

@ 13,60 get d.tl_l PICTURE '#.##' COLOR SCHEME 17

@ 13,65 SAY '%' COLOR SCHEME 17

@ 14,35 say '%начислений радио' COLOR SCHEME 17

@ 14,60 get d.rd_l PICTURE '#.##' COLOR SCHEME 17

@ 14,65 SAY '%' COLOR SCHEME 17

@ 15,35 say '%начислений ком. услуг' COLOR SCHEME 17

@ 15,60 get d.k_l_l PICTURE '#.##' COLOR SCHEME 17

@ 15,65 SAY '%' COLOR SCHEME 17

@ 16,35 say '%начислений Гор.воды' COLOR SCHEME 17

@ 16,60 get d.gw_l PICTURE '#.##' COLOR SCHEME 17

@ 16,65 SAY '%' COLOR SCHEME 17

@ 17,35 say '%начислений Хол.воды'COLOR SCHEME 17

@ 17,60 get d.xw_l PICTURE '#.##' COLOR SCHEME 17

@ 17,65 SAY '%' COLOR SCHEME 17

@ 18,35 say '%начислений отопления' COLOR SCHEME 17

@ 18,60 get d.ot_l PICTURE '#.##' COLOR SCHEME 17

@ 18,65 SAY '%' COLOR SCHEME 17

@ 20,35 SAY 'КАТЕГОРИЯ' GET d.info COLOR SCHEME 17

@ 1,57 GET pod FUNCTION '*N Сохранить;Выход;Удалить' valid ad_in() default 1;

size 1,15,1 COLOR ,,,,gr+/b,w+/n,r+/b,,W+/GR,w/b

READ CYCLE SHOW red() color scheme 9

DEACTIVATE WINDOW INS

release windows hp

IF d_ins=1

DO P_INDEX

ENDIF

GO _REC

DO POS_CH

ON KEY

ON KEY LABEL F1 DO HELP WITH 6

RETURN

FUNCTION red

DO CASE

CASE red=1

SHOW GET pod,1 PROMPT 'Cохранить'

SHOW GET pod,3 DISABLE

CASE red=2

SHOW GET pod,1 PROMPT 'Подтверждаю'

ENDCASE

DO CASE

CASE m.or_r=1

SHOW GET kw ENABLE COLOR SCHEME 16

SHOW GET gw ENABLE COLOR SCHEME 16

SHOW GET xw ENABLE COLOR SCHEME 16

SHOW GET ks ENABLE COLOR SCHEME 16

SHOW GET ot ENABLE COLOR SCHEME 16

SHOW GET elc ENABLE COLOR SCHEME 16

SHOW GET tl DISABLE COLOR ,,,,,,,,,BG+/BG

SHOW GET rd DISABLE COLOR ,,,,,,,,,BG+/BG

@ 10,2 FILL TO 20,29 COLOR SCHEME 16

DO CASE

CASE m.lgot=.F.

SHOW GET m.dat_c DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET m.dat_po DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.kwp_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.gw_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.xw_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.k_l_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.ot_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.tl_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.rd_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.info DISABLE COLOR ,,,,,,,,,W+/W

@ 8,29 clear to 9,60

@ 10,30 FILL TO 20,70 COLOR W+/BG

CASE m.lgot=.T.

SHOW GET m.dat_c ENABLE

SHOW GET m.dat_po ENABLE

SHOW GET d.kwp_l ENABLE

SHOW GET d.gw_l ENABLE

SHOW GET d.xw_l ENABLE

SHOW GET d.k_l_l ENABLE

SHOW GET d.ot_l ENABLE

SHOW GET d.tl_l ENABLE

SHOW GET d.rd_l ENABLE

SHOW GET d.info ENABLE

SHOW GET kw ENABLE COLOR SCHEME 16

SHOW GET gw ENABLE COLOR SCHEME 16

SHOW GET xw ENABLE COLOR SCHEME 16

SHOW GET ks ENABLE COLOR SCHEME 16

SHOW GET ot ENABLE COLOR SCHEME 16

SHOW GET elc ENABLE COLOR SCHEME 16

@ 10,30 FILL TO 20,70 COLOR SCHEME 17

ENDCASE

CASE m.or_r=0

SHOW GET kw DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET gw DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET xw DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET ks DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET ot DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET elc DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET tl DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET rd DISABLE COLOR ,,,,,,,,,W+/W

DO CASE

CASE m.lgot=.F.

SHOW GET m.dat_c DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET m.dat_po DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.kwp_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.gw_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.xw_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.k_l_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.ot_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.tl_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.rd_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.info DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET kw DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET gw DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET xw DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET ks DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET ot DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET elc DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET tl DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET rd DISABLE COLOR ,,,,,,,,,W+/W

@ 8,29 clear to 9,60

@ 10,30 FILL TO 20,70 COLOR W+/BG

CASE m.lgot=.T.

SHOW GET m.dat_c ENABLE

SHOW GET m.dat_po ENABLE

SHOW GET d.kwp_l ENABLE

SHOW GET d.gw_l ENABLE

SHOW GET d.xw_l ENABLE

SHOW GET d.k_l_l ENABLE

SHOW GET d.ot_l ENABLE

SHOW GET d.tl_l ENABLE

SHOW GET d.rd_l ENABLE

SHOW GET d.info ENABLE

SHOW GET kw ENABLE COLOR SCHEME 16

SHOW GET gw ENABLE COLOR SCHEME 16

SHOW GET xw ENABLE COLOR SCHEME 16

SHOW GET ks ENABLE COLOR SCHEME 16

SHOW GET ot ENABLE COLOR SCHEME 16

SHOW GET elc ENABLE COLOR SCHEME 16

@ 10,30 FILL TO 20,70 COLOR SCHEME 17

ENDCASE

@ 10,2 FILL TO 20,29 COLOR W+/W

ENDCASE

RETURN

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

** Дополнение (Редактирование) ставок по льготам **

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

FUNCTION INS_LG

SELE d

ON KEY LABEL F1 DO HELP WITH 5

DEFINE WINDOW m_zar FROM 5,14 TO 23,58 SHADOW;

TITLE 'Сегодня - '+dtoc(date()) COLOR SCHEME 17

ACTIVATE WINDOW M_ZAR

@ 1,0 to 1,33 double

SCATTER MEMVAR BLANK

@ 3,1 to 3,31

@ 3,7 say 'Ввод ставок по льготам'

@ 2,1 SAY 'КОД - ' GET m.n_lg PICTURE '99';

VALID UNIC_LG() ERROR 'Код уже существует'

@ 2,10 SAY 'КАТЕГОРИЯ' GET m.info

@ 4,3 say '%начислений кв.платы'

@ 4,29 get m.kwp_l PICTURE '#.##'

@ 4,35 SAY '%'

@ 5,3 SAY '%начислений телефона'

@ 5,29 get m.tl_l PICTURE '#.##'

@ 5,35 SAY '%'

@ 6,3 say '%начислений радио'

@ 6,29 get m.rd_l PICTURE '#.##'

@ 6,35 SAY '%'

@ 7,3 say '%начислений ком. услуг'

@ 7,29 get m.k_l_l PICTURE '#.##'

@ 7,35 SAY '%'

@ 8,3 say '%начислений Гор.воды'

@ 8,29 get m.gw_l PICTURE '#.##'

@ 8,35 SAY '%'

@ 9,3 say '%начислений Хол.воды'

@ 9,29 get m.xw_l PICTURE '#.##'

@ 9,35 SAY '%'

@ 10,3 say '%начислений отопления'

@ 10,29 get m.ot_l PICTURE '#.##'

@ 10,35 SAY '%'

@ 12,2 GET LG_INS FUNCTION '*HN Сохранить;Отмена;Удалить' VALID LG_INS() DEFA 1 SIZE 1,10,2

read CYCLE COLOR SCHEME 5

SELE a

ON KEY

ON KEY LABEL F1 DO HELP WITH 6

RELEASE WINDOWS M_ZAR

RETURN

П
риложение № 1.5

- 6 -

Просмотр с помощью команды BROWSE – BAZES.PRG

************************************************************************************* Пункт меню - КАДРЫ **

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

PROCEDURE KDR_r && Пункт меню - Работа с картотекой

HIDE POPUP kadr

IF RECCOUNT()=0

ACTIVATE WINDOW vib

@ 1,10 SAY 'Б а з а п у с т а'

@ 2,9 SAY 'Начните с дополнения'

@ 0,0 FILL TO 8,43 COLOR W+/R

@ 5,3 GET ins1 FUNCTION '*TH Дополнить;Отмена' VALID ins2();

DEFA 1 SIZE 1,10,4 COLOR ,,,,w+/n,w+/n,w+/n,,W+/R,

READ CYCLE OBJECT 1

DEACTIVATE WINDOW vib

RETURN

ENDIF

DEFINE WINDOW kd FROM 3,0 TO 23,30 system float grow close zoom shadow

ON KEY LABEL F1 DO HELP WITH 1

SELECT A

BROWS FOR or_r=1 REST NOMENU NOEDIT;

TITLE 'F3 - Меню Сегодня -'+dtoc(date()) FIELDS;

kp=iif(or_r=1,'-','') :1 :H='' :W=nach() :F,;

tab :H='Таб' :W=EN() :V=NE() :F,;

fam :h='Фамилия' :W=EN() :V=NE() :F :15,;

lg=iif(lgot=.t.,'v','') :1 :H='':W=EN() :W=nach() :V=NE() :F ;

WIND kd COLOR SCHEME 12

CLEAR

release window kd

ON KEY LABEL F1 DO HELP WITH 6

RETURN

PROCEDURE kv_sch && Пункт меню(pop_vib) - жильцы

SELECT A

SET ORDER TO ADRR

DEFINE WINDOW kd FROM 3,0 TO 23,30 system float grow close zoom shadow

ON KEY LABEL F1 DO HELP WITH 1

tr=recno()

_y=yl

_d=dom

_kv=kw_ra

BROWS FOR yl=_y.and.dom=_d.and.kw_ra=_kv NOMENU NOEDIT;

TITLE 'F3 - Меню Сегодня -'+dtoc(date()) FIELDS;

kp=iif(or_r=1,'-','') :1 :H='' :W=nach() :F,;

tab :H='Таб' :W=EN() :V=NE() :F,;

fam :h='Фамилия' :W=EN() :V=NE() :F :15,;

lg=iif(lgot=.t.,'v','') :1 :H='':W=EN() :W=nach() :V=NE() :F ;

WIND kd COLOR SCHEME 12

CLEAR

release window kd

ON KEY LABEL F1 DO HELP WITH 6

RETURN

PROCEDURE kdr_l && пункт меню - Картотека льготников

HIDE POPUP kadr

IF RECCOUNT()=0

ACTIVATE WINDOW vib

@ 1,10 SAY 'Б а з а п у с т а'

@ 2,9 SAY 'Начните с дополнения'

@ 0,0 FILL TO 8,43 COLOR W+/R

@ 5,3 GET ins1 FUNCTION '*TH Дополнить;Отмена' VALID ins2();

DEFA 1 SIZE 1,10,4 COLOR ,,,,w+/n,w+/n,w+/n,,W+/R,

READ CYCLE OBJECT 1

DEACTIVATE WINDOW vib

RETURN

ENDIF

DEFINE WINDOW kd1 FROM 1,0 TO 20,79 system float grow close zoom

ON KEY LABEL F1 DO HELP WITH 2

ON KEY LABEL F5 ACTIVATE POPUP POISK

ON KEY LABEL CTRL+T DO DEL

ON KEY LABEL CTRL+N DO INS WITH 1 IN ADD_DEL

GO TOP

BROWS FOR lgot=.T. WIND kd1 color scheme 8 TITLE;

'F3 - Меню F5 - Поиск Сегодня -'+dtoc(date()) FIELDS;

tab :H='Таб' :W=INFO3() :R :F,;

fam :H='Фамилия' :W=INFO() :F :15,;

dat_c :H='С даты' :W=INFO() :F,;

dat_po :H='По дату' :w=INFO() :F,;

d.info :H='Категория' :R :W=INFO() :F,;

n_yd :H='N удост.' :W=INFO() :F,;

yl :H='Улица' :W=INFO() :R :F,;

dom :H='Д' :W=INFO() :R :F,;

kw_ra :H='Кв' :W=INFO() :r :F,;

tel :h='Телефон' :W=INFO() :F

CLEAR

ON KEY LABEL F1 DO HELP WITH 6

RETURN

PROCEDURE BAZA && пункт меню - База жильцов

HIDE POPUP kadr

IF RECCOUNT()=0

ACTIVATE WINDOW vib

@ 1,10 SAY 'Б а з а п у с т а'

@ 2,9 SAY 'Начните с дополнения'

@ 0,0 FILL TO 8,43 COLOR W+/R

@ 5,3 GET ins1 FUNCTION '*TH Дополнить;Отмена' VALID ins2();

DEFA 1 SIZE 1,10,4 COLOR ,,,,w+/n,w+/n,w+/n,,W+/R,

READ CYCLE OBJECT 1

DEACTIVATE WINDOW vib

RETURN

ENDIF

DEFINE WINDOW kd1 FROM 1,0 TO 20,79 system float grow close zoom

ON KEY LABEL F1 DO HELP WITH 2

ON KEY LABEL F5 ACTIVATE POPUP POISK

ON KEY LABEL CTRL+T DO DEL

ON KEY LABEL CTRL+N DO INS WITH 1 IN ADD_DEL

GO TOP

BROWS WIND kd1 color scheme 18 TITLE;

'F3 - Меню F5 - Поиск Сегодня -'+dtoc(date()) FIELDS;

tab :H='Таб' :R :W=INFO() :F,;

fam :H='Фамилия' :W=INFO() :F :15,;

yl :H='Улица' :R :W=INFO() :F :10,;

dom :H='Д' :R :W=INFO() :F,;

kw_ra :H='Кв' :R :W=INFO() :F,;

tel :h='Телефон' :W=INFO() :F :6,;

d.info :H='Категория' :R :W=INFO() :15 :F,;

n_yd :H='N удост.' :W=INFO() :F,;

kol_vo :H='Кол-во' :W=INFO() :3

CLEAR

ON KEY LABEL F1 DO HELP WITH 6

RETURN

PROCEDURE ent_sch && пункт меню - Ввод оплаты счетчика

HIDE POPUP kadr

IF RECCOUNT()=0

ACTIVATE WINDOW vib

@ 1,10 SAY 'Б а з а п у с т а'

@ 2,9 SAY 'Начните с дополнения'

@ 0,0 FILL TO 8,43 COLOR W+/R

@ 5,3 GET ins1 FUNCTION '*TH Дополнить;Отмена' VALID ins2();

DEFA 1 SIZE 1,10,4 COLOR ,,,,w+/n,w+/n,w+/n,,W+/R,

READ CYCLE OBJECT 1

DEACTIVATE WINDOW vib

RETURN

ENDIF

DEFINE WINDOW kd1 FROM 1,0 TO 20,79 system float grow close zoom

GO TOP

SELECT A

ON KEY LABEL F1 DO HELP WITH 2

ON KEY LABE F5 ACTIVATE POPUP POISK

BROWSE for or_r=1 TITLE;

'F3 - Меню F5 - Поиск Сегодня -'+dtoc(date()) FIELDS;

tab :H='Таб' :W=INFO() :F :R,;

fam :h='Фамилия' :W=INFO() :F :15 :r,;

yl :H='Улица' :W=INFO() :F :r :10,;

dom :H='Дом' :W=INFO() :F :r,;

kw_ra :H='Кв.' :W=INFO() :F :r,;

tel :H='Телефон':W=INFO() :F :r ,;

elec :H='Ст.знач':W=INFO() :F :v=r() :f ,;

elec1 :H='Нов.знач' :v=r() :W=INFO() :F,;

c.el_c :H='К оплате' :W=INFO() :F :8;

WIND kd1 color scheme 18

CLEAR

ON KEY LABEL F1 DO HELP WITH 6

RETURN

PROCEDURE ent_opl && пункт меню - Ввод оплаты

HIDE POPUP kadr

IF RECCOUNT()=0

ACTIVATE WINDOW vib

@ 1,10 SAY 'Б а з а п у с т а'

@ 2,9 SAY 'Начните с дополнения'

@ 0,0 FILL TO 8,43 COLOR W+/R

@ 5,3 GET ins1 FUNCTION '*TH Дополнить;Отмена' VALID ins2();

DEFA 1 SIZE 1,10,4 COLOR ,,,,w+/n,w+/n,w+/n,,W+/R,

READ CYCLE OBJECT 1

DEACTIVATE WINDOW vib

RETURN

ENDIF

DEFINE WINDOW kd1 FROM 1,0 TO 20,79 system float grow close zoom

dat=DATE()

opl=0

SELECT A

GO TOP

ON KEY LABEL F1 DO HELP WITH 2

ON KEY LABEL F5 ACTIVATE POPUP POISK

BROWS FOR or_r=1 REST TITLE;

'F3 - Меню F5 - Поиск Сегодня -'+dtoc(date()) FIELDS;

lg=iif(lgot=.t.,'v','') :1 :H='':W=INFO3(),;

tab :H='Таб' :R :W=INFO3(),;

fam :h='Фамилия' :15 :W=INFO3(),;

opl_ta :H='ВВОД ОПЛАТЫ' :8 :V=sv3() :W=INFO3(),;

ost_k :H='Остаток' :8 :W=INFO3() :r,;

d_opl :H='Дата' :8 :W=INFO3(),;

c.itog_n :h='Начислен':8 :R :W=INFO3(),;

c.sum_it :h='По льготе' :W=INFO3() :8 :R,;

c.itog :h='К оплате':10 :W=INFO3() :R;

WIND kd1 COLOR W+/RB,GR+/RB,N/g,GR+/g,GR+/N,GR+/RB,GR+/RB,,,

ON KEY LABEL F1 DO HELP WITH 6

CLEAR

RETURN

************************************************************************************* Пункт меню – СЕРВИС **

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

PROCEDURE NORMS && пункт меню - Ввод нормативов оплаты (стоимости услуг)

HIDE POPUP serv

ON KEY LABEL F1 DO HELP WITH 4

DEFINE WINDOW m_zar FROM 5,15 TO 23,55 SHADOW;

TITLE 'Сегодня - '+dtoc(date()) color scheme 19

ACTIVATE WINDOW M_ZAR

@ 1,0 TO 1,33 DOUBLE

@ 2,1 TO 2,31

@ 2,7 SAY 'Ввод стоимости услуг'

@ 3,3 SAY 'Стоимость кв.платы'

@ 3,29 GET _kv_pl PICTURE '##.##'

@ 4,3 SAY 'Стоимость телефона'

@ 4,29 GET _tel PICTURE '##.##'

@ 5,3 SAY 'Стоимость радио'

@ 5,29 GET _rad PICTURE '##.##'

@ 6,3 SAY 'Стоимость ком. услуг'

@ 6,29 GET _kom PICTURE '##.##'

@ 7,3 SAY 'Cтоимость Гор.воды'

@ 7,29 GET _gor_w PICTURE '##.##'

@ 8,3 SAY 'Стоимость Хол.воды'

@ 8,29 GET _xol_w PICTURE '##.##'

@ 9,3 SAY 'Стоимость отопления'

@ 9,29 GET _otopl PICTURE '##.##'

@ 10,3 SAY 'Стоимость электроэнергии'

@ 10,29 GET _elek PICTURE '##.##'

@ 12,3 SAY 'Бухгалтер'

@ 12,14 GET _pod PICTURE 'xxxxxxxxxxxxxxx'

@ 14,5 GET c function '*HN ОК;Отмена' VALID cf();

DEFAULT 1 SIZE 1,6,7 COLOR SCHEME 12

READ CYCLE COLOR ,N/W

RELEASE WINDOWS M_ZAR

ON KEY LABEL F1 DO HELP WITH 6

RETURN

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

PROCEDURE VVV && пункт меню - Ввод оплаты для олного квартиросъемщика

ON KEY LABEL F1 DO HELP WITH 2

SELE a

R=RECNO()

y=yl

d=dom

kv=kw_ra

dat=DATE()

opl=0

DEFINE WINDOW m_zar FROM 5,15 TO 23,55 SHADOW;

TITLE 'Сегодня - '+dtoc(date()) color scheme 19

ACTIVATE WINDOW M_ZAR

IF or_r=0

LOCATE FOR y=yl.AND.d=dom.AND.kv=kw_ra.AND.or_r=1

IF FOUND()=.F.

RETURN

ENDIF

ENDIF

@ 1,2 SAY 'ВВОД ОПЛАТЫ ДЛЯ ' color gr+/b

@ 2,2 SAY ALLTRIM(FAM) COLOR W+/B

@ 3,2 SAY 'Табель - ' color gr+/b

@ 3,14 SAY ALLTRIM(STR(TAB)) COLOR W+/B

@ 5,1 TO 14,39 DOUBLE

@ 6,3 SAY 'Начислено'

@ 6,15 GET c.itog_n disable PICTURE '#######.##' color scheme 12

@ 7,3 SAY 'По льготе'

@ 7,15 SAY ltrim(str(c.sum_it,7,2)) color r/W

@ 8,3 SAY 'К оплате'

@ 8,15 GET c.itog disable PICTURE '#######.##' color scheme 12

@ 10,2 SAY 'Введите уплаченную сумму'

@ 10,26 GET opl picture '####.##' VALID SM()

@ 12,4 SAY 'Остаток '

@ 12,12 GET ost_k disable PICTURE '####.##' color scheme 12

@ 15,5 GET sav FUNCTION '*H Ok;Отмена' VALID SAV() DEFA 1 SIZE 1,8,5

READ CYCLE COLOR ,N/W

DEACTIVATE WINDOW M_ZAR

GO r

ON KEY LABEL F1 DO HELP WITH 1

IF WONTOP()='INS'

@ 10,27 CLEAR TO 20,50

set order to adrr

=POS_CH1()

SHOW GETS

ON KEY LABEL F1 DO HELP WITH 5

ENDIF

RETURN

П
риложение № 1.4

- 6 -

I-й раздел

Введение

Краткая характеристика предприятия

Усть-Кутская перевалочно-распределительная нефтебаза является филиалом ОАО "Иркутскнефтепродукт".

Расположена в г. Усть-Куте, Иркутской обл., на берегу р. Лена, в устье реки Якурим.

Нефтебаза классифицируется по следующим признакам:

• по общей вместимости и максимальному объему одного резервуара относится к первой категории

• по функциональному назначению – перевалочно-распределительная

• по транспортным связям – смешанная, автомобильно-водно-железнодорожная

• по номенклатуре – нефтебаза общего хранения.

Предприятие имеет восемь АЗС, а также пять филиалов-нефтескладов.

Характеристика производственной деятельности

По своему функциональному назначению нефтебаза является перевалочным пунктом для отправки нефтепродуктов в северные районы Иркутской области, Республику Саха-Якутия, Хабаровский край водным путем (по р. Лена) за период навигации с 1/05 по 25/10. Наличие мощного резервуарного парка позволяет производить накопление и хранение нефтепродукта в любое время года.

Через имеющиеся восемь АЗС и пять филиалов-нефтескладов нефтебаза покрывает потребности в нефтепродуктах в некоторых районах Иркутской обл.

Маслами, смазками также обеспечиваются предприятия Братского и Усть-Илимского районов.

Предприятие имеет развитую инфраструктуру по обеспечению предприятий и организаций и жилых микрорайонов следующими видами услуг:

• установка телефонов и обеспечение телефонной связью

• передача электроэнергии через собственную подстанцию

• снабжение паром, холодной и горячей водой от собственных источников (ТЭЦ, водозабор)

• перевозка нефтепродуктов автотранспортом.

Производственные мощности и их оснащения

Чтобы управлять организацией, необходимо определенным образом связать цели, людей и виды, выполняемой ими работ между собой. Для этого создается организационная структура управления организацией, и составляются должностные инструкции на всех членов организации, в которых оговариваются: права, ответственность и обязанности каждого.

Схема 1

Структура управления предприятия

Схема 2

Непосредственная реализация нефтепродуктов осуществляется через такие основные цеха, как 1 цех, 4 цех и АЗС. Объем реализации нефтепродуктов по цехам распределяется в зависимости от сезонных условий, т.е. в летний период наибольший объем реализации нефтепродукта приходится на 1 и 4 цеха, т.к. в этих цехах производится отгрузка нефтепродуктов водным путем (танкерами).В зимний же период эти цеха производят "затарку" резервуаров на хранение нефтепродукта. Прием нефтепродукта осуществляется с вагоноцистерн через эстокады. Отгрузка производится водным путем танкерами через причалы

Цех № 1 предназначен как для хранения нефтепродукта , перевалки водным путем (танкерами), обеспечением города и филиалов темными и светлыми нефтепродуктами.

Цех № 4предназначен для хранения светлых нефтепродуктов и отправки водным путем.

Лаборатория осуществляет контроль за качеством принимаемых и отпускаемых нефтепродуктов, а также периодический контроль за состоянием нефтепродуктов в резервуарах.

Тарный производит перевалку горюче-смазочных материалов через бочкатару и поштучно (литол, циатим, тосол …).

Цех № 3, АЗС осуществляют реализацию нефтепродуктов населению и предприятиям наличным и безналичным расчетом.

Вспомогательное производство осуществляет обслуживания основных объектов нефтебазы, а также и близлежащий жилой поселок (обеспечение теплом, связью, электроэнергией при необходимости)1

Основные производственные фонды

Условное распределение объема реализации нефтепродукта основными цехами

1 Разработка приложения ориентированна именно на эту часть производства, то есть по ЖКХ (учет квартплаты.)

Основные средства предприятия представлены различными видами, которые отражают производственную деятельность. Наибольший удельный вес имеют здания и сооружения.

В состав зданий входят производственные цеха, которые были построены в основном 25-30 лет назад и большей частью требуют капитального ремонта. Низка норма износа, проводимые переоценки значительно увеличили стоимость зданий, что не всегда соответствует истинной рыночной стоимости.

Сооружение, в основном, представлены резервуарами, которые на 90% не имеют остаточной стоимости и фактически по сроку службы подлежат списанию. Но так как сделать это не возможно, следует произвести оценку остаточной стоимости этой части основных фондов, это позволит получить дополнительные амортизационные отчисление на восстановление износа

Из общего количества резервуаров на нефтебазе 10% требуют немедленной замены, остальным необходимо проведение полного обследования, определения остаточного ресурса и ремонт.

Высокая степень износа (более 60%) характеризует такие объекты основных средств как машины и оборудование, и транспортные средства. Их удельный вес в общем объеме составляет 2%.

Практически изношенными являются передаточные устройства, имеющие остаточную стоимость 22,7 млн.руб. при восстановительной стоимости 96,2 млн. руб.,

В связи с уменьшением капитальных вложений, ввод основных фондов за 1999-2000 сократился и не оказывает влияния. За 1999 г. введено основных средств на сумму 2,9 млн. руб. Списание основных средств в 2000 г. не производилось. Это связано с тем, что полностью амортизированные основные средства эксплуатируются, а списание основных средств физически изношенных и не эксплуатирующихся, но не имеющих остаточную стоимость не разрешается.

В целом основные средства нефтебазы имеют значительную восстановительную стоимость 606,9 млн. руб., большой износ – 356,8 млн. руб.

Для определения истинной рыночной стоимости каждого объекта основных фондов необходимо провести натуральную оценку с привлечением профессиональных оценщиков. Это положительно скажется на определение налогооблагаемой базы для определения налога на имущество так и для увеличения амортизационных отчислений на ремонт и полное восстановление основных средств

Себестоимость, прибыль и рентабельность продукции

Прибыль и рентабельность представляют собой важные показатели эффективности производства.

Достижение наибольших результатов при наименьших затратах является непреложным законом хозяйственного деятельности.

Повышение эффективности производства означает не только рост производительности труда, фондоотдачи и снижение себестоимости продукции, но и увеличение суммы прибыли и уровня рентабельности.

На предприятии различают прибыль от реализации продукции и балансовую прибыль.

Прибыль представляет собой часть чистого дохода, полученного в процессе хозяйственной деятельности, который образуется после возмещения из доходных поступлений (выручки) затрат на себестоимость продукции.

Сумма прибыли изменяется под влиянием интенсивных и экстенсивных факторов.

К числу интенсивных факторов изменение суммы прибыли относится улучшение использования производственных фондов, рост объема производства без увеличения численности работающих, повышение производительности труда и снижение себестоимости.

Рентабельность - важный обобщающий показатель работы предприятия. В ней находит отражение не только величена прибыли и производственных фондов, но и производительность труда, фондоотдачи, скорости оборачиваемости оборотных средств и т.д.

Различают три вида рентабельности:

 общая рентабельность - отношение суммы балансовой прибыли к среднегодовой стоимости основных производственных фондов и нормируемых оборотных средств, не про кредитованных банком;

расчетная рентабельность - отношение суммы расчетной прибыли к среднегодовой стоимости основных производственных фондов и нормируемых оборотных средств за вычетом тех основных фондов, по которым не взимается плата в бюджет, и нормируемых оборотных средств, про кредитованных банком. Для исчисления суммы расчетной прибыли балансовая прибыль уменьшается на сумму платежей в бюджет за производственные основные фонды и нормируемые оборотные средства и на сумму уплаченных процентов за пользование банковским кредитом;

рентабельность по отношению к расходам - отношение суммы прибыли к расходам как в целом по анализируемому предприятию, так и по отдельным видам деятельности или видам работ.

Планирование производственно-хозяйственной деятельности предприятия

План производства и реализации продукции

Исходным элементом организации производственного процесса является качественно разработанный, своевременно доведенный до цехов и подразделений предприятия планы и плановые задания.

Планирование капитального строительства и капитального ремонта основных фондов

Основной задачей планирования капитального строительства являются увеличение и обновление производственных мощностей и основных фондов. Эта задача должна решаться на современной научно-технической основе в объемах, необходимых для обеспечения прироста продукции и услуг, повышения их качества, роста эффективности производства.

При планировании капитального строительства следует обеспечить сбалансированность лимитов капитальных вложений и строительно-монтажных работ с финансовыми и материальными ресурсами.

К основным показателям плана капитальных вложений относится:

 прирост производственных мощностей за счет технического перевооружения и реконструкции

• ввод в действие производственных мощностей, отдельных объектов производственного назначения за счет расширения действующих и строительства новых зданий и сооружений

• ввод в действие объектов охраны природы

• ввод в действие основных производственных и непроизводственных фондов

Лимит - ресурсный показатель, определяющий предельную величину капитальных вложений, в том числе на строительно-монтажные работы, на запланированный ввод в действие мощностей, объектов и создание нормативных заделов. Заказчики обязаны укладываться в соответствующие лимиты капитальных вложений.

Предпосылки для написания приложения

Главным фактором для разработки своего приложения явилось предложение моей супруги, работающей бухгалтером на этом предприятии и выполняющей расчет квартплаты. Усть-Кутская нефтебаза имеет на своем балансе Жилищное хозяйство общей площадью – 22735 кв.метров и количеством проживающих – 14 тысяч 420 человек. Расчет квартплаты производится в бухгалтерии по данным ЖКО. При данном расчете в основном фиксируются те жильцы, с которых взимают и начисляют квартплату за предоставляемые услуги. Моей целью, при написании приложения, было наиболее полно отразить всех проживающих в СУБД и подходящей больше непосредственно для ЖКО как расчетно-инфармационная база всех проживающих.

Краткая характеристика системы

Для осуществления планирования деятельности любой фирмы на любом этапе работы осуществляются некоторые расчеты для автоматизации которых удобно и рационально применять вычислительную технику. В своей дипломной работе я решил разработать приложение по учету платы за квартиру.

В данном приложении решаются следующие задачи:

• Заполнение и хранение информации о всех жильцах. Данная информация упорядочена и выводится на экран, для просмотра или редактирования в зависимости от предполагаемого действия пользователя.

• Возможность выборочного начисления на предоставляемые услуги, а также возможно (если это необходимо) установить процент начисления на каждую услугу отдельно для конкретного квартиросъемщика (например в какой то период в квартире никто не проживает (отпуск ,командировка и т.д.)) следовательно за какие-то услуги плата не начисляется или начисляется в меньшем размере (10%,20%,…), или наоборот.

• Возможность определения льготы для одного или группы квартиро-съемщиков и процентной ставке для каждой льготы.

• Формирование и печать необходимых данных для отчетности и анализа, а также печать квитанции об произведенных начислениях, задолженности по оплате и остатке денежных средств для конкретного жильца.

• Возможность обращения к справочным экранам, описывающими возмож-ные действия в данном месте системы.

• Предусмотрен входной и выходной контроль для записей, которые являются обязательно уникальными (не повторяемость).

II-й раздел

Основная часть

Описание предметной области…………………………………..	9
Проектирование базы данных…………………………………..	12
Этап 1. Определение сущностей………………………………..	12
Этап 2. Определение взаимосвязей мужду сущностями……….	12
Этап 3. Задание первичных и альтернативных ключей, определение атрибутов сущностей……………………………..	 13
Этап 4. Физическое описание модели…………………………	16

Описание предметной области

Организация работы с данными является одним из основных этапов создания прикладной программы. Именно от этого первого этапа, действительно очень важного и многими недооцениваемого, зачастую зависит создание всей системы автоматизированной обработки данных и успех ее эксплуатации у конечного пользователя.

Разработка программы для учета начислений оплаты за пользование услугами, предоставляемых Жилищно-Коммунальным хозяйством Усть-Кутской нефтебазы.

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

Для каждого жильца, с которого берется квартплата, предусмотреть изменение стоимости услуг, в зависимости от сложившейся ситуации на данный момент времени (отпуск, командировка и т.д.) или от типа жилья (неблагоустроенная квартира, привозная вода и т.д.), как в меньшую, так и в большую сторону, по умолчанию начисляются нормативные ставки, действующие в данной организации.

После производства всех расчетов, определяется общая сумма к оплате, суммы начислений по всем видам услуг и суммы начислений по льготам по каждому квартиросъемщику.

По окончании отчетного периода (1 месяц) формируется отчеты по видам оплаты и категориям проживающих, с возможностью их корректировки вручную и распечаткой в любое время.

Определение задач

Регистрация всех проживающих

Определение (указание), используемых услуг

Определение (выбор) льготы и ставок по ней

Определение (изменение) периода начисления льготы (необязательное условие)

Определение норм оплаты за каждую услугу (нормативы)

Определение норм оплаты за каждую услугу, для отдельного жильца или в целом для жильцов, проживающих в одном доме (необязательное условие)

Расчет квартплаты

Расчет льгот

Определение сумм к оплате

Формирование и печать квитанции об оплате для конкретного плательщика

Учет платежей квартиросъемщиков (дата и сумма платежа, остаток или задолженность)

Просмотр, Дополнение и Изменение информации обо всех категориях проживающих

Ежемесячная подготовка отчетов по различным начислениям

Редактирование и печать отчетов (в любое время и в любом количестве)

Возможность обратиться к файлам помощи (F1)

Возможность поиска

Ответы на эти вопросы позволяют подойти к главному в постановке задачи – построении инфологической модели приложения. В простейшем примере такая модель может быть отображена в виде взаимосвязей между компонентами и процессами приложения, как показано на рисунке 2.1. в практике проектирования такие схемы получили название ER-диаграмм (Entity-relationship diagram (ERD) – диаграмма «Сущность-связь»)

Жильцы

Ф.И.О

Табельный номер

Дата рождения

Льгота

Адрес

КОД

Улица

Дом

Квартира

Кв. метры

Количество проживающих

Дата начала начислений

Дата окончания начислений

Описание льготы

№ удостоверения

Расчет

Расчет квартплаты

Расчет по льготам

Выбранные услуги

Расчет

Итог

Выбранные услуги

КОД и процентные ставки, определяемые кодом

Расчет

Итог

К оплате

Процентные ставки по услугам

КАТЕГОРИЯ

Рис 2.1. Диаграмма взаимосвязей между компонентами и процессами

(Инфологическая модель)

Максимально формализованное описание задачи теперь будет выглядеть следующим образом.

Наименование задачи:

Автоматизация работы бухгалтера по расчету квартплаты.

Цель работы бухгалтера:

Введение учета и расчетов с населением за предоставляемые коммунальные услуги.

Функции бухгалтера:

• Заключение договоров и регистрация клиентов в Базе Данных.

• Ведение информации по льготам и ставкам по ним.

• Работа с клиентами : установление льготы, установление тарифных ставок отличных от нормативных по различным причинам, разъяснительная работа и т.д..

• Ведение расчетов за используемые услуги (выписка квитанции об оплате).

Бизнес - правила:

• Ввод информации на основе документов.

Требования к системе

Программа может работать под управлением операционных систем DOS или WINDOWS, при наличии пакета FoxPro 2.6 for DOS.

Перечень вводимой информации:

• Фамилия, имя и отчество жильца;

• Табельный номер;

• Год рождения

• Адрес;

• Квадратные метры;

• Телефон;

• При наличии льготы – описание льготы, код, период;

• Выбор плательщика, указанного в ордере

• Нормативные ставки на услуги

• Тарифные ставки и описание тарифа

Перечень печатных отчетов:

• Списки по начислению

• Списки льготников

• Списки с показаниями счетчика

• Оплата электроэнергии

• Сальдо по квартиросъемщикам

• Свод по квартплате за месяц

• Квитанция об оплате

Проектирование базы данных

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

В основу проектирования БД должны быть положены представления конечных пользователей организации – концептуальные требования к системе. Потому что, именно конечный пользователь в своей работе принимает решения с учетом получаемой в результате доступа к базе данных информации. Следовательно, от оперативности и качества этой информации будет зависеть эффективность работы организации. Данные, помещаемые в базу данных, также предоставляет конечный пользователь.

При рассмотрении требований конечных пользователей принято во внимание следующее:

База данных должна удовлетворять актуальным информационным потребностям организации. Получаемая информация должна по структуре и содержанию соответствовать решаемым задачам.

База данных должна обеспечивать получение требуемых данных за приемлемое время, то есть отвечать заданным требованиям производительности.

База данных должна удовлетворять выявленным и вновь возникающим требованиям конечных пользователей.

Загруженные в базу данных корректные данные должны оставаться корректными.

Данные до включения в базу данных должны проверяться на достоверность.

Доступ к данным, размещаемым в базе данных, должны иметь только лица с соответствующими полномочиями.

На основании вышеизложенного рассмотрим этапы проектирования баз данных, которые должны обеспечить необходимую независимость данных и выполнение эксплуатационных требований (пожеланий пользователей).

Этап 1. Определение сущностей

Исходя из задачи, описанной выше, выделим следующие сущности:

1. Жильцы – БД, содержащая информацию о жильцах (RABOT.DBF)

2. Начисления - БД, содержащая информацию о начислениях (OPLATA.DBF)

3. Льготы - БД, содержащая информацию о льготах (LGOT.DBF)

4. Ставки - БД, содержащая информацию о ставках для конкретного жильца и (или) о жильцах, проживающих в одном доме (TABLE_R.DBF)

5. Тарифы - БД, содержащая информацию описания тарифов и ставок по ним (TARIF.DBF)

Этап 2. Определение взаимосвязей мужду сущностями

ЖИЛЬЦЫ

СТАВКИ

ТАРИФЫ

СЧЕТ

ЛЬГОТЫ

Этап 3. Задание первичных и альтернативных ключей, определение атрибутов сущностей

Первичный ключ – это атрибут (или группа атрибутов), которые единственным образом идентифицируют каждую строку в таблице.

Альтернативный ключ – это атрибут (или группа атрибутов), несовпадающий с первичным ключом и уникально идентифицирующий экземпляр объекта.

Для каждой сущности определим атрибуты, которые будем хранить в БД.

Атрибуты, включаемые в состав БД, приведены в таблице 2.1. информационная модель после третьего этапа проектирования приведена на рис. 2.13

Таблица 2.1. Атрибуты и первичные ключи сущностей информационной модели

ЖИЛЬЦЫ

Таб. Номер

Улица

Дом

Квартира

Код льготы

. . .

ЛЬГОТЫ

Код льготы

. . .

СТАВКИ

Таб. Номер

. . .

НАЧИСЛЕНИЯ

Таб. Номер

Улица

Дом

Квартира

Код льготы

. . .

Рис. 2.13. Взаимосвязи между атрибутами сущностей

Этап 4. Физическое описание модели

На этом этапе составим базы данных, которые будут в дальнейшем реализовываться в СУБД. Назначения имен БД и их атрибутов отражены в табл. 2.2.

Таблица 2.2. Структура, используемых Баз Данных.

RABOT.DBF (Жильцы)

OPLATA.DBF (Начисления)

* - Сумма начислений по льготам жильцов, проживающих в одной квартире

LGOT.DBF (Льготы)

TABLE_R .DBF (Ставки)

TARIF.DBF (Тарифы)

HELP.DBF – БД, содержащая описание помощи.

M_ZAR .MEM - Файл, в котором хранятся переменные стоимости услуг ( _* ).

А также структурные файлы-индексы (CDX), для каждой базы, создаваеммые программным путем.

Поддержка базы данных……………………...		20
Описание работы приложения………………..		21
	Работа с пунктами меню………………….	23
PAD-пункт «Кадры»………………………………		23
PAD-пункт «Отчеты» …………………………….		24
PAD-пункт «Печать»………………………………		24
PAD-пункт «Сервис»………………………………		25
PAD-пункт «Расчет»………………………………		25
PAD-пункт «Помощь»…………………………….		25
PAD-пункт «Выход»………………………………		25
	Работа окнами…………………………….	26
Окно «Работа с картотекой» (INS)……………….		26
Окно «Квартиросъемщики» (KD)…………………		28
Окно нормативов (M_ZAR)………………………		29
Окно дополнения льгот (M_ZAR)………………...		29
Окно тарифов (M_ZAR)…………………………..		29
Окно дополнения жильцов (INS)…………………..		29
BROWSE-окна (KDR)…………………………….		30
Окно помощи (HELP)……………………………..		30

Поддержка базы данных

поддержка или ведение базы данных подразумевает наличие средств доступа к данным и средств управления ими. При этом рабочий интерфейс должен быть максимально “комфортным”. Здесь нужно решить, что пользователь будет обычно видеть на экране компьютера.

Удобно в качестве “рабочего стола”, на котором он будет принимать решения, и совершать действия по обработке данных, взять не какое-то меню, а отображение самой базы данных. На экране должны присутствовать и указания на возможные действия пользователя. Поскольку на нем никогда не хватает места, указания на некоторые действия можно поместить в развертывающиеся световые меню. При необходимости также должна быть предусмотрена контекстно-зависимая помощь (HELP – F1).

Функции поддержки базы данных.

Для обслуживания базы необходимы следующие функции.

1. перемещение вперед\назад на одну запись (SKIP\SKIP –1). При этом должны блокироваться попытки выйти за первую\последнюю запись базы. Достижение верхней\нижней границы желательно отображать на экране (READ-окно).

2. Переход на начало\конец базы (GO TOP\BOTTOM).

3. Пометка записей, предназначенных для удаления, и снятие пометки (DELETE\RECALL).

4. Дополнение базы новой записью (APPEND BLANK).

5. Выход из окна редактирования.

6. Поиск по ключу (SEEK, LOCATE). В случае неудачного поиска указатель записей должен вернуться на исходную запись.

7. Вывод\печать данных.

8. Упаковка данных (PACK).

9. Переиндексация базы (REINDEX или INDEX).

10. Полная очистка базы от данных (вспомогательная база oplata.dbf) (ZAP).

Средства предъявления данных.

1. Команда BROWSE\CHANGE удобна тем, что дает панораму данных и не требует программирования перемещения в БД. В данной программе команда BROWSE в основном используется для просмотра данных и результатов вычислений.

2. Команда READ с командами @…SAY…@…GET:

@…SAY…GET…

@…SAY…

@…GET…

READ …

Эта форма предъявления данных является самой гибкой и дает непосредственный доступ к полям базы. Теперь кроме собственно редактирования, поля базы данных можно анализировать, трансформировать, запоминать в переменных или в других базах и т.д.. Чаще всего такой режим называют READ-окном, хотя использование команд @…GET, READ не обязывает помещать их в специальное окно – они могут проектироваться и непосредственно на экран.

Все операции над базой, предъявляемой командой READ, могут быть совершены либо после завершения команды READ, либо в вызываемых процедурах.

Обе формы (BROWSE и READ) предъявления данных активно используются в программе.

Описание работы приложения.

Управление программой осуществляется с помощью меню, так как меню является основной формой диалога в прикладных системах обработки данных. FoxPro обладает развитыми средствами поддержания меню как с объемным световым курсором (световым «зайчиком»), так и с назначаемыми клавишами. Кроме того, в FoxPro реализовано еще и «кнопочное» (Button) меню, которые означают не физическую кнопку на клавиатуре, а некоторую область на экране, которой приданы управляющие свойства. «Кнопочные» меню удобно использовать совместно с мышью.

В FoxPro имеются две альтернативные технологии построения меню – концепция, продолжающая еще из предыдущей версии СУДБ FoxBASE-2,1, и концепция, позаимствованная из СУДБ dBASEIV.

Важнейшее «идейное» различие между Fox-меню и dBASE-меню может быть определено терминами «меню-программа» и «меню-объект». Fox-меню является только частью программы, где оно создается, используется и «умирает». dBASE-меню после своего определения остается независимым и «живым» объектом, к которому можно обратиться из любого места прикладной системы.

Поэтому управление программой осуществляется именно с помощью dBASE-меню, а также в процедуре показано использование Fox-меню.

dBASE-меню может не только вырабатывать переменные для анализа, но и непосредственно вызывать процедуры, подпрограммы, команды по обработке выбора. Оно предлагает такую архитектуру построения систем обработки данных, когда программа может вообще не иметь единого ядра, а состоять из процедур, которые связаны друг с другом только через вызовы меню. Кроме того, имеется неоценимая возможность создавать меню из имен файлов и компонентов базы данных, осуществлять множественный выбор.

В общем случае для создания dBASE-меню и работы с ним необходимо предусмотреть следующие элементы:

Определение меню. Здесь описываются содержание, «горячие» клавиши, клавиши быстрого доступа, форма и реакции меню. Определение меню может сделано один раз в начале программы и далее только использоваться.

Активация меню. Команды\клавиши активации предъявляют меню на экране и делают его чувствительным к выбору пользователя.

Деактивация меню. Удаляет его с экрана, сохраняя в памяти для следующего возможного использования.

Удаление меню. Это действие очищает память от определения меню, и более оно не может быть использовано без нового определения.

Имеются два типа элементарных меню:

1. Вертикальное («всплывающее», или POPUP-меню),

2. Горизонтальное (BAR-меню)

На их основе можно строить иерархические меню практически любой сложности (вложенности). Именно по такой технологии построенно меню программы и вид меню показан на рис. 2.1

Рисунок 2.1 Структура меню (ZAR)

* - Файл, где

описывается процедура

** - Имя процедуры

BAR-меню – это обычно горизонтальное меню (BAR – по-английски строка, линейка). Такое меню имеет имя (ZAR-для данного приложения), и состоит из конкретных элементов, пунктов, которые называют PAD-пунктами (PAD-заголовок). Каждый PAD-пункт также имеет имя и видимую на экране строку-приглашение.

POPUP-меню – это прямоугольное меню, строки-элементы которого называют BAR-пунктами или BAR-строками (не путать с BAR-меню). POPUP-меню имеет имя, а его видимое содержание на экране (BAR-строки) будет зависеть от типа POPUP-меню.

BAR- и POPUP-меню могут использоваться отдельно, а могут сбыть связаны. Взаимосвязь показана на рис. 2.2

Рис. 2.2

BAR-меню

Кадры Отчеты ……

POPUP-меню

Нормы оплаты услуг

Ввод данных счетчика

Ввод оплаты

PAD-пункт(ы)

BAR-пункт(ы)

Работа с пунктами меню

PAD-пункт «Кадры»

BAR-пункт «Работа с картотекой» – при выборе этого пункта открывается READ-окно, в котором представлена информация о квартиросъемщике. В этом окне, возможно, изменять начисления услуг, изменять тарифы для жильцов квартиры или дома, период льготы, количество проживающих, возможность формирования, просмотра и печати квитанции, ввода суммы оплаты, расчета квартплаты, выбора фильтра отображения жильцов (Плательщики, Льготники, Все жильцы) и перемещения по базе дынных.

BAR-пункт «Квартиросъемщики» – при его выборе отображаются те жильцы, которые оплачивают квартплату. Вывод осуществляется в табличной форме, где показываются поля с табельным номером и фамилией, а также два дополнительных (вычисляемых) поля, которые не сохраняются в базе данных. Это поле со значком «», который появляется у тех жильцов, которые платят за квартиру и поле со значком «» появляется у жильцов, которые имеют льготу. На свободной области экрана выводится остальная информация о жильце, включая информацию о произведенных начислениях. Если курсор перемещать, находясь в поле со значком «», то автоматически будет обновляться информация на экране. На всех других полях, при нажатии клавиши «Enter» появляется Fox-меню, где можно выбрать дальнейшие действия. (Прил.№2,Рис ….)

BAR-пункт «Картотека льготников» - при его выборе показываются те жильцы которые имеют льготу. Вывод осуществляется в табличной форме, где показываются поля с табельным номером, фамилией, адрес, телефон, категория льготы, номер (название) документа, подтверждающего льготу. В нижней части экрана отображается статус-строка, где показывается дополнительная информация, а именно: если льготник является плательщиком, то показывается количество проживающих и количество льготников, иначе фамилия и таб. № того, кто платит за квартиру.

BAR-пункт «База жильцов» - такой же показ как в «Картотеке льготников»,только отображаются все жильцы.

BAR-пункт «Ввод счетчика» – это табличный вывод всех плательщиков, с данными счетчика, при вводе новых значений счетчика, сумма автоматически вычисляется и корректируется сумма к оплате.

BAR-пункт «Ввод оплаты» - это табличный вывод всех плательщиков, с данными о суммах начислений, сумме к оплате и полем для ввода суммы платежа. При вводе суммы платежа автоматически рассчитывается остаток и заносится дата платежа, которые затем отображаются в отчете и квитанции.

PAD-пункт «Отчеты»

BAR-пункт «Списки по начислению» - формируется отчет о всех произведенных начислений, и открывается окно с выводом сумм по каждой услуге, отдельно сумм по каждой услуге по льготам, итоговая сумма к уплате, остаток или задолжность, дата платежа.

BAR-пункт «Списки по льготам» - формируется отчет и открывается окно с информацией о каждом льготнике, включая суммы по каждой услуге, а также показывается фамилия и таб. № того к кому привязан льготник (т.е. того, кто платит за квартиру).

BAR-пункт «Списки с показанием счетчика» - формируется отчет и открывается окно, в котором указаны фамилия, таб.№, адрес и данные старого и нового значений счетчика.

BAR-пункт «Оплата электроэнергии» - формируется отчет и открывается окно, где в табличной форме выводятся фамилия, таб.№, адрес, данные старого и нового значений счетчика и сумма к уплате.

BAR-пункт «Сальдо по квартиросъемщикам» – формируется отчет и открывается окно, где в табличной форме выводятся фамилия, таб.№, суммы начисления, к оплате и остаток.

BAR-пункт «Свод по квартплате за месяц» - формируется отчет и открывается окно, где в табличной форме выводятся общие суммы по каждой услуге, отдельно по льготам, итоговые суммы начислений по квартплате, по льготам и суммы, которую организация должна получить за месяц.

После закрытия любого окна с отчетом, открывается окно с предложением распечатки.

PAD-пункт «Печать» - состоит из имен файлов, которые были созданы при выборе BAR-пунктов «Отчеты» это:

«Списки по начислению» - файл NACH-xx.TXT

«Списки по льготам» - файл LG_KW-xx.TXT

«Списки с показанием счетчика» - файл ELC_V-xx.TXT

«Оплата электроэнергии» - файл EL_PL-xx.TXT

«Сальдо по квартиросъемщикам» - файл SALDO-xx.TXT

«Свод по квартплате за месяц» - файл SVOD-xx.TXT

Где хх – это номер месяца, за который сформирован отчет. Если установить курсор на имя соответствующего файла и нажать клавишу «Enter» (ВВОД), то откроется окно для просмотра-редактирования отчета. Если установить курсор на имя соответствующего файла и нажать клавишу «Spacebar» (ПРОБЕЛ), то файл распечатается, при условии, если принтер готов, иначе появится сообщение о подготовке принтера.

PAD-пункт «Сервис»

BAR-пункт «Дополнение» – открывается окно, в котором можно добавить жильцов в базу данных, с указанием льгот и услуг.

BAR-пункт «Дополнение льгот» - открывается окно, в котором добавляются или изменяются код, описание льготы и ставки по ним.

BAR-пункт «Тарифы» – открывается окно с dBASE-меню PAD-пункты которого позволяют:

• PAD-пункт «Просмотр» – формирует POPUP-меню из полей базы с описанием тарифов, при нажатии клавиши «Enter», на выбранном BAR-пункте с описанием тарифа, появляются поля редактирования данного тарифа с возможностью удаления или изменения.

• PAD-пункт «Добавить» – выводит поля для дополнения тарифа.

• PAD-пункт «Выйти» - закрывает окно и меню тарифов.

BAR-пункт «Нормы оплаты услуг» – при его выборе открывается окно, в котором нужно указать стоимость каждой услуги. Эти ставки действуют для расчета начисления квартплаты по умолчанию для всех жильцов.

BAR-пункт «Переиндексация» – при его выборе происходит процедура переиндексации всех БД.

BAR-пункт «Упаковка данных» – запускает процедуру физического удаления данных, которые ранее были помечены на удаление.

PAD-пункт «Расчет»

BAR-пункт «Расчет квартплаты» -при его выборе происходит расчет квартплаты за текущий месяц и после выводится окно, где в табличной форме показывается таб.№, фамилия и начисления по каждой услуге, с возможностью их редактирования. В нижней части экрана показывается общие суммы по всем услугам и общая итоговая сумма, также эти суммы выделяются цветом в зависимости от нахождения курсора в таблице.

BAR-пункт «Расчет по льготам» – при его выборе происходит расчет для тех жильцов, которые имеют льготу и удовлетворяют требованию начала и конца действия льготы, если эти поля у жильца отсутствуют предполагается, что он не имеет срока ограничения. Вывод данных и информация в нижней части аналогична как в пункте «Расчет квартплаты».

BAR-пункт «Слияние квартплаты с льготами» – при его выборе происходит расчет суммы к оплате т.е. «начисления по квартплате» минус «начисления по льготе». После этого выводится окно с полями: таб.№, фамилия, итоговая сумма начислений, итоговая сумма начислений по льготе и сумма к оплате. В нижней части экрана показывается адрес плательщика, количество проживающих и количество льготников.

PAD-пункт «Помощь»

BAR-пункт «Помощь» -выводит окно с описанием назначений PAD- и BAR-пунктов.

BAR-пункт «Справка» – выводит окно с кратким описанием предназначения программы.

PAD-пункт «Выход» – позволяет выйти из программы.

Работа окнами.

В приложении используются два вида окон это:

1. Окна, предназначены для обработки данных.

2. Окна, предназначены для выбора действия или отказа, либо выводят дополнительную поясняющую информацию. Такие окна еще называют диалоговые окна.

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

Окно «Работа с картотекой» (INS)

При выборе пункта меню «КАДРЫ»-«Работа с картотекой» открывается окно размером во весь экран, в котором размещается вся основная информация о жильце. Окно визуально делится по вертикали на две части, где в первой части (около 2\3 окна) располагается сведения о жильце, а в оставшейся части, которая выделена цветом, располагаются кнопки для выбора определенных действий. Рисунок окна показан на рисунке 2 приложения 2. Рассмотрим эти части поподробней.

1 часть «Сведения о жильце»

В первых строках расположена личная информация: фамилия, таб.№, адрес, телефон, площадь квартиры, которые недоступны для редактирования, дата рождения, а также автоматически вычисляемая информация о количество лет.

Количество проживающих и количество льготников вычисляются в зависимости от записей в БД и в ней не сохраняются, напротив этих полей находится поле с количеством проживающих, которое сохраняется в БД и служит основанием для расчета квартплаты.

Далее идет надпись «СОСТАВ СЕМЬИ», которая накрыта невидимой кнопкой, при выборе которой выпадает POPUP-меню с фамилиями проживающих в данной квартире с указанием кто за неё платит и кто является льготниками. При выборе элемента меню, окно обновляется информацией об этом жильце.

Далее идет строка с информацией о льготе: код, наименование льготы, а также с какого и по какой период она действует. Если период не указан, то предполагается, что льгота не имеет ограничения.

Далее идет информация, расположенная в табличной форме, как показано на рисунке, где:

Услуга Тариф Расчет Льготы []

7

[x] Квартплата 1.17 91.26 -15.21 6

[ ] Горячая вода 10.00 0.00 0.00

1 2 3 4 5

1. Кнопки выбора начислений услуг ( [ ]-не начисляется, [x]-начисляется)

2. Поясняющий текст к кнопки (для какой услуги, которую нужно выбирать)

3. Ставки за услуги, эти надписи накрыты невидимыми кнопками, выбор которых открывает окно и меню, где можно изменить ставки для жильцов квартиры (дома). Описания тарифов отображается в окне в зависимости от выбора тарифа: так если расчет услуги производится в зависимости от количества проживающих в квартире, то отображаются только тарифы на одного человека, если рассчитывается от занимаемой жилплощади, то на 1 квадратный метр. (см. рис. 3 прилож. №2, а также см. описание пунктов меню «Сервис»-«Тарифы»).

4. Показываются суммы начислений по услугам

5. Показываются суммы начислений по услугам с учетом льготы.

6. Заголовки столбцов.

7. В столбце «Льготы» предоставлена общая сумма начислений по льготам для данной квартиры и чтобы получить информацию о начислениях по льготе жильца, информация по которому представлена в окне, предназначена кнопка «[]», которая доступна только в том случае если жилец имеет льготу и при его выборе появляется мини окно, где показаны его начисления по льготе.

На следующей строке представлены итоговые суммы по начислению, льготам и к оплате.

Далее дата оплаты, сумма уплаты и остаток или задолженность.

И на последней строке расположены две кнопки «По льготам» и «По оплате», которые доступны в том случае если данный жилец имеет льготу либо имеет ордер, либо и то и другое.

«По льготе» – при ее выборе появляется окно, которое показано на рис. 5 прилож. 2, в котором указан код, ставки и описание льготы для данного жильца. Вся информация может корректироваться, важно только помнить, что вся измененная информация повлияет на всех жильцов, имеющих этот код.

«По оплате» – при ее выборе появляется аналогичное окно, описанное выше, которое показано на рис. 6 прилож. 2, в котором содержится информация о ставках стоимости услуг для данного жильца. Если расчет ведется по нормативным ставкам, то все поля имеют нулевое значение, а также если нужно данному жильцу установить нормативные ставки, то нужно обнулить соответствующее поле. После выхода из полей редактирования появится предупреждение:

« Установить всем жильцам дома Y/N »,

которое будет ждать нажатие клавиш. Если нажать клавишу «Y» то ставки, которые отображались в окне будут установлены всем жильцам, проживающих в данном доме, при нажатии любой другой клавиши ставки будут установлены только жильцам данной квартиры.

На этом информация в первой части окна заканчивается, и перейдем ко второй части.

2 часть «Кнопки - меню»

Во второй части расположены кнопки, при выборе которых выполняется определенные действия по обработке данных (см. рис 2 приложения. 2 стр. 2). Разберем их по порядку расположения.

Кнопка «Изменить» – при ее выборе открывается окно, которое показано на рис 20 приложения 2 стр. 20, где можно изменить данные о жильце. Если изменяется адрес жильца, то автоматически пересчитывается количество проживающих по старому и новому адресах. Чтобы сохранить измененную информацию необходимо выйти из окна по кнопке «Подтверждаю», если выйти по кнопке «Отмена», внесенные изменения не сохраняются.

Кнопка «Добавить» – открывается аналогичное окно, описанное выше, которое показано на рис 19 приложения 2 стр. 19,только все поля имеют пустые значения. Также некоторые поля, при редактировании проверяются на корректность вносимых данных. Подробнее это будет описано при рассмотрении этого окна. Выход также должен происходить по кнопке «Сохранить» иначе жилец и его данные не будут внесены в БД.

Кнопка «Удалить» - помечает на удаление жильца, находящегося в окне и информация в окне обновляется.

Кнопка «Печать…» - формирует квитанцию о начислениях и оплате, и открывает окно, которое показано на рис 7 приложения 2 стр. 7. После его закрытия появится окно с просьбой выбрать решение распечатки данного документа (рис 8 приложения 2 стр. 8).

Кнопка «Ввод оплаты» - открывает окно, которое показано на рис 4 приложения 2 стр. 4, где возможно вести сумму оплаты для квартиросъемщика, который платит за квартиру.

Следующие кнопки позволяют фильтровать данные для просмотра:

Кнопка «Плательщики» – для просмотра будут доступны жильцы которые платят за квартиру;

Кнопка «Льготники» – для просмотра будут доступны жильцы, которые имеют льготу, независимо от периода ее действия;

Кнопка «Все жильцы» – для просмотра будут доступны все жильцы, кроме помеченных на удаление.

При этом под этими кнопками расположена подсказка, какой фильтр выбран.

Следующая группа кнопок предназначена для перемещения в БД:

Кнопка «Вверх» - позволяет перейти на одну запись вверх;

Кнопка «Вниз» - позволяет перейти на одну запись вниз;

Кнопка «Начало» - позволяет перейти в начало БД;

Кнопка «Вверх» - позволяет перейти в конец БД.

При этом если достигнуто начало (конец) БД, то соответствующие кнопки становятся недоступными, а в правом углу окна появляется предупреждение, что достигнут конец (начало) БД.

Кнопка «Выйти» – позволяет выйти и закрыть окно.

Кнопка «Расчет» – позволяет рассчитать квартплату для текущего жильца, с учетом сделанных изменений, а также расчет происходит, если в окне находится плательщик, иначе кнопка просто игнорируется.

Окно «Квартиросъемщики» (KD)

При выборе пункта меню «КАДРЫ»-«Квартиросъемщики» открывается BROWSE-окно с полями: табельный номер, фамилия и два вычисляемых поля (см. рис 9 приложения 2 стр.9), которые показывают плательщика и льготников. При этом отображаются только те жильцы кто платит за квартиру. На свободной части экрана с правой стороны выводится информация по жильцу, на котором находится курсор, при этом она автоматически обновляется, если при перемещении курсор находится в поле, которое указывает, является ли жилец плательщиком. При нажатии в любом поле, кроме поля со значком (), появляется Fox-меню, где можно выбрать дальнейшие действия (см. рис 10 приложения 2 стр.10):

«Постоянная часть» – открывает окно «Работа с картотекой», которое было описано выше

«Начисления» - обновляют информацию на экране в правой части относительно того квартиросъемщика, на котором находится курсор.

«Жильцы» – при выборе этого пункта в BROWSE-окне отображаются только жильцы квартиры того квартиросъемщика, на котором находился курсор.

«Плательщики» – возвращает окно с отображением только тех жильцов, которые платят за квартиру.

«Поиск» – при выборе этого пункта активируется POPUP-меню с просьбой выбора критерия поиска (см. рис 13 приложения 2 стр. 13), это может быть по фамилии, табельному номеру или по адресу. После выбора соответствующего пункта, кроме пункта «Отмена», предъявляется окно для ввода ключа. При этом если это по фамилии, то возможен поиск и по неполному ключу, например по ключу «ПЕТР» будут удовлетворять поиску фамилии: «ПЕТРОВ», «ПЕТРОВСКИЙ», «ПЕТРИК» и т.д., если по адресу то предъявляются три поля для заполнения улицы, дома и квартиры. Здесь также возможен неполный ключ, то есть обязательным заполненным полем, должно быть, поле «улица» которое можно редактировать вручную или выбрать из выпадающего списка всех улиц, когда курсор попадает в это поле, а остальные поля могут быть пустыми. В этом случае указатель записи в БД установится на первого жильца в БД проживающего по этой улице.

Эта система поиска вызывается во всех окнах, где содержится информация о жильцах.

Остальные пункты были рассмотрены выше (окно «Работа с картотекой»).

Окно нормативов (M_ZAR)

При выборе пункта меню «СЕРВИС»-«Нормы оплаты услуг» – открывается окно, где нужно вести ставки стоимости каждой услуги и фамилию того, кто занимается расчетом и эта фамилия будет подставляться в отчеты и квитанцию. Ставки, веденные в этом окне являются базовыми при расчете квартплаты для всех жильцов, кроме тех, для кого ставки определены отдельно (см. рис 11 приложения 2 стр. 11).

Окно дополнения льгот (INS)

При выборе пункта меню «СЕРВИС»-«Дополнение льгот» – открывается окно, в котором можно добавлять или изменять информацию по льготам. Первое поле в которое попадает курсор после открытия окна - это код льготы, если вести цифру кода, которая уже описана раннее, то информация в окне автоматически обновится, то есть поля будут заполнены в зависимости от веденного кода и возможно изменить информацию по этому коду. Для того чтобы сохранить веденные изменения или добавить льготу нужно нажать кнопку «Сохранить» (см. рис 17 приложения 2 стр. 17)

Окно тарифов

При выборе пункта меню «СЕРВИС»-«Тарифы» – открывается окно с меню для выбора действий.

(см. рис 18 приложения 2 стр. 18). Пункт меню «Добавить» предъявляет в окне поля для занесения данных по тарифу. Для изменения или удаления уже существующего тарифа нужно его выбрать в POPUP-меню, которое раскрывается при выборе пункта «Просмотр» (см. рис 22 приложения 2 стр. 22).

Окно дополнения жильцов

При выборе пункта меню «СЕРВИС»-«Дополнение» – открывается окно, в котором нужно занести информацию о жильце (см. рис 19 приложения 2 стр. 19). Работа с этим окном построена следующим образом:

• Когда курсор попадает в поле ввода фамилии, то автоматически включается клавиша CAPSLOCK, для ввода фамилии прописными буквами.

• После ввода табельного номера и выхода из этого поля, проверяется существование такого номера в БД и если такой уже есть, то появляется окно предупреждение с фамилией того жильца, который имеет этот табельный номер и выход из поля невозможен, пока не будет изменен табельный номер.

• При выборе кнопки «[ ] Ордер» также проверяется БД и если за данную квартиру уже определен плательщик появляется окно с его фамилией и выбор этой кнопки отменяется.

• при выборе кнопки «[ ] Льгота» появляется окно и меню выбора кода. Можно выбрать уже существующий код либо ввести новый, который добавится в базу льгот. Если код не будет выбран (код=0), то выбор льготы автоматически отменяется. После выбора льготы становятся доступны кнопки выбора услуг и верху над ставками льготы, появляется информация о номере льготы и что возможно его изменить нажав клавишу F7.

• Период начисления льготы. В том случае если нужно определить период льготы то нужно заполнить поля с какой и по какую дату она действительна, здесь также проверяется корректность. Так если дата по которую должна начисляться льгота, будет меньше даты начала начисления, то выход из поля не возможен.

После ввода всех необходимых данных нужно нажать кнопку сохранить, информация будет занесена в БД и поля примут пустые значения для дальнейшего заполнения.

BROWSE-окна

Следующая группа окон имеет ряд общих характеристик это BROWSE-окна, открывающиеся в окне размером во весь экран, кроме двух последних строк, которые предназначены для вывода дополнительной информации - статус-строка. Все поля недоступны для редактирования, при комбинации клавиш: -выполняется процедура удаления, -процедура дополнения, -процедура поиска. Различие состоит только в отборе данных и выводимыми полями это:

Пункт меню «КАДРЫ»-«Картотека льготников» - предъявляет только тех жильцов, которые имеют льготу и выводит следующие поля: табельный номер, фамилия, период действия льготы, улица, дом, квартира, телефон, категория, номер удостоверения.

Пункт меню «КАДРЫ»-«База жильцов» – предъявляет всех жильцов и выводит следующие поля: табельный номер, фамилия, улица, дом, квартира, телефон, категория, номер удостоверения, количество проживающих.

Пункт меню «КАДРЫ»-«Ввод данных счетчика» - предъявляет только плательщиков и выводит следующие поля: табельный номер, фамилия, улица, дом, квартира, телефон, старое и новое значение счетчика и вычисляемое поле к оплате, которое автоматически рассчитывается при изменении данных счетчика и прибавляется к общей сумме платы за квартиру.

Статус-строка для этих баз имеет следующий вид. Если жилец, на котором находится курсор является плательщиком, то выводится информация о количестве проживающих, количестве льготников, сумме к оплате и сальдо квартиросъемщика, если это проживающий в квартире, то выводится фамилия и табельный номер того кто платит за эту квартиру.

Пункт меню «КАДРЫ»-«Ввод оплаты» - предъявляет только плательщиков и следующие поля: табельный номер, фамилия, ввод оплаты, начисленную сумму за услуги, сумму по льготе, сумму к оплате, дату оплаты, остаток (задолженность) а также вычисляемое поле льготник (см. рис 12 приложения 2 стр.12).

Пункт меню «РАСЧЕТ»-«Слияние квартплаты с льготами» – предъявляет только плательщиков и выводит следующие поля: табельный номер, фамилия, сумма начислений, сумма по льготе и сумму к оплате (см. рис 16 приложения 2 стр.16).

Статус-строка для этих баз имеет следующий вид. В первой строке выводится адрес, во второй количество проживающих и льготников.

Пункт меню «РАСЧЕТ»-«Расчет квартплаты» - предъявляет только плательщиков и выводит следующие поля: табельный номер, фамилия и суммы начислений по каждой услуге отдельно (см. рис 14 приложения 2 стр.14).

Пункт меню «РАСЧЕТ»-«Расчет по льготам» - предъявляет только льготников с учетом периода начислений и поля аналогичные описанных выше (см. рис 15 приложения 2 стр.15).

Статус-строка для этих баз имеет следующий вид. В первой строке кратко описаны услуги во второй соответственно под каждой услугой общая начисленная сумма, при этом каждая услуга выделяется цветом в зависимости в каком поле находится курсор.

Окно помощи (HELP)

Это окно предназначено для вывода помощи для определенных окон при работе с данными по нажатию клавиши F1, а также при выборе пункта меню «ПОМОЩЬ»-«Помощь», где дается помощь по пунктам меню и «Справка», где дается информация для чего предназначена программа и ее краткая характеристика. (см. рис 21 приложения 2 стр. 21).

Краткий обзор Процедурного языка - FoxPro

Программа в FoxPro – это текстовый файл, содержащий набор команд, написанных в соответствии с синтаксическими правилами языка. Программа может иметь подпрограмму (процедуры), в которых помещаются часто повторяющиеся фрагменты кода, размещаемые после основного текста программы или в отдельном файле.

В FoxPro предусмотрена широкая возможность использования процедур, которые могу быть как внешними (в виде отдельных программных файлов), так и внутренними (внутри программы).

Эти средства удобно использовать для реализации некоторых одинаковых процессов обработки данных, а также вся программа может состоять из обращений к процедурам и функциям.

Кроме того, модульное программирование позволяет разработчику гораздо лучше ориентироваться в своей системе, а также сделать более эффективным процесс ее написания и отладки.

Разберем описание процедуры, функции и процедурного файла.

Подпрограмма начинается с ключевого слова

• PROCEDURE

И выполняется пока не будет выполнено одно из следующих условий:

• Еще раз встретят слово PROCEDURE.

• Будет обноружено команда RETURN – возращение в предыдущую программу.

• Будет выдана команда CANCEL –прерывание работы программы.

• Будет выдана команда QUIT- выход из СУБД.

• Встретится новая команда DO для запуска другой программы.

• Будет достигнут конец файла.

FoxPro аналогично подпрограмме трактуется понятие пользовательской функции, которая начинается с ключевого слова

• FUNCTION

и в отличии от процедуры может вернуть необходимые значения вызываемую программу.

Имеются 4 способа вызвать функцию:

1. Присвоить возвращаемое значение переменной. Например, следующая строка кода запоминает текущую системную дату в переменой dToday :

dToday=DATE()

1. Включить вызов функцию в команду. Например, следующая команда устанавливает по умолчанию каталог, имя которого возвращает функция GETDIR():

SET DEFAULT TO GETDIR()

1. Напечатать возвращаемое значение в активное окно:

? TIME()

1. Вызвать функцию без запоминания где либо возвращаемого значения:

= SYS(2002)

Для прерывания выполнения программы служит оператор

• RETURN [Expression | TO MASTER | TO ProgramName]

Который возвращает управление вызывающую программу, и в ней выполняется следующая команда после вызывающей; если указана опция TO MASTER, то управление возвращается на самый верхний уровень вызывающей программы, а эта же программа с опцией TO ProgramName передает управление в указанную программу. При использовании функции команда автоматически возвращает .Т. (истина), если не указано другое выражение на месте Expression.

• RETRY

Действует подобно команде RETURN, но при возвращении управления в вызывающую программу повторяется выполнение последней команды.

Встречая обращение в процедуре, Fox Pro ищет ее в следующей последовательности:

1.в текущей процедуре;

2.в процедурном файле, если он подключен;

3.снизу вверх в старших процедурах относительно текущей, если они есть;

4.на диске в виде отельной программы.

Обращение к процедуре выполняется команды

• DO [WITH ][IN ]

В процедуру могут быть переданы и из нее получены некоторые величины, указанные в списке параметров после слова WITH. Этими величинами могут быть не только переменные и константы, но любые разрешенные выражения. В таком случае первой командой в вызываемой процедуре должна быть команда, воспринимающая их:

• PARAMETERS

Процедурный файл

Множество внешних, обычно «родственных» процедур иногда удобно объединить в один процедурный файл, (также типа PRG), который вызывается (загружается в память) командой

• SET PROCEDURE TO

Только после этого можно командой DO вызывать из него отдельные процедуры (в данной программе имя процедурного файла FUNC.PRG)

В каждый момент может быть открыт только один процедурный файл. Чтобы его закрыть, нужно использовать команду SET PROCEDURE TO без параметров.

Техническое описание работы программы

В приложении используются семь внешних процедур. т.е. 7 файлов типа .PRG из них один процедурный. Краткая характеристик каждого из них:

• MENU.PRG-главный программный файл (приложение 1.1)

• FUNC.PRG-процедурный файл (приложение 1.2)

• OPEN.PRG-файл открытия БД (приложение 1.3)

• BAZES.PRG-файл BROWSE-окон (приложение 1.4)

• ADD_DEL.PRG-файл дополнение и изменения данных (приложение 1.5)

• RAS.PRG-файл расчетов квартплаты, льгот и их слияния (приложение 1.6)

• OTCHET.PRG-файл формирование отчетов (приложение 1.7)

При старте программы запускается главный файл, т.е. файл MENU.PRG, который будет запускать работу всей информационной системы, он состоит из следующих блоков:

• Блок установочных команд SET определяющих параметры конфигурации рабочей среды;

• Открытие баз данных и необходимых индексных файлов;

• Определение глобальных переменных, массивов и их инициализация;

• Определение и описание окон;

• Описание и активизация работы главного меню для выбора основных вариантов работы системы и передача управления соответствующим программным файлам или подпрограммам;

• Закрытие баз данных и выход из СУБД.

Сейчас рассмотрим работу приложения в той последовательности, как она выполняется по шаговом выполнении каждого кода в окне трассировки. Для чего, при чтении данной главы целеобразно запустить среду FoxPro, открыть в окне трассировки файл MENU.PRG в режиме пошагового выполнения, либо обращаться к приложению 1, где прилагаются распечатки файлов программ

В первых строках файла MENU.PRG с помощью команд SET устанавливается операционная среда:

• Отключение макросов

• Установление даты

• Запрет отображения на экране записей помеченных на удаление

• Отключение статус-строки и т.д.

Далее определяются и загружаются в память цветовые схемы, которые используются для раскраски окон и некоторых областей внутри них.(SET COLOR OF SCHEME). Подключается процедурный файл (FUNC.PRG), командой ON ERROR и функцией ERROR() определяется анализ возможных ошибок в программе.

Далее вызывается процедура находящаяся в файле OPEN.PRG (см. прилож. 1.3 стр. 1) для открытия БД. Здесь проверяется наличие баз на диске и если их нет, то они создаются с помощью языка SQL, при этом в БД HELP, которая состоит из одного MEMO-поля, копируются текстовые файлы помощи. Если базы уже созданы ранее, то они открываются в заданных областях вместе со структурными индексами, которые содержат TAG’и для связи БД и систематизированного предъявления данных:

БД (База жильцов)

TAG-tab – индексирование по полю табельного номера, для связи с БД ставок (TABLE_R.DBF).

TAG-fam – индексирование по полю фамилии, для поиска командой SEEK.

TAG-n_lg – индексирование по полю номера льготы (код), для связи с БД льгот (LGOT.DBF).

TAG-date – индексирование по полям периода действия льготы (dat_c,dat_po), для расчета сумм по льготникам, рассчитываются только те льготники, у кого период входит в текущую дату и кто не имеет периода действия льготы.

TAG-lgt – индексирование по полям адреса, с условием, что предъявляться будут только жильцы, имеющие льготу.

TAG-ord – индексирование по полям адреса, с условием, что предъявляться будут только те жильцы, кто платит за квартиру.

TAG-adrr – индексирование по полям адреса и табельного номера, для связи с БД начислений (OPLATA.DBF), а также это главный TAG при просмотре данных.

БД (База начислений)