OPEN (Автоматизированное рабочее место)
Описание файла
Документ из архива "Автоматизированное рабочее место", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "OPEN"
Текст из документа "OPEN"
Файл открытия – OPEN.PRG
CLOSE DATA
IF !FILE('rabot.dbf')
DO create
ELSE
DO open1
ENDIF
************************************************************************************* Открытие Баз Данных и установление связей **
***********************************************************************************
PROCEDURE open1
ON ERROR DO EROR WITH ERROR()
SELE a
USE rabot
IF .NOT. FILE( 'rabot.cdx')
INDEX ON tab TAG tab UNIQUE
INDEX ON fam TAG fam
INDEX ON n_lg TAG n_lg
INDEX ON lgot FOR lgot=.t..AND.EMPTY(dat_c).AND.EMPTY(dat_po).OR.;
BETWEEN(date(),dat_c,dat_po) TAG date
INDEX ON yl+dom+kw_ra+str(tab) FOR LGOT=.T. tag lgt
INDEX ON yl+dom+kw_ra+str(tab) FOR OR_R=1 tag ord
INDEX ON yl+dom+kw_ra+str(tab) tag adrr UNIQUE
ENDIF
SET ORDER TO adrr
SELE c
USE oplata
IF .NOT. FILE( 'oplata.cdx')
INDEX ON tab TAG tab UNIQUE
INDEX ON yl+dom+kw_ra+str(tab) TAG adr UNIQUE
ENDIF
SET ORDER TO adr
SELECT d
USE lgot
IF .NOT.FILE('lgot.cdx')
INDEX ON n_lg TAG n_lg UNIQUE
ENDIF
SET ORDER TO n_lg
SELE g
USE table_r
IF .NOT. FILE( 'table_r.cdx')
INDEX ON tab TAG tab UNIQUE
ENDIF
SET ORDER TO tab
USE HELP IN i
USE TARIF IN f
SELE rabot
SET RELA TO yl+dom+kw_ra+str(tab) INTO c
SET RELA TO n_lg INTO d addi
SET RELA TO tab INTO g addi
SET SKIP TO c,d,g
RETURN
************************************************************************************* Язык – SQL Создание Баз Данных **
***********************************************************************************
PROCEDURE CREATE
CREATE DBF RABOT (FAM C(40),TAB N(4),TEL N(8),YL C(15),DOM C(4), KW_RA C(4),KV_M N(6,2),;
N_LG N(1),N_YD C(9),ELEC N(6),ELEC1 N(6),OR_R N(1),KOL_VO N(2),D_OPL D,OST_K N(8,2),;
PENI N(8,2),OPL_TA N(8,2), LGOT L,RAD_L L,TEL_L L,KW_L L,G_W_L L,X_W_L L,K_YS_L L,;
EL_C_L L,OTOP_L L,DAT_C D,DAT_PO D)
USE
CREATE DBF OPLATA (TAB N(4),YL C(15),DOM C(4), KW_RA C(4),KV_M N(6,2),KW_PL N(8,2),TEL_R N(8,2),;
RAD_R N(8,2),K_YSL N(8,2),OTOPL N(8,2),EL_C N(8,2),G_W N(8,2),X_W N(8,2),KW_PLL N(8,2),;
TEL_RL N(8,2),RAD_RL N(8,2),K_YSLL N(8,2),OTOPLL N(8,2),EL_CL N(8,2),G_WL N(8,2),;
X_WL N(8,2),N_LG N(1),ITOG_N N(9,2),ITOG_L N(9,2),ITOG N(9,2),OR_R N(1),KOL_VO N(2),;
SUM_KW N(8,2),SUM_GW N(8,2),SUM_XW N(8,2),SUM_KYSL N(8,2),SUM_OT N(8,2),SUM_TL N(8,2),SUM_RD N(8,2),;
SUM_IT N(9,2),LGOT L,RAD_L L,TEL_L L,KW_L L,G_W_L L,X_W_L L,K_YS_L L,EL_C_L L,OTOP_L L)
USE
CREATE DBF TABLE_R (TAB N(4),KWP_L N(5,2),TL_L N(5,2),RD_L N(5,2),GW_L N(5,2),;
XW_L N(5,2),K_L_L N(5,2),OT_L N(5,2),EL_L N(5,2))
USE
CREATE DBF LGOT (N_LG N(1),INFO C(20),KWP_L N(4,2),TL_L N(4,2),RD_L N(4,2),;
GW_L N(4,2),XW_L N(4,2),K_L_L N(4,2),OT_L N(4,2))
USE
CREATE DBF TARIF (INFO C(25),ST_KA N(5,2),K_INFO C(11),K_CH L)
USE
CREATE DBF HELP (HLP M)
APPEND BLANK
APPEND MEMO HLP FROM HELP1.TXT
APPEND BLANK
APPEND MEMO HLP FROM HELP2.TXT
APPEND BLANK
APPEND MEMO HLP FROM HELP3.TXT
APPEND BLANK
APPEND MEMO HLP FROM HELP4.TXT
APPEND BLANK
APPEND MEMO HLP FROM HELP5.TXT
APPEND BLANK
APPEND MEMO HLP FROM HELP6.TXT
APPEND BLANK
APPEND MEMO HLP FROM HELP7.TXT
APPEND BLANK
APPEND MEMO HLP FROM HELP8.TXT
USE
! del help?.txt
DO OPEN1
RETURN
- 3 -