Mini Kabibi Habibi
"N VERSION = 3.00 dataenvironment dataenvironment Dataenvironment KLeft = 10
Top = 245
Width = 394
Height = 113
Name = "Dataenvironment"
cursor cursor Cursor1 Dataenvironment �Left = 20
Top = 10
Width = 90
Height = 90
Alias = "customer"
Database = ..\..\data\testdata.dbc
CursorSource = "customer"
Name = "Cursor1"
2 2 form form Form1 �DataSession = 2
Top = 8
Left = 27
Height = 272
Width = 586
DoCreate = .T.
Caption = "Sort or Order a Table at Run Time"
MaxButton = .F.
LockScreen = .F.
HelpContextID = 52
Name = "Form1"
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
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 9 % %�C� THIS.c_solutions1b� O��2 �
�� � � � � U THIS C_SOLUTIONS1 RESTOREHELP
�� � � � U THIS C_SOLUTIONS1 SAVEHELP � %�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�� � �� U THIS SETALL
Deactivate, �� Activate� �� Init� ��1 Q� A 2 � 2 d � �A �3 d � � � � ) � grid grid Grid1 Form1 �ColumnCount = 4
FontBold = .F.
FontSize = 9
DeleteMark = .F.
Height = 164
Left = 10
Panel = 1
RecordMark = .F.
RecordSource = "Customer"
RowHeight = 18
ScrollBars = 2
TabIndex = 1
Top = 71
Width = 566
Name = "Grid1"
Column1.FontBold = .F.
Column1.FontName = "MS Sans Serif"
Column1.FontSize = 8
Column1.ControlSource = "Customer.Cust_id"
Column1.Width = 69
Column1.Name = "Column1"
Column2.FontBold = .F.
Column2.FontName = "MS Sans Serif"
Column2.FontSize = 8
Column2.ControlSource = "Customer.Company"
Column2.Width = 254
Column2.Name = "Column2"
Column3.FontBold = .F.
Column3.FontName = "MS Sans Serif"
Column3.FontSize = 8
Column3.ControlSource = "Customer.Contact"
Column3.Width = 148
Column3.Name = "Column3"
Column4.FontBold = .F.
Column4.FontName = "MS Sans Serif"
Column4.FontSize = 8
Column4.ControlSource = "Customer.Postalcode"
Column4.Width = 75
Column4.Name = "Column4"
header header Header1 Form1.Grid1.Column1 aFontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Cust_id"
Name = "Header1"
�PROCEDURE MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nShift = 2
SET ORDER TO cust_id DESCENDING
ELSE
SET ORDER TO cust_id ASCENDING
ENDIF
GO TOP
THISFORM.Refresh
ENDPROC
Z�� A A �� % � �
� � U d �� � � � � %�� ���5 � G((� cust_id<� �N � G((� cust_id�� � #)�
�� � � U NBUTTON NSHIFT NXCOORD NYCOORD CUST_ID THISFORM REFRESH MouseUp, ��1 1� A R � 2 � ) A textbox textbox Text1 Form1.Grid1.Column1 �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BorderStyle = 0
Margin = 0
ColorSource = 3
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
header header Header1 Form1.Grid1.Column2 aFontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Company"
Name = "Header1"
�PROCEDURE MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nShift = 2
SET ORDER TO Company DESCENDING
ELSE
SET ORDER TO Company ASCENDING
ENDIF
GO TOP
THISFORM.Refresh
ENDPROC
Z�� A A �� % � �
� � U d �� � � � � %�� ���5 � G((� Company<� �N � G((� Company�� � #)�
�� � � U NBUTTON NSHIFT NXCOORD NYCOORD COMPANY THISFORM REFRESH MouseUp, ��1 1� A R � 2 � ) A textbox textbox Text1 Form1.Grid1.Column2 �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BorderStyle = 0
Margin = 0
ColorSource = 3
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
header header Header1 Form1.Grid1.Column3 aFontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Contact"
Name = "Header1"
�PROCEDURE MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nShift = 2
SET ORDER TO Contact DESCENDING
ELSE
SET ORDER TO Contact ASCENDING
ENDIF
GO TOP
THISFORM.Refresh
ENDPROC
Z�� A A �� % � �
� � U d �� � � � � %�� ���5 � G((� Contact<� �N � G((� Contact�� � #)�
�� � � U NBUTTON NSHIFT NXCOORD NYCOORD CONTACT THISFORM REFRESH MouseUp, ��1 1� A R � 2 � ) A textbox textbox Text1 Form1.Grid1.Column3 �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BorderStyle = 0
Margin = 0
ColorSource = 3
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
header header Header1 Form1.Grid1.Column4 dFontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Postalcode"
Name = "Header1"
�PROCEDURE MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nShift = 2
SET ORDER TO postalcode DESCENDING
ELSE
SET ORDER TO postalcode ASCENDING
ENDIF
GO TOP
THISFORM.Refresh
ENDPROC
c�� J J �P % �
� � U j �� � � � � %�� ���8 � G((�
postalcode<� �T � G((�
postalcode�� � #)�
�� � � U NBUTTON NSHIFT NXCOORD NYCOORD
POSTALCODE THISFORM REFRESH MouseUp, ��1 1A� AA R � 2 � ) J textbox textbox Text1 Form1.Grid1.Column4 �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BorderStyle = 0
Margin = 0
ColorSource = 3
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
cmdclose ..\solution.vcx
commandbutton Cmdclose1 Form1 9Top = 242
Left = 504
TabIndex = 3
Name = "Cmdclose1"
c_solutions ..\solution.vcx custom C_solutions1 Form1 -Top = 246
Left = 44
Name = "C_solutions1"
behindscenes ..\solution.vcx
commandbutton
Behindscenes2 Form1 <Top = 243
Left = 11
TabIndex = 2
Name = "Behindscenes2"
shape shape Shape2 Form1 bTop = 14
Left = 10
Height = 46
Width = 567
BackStyle = 0
SpecialEffect = 0
Name = "Shape2"
label label Label5 Form1 FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "Change the order of the records displayed in the grid by clicking on the column's header, with or without holding the Ctrl key down."
Height = 28
Left = 20
Top = 24
Width = 528
TabIndex = 0
Name = "Label5"
label label Label6 Form1 �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 18
Top = 8
Width = 62
TabIndex = 0
Name = "Label6"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Top = 8
Left = 27
Height = 272
Width = 586
DoCreate = .T.
Caption = "Sort or Order a Table at Run Time"
MaxButton = .F.
LockScreen = .F.
HelpContextID = 1231519
Name = "Form1"