Главная Обратная связь

Дисциплины:






Профиль Администратор-проверка целостности



 

Обработчик для кнопки «Подсчёт»

LOCAL i as Integer, j as Integer, hsum as Double, csum as Double

FOR i=1 TO RECCOUNT()

hsum=0

GO i

MESSAGEBOX(tablename)

USE (tablename) IN 7

csum=etalonsum

MESSAGEBOX(csum)

SELECT 7

FOR j=1 TO RECCOUNT()

GO j

hsum=hsum+VAL(SYS(2017,'',0,1))

*MESSAGEBOX(STR(hsum))

ENDFOR

IF csum==0 then

csum=hsum

ENDIF

SELECT control

replace checksum WITH hsum ,etalonsum WITH csum

ENDFOR

Обработчик для кнопки «Добавить»

DO FORM frmBrowse

MESSAGEBOX(cfile)

IF NOT EMPTY(cFile) THEN

INSERT INTO control values(JUSTFNAME(cFile), 0, 0)

ENDIF

thisform.grCHECK.SetFocus

 

Выбор таблицы:

Обработчик для кнопки выбора таблицы:

 

IF cfile=='' then

thisform.cbNoCRC.Enabled = .F.

ENDIF

ctable = GETFILE('DBF', 'Выберите файл таблицы', 'Выбрать!', 0, 'Выбор таблицы')

DO CASE

CASE EMPTY(cTable)

RETURN

OTHERWISE

thisform.txtFile.Value=(cTable)

ENDCASE

ТКП:

ТРП:

Журнал входа\выхода из системы:

Журнал событий:

Профиль Диспетчер:

Профиль менеджер:

Профиль Бухгалтер:

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

 

 

Обработчик для кнопки «ОК»

 

USE БД!table_cod

IF ALLTRIM (thisform.text1.value)==""

MESSAGEBOX("Пароль не введён",0,"Внимание")

ELSE

LOCATE FOR ALLTRIM(table_cod.doljnost)='Администр'

IF FOUND() then

IF ALLTRIM(thisform.text1.value)==ALLTRIM(table_cod.pas)

INSERT INTO jur_reg (login,pas,vrem_vh,vrem_vih,prizn) VALUES ('Администр',thisform.text1.Value,DATETIME(),DATETIME(),"Разблокировка")

MESSAGEBOX("программа разлокирована",0,"Сообщение")

thisform.Release

DO FORM reg

ELSE

INSERT INTO jur_reg(login,pas,vrem_vh,vrem_vih,prizn) VALUES ('Администр',thisform.text1.Value,DATETIME(),DATETIME(),"Разблокировка")

MESSAGEBOX("пароль не верен",0,"ошибка")

thisform.text1.value=""

ENDIF

ENDIF

p=1

ENDIF

thisform.Release

DO FORM reg

CLOSE TABLES all

 





sdamzavas.net - 2020 год. Все права принадлежат их авторам! В случае нарушение авторского права, обращайтесь по форме обратной связи...