Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/datalook2.sct

�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentKLeft = 95
Top = 307
Width = 520
Height = 200
Name = "Dataenvironment"
cursorcursorCursor1Dataenvironment�Left = 10
Top = 20
Width = 164
Height = 113
Alias = "customer"
Database = ..\..\data\testdata.dbc
CursorSource = "customer"
Name = "Cursor1"
22frmsolution..\solution.vcxformFrmsolution1;Height = 296
Width = 302
DoCreate = .T.
Caption = "Add Data-Lookup Combo Boxes"
Visible = .T.
HelpContextID = 212
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 264
C_solutions1.Left = 49
C_solutions1.Height = 14
C_solutions1.Width = 16
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 264
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 7
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 72
Shape2.Width = 276
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "The Distinct Values combobox provides a list of all unique values in an existing column. The Lookup combobox allows you to display one column while binding to another."
Label1.Height = 53
Label1.Left = 24
Label1.Top = 24
Label1.Width = 248
Label1.TabIndex = 8
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 10
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 264
Cmdclose1.Left = 217
Cmdclose1.TabIndex = 9
Cmdclose1.ZOrderSet = 8
Cmdclose1.Name = "Cmdclose1"
shapeshapeShape1Frmsolution1cTop = 217
Left = 12
Height = 36
Width = 276
SpecialEffect = 0
ZOrderSet = 0
Name = "Shape1"

_cbolookup..\..\..\ffc\_dataquery.vcxcombobox_cbolookup1Frmsolution1�Height = 23
Left = 72
SpecialEffect = 0
TabIndex = 5
Top = 224
Width = 204
ZOrderSet = 5
lookup_table = customer
display_column = company
return_column = cust_id
Name = "_cbolookup1"
�PROCEDURE InteractiveChange
#DEFINE C_LOOKUP_LOC "The Value property equals: "
DODEFAULT()
WAIT WINDOW C_LOOKUP_LOC+ALLTRIM(THIS.Value) TIMEOUT 1
LOCATE FOR cust_id = ALLTRIM(THIS.Value)
THISFORM.Refresh

ENDPROC
?�� &&�u%����U]	��C��4R,�����The Value property equals: C�����-��C�����
����UTHISVALUECUST_IDTHISFORMREFRESHInteractiveChange,��1�A1�2�)&_cbodistinctvalues..\..\..\ffc\_dataquery.vcxcombobox_cbodistinctvalues1Frmsolution1�ControlSource = "customer.title"
Height = 23
Left = 72
TabIndex = 4
Top = 181
Width = 216
ZOrderSet = 7
Name = "_cbodistinctvalues1"
textboxtextbox
txtCust_idFrmsolution1'Comment = "Unique Customer ID code made up of the first five character of the Customer's Company name."
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.cust_id"
Height = 23
Left = 72
ReadOnly = .T.
TabIndex = 1
Top = 97
Width = 52
ZOrderSet = 9
Name = "txtCust_id"
labellabelLabel2Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Locate:"
Left = 24
Top = 229
Width = 35
TabIndex = 11
ZOrderSet = 10
Name = "Label2"
labellabel
lblCust_idFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Cust_id"
Left = 16
Top = 101
Width = 35
TabIndex = 12
ZOrderSet = 10
Name = "lblCust_id"
textboxtextbox
txtCompanyFrmsolution1�Comment = ""
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.company"
Height = 23
Left = 72
TabIndex = 2
Top = 125
Width = 216
ZOrderSet = 11
Name = "txtCompany"
labellabel
lblCompanyFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Company"
Left = 16
Top = 129
Width = 44
TabIndex = 13
ZOrderSet = 12
Name = "lblCompany"
textboxtextbox
txtContactFrmsolution1�Comment = "Primary contact for this Customer."
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.contact"
Height = 23
Left = 72
TabIndex = 3
Top = 153
Width = 216
ZOrderSet = 13
Name = "txtContact"
labellabel
lblContactFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Contact"
Left = 16
Top = 157
Width = 37
TabIndex = 14
ZOrderSet = 14
Name = "lblContact"
labellabellblTitleFrmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Title"
Left = 16
Top = 185
Width = 20
TabIndex = 15
ZOrderSet = 15
Name = "lblTitle"
_nav2buttons..\..\..\ffc\_table.vcx	container
_nav2buttons1Frmsolution1QTop = 92
Left = 215
TabIndex = 6
Name = "_nav2buttons1"
cmgNav.Command1.Top = 5
cmgNav.Command1.Left = 5
cmgNav.Command1.Name = "Command1"
cmgNav.Command2.Top = 5
cmgNav.Command2.Left = 35
cmgNav.Command2.Name = "Command2"
cmgNav.BackStyle = 0
cmgNav.BorderStyle = 0
cmgNav.Name = "cmgNav"
cusTableNav.Name = "cusTableNav"
sArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
MS Sans Serif, 1, 9, 6, 13, 11, 12, 2, 0
?Height = 296
Width = 302
DoCreate = .T.
Caption = "Add Data-Lookup Combo Boxes"
Visible = .T.
HelpContextID = 1231598
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 264
C_solutions1.Left = 49
C_solutions1.Height = 14
C_solutions1.Width = 16
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 264
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 7
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 72
Shape2.Width = 276
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "The Distinct Values combobox provides a list of all unique values in an existing column. The Lookup combobox allows you to display one column while binding to another."
Label1.Height = 53
Label1.Left = 24
Label1.Top = 24
Label1.Width = 248
Label1.TabIndex = 8
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 10
Label4.ZOrderSet = 6
Label4.Name = "Label4"
Cmdclose1.Top = 264
Cmdclose1.Left = 217
Cmdclose1.TabIndex = 9
Cmdclose1.ZOrderSet = 8
Cmdclose1.Name = "Cmdclose1"