Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/forms/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/forms/param.sct
�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12formformfrmParam�DataSession = 2
Top = 0
Left = 0
Height = 302
Width = 286
DoCreate = .T.
Caption = "Pass Parameters Between Forms"
MaxButton = .F.
HelpContextID = 190
Name = "frmParam"
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
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
��� ��<�%�'�U
�����UTHISC_SOLUTIONS1SAVEHELP9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP	�%�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�����UTHISSETALLActivate,��
Deactivate^��Init���1�2Q�A2d	��A�3.O���	)�shapeshapeShape2frmParambTop = 14
Left = 11
Height = 72
Width = 264
BackStyle = 0
SpecialEffect = 0
Name = "Shape2"
labellabelLabel4frmParamYFontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "Enter a question and specify the possible answers to supply.  Then click Ask to display the Question form, which is passed the values you specified.  See your response returned to the form below."
Height = 56
Left = 19
Top = 25
Width = 253
TabIndex = 0
Name = "Label4"
labellabelLabel5frmParam�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 18
Top = 8
Width = 62
TabIndex = 0
Name = "Label5"
labellabelLabel1frmParam�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Enter a question to ask."
Height = 15
Left = 11
Top = 96
Width = 114
Name = "Label1"
textboxtextbox
txtPassValue1frmParam�FontName = "MS Sans Serif"
FontSize = 8
Value = Isn't passing parameters easy and fun?
Height = 23
Left = 10
Top = 112
Width = 265
Name = "txtPassValue1"
labellabelLabel2frmParam�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Select the possible answers to supply."
Height = 15
Left = 11
Top = 143
Width = 181
Name = "Label2"
optiongroupoptiongroup
opgPassValue2frmParam�ButtonCount = 4
Value = 1
Height = 51
Left = 11
Top = 160
Width = 264
Name = "opgPassValue2"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.Caption = "Yes and No"
Option1.Value = 1
Option1.Height = 15
Option1.Left = 5
Option1.Top = 7
Option1.Width = 74
Option1.AutoSize = .T.
Option1.Name = "Option1"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.Caption = "Yes, No, and Maybe"
Option2.Value = 0
Option2.Height = 15
Option2.Left = 5
Option2.Top = 26
Option2.Width = 115
Option2.AutoSize = .T.
Option2.Name = "Option2"
Option3.FontName = "MS Sans Serif"
Option3.FontSize = 8
Option3.Caption = "Yes only"
Option3.Value = 0
Option3.Height = 17
Option3.Left = 155
Option3.Top = 6
Option3.Width = 61
Option3.Name = "Option3"
Option4.FontName = "MS Sans Serif"
Option4.FontSize = 8
Option4.Caption = "No only"
Option4.Value = 0
Option4.Height = 17
Option4.Left = 155
Option4.Top = 25
Option4.Width = 61
Option4.Name = "Option4"

commandbutton
commandbuttoncmdAskfrmParamTop = 269
Left = 126
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Ask..."
Name = "cmdAsk"
[PROCEDURE Click
#DEFINE USER_RESPONSE_LOC "The user responded with "
#DEFINE YES_LOC "Yes."
#DEFINE NO_LOC "No."
#DEFINE MAYBE_LOC "Maybe."

*!* Clear out our response label
THISFORM.lblRetResponse.caption = ""

*!* Get the values to pass
cParam1 = THISFORM.txtPassValue1.value
nParam2 = THISFORM.opgPassValue2.value
*!* Call the form with the passed parameters 
*!* and set up the variable to get the return value
DO FORM LOCFILE("ParamAsk.scx") WITH cParam1, nParam2 TO nRetValue

*!* Check the return variable to set up the response label correctly.
DO CASE
	CASE nRetValue = 1
		THISFORM.lblRetResponse.caption = USER_RESPONSE_LOC + YES_LOC
	CASE nRetValue = 2
		THISFORM.lblRetResponse.caption = USER_RESPONSE_LOC + NO_LOC
	CASE nRetValue = 3
		THISFORM.lblRetResponse.caption = USER_RESPONSE_LOC + MAYBE_LOC
ENDCASE
	
ENDPROC
a�� HH8�%����U?T�������T�������T�������%�C�ParamAsk.scx��(����
H�k�8��������3T�����The user responded with �Yes.���������2T�����The user responded with �No.�������8�5T�����The user responded with �Maybe.���U	THISFORMLBLRETRESPONSECAPTIONCPARAM1
TXTPASSVALUE1VALUENPARAM2
OPGPASSVALUE2	NRETVALUEClick,��1731S�1!QA2P)Hc_solutions..\solution.vcxcustomC_solutions1frmParam-Top = 271
Left = 46
Name = "C_solutions1"
cmdclose..\solution.vcx
commandbutton	Cmdclose1frmParam+Top = 269
Left = 203
Name = "Cmdclose1"
behindscenes..\solution.vcx
commandbutton
Behindscenes1frmParam.Top = 269
Left = 12
Name = "Behindscenes1"
shapeshapeShape1frmParamcTop = 225
Left = 11
Height = 33
Width = 264
BackStyle = 0
SpecialEffect = 0
Name = "Shape1"
labellabelLabel3frmParam�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Returned Value "
Height = 15
Left = 18
Top = 219
Width = 82
TabIndex = 0
Name = "Label3"
labellabellblRetResponsefrmParam�FontName = "MS Sans Serif"
FontSize = 8
Caption = ""
Height = 17
Left = 21
Top = 235
Width = 248
Name = "lblRetResponse"
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 = 302
Width = 286
DoCreate = .T.
Caption = "Pass Parameters Between Forms"
MaxButton = .F.
HelpContextID = 1231576
Name = "frmParam"