Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/complus/qc/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/complus/qc/pizza.sct

'VERSION =   3.00foxqc.hdataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
11formformForm1�Top = 21
Left = 26
Height = 222
Width = 346
DoCreate = .T.
Caption = "Order a pizza"
MaxButton = .F.
WindowState = 0
Name = "Form1"
PROCEDURE Refresh
THISFORM.cmdOrderFile.Enabled = FILE(OUTPUTFILE)
THISFORM.cmdErrors.Enabled = FILE(ERRLOGFILE)

ENDPROC
�� '%����UH!T����C�c:\pizza.txt0��$T����C�c:\foxqcerr.txt0��UTHISFORMCMDORDERFILEENABLED	CMDERRORSRefresh,��1A2t)shapeshapeShape1Form1STop = 60
Left = 12
Height = 85
Width = 325
SpecialEffect = 0
Name = "Shape1"
checkboxcheckboxchkPepperoniForm1�Top = 72
Left = 24
Height = 17
Width = 75
AutoSize = .T.
Caption = "\<Pepperoni"
Value = .T.
TabIndex = 4
Name = "chkPepperoni"
checkboxcheckboxchkMushroomsForm1�Top = 96
Left = 24
Height = 17
Width = 84
AutoSize = .T.
Caption = "\<Mushrooms"
Value = .F.
TabIndex = 5
Name = "chkMushrooms"
checkboxcheckbox	chkOnionsForm1�Top = 120
Left = 24
Height = 17
Width = 58
AutoSize = .T.
Caption = "\<Onions"
Value = .T.
TabIndex = 6
Name = "chkOnions"
checkboxcheckbox
chkSausageForm1�Top = 72
Left = 132
Height = 17
Width = 68
AutoSize = .T.
Caption = "Sa\<usage"
Value = .F.
TabIndex = 7
Name = "chkSausage"
checkboxcheckbox	chkCheeseForm1�Top = 96
Left = 132
Height = 17
Width = 92
AutoSize = .T.
Caption = "E\<xtra Cheese"
Value = .F.
TabIndex = 8
Name = "chkCheese"
checkboxcheckbox
chkPeppersForm1�Top = 120
Left = 132
Height = 17
Width = 65
AutoSize = .T.
Caption = "Peppe\<rs"
Value = .F.
TabIndex = 9
Name = "chkPeppers"
checkboxcheckboxchkPineappleForm1�Top = 72
Left = 240
Height = 17
Width = 74
AutoSize = .T.
Caption = "P\<ineapple"
Value = .F.
TabIndex = 10
Name = "chkPineapple"
checkboxcheckbox	chkGarlicForm1�Top = 96
Left = 240
Height = 17
Width = 50
AutoSize = .T.
Caption = "\<Garlic"
Value = .T.
TabIndex = 11
Name = "chkGarlic"
checkboxcheckbox	chkShrimpForm1�Top = 120
Left = 240
Height = 17
Width = 58
AutoSize = .T.
Caption = "S\<hrimp"
Value = .F.
TabIndex = 12
Name = "chkShrimp"
labellabelLabel1Form1AutoSize = .T.
Caption = "Select Ingredients:"
Height = 17
Left = 18
Top = 51
Width = 104
TabIndex = 3
Name = "Label1"
labellabelLabel2Form1{AutoSize = .T.
Caption = "Customer \<Name:"
Height = 17
Left = 12
Top = 15
Width = 97
TabIndex = 1
Name = "Label2"
textboxtextboxtxtCustForm1hValue = Clifton Hanger
Height = 23
Left = 120
TabIndex = 2
Top = 12
Width = 216
Name = "txtCust"

commandbutton
commandbuttoncmdOrderForm1lTop = 156
Left = 12
Height = 24
Width = 72
Caption = "P\<lace Order"
TabIndex = 13
Name = "cmdOrder"
�PROCEDURE Click
LOCAL loOrder,loCat,lnCost,lcIngredients,t1

lnCost = 10.95
lcIngredients = ""
IF THISFORM.chkPepperoni.Value
	lnCost = lnCost + .95
	lcIngredients = lcIngredients + "Pepperoni,"
ENDIF
IF THISFORM.chkMushrooms.Value
	lnCost = lnCost + .35
	lcIngredients = lcIngredients + "Mushrooms,"
ENDIF
IF THISFORM.chkOnions.Value
	lnCost = lnCost + .35
	lcIngredients = lcIngredients + "Onions,"
ENDIF
IF THISFORM.chkSausage.Value
	lnCost = lnCost + .95
	lcIngredients = lcIngredients + "Sausage,"
ENDIF
IF THISFORM.chkCheese.Value
	lnCost = lnCost + .75
	lcIngredients = lcIngredients + "Extra Cheese,"
ENDIF
IF THISFORM.chkPeppers.Value
	lnCost = lnCost + .35
	lcIngredients = lcIngredients + "Peppers,"
ENDIF
IF THISFORM.chkPineapple.Value
	lnCost = lnCost + .50
	lcIngredients = lcIngredients + "Pineapple,"
ENDIF
IF THISFORM.chkGarlic.Value
	lnCost = lnCost + .35
	lcIngredients = lcIngredients + "Garlic,"
ENDIF
IF THISFORM.chkShrimp.Value
	lnCost = lnCost + 1.35
	lcIngredients = lcIngredients + "Shrimp,"
ENDIF

IF !EMPTY(lcIngredients)
	lcIngredients = SUBSTR(lcIngredients,1,LEN(lcIngredients)-1)
ENDIF

* Handle main order
IF THISFORM.chkTest.Value
	* Normal VFP Object Call
	loOrder = NewObject("FoxQC.Pizza")
	loOrder.Toppings = lcIngredients
	loOrder.OrderPizza(ALLTRIM(THISFORM.txtCust.Value),lnCost)
	loOrder.OutputTxtFile()
ELSE
	* Call Queued Component
	loCat = CreateObject("COMAdmin.COMAdminCatalog")
	loCat.Connect(QC_MACHINE)
	loCat.StartApplication(FOXQC_APP)
	loOrder = GetObject("queue:/new:FoxQC.Pizza")
	loOrder.Toppings = lcIngredients
	loOrder.OrderPizza(ALLTRIM(THISFORM.txtCust.Value),lnCost)
	loOrder.OutputTxtFile()
	loCat.ShutdownApplication(FOXQC_APP)
ENDIF

RELEASE loOrder,loCat

T1 = SECONDS()
DO WHILE !FILE(OUTPUTFILE)
	INKEY(1)
	IF SECONDS()-t1 > 10
		* likely something failed
		RETURN
	ENDIF
ENDDO
THISFORM.Refresh()
MODIFY FILE OUTPUTFILE


ENDPROC
��� ��0�%�E�U��������T���fffff�%@��
T�����%��������T����ffffff�?��T����
Pepperoni,���%��������T����ffffff�?��T����
Mushrooms,���%���	����T����ffffff�?��T����Onions,���%���
���\�T����ffffff�?��T����Sausage,���%��������T�����?��T����
Extra Cheese,���%��������T����ffffff�?��T����Peppers,���%���
���>�T�����?��T����
Pineapple,���%��������T����ffffff�?��T����Garlic,���%��������T�����������?��T����Shrimp,���%�C��
����T��C��C�>�\���%������h�T��C�FoxQC.Pizza���T��������CC���������
��C�����-�(T��C�COMAdmin.COMAdminCatalog�N����C�������C�QC1����&T��C�queue:/new:FoxQC.Pizza�\��T��������CC���������
��C������C�QC1�����<���T��C���+�C�c:\pizza.txt0
������C�7��%�C���
����B���
��C����/��c:\pizza.txt��ULOORDERLOCATLNCOST
LCINGREDIENTST1THISFORMCHKPEPPERONIVALUECHKMUSHROOMS	CHKONIONS
CHKSAUSAGE	CHKCHEESE
CHKPEPPERSCHKPINEAPPLE	CHKGARLIC	CHKSHRIMPCHKTESTTOPPINGS
ORDERPIZZATXTCUST
OUTPUTTXTFILECONNECTSTARTAPPLICATIONSHUTDOWNAPPLICATIONREFRESHClick,��1qR�1��A1��A1��A1��A1��A1��A1��A1��A1��A�A3�����1a��1A����ABAA�a3�)�checkboxcheckboxchkTestForm1�Top = 192
Left = 12
Height = 24
Width = 216
Caption = "Test without \<Queued Components"
Value = .F.
TabIndex = 18
Name = "chkTest"

commandbutton
commandbutton
cmdCleanupForm1kTop = 156
Left = 276
Height = 24
Width = 60
Caption = "\<Cleanup"
TabIndex = 17
Name = "cmdCleanup"
^PROCEDURE Click
DELETE FILE OUTPUTFILE
DELETE FILE ERRLOGFILE
THISFORM.Refresh()
ENDPROC
��� ��
�%����U?��c:\pizza.txt����c:\foxqcerr.txt��
��C����UTHISFORMREFRESHClick,��1a��1S)�
commandbutton
commandbutton	cmdErrorsForm1iTop = 156
Left = 156
Height = 24
Width = 48
Caption = "\<Errors"
TabIndex = 14
Name = "cmdErrors"
;PROCEDURE Click
MODIFY FILE ERRORLOGFILE NOWAIT
ENDPROC
�� ��Q%Vke�U/�ERRORLOGFILE:�UERRORLOGFILEClick,��1Q10)�
commandbutton
commandbuttoncmdOrderFileForm1jTop = 156
Left = 108
Height = 24
Width = 48
Caption = "\<View"
TabIndex = 15
Name = "cmdOrderFile"
9PROCEDURE Click
MODIFY FILE OUTPUTFILE NOWAIT
ENDPROC
��� ����%J_Y�U/��c:\pizza.txt�:�UClick,��1q1.)�
commandbutton
commandbutton
cmdRefreshForm1kTop = 156
Left = 216
Height = 24
Width = 60
Caption = "Re\<fresh"
TabIndex = 16
Name = "cmdRefresh"
.PROCEDURE Click
THISFORM.Refresh()
ENDPROC
�� ���%Shb�U
��C����UTHISFORMREFRESHClick,��1�1#)�!Arial, 0, 9, 5, 15, 12, 32, 3, 0
foxqc.h�6�h�(