h = 0 = AFIELDS (mas) topWHILE EOF () =. fi = 1 TO w = mas [1,12] + "." + mas [i, 1]
CASE mas [i, 2] = "C" = ks1 + VAL (SYS (2007, alltrim (& z), 1, -1))/100000mas [i, 2] = "N" = ks1 + VAL (SYS (2007, alltrim (STR (& z)), 1, -1))/100000mas [i, 2] = "L" & z then = ks1 + 1
kls = alltrim (STR (ks1)) = (right (ks1, 5)) = INT (VAL (ks1)) kls.ks <> ks1
3BLANKj_sob.sob WITH "Порушення цілісності таблиці" j_sob.mesto WITH '"' + AlLTRIM (kls.ntab) + '. dbf"' = Dtoc (Fdate ('jilcy.dbf') ) + '' + Ftime ('jilcy.dbf') j_sob.t_sob WITH CTOT (fs) kls ("Цілісність таблиці '" + AlLTRIM (kls.ntab) + ". dbf' порушена" + '' + fs + ; ("Цілісність таблиці '" + AlLTRIM (kls.ntab) + ". dbf' порушена" +;
CHR (13) + "Зверніться до Адміністратора!", 16, "Увага!")
В
Рис 4. Повідомлення системи
ENDIF
SKIP
ENDDO
SELECT & h
Процедура реєстрації події авторизації користувача (pr1.prg)
Select 2BLANKvlogin WITH avpas WITH ct_in WITH DATETIME () dostup WITH d
Форма реєстрації (form_vhod.scx)
В
Рис 5. Форма реєстрації
Процедура В«LoadВ»
CLOSE ALLbl, t_user, dolj, sel_kv, sel_j, sel_tel, sel_p, pz, t_log, c = 3
Оброблювач кнопки В«OKВ» allt_pass IN 1j_reg IN 2j_sob IN 3mrp IN 4kv IN 5jilcy IN 6
= ThisForm.Text1.Text = ALLTRIM (ThisForm.Text2.Text) = VAL (SYS (2007, c)) 1
= 1FOR a = loginFOUND () bl = 0
d = 0
MESSAGEBOX ("Система заблокована", 16, "Помилка")
В
Рис 6. Повідомлення системи
quit
else
IF b = pas
d = 2_log = t_pass.login_user = t_pass.fio = t_pass.nd.releaseFORM gl_sys
MESSAGEBOX ("Пароль невірний", 48, "Помилка")
В
Рис 7. Повідомлення системи
d = 1
bl = bl-1
endif
endif
ELSE
MESSAGEBOX ("Користувач не зареєстрований", 48, "Помилка")
В
Рис 8. Повідомлення системи
ENDIF
DO pr1.prg
Оброблювач кнопки В«ВихідВ» allexitt.prg.release
Форма В«БД КвартирВ» (gl_sys.scx)
В
Рис 9. Форма В«БД КвартирВ»
Обробник події форми В«ActivateВ»
thisform.label2.Caption = t_user = dolj
4 = 'Go' + ALLTRIM (STR (rkd))
CASE mrp.jilcy = 2.pageframe1.page2.command1.enabled =. t .. pageframe1.page2.command3.enabled =. t. p> endcase
ENDIF
dolj = 4 =. t .. pageframe1.page4.pageframe2.page4.enabled =. t.
ENDIF
. pageframe1.page4.enabled = a...
