Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/dataqry.sct
/�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1Height = 332
Width = 346
DoCreate = .T.
Caption = "Add Data Querying to Forms"
HelpContextID = 1231600
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 300
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 300
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 10
Behindscenes1.ZOrderSet = 4
Behindscenes1.Name = "Behindscenes1"
Shape2.ZOrderSet = 5
Shape2.Name = "Shape2"
Label1.Caption = "You can add various controls and dialogs to your forms for locating data."
Label1.TabIndex = 12
Label1.ZOrderSet = 6
Label1.Name = "Label1"
Label4.TabIndex = 13
Label4.ZOrderSet = 7
Label4.Name = "Label4"
Cmdclose1.Top = 300
Cmdclose1.Left = 264
Cmdclose1.TabIndex = 11
Cmdclose1.ZOrderSet = 8
Cmdclose1.Name = "Cmdclose1"
shapeshapeShape3Frmsolution1cTop = 252
Left = 12
Height = 37
Width = 325
SpecialEffect = 0
ZOrderSet = 0
Name = "Shape3"
labellabelLabel8Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Find dialog"
Height = 15
Left = 17
Top = 245
Width = 55
TabIndex = 14
ZOrderSet = 1
Name = "Label8"
shapeshapeShape1Frmsolution1cTop = 120
Left = 12
Height = 37
Width = 325
SpecialEffect = 0
ZOrderSet = 2
Name = "Shape1"
textboxtextbox
txtFindStringFrmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Height = 22
Left = 60
TabIndex = 5
Top = 169
Width = 276
ZOrderSet = 9
Name = "txtFindString"
�PROCEDURE InteractiveChange
STORE ALLTRIM(THIS.Value) TO ;
	THIS.Parent._TableFindButton.cFindString, ;
	THIS.Parent._TableFindNextButtons.cFindString

ENDPROC
)�� "g%����U+(J�C����(���������UTHISVALUEPARENT_TABLEFINDBUTTONCFINDSTRING_TABLEFINDNEXTBUTTONSInteractiveChange,��1�2�)labellabelLabel2Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Current Record:"
Height = 15
Left = 104
Top = 77
Width = 77
TabIndex = 15
ZOrderSet = 10
Name = "Label2"
labellabelLabel3Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = (STR(RECNO()))
Height = 15
Left = 189
Top = 77
Width = 35
TabIndex = 16
ZOrderSet = 11
Name = "Label3"
_findbutton..\..\..\ffc\_table.vcx	container_tablefindbuttonFrmsolution1�Top = 204
Left = 10
Width = 73
Height = 24
TabIndex = 6
ZOrderSet = 12
_memberdata = 
Name = "_tablefindbutton"
cmdTableFind.AutoSize = .F.
cmdTableFind.Height = 23
cmdTableFind.Width = 72
cmdTableFind.FontName = "MS Sans Serif"
cmdTableFind.FontSize = 8
cmdTableFind.Caption = "F\<ind"
cmdTableFind.ToolTipText = "Both Find and Find Next are combined into this button."
cmdTableFind.Name = "cmdTableFind"
cusTableFind.Name = "cusTableFind"
�PROCEDURE setbuttonui
#define FIND_CAPTION_LOC	"Fi\<nd"
DODEFAULT()

THIS.cmdTableFind.Caption = FIND_CAPTION_LOC
ENDPROC
PROCEDURE cmdTableFind.Click
* You can also bind these directly to the values.
WITH THIS.Parent.Parent
  THIS.Parent.lWrapAround = .chkWrap.Value
  THIS.Parent.lSkipMemos =  .chkSkip.Value
  THIS.Parent.lMatchCase =  .chkCase.Value  
ENDWITH  
DODEFAULT()
IF THIS.Parent.lFindAgain
   THIS.Parent.Parent.Label1.Caption = ALLTR(STR(RECNO()))
   BROWSE
ENDIF

ENDPROC
H�� //;j%����U%	��C��T�����Fi\<nd��UTHISCMDTABLEFINDCAPTION��������X�T���������T���������T�����������	��C��%����	����T����
��CCCOZ���	��UTHISPARENTLWRAPAROUNDCHKWRAPVALUE
LSKIPMEMOSCHKSKIP
LMATCHCASECHKCASE
LFINDAGAINLABEL1CAPTIONsetbuttonui,��cmdTableFind.Clickr��1��22qqqA�1�AA2u��)/
commandbutton
commandbuttoncmdPickTableFrmsolution1�Top = 72
Left = 12
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Pick a Table:"
TabIndex = 1
ZOrderSet = 13
Name = "cmdPickTable"
PROCEDURE Click
#DEFINE FORMCAPTION_LOC	"Find Data"
SELECT 0
USE ? AGAIN SHARED
IF !EMPTY(ALIAS())
	STORE ALIAS() TO THIS.Parent._tableFindButton.cAlias, ;
		THIS.Parent._TableFindNextButtons.cAlias
	THISFORM.Caption = FORMCAPTION_LOC+" - "+ALLTRIM(ALIAS())	
ENDIF

ENDPROC
r�� YYIM%��UoF��
Q�?��%�CC�
��h�"J�C�(���������%T����	Find Data� - CC����UTHISPARENT_TABLEFINDBUTTONCALIAS_TABLEFINDNEXTBUTTONSTHISFORMCAPTIONClick,��1���"QA2)YcheckboxcheckboxchkWrapFrmsolution1Top = 132
Left = 21
Height = 15
Width = 80
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Caption = "Wrap aroun\<d"
Value = .F.
TabIndex = 2
ToolTipText = "Continue searching from beginning when end of file reached."
ZOrderSet = 14
Name = "chkWrap"
checkboxcheckboxchkSkipFrmsolution1�Top = 132
Left = 240
Height = 15
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Caption = "\<Skip memos"
Value = .F.
Style = 0
TabIndex = 4
ToolTipText = "Do not search in memo fields."
ZOrderSet = 15
Name = "chkSkip"
checkboxcheckboxchkCaseFrmsolution1Top = 132
Left = 132
Height = 15
Width = 74
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
Caption = "Match \<case"
Value = .F.
Style = 0
TabIndex = 3
ToolTipText = "Search for a case-sensitive match."
ZOrderSet = 16
Name = "chkCase"
_findnextbuttons..\..\..\ffc\_table.vcx	container_tablefindnextbuttonsFrmsolution1�Top = 204
Left = 184
Width = 152
Height = 24
TabIndex = 7
ZOrderSet = 17
Name = "_tablefindnextbuttons"
cmdTableFind.AutoSize = .F.
cmdTableFind.Height = 23
cmdTableFind.Width = 72
cmdTableFind.FontName = "MS Sans Serif"
cmdTableFind.FontSize = 8
cmdTableFind.ToolTipText = "Separate Find button."
cmdTableFind.Name = "cmdTableFind"
cusTableFind.Name = "cusTableFind"
cmdTableFindNext.AutoSize = .F.
cmdTableFindNext.Top = 0
cmdTableFindNext.Left = 79
cmdTableFindNext.Height = 23
cmdTableFindNext.Width = 72
cmdTableFindNext.FontName = "MS Sans Serif"
cmdTableFindNext.FontSize = 8
cmdTableFindNext.ToolTipText = "Separate Find Next button."
cmdTableFindNext.Name = "cmdTableFindNext"
�PROCEDURE cmdTableFind.Click
* You can also bind these directly to the values.
WITH THIS.Parent.Parent
  THIS.Parent.lWrapAround = .chkWrap.Value
  THIS.Parent.lSkipMemos =  .chkSkip.Value
  THIS.Parent.lMatchCase =  .chkCase.Value  
ENDWITH  
DODEFAULT()
IF THIS.Parent.lFindAgain
   THIS.Parent.Parent.Label1.Caption = ALLTR(STR(RECNO()))
   BROWSE
ENDIF

ENDPROC
PROCEDURE cmdTableFindNext.Click
* You can also bind these directly to the values.
WITH THIS.Parent.Parent
  THIS.Parent.lWrapAround = .chkWrap.Value
  THIS.Parent.lSkipMemos =  .chkSkip.Value
  THIS.Parent.lMatchCase =  .chkCase.Value
ENDWITH  
DODEFAULT()
IF THIS.Parent.lFindAgain
   THIS.Parent.Parent.Label1.Caption = ALLTR(STR(RECNO()))
   BROWSE
ENDIF

ENDPROC
2�� �%V���U��������X�T���������T���������T�����������	��C��%����	����T����
��CCCOZ���	��UTHISPARENTLWRAPAROUNDCHKWRAPVALUE
LSKIPMEMOSCHKSKIP
LMATCHCASECHKCASE
LFINDAGAINLABEL1CAPTION��������X�T���������T���������T�����������	��C��%����	����T����
��CCCOZ���	��UTHISPARENTLWRAPAROUNDCHKWRAPVALUE
LSKIPMEMOSCHKSKIP
LMATCHCASECHKCASE
LFINDAGAINLABEL1CAPTIONcmdTableFind.Click,��cmdTableFindNext.ClickA��12qqqA�1�AA32qqqA�1�AA2q��)labellabelLabel5Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Look for:"
Height = 15
Left = 13
Top = 173
Width = 44
TabIndex = 17
ZOrderSet = 18
Name = "Label5"
labellabelLabel6Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "OR..."
Height = 15
Left = 122
Top = 208
Width = 27
TabIndex = 18
ZOrderSet = 19
Name = "Label6"
labellabelLabel7Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Search options"
Height = 15
Left = 17
Top = 113
Width = 75
TabIndex = 19
ZOrderSet = 20
Name = "Label7"

_locatebutton..\..\..\ffc\_table2.vcx
commandbutton
_locatebuttonFrmsolution1�Top = 259
Left = 240
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
TabIndex = 9
ZOrderSet = 21
cparms = .T.
Name = "_locatebutton"
PROCEDURE setdialogpems
WITH THIS.oDialog
  .lWrapAround = THIS.Parent.chkWrap.Value
  .lSkipMemos  = THIS.Parent.chkSkip.Value  
  .lMatchCase  = THIS.Parent.chkCase.Value
  .cFindString = THIS.Parent.txtFindString.Value
  .cAlias = ALIAS()
ENDWITH  

ENDPROC
��� ��$%2[	I�U�������y�T��������T��������T�����	���T�
�������
T��C����U
THISODIALOGLWRAPAROUNDPARENTCHKWRAPVALUE
LSKIPMEMOSCHKSKIP
LMATCHCASECHKCASECFINDSTRING
TXTFINDSTRINGCALIAS
setdialogpems,��1qqqq�A2)�optiongroupoptiongroupOptiongroup1Frmsolution1�AutoSize = .T.
ButtonCount = 2
BorderStyle = 0
Value = 1
Height = 27
Left = 19
Top = 258
Width = 168
TabIndex = 8
ZOrderSet = 22
Name = "Optiongroup1"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.Caption = "With alias"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Style = 0
Option1.Top = 5
Option1.Width = 79
Option1.AutoSize = .F.
Option1.Name = "Option1"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.Caption = "Without alias"
Option2.Height = 17
Option2.Left = 84
Option2.Style = 0
Option2.Top = 5
Option2.Width = 79
Option2.AutoSize = .F.
Option2.Name = "Option2"
ZPROCEDURE Click
THIS.Parent._locatebutton.cParms = IIF(THIS.Value=1,.T.,.F.)

ENDPROC
��� ��
�%����U*'T�����C����a�-6��UTHISPARENT
_LOCATEBUTTONCPARMSVALUEClick,��1q2O)�JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0