Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/sedona/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/sedona/dvds.sct

-�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentJLeft = 1
Top = 220
Width = 520
Height = 200
Name = "Dataenvironment"
cursorcursorCursor1Dataenvironment|Left = 10
Top = 20
Width = 90
Height = 90
Alias = "dvds"
Database = dvds.dbc
CursorSource = "dvds"
Name = "Cursor1"
cursorcursorCursor2Dataenvironment�Left = 150
Top = 20
Width = 90
Height = 90
Alias = "dvdprice"
Database = dvds.dbc
CursorSource = "dvdprice"
Name = "Cursor2"
relationrelation	Relation1DataenvironmentmParentAlias = "dvds"
RelationalExpr = "id"
ChildAlias = "dvdprice"
ChildOrder = "id"
Name = "Relation1"
42frmsolution..\solution.vcxformfrmHotTrack�Height = 360
Width = 455
DoCreate = .T.
Caption = "Hot Tracking and Hover Effects"
Name = "frmHotTrack"
C_solutions1.Top = 335
C_solutions1.Left = 176
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 327
Behindscenes1.Left = 36
Behindscenes1.TabIndex = 7
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 84
Shape2.Width = 431
Shape2.Name = "Shape2"
Label1.AutoSize = .T.
Label1.Caption = "Move the mouse over various controls to see new special effects available in VFP7. Many controls now have a new SpecialEffect value. The new MouseEnter and MouseLeave events allow for further refinements."
Label1.Height = 41
Label1.Left = 22
Label1.Top = 22
Label1.Width = 396
Label1.TabIndex = 9
Label1.Name = "Label1"
Label4.TabIndex = 10
Label4.Name = "Label4"
Cmdclose1.Top = 327
Cmdclose1.Left = 372
Cmdclose1.TabIndex = 8
Cmdclose1.Name = "Cmdclose1"
PROCEDURE refreshdata
LOCAL lnSavings,aTmpGenres,lcSaveStr
DIMENSION aTmpGenres[1]

* Get Genre
lnGenre = dvds.genreid
SELECT genre FROM genres ;
	WHERE genres.genreid == lnGenre ;
	INTO ARRAY aTmpGenres
THISFORM.txtGenre.Value=IIF(_TALLY=0,"",aTmpGenres)
SELECT DVDs

* Get release date
THISFORM.lblRelease.Caption = IIF(EMPTY(DVDs.DueDate) OR DVDs.DueDate<=DATE(),"available today",TRANSFORM(DVDs.DueDate))
lcSaveStr=IIF(EMPTY(DVDs.DueDate) OR DVDs.DueDate<=DATE(),"You save ","Preorder and save ")

* Get savings
lnSavings = (THISFORM.txtListprice.Value - THISFORM.txtPrice.Value) / THISFORM.txtListprice.Value * 100
THISFORM.lblSavings.Caption = lcSaveStr + TRANSFORM(lnSavings,"99.9%") + "!"


ENDPROC
PROCEDURE Destroy
LOCAL aDBCs
DIMENSION aDBCs[1]
IF ADATABASES(aDBCs)=0
	RETURN
ENDIF
nPos = ASCAN(aDBCs,"DVDS")
IF nPos >= 1
	SET DATABASE TO DVDS
	CLOSE DATABASES
ENDIF
DODEFAULT()

ENDPROC
PROCEDURE Init
DODEFAULT()
THISFORM.refreshdata()
ENDPROC
PROCEDURE Release
THIS.Destroy()
ENDPROC
2�� �I%!�f�U`�����
�����T������%o�genres�����������$T��	�
�C� �����6��F��GT����CC��
��
��
C$��available today�C��
_6��HT��CC��
��
��
C$��	You save ��Preorder and save 6��,T�����
���
���
�d��&T�����C��99.9%_�!��U	LNSAVINGS
ATMPGENRES	LCSAVESTRLNGENREDVDSGENREIDGENREGENRESTHISFORMTXTGENREVALUE
LBLRELEASECAPTIONDUEDATETXTLISTPRICETXTPRICE
LBLSAVINGS}���
�����%�C�����.�B��T��C��DVDS���%�����m�
G(�DVDS���	��C��UADBCSNPOSDVDS	��C��
��C����UTHISFORMREFRESHDATA
��C����UTHISDESTROYrefreshdata,��Destroy6��Init���Release���1��SAqs��a4q�aAA��QA�3��2�1�����%�))*refreshdata 
textboxtextboxtxtNamefrmHotTrack�Comment = ""
FontName = "Verdana"
FontSize = 10
ControlSource = "dvds.name"
Height = 22
Left = 132
MaxLength = 50
ReadOnly = .F.
SpecialEffect = 2
TabIndex = 1
Top = 108
Width = 300
Name = "txtName"
�PROCEDURE MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.FontBold = .f.
this.ForeColor = 0
ENDPROC
PROCEDURE MouseEnter
LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.FontBold = .T.
this.ForeColor = 255
ENDPROC
�� ��y�%R	@�U4������T���-��T������UNBUTTONNSHIFTNXCOORDNYCOORDTHISFONTBOLD	FORECOLOR4������T���a��T�������UNBUTTONNSHIFTNXCOORDNYCOORDTHISFONTBOLD	FORECOLOR
MouseLeave,��
MouseEnter���11�21�1l��)�labellabellblNamefrmHotTrack�AutoSize = .T.
FontBold = .T.
FontName = "Verdana"
FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "Title:"
Left = 36
Top = 112
Width = 36
TabIndex = 11
Name = "lblName"
textboxtextboxtxtListpricefrmHotTrack�Comment = ""
FontName = "Verdana"
FontSize = 10
FontStrikethru = .T.
ControlSource = "dvds.listprice"
Height = 22
InputMask = "$99.99"
Left = 114
SpecialEffect = 2
TabIndex = 4
Top = 276
Width = 83
Name = "txtListprice"
labellabellblListpricefrmHotTrack�AutoSize = .T.
FontBold = .T.
FontName = "Verdana"
FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "List Price:"
Height = 18
Left = 37
Top = 279
Width = 71
TabIndex = 12
Name = "lblListprice"
editboxeditboxedtFeaturesfrmHotTrack�Comment = ""
FontName = "Verdana"
FontSize = 10
Height = 60
Left = 132
ReadOnly = .F.
SpecialEffect = 2
TabIndex = 2
Top = 136
Width = 300
ControlSource = "dvds.features"
Name = "edtFeatures"
labellabellblFeaturesfrmHotTrack�AutoSize = .T.
FontBold = .T.
FontName = "Verdana"
FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "Features:"
Left = 36
Top = 136
Width = 70
TabIndex = 13
Name = "lblFeatures"
textboxtextboxtxtGenrefrmHotTrack�FontName = "Verdana"
FontSize = 10
Height = 22
Left = 132
ReadOnly = .F.
SpecialEffect = 2
TabIndex = 3
Top = 204
Width = 156
Name = "txtGenre"
labellabellblGenrefrmHotTrack�AutoSize = .T.
FontBold = .T.
FontName = "Verdana"
FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "Category:"
Left = 35
Top = 207
Width = 72
TabIndex = 14
Name = "lblGenre"
textboxtextboxtxtPricefrmHotTrack�Comment = ""
FontName = "Verdana"
FontSize = 10
ControlSource = "dvdprice.price"
Height = 22
InputMask = "$99.99"
Left = 309
SpecialEffect = 2
TabIndex = 5
Top = 276
Width = 83
Name = "txtPrice"
labellabellblPricefrmHotTrack�AutoSize = .T.
FontBold = .T.
FontName = "Verdana"
FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "Our Price:"
Height = 18
Left = 230
Top = 278
Width = 71
TabIndex = 16
Name = "lblPrice"
labellabel
lblDuedatefrmHotTrack�AutoSize = .T.
FontBold = .T.
FontName = "Verdana"
FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "Release Date:"
Height = 18
Left = 36
Top = 240
Width = 100
TabIndex = 17
Name = "lblDuedate"
labellabel
lblSavingsfrmHotTrack�FontBold = .T.
FontName = "Verdana"
FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "You save "
Height = 21
Left = 36
Top = 303
Width = 252
TabIndex = 15
ForeColor = 255,0,0
Name = "lblSavings"
labellabel
lblReleasefrmHotTrack�AutoSize = .F.
FontBold = .F.
FontName = "Verdana"
FontSize = 10
WordWrap = .T.
BackStyle = 0
Caption = "Release Date:"
Height = 20
Left = 168
Top = 240
Width = 143
TabIndex = 18
Name = "lblRelease"
linelineLine1frmHotTrack?Height = 0
Left = 12
Top = 264
Width = 432
Name = "Line1"
_navbtns..\..\..\ffc\_datanav.vcx	container	_navbtns1frmHotTrack�Top = 327
Left = 252
Width = 100
Height = 25
TabIndex = 6
Name = "_navbtns1"
Vcrtop.SpecialEffect = 2
Vcrtop.Name = "Vcrtop"
Vcrprevious.Top = 0
Vcrprevious.Left = 25
Vcrprevious.SpecialEffect = 2
Vcrprevious.Name = "Vcrprevious"
Vcrnext.Top = 0
Vcrnext.Left = 50
Vcrnext.SpecialEffect = 2
Vcrnext.Name = "Vcrnext"
vcrbottom.Top = 0
vcrbottom.Left = 75
vcrbottom.SpecialEffect = 2
vcrbottom.Name = "vcrbottom"
!PROCEDURE Vcrtop.Click
DODEFAULT()
THISFORM.refreshdata()
ENDPROC
PROCEDURE Vcrprevious.Click
DODEFAULT()
THISFORM.refreshdata()
ENDPROC
PROCEDURE Vcrnext.Click
DODEFAULT()
THISFORM.refreshdata()
ENDPROC
PROCEDURE vcrbottom.Click
DODEFAULT()
THISFORM.refreshdata()
ENDPROC
	�� ��m�%�w
]�U	��C��
��C����UTHISFORMREFRESHDATA	��C��
��C����UTHISFORMREFRESHDATA	��C��
��C����UTHISFORMREFRESHDATA	��C��
��C����UTHISFORMREFRESHDATAVcrtop.Click,��Vcrprevious.Click`��
Vcrnext.Click���vcrbottom.Click���1��2��2��2��1;c���	
�
)�linelineLine3frmHotTrack?Height = 241
Left = 24
Top = 108
Width = 0
Name = "Line3"
labellabelLabel2frmHotTrack�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Note: the password dialog is from a DBC event when DVDs table is opened."
Height = 15
Left = 22
Top = 72
Width = 360
Name = "Label2"
�Arial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Verdana, 0, 10, 7, 16, 13, 19, 3, 0
Verdana, 128, 10, 7, 16, 13, 19, 3, 0
Arial, 0, 10, 6, 16, 13, 35, 3, 0
�Height = 360
Width = 455
DoCreate = .T.
Caption = "Hot Tracking and Hover Effects"
Name = "frmHotTrack"
C_solutions1.Top = 335
C_solutions1.Left = 176
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 327
Behindscenes1.Left = 36
Behindscenes1.TabIndex = 7
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 84
Shape2.Width = 431
Shape2.Name = "Shape2"
Label1.AutoSize = .T.
Label1.Caption = "Move the mouse over various controls to see new special effects available in VFP7. Many controls now have a new SpecialEffect value. The new MouseEnter and MouseLeave events allow for further refinements."
Label1.Height = 41
Label1.Left = 22
Label1.Top = 22
Label1.Width = 396
Label1.TabIndex = 9
Label1.Name = "Label1"
Label4.TabIndex = 10
Label4.Name = "Label4"
Cmdclose1.Top = 327
Cmdclose1.Left = 372
Cmdclose1.TabIndex = 8
Cmdclose1.Name = "Cmdclose1"

HelpContextID = 1231671