ок «МУЛЬТИМЕДІА»] + CHR (13) + [2) Далі в меню вибрати рядок «АУДІО ПРОГРАВАЧ»] + CHR (13) + [3) Потім в з'явилася програмі натиснути на кнопку «ВІДКРИТИ» і вибрати потрібний Вам файл.] + CHR (13) + [Для того щоб можна було дивитися відео, необхідно:] + CHR (13) + [1) У верхньому контекстному меню вибрати рядок «МУЛЬТИМЕДІА»] + CHR (13) + [2) Далі в меню вибрати рядок «ВІДЕО ПРОГРАВАЧ»] + CHR (13) + [3) Потім в з'явилася програмі натиснути на кнопку «ВІДКРИТИ» і вибрати потрібний Вам файл.] + CHR (13) + [Якщо Ви хочете зареєструватися ще раз або зареєструвати друзів, знайомих або рідних звертайтеся до адміністратора.] + CHR (13) + [*** Для того щоб зареєструвати, змінити або видалити користувача (їй), потрібно:] + CHR (13) + [1) У верхньому контекстному меню вибрати рядок «ADMIN»] + CHR (13) + [2) У меню, вибрати рядок «КОРИСТУВАЧІ»] + CHR ( 13) + [3) Потім у вікні можна реєструвати, змінювати або видаляти користувача (їй)] + CHR (13) + [*** Дія доступна тільки для адміністратора] + CHR (13) + [Для того щоб вийти з програми , необхідно:] + CHR (13) + [У верхньому контекстному меню натиснути на рядок «ВИХІД»],;
ControlSource=«»,;=«Edit1» OBJECT label1 AS label WITH;
AutoSize =. T.,; =. T.,;=16,;
FontCharSet=204,;=0,;=0,;="Довідка",;=27,;=24,;=12,;=91,;=1,;=« ; Label1 »Loadcommand1.Click
thisform.release ()
3.6 Форма vxod.scx
Форма vxod.scx (див. рис.6) визначає ким буде знову увійшов і взависимости від того, ким він буде (адміністратор або користувач) і виводитиметься відповідне меню.
Рис. 6
CLASS formset AS formset
PROCEDURE form1.Load=SYS (5) NOT USED ([Rega]) F2 + « Kursovaya dbfs rega.dbf» exclusive IN 0regaregaon login + STR (pass) To loginidxORDER TO loginidxform1.UnloadUSED ([rega]) regacommand1.Click=SYS (5)
* Введення змінних=ALLTRIM (thisform.Text1.value)=ALLTRIM (thisform.text2.value)
* Перевірка на вірність логіна і перевірка адміністратор або простий користувач
IF SEEK (Log1, «rega») VAL (Parol) <> rega.pass
WAIT WINDOW («невірний пароль!") AT 15, 73 NOWAIT.Release ()
IF rega.adm=0WINDOW («Ласкаво просимо!") AT 15, 73 NOWAITF 1 + « Kursovaya Programm polmen.prg». Release () rega.adm=1
WAIT WINDOW («Ласкаво просимо, адміністратор!") AT 15, 73 NOWAITF 1 + « Kursovaya Programm admmen.prg». Release ()
ENDIF WINDOW («Такий користувач не виявлений! Зверніться до адміністратора.») AT 15, 73 NOWAIT
ENDIFcommand2.Click.Release ()
ENDPROC
3.7 Клас vfpmci.vcx
Клас vfpmci.vcx (див. рис.7) призначений для відтворення звуку і відео в додатку.
Рис. 7
CLASS vfpmci AS custom
PROTECTED status=0lload =. F.=«vfpmci» docmdtcMCICommandlcRetMsg=SPACE (80). Status=mciSendString (tcMCICommand, @ lcRetMsg, 80, 0) this.Status!=0=SPACE ( 160)
=mciGetErrorString (this...
