Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ole/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ole/stock.sct
�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 306
Top = 153
Width = 394
Height = 161
Name = "Dataenvironment"
cursorcursorCursor1DataenvironmentkLeft = 10
Top = 20
Width = 90
Height = 89
Alias = "graph"
CursorSource = graph.dbf
Name = "Cursor1"
cursorcursorCursor2DataenvironmentnLeft = 150
Top = 20
Width = 90
Height = 89
Alias = "stock1"
CursorSource = stock1.dbf
Name = "Cursor2"
32formformForm1�DataSession = 2
Top = 0
Left = 0
Height = 332
Width = 407
DoCreate = .T.
BorderStyle = 2
Caption = "Refresh a Graph in a Form"
MaxButton = .F.
HelpContextID = 115
Name = "Form1"
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Init
IF  fontmetric(1, 'MS Sans Serif', 8, '') # 13 OR ;
	fontmetric(4, 'MS Sans Serif', 8, '') # 2 OR ;
	fontmetric(6, 'MS Sans Serif', 8, '') # 5 OR ;
	fontmetric(7, 'MS Sans Serif', 8, '') # 11
	this.setall('fontname', 'Tahoma')  
ELSE
	this.setall('fontname','MS Sans Serif')
ENDIF
this.setall('fontsize',8)


ENDPROC
��� ��<�%�'�U9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP
�����UTHISC_SOLUTIONS1SAVEHELP	�%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$�����!��C�fontname�Tahoma�������(��C�fontname�
MS Sans Serif�������C�fontsize�����UTHISSETALL
Deactivate,��Activate���Init���1Q�A2�2d	��A�3d����	)�textboxtextboxText1Form1{Enabled = .T.
Height = 236
Left = 9
ReadOnly = .T.
TabIndex = 1
TabStop = .F.
Top = 63
Width = 389
Name = "Text1"
oleboundcontrololeboundcontrolOleboundcontrol1Form1�Comment = ""
Top = 65
Left = 11
Height = 233
Width = 385
TabIndex = 0
Enabled = .T.
ControlSource = "graph.msgraph"
Name = "Oleboundcontrol1"
labellabelLabel1Form1�AutoSize = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Month:"
Height = 15
Left = 130
Top = 308
Width = 35
TabIndex = 3
Name = "Label1"
comboboxcomboboxcboMonthForm1�FontName = "MS Sans Serif"
FontSize = 8
Value = 1
Height = 23
Left = 168
Style = 2
TabIndex = 4
Top = 304
Width = 75
Name = "cboMonth"
�PROCEDURE InteractiveChange
#DEFINE CRLF CHR(13)+CHR(10)
#DEFINE TAB CHR(9)
LOCAL lcData

SELECT date, close;
  FROM Stock1 WHERE MONTH(date) = THIS.Value ;
  ORDER BY date INTO CURSOR wtemp

IF _TALLY > 255
	#DEFINE MAX_LOC "Graph supports a maximum of 255 items, please refine critera"
	WAIT WINDOW MAX_LOC
	RETURN
ENDIF

#DEFINE CAP_LOC "Closing Price"
SELECT wtemp
lcData = " " + TAB + CAP_LOC + CRLF
SCAN
 lcData = lcData + DTOC(date)
 lcData = lcData + TAB
 lcData = lcData + ALLTRIM(STR(close)) + CRLF
ENDSCAN

SELECT Graph
APPEND GENERAL msgraph DATA lcData

USE IN wtemp

ENDPROC
PROCEDURE Init
#DEFINE M1_LOC "January"
#DEFINE M2_LOC "February"
#DEFINE M3_LOC "March"
#DEFINE M4_LOC "April"
#DEFINE M5_LOC "May"
#DEFINE M6_LOC "June"
#DEFINE M7_LOC "July"
#DEFINE M8_LOC "August"
#DEFINE M9_LOC "September"
#DEFINE M10_LOC "October"
#DEFINE M11_LOC "November"
#DEFINE M12_LOC "December"

THIS.AddItem(M1_LOC)
THIS.AddItem(M2_LOC)
THIS.AddItem(M3_LOC)
THIS.AddItem(M4_LOC)
THIS.AddItem(M5_LOC)
THIS.AddItem(M6_LOC)
THIS.AddItem(M7_LOC)
THIS.AddItem(M8_LOC)
THIS.AddItem(M9_LOC)
THIS.AddItem(M10_LOC)
THIS.AddItem(M11_LOC)
THIS.AddItem(M12_LOC)

ENDPROC
��� ��~R%�@�UH���8o�Stock1�������C�H���������wtemp�%�� ������FR,��<Graph supports a maximum of 255 items, please refine critera��B��F��1T��� C�	 �
Closing PriceC�
 C�
 ��~�$�T���C�*��T���C�	 ��!T���CC�Z�C�
 C�
 ���F�������Q��U	LCDATADATECLOSESTOCK1THISVALUEWTEMPGRAPHMSGRAPH
��C�January������C�February������C�March������C�April������C�May������C�June������C�July������C�August������C�	September������C�October������C�November������C�December����UTHISADDITEMInteractiveChange,��Init���1s�bAAs�11Ar��3~�QQ1AAa�q��2`{�)�behindscenes..\solution.vcx
commandbutton
Behindscenes1Form1<Top = 304
Left = 10
TabIndex = 2
Name = "Behindscenes1"
cmdclose..\solution.vcx
commandbutton	Cmdclose1Form1RTop = 304
Left = 324
Height = 23
Width = 72
TabIndex = 5
Name = "Cmdclose1"
c_solutions..\solution.vcxcustomC_solutions1Form1FTop = 303
Left = 52
Height = 18
Width = 25
Name = "C_solutions1"
shapeshapeShape3Form1aTop = 12
Left = 9
Height = 45
Width = 388
BackStyle = 0
SpecialEffect = 0
Name = "Shape3"
labellabelLabel12Form1/FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "Choose a month in the Month combo box to refresh the graph with the stock closing prices for that month.  Double-click the graph to edit it in MS Graph."
Height = 32
Left = 19
Top = 22
Width = 369
TabIndex = 0
Name = "Label12"
labellabelLabel13Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 17
Top = 6
Width = 62
TabIndex = 0
Name = "Label13"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Top = 0
Left = 0
Height = 332
Width = 407
DoCreate = .T.
BorderStyle = 2
Caption = "Refresh a Graph in a Form"
MaxButton = .F.
HelpContextID = 1231540
Name = "Form1"