T command1 AS commandbutton WITH;=336,;=504,;=27,;=84,;="Закрити" ,; =« Command1 »OBJECT edit1 AS editbox WITH; =« »,;= 1,;=0,;=276,;=24,; =. T.,;=48,;=564,;=RGB (240,240,240),;=RGB (240,240,240),;=RGB (255,255,255),; =RGB (255,255,255),;
Value=[Програма створена за допомогою книги «Visual Foxpro 9 - Клепінін і Агафонова».] + CHR (13) + [У цій програмі Ви зможете слухати музику і дивитися відео. ] + CHR (13) + [Ця програма не вимагає ніяких навиків і умінь, необхідно тільки зарегестріроваться і насолоджуватися улюбленими музикою і відео, що знаходяться у Вас на комп'ютері.],;
ControlSource=«»,; =. F.,;=«Edit1» command1.Click.Release ()
ENDPROC
3.4 Форма registr.scx
У формі registr.scx (див. рис.4) можна не тільки зареєструвати користувачів, але також їх змінювати і видаляти.
Рис. 4
CLASS form1 AS form
PROCEDURE LoadDELETE off=SYS (5) NOT USED («rega») F1 + « Kursovaya dbfs rega.dbf» exclusive IN 0 rega c
PROCEDURE cmdsave.Click=SYS (5) NOT USED («rega») F1 + « Kursovaya dbfs rega.dbf» exclusive IN 0 rega c=2BLANK=thisform.pageframe1.Pagedit.text2.valueLogin WITH thisform.pageframe1.pagedit.text1.ValuePass WITH thisform.pageframe1.pagedit.text2.Valueadm WITH thisform.pageframe1.pagedit.text3.Value=0
thisform.pageframe1.pagedit.Enabled=.F..pageframe1.paglist.Enabled=.T..pageframe1.ActivePage=1.CmdAppendblank.Enabled=.T..CmdEditblank.Enabled=.T..CmdDelblank.Enabled=.T.cmdcansel.Click.CmdAppendblank.Enabled=.T..CmdEditblank.Enabled=.T..CmdDelblank.Enabled=.T..pageframe1.pagedit.Enabled=.F..pageframe1.paglist.Enabled=.T..pageframe1.ActivePage=1=0cmdappendblank.Click=2.CmdAppendblank.Enabled=.F..CmdEditblank.Enabled=.F..CmdDelblank.Enabled=.F..pageframe1.pagedit.Enabled=.T..pageframe1.paglist.Enabled=.F..pageframe1.ActivePage=2.pageframe1.pagedit.text1.Value=«».pageframe1.pagedit.text2.Value=0.pageframe1.pagedit.text3.Value=0cmdeditblank.Click=1.CmdAppendblank.Enabled=.F..CmdEditBlank.Enabled=.F..CmdDelblank.Enabled=.F..pageframe1.paglist.Enabled=.F..pageframe1.pagedit.Enabled=.T..pageframe1.ActivePage=2.pageframe1.pagedit.text1.Value=rega.login.pageframe1.pagedit.text2.Value=rega.pass.pageframe1.pagedit.text3.Value=rega.admcmddelblank.ClickDELETE onnRetMsgBox, nRecno=0=0
nRetMsgBox=MESSAGEBOX («видалити поточний запис?», 4 +32 +256, «видалення»)
IF nRetMsgBox=6! EOF () EOF () BOTTOMEOF () TOP.REFRESH () cmdexit.ClickUSED ([regs]) rega
ENDIF.Release ()
3.5 Форма spravka.scx
Форма spravka.scx (див. рис.5) видає довідку з користування всього програми.
Рис. 5
CLASS form1 AS form
Top=2=24=371=612 =. T.="Довідка"="Form1» OBJECT command1 AS commandbutton WITH;=336,;=504,;=27,;= 96,;="Закрити",;=«Command1» OBJECT edit1 AS editbox WITH;=1,;=0,;=276,;=24,; =. T.,;
Top=48,;=576,;=RGB (240,240,240),;=[Для того щоб можна було слухати музику, необхідно: 1) У верхньому контекстному меню вибрати ряд...