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/qbe.vct
VERSION =   3.00��� ||��%�#��U6T�������T������T������UTHISSAVECONTROLSOURCE
CONTROLSOURCEVALUE�T��C�����T������%�C��
����m%��<��
�==���LIKE��
�<>��
�!=��	�#��	�=��	�>�����&T���C�C�.��������
H������C�b�CM��(�9T���C�C�.���� = C�" �C�" ���C�b�DT��p�3T���C�C�.���� = {��}��2���-T���C�C�.���� = ��������T�������T�������U
CCONDITIONTHISVALUECCONTROLSOURCESAVECONTROLSOURCE	CONDITION
CONTROLSOURCEenterqbe,��exitqbe���113!�a��Q�Q1��AA�A12k�_)|jPROCEDURE enterqbe
THIS.saveControlSource = THIS.controlSource
THIS.controlSource = ""
THIS.Value = ""

ENDPROC
PROCEDURE exitqbe
cCondition = ALLTRIM(THIS.Value)
cControlSource = THIS.SaveControlSource
IF !EMPTY(cCondition) THEN
	IF ("<" $ cCondition OR "==" $ cCondition OR "LIKE" $ cCondition ;
	  OR "<>" $ cCondition OR "!=" $ cCondition OR "#" $ cCondition ;
	  OR "=" $ cCondition OR ">" $ cCondition) THEN
	  	THIS.Condition = SUBSTRC(cControlSource,(RATC(".",cControlSource)+1)) + cCondition
	ELSE
		** Need to put the proper delimiters around comparison values of certain types
		DO CASE
			CASE TYPE(cControlSource) $ "CM"
				THIS.Condition = SUBSTRC(cControlSource,(RATC(".",cControlSource)+1)) + " = " + CHR(34) + cCondition + CHR(34)
			CASE TYPE(cControlSource) $ "DT"
				THIS.Condition = SUBSTRC(cControlSource,(RATC(".",cControlSource)+1)) + " = {" + cCondition + "}"
			OTHERWISE
				THIS.Condition = SUBSTRC(cControlSource,(RATC(".",cControlSource)+1)) + " = " + cCondition
		ENDCASE		
	ENDIF
ELSE
	THIS.Condition = ""
ENDIF
THIS.ControlSource = THIS.SaveControlSource

ENDPROC
textbox[FontBold = .F.
FontSize = 9
Height = 22
Width = 113
condition = 
Name = "qbetextbox"
�savecontrolsource Saves the controlSource of the textbox when in QBE mode.
condition Saves the condition specified after leaving QBE mode.
*enterqbe Enters the field into QBE mode.
*exitqbe Exits QBE Mode.

qbetextboxtextbox1ClassPixelssavecontrolsource

qbetextbox!Arial, 0, 9, 5, 15, 12, 13, 3, 0