Mini Kabibi Habibi
4� VERSION = 3.00 dataenvironment dataenvironment Dataenvironment JLeft = 37
Top = 32
Width = 556
Height = 145
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 customer �DataSession = 2
Top = 2
Left = 9
Height = 347
Width = 466
Desktop = .F.
DoCreate = .T.
BorderStyle = 2
Caption = "Create a Single Table Data Entry Form"
MaxButton = .F.
Icon = ..\..\..\
LockScreen = .F.
HelpContextID = 163
Name = "customer"
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 � � � � ) � \previouscontrol Specifies the control before the current control that contained the focus.
commandbutton
commandbutton cmdNew customer �Top = 79
Left = 383
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<New"
TabIndex = 27
Name = "cmdNew"
�PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
MESSAGEBOX(MESSAGE())
ENDPROC
PROCEDURE Click
APPEND BLANK
THISFORM.Refresh
ENDPROC
,�� �S % � � � � U �� � � � ��CCE�x�� U NERROR CMETHOD NLINE �
�� � � U THISFORM REFRESH Error, �� Clicke ��1 � � 2 Q � 1 L h � )
commandbutton
commandbutton cmdDelete customer �Top = 107
Left = 383
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Delete"
TabIndex = 28
Name = "cmdDelete"
�PROCEDURE Click
#DEFINE MSGBOX_YES 6
#DEFINE C_MSGBOX1 36
#DEFINE C_DELETE_LOC "Are you sure you want to delete this record?"
IF MESSAGEBOX(C_DELETE_LOC,C_MSGBOX1) = MSGBOX_YES
DELETE
IF !EOF()
SKIP 1
ENDIF
IF EOF() AND !BOF()
SKIP -1
ENDIF
THISFORM.Refresh
ENDIF
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
MESSAGEBOX(MESSAGE())
ENDPROC
��� � � $ % K - � U � C %�C�, Are you sure you want to delete this record?�$�x���� � �
%�C+
��] � H���� � %�C+� C
��~ �
H������ �
�� � � � U THISFORM REFRESH �� � � � ��CCE�x�� U NERROR CMETHOD NLINE Click, �� Error� ��1 5A � � A 1� A � A 2 � � 1 " > y ) � combobox combobox cboCity customer FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
RowSourceType = 3
RowSource = "SELECT DISTINCT CITY FROM CUSTOMER INTO CURSOR cCity"
ControlSource = "customer.city"
Height = 23
Left = 91
TabIndex = 14
Top = 209
Width = 112
Name = "cboCity"
/PROCEDURE Destroy
SELECT cCity
USE
ENDPROC
��� � � �L % E ^ V � U F� � Q� U CCITY Destroy, ��1 q A 1 $ ) � combobox combobox cboRegion customer FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
RowSourceType = 3
RowSource = "SELECT DISTINCT REGION FROM CUSTOMER INTO CURSOR cRegion"
ControlSource = "customer.region"
Height = 23
Left = 261
TabIndex = 16
Top = 209
Width = 109
Name = "cboRegion"
1PROCEDURE Destroy
SELECT cRegion
USE
ENDPROC
�� � � :� % G ` X � U F� � Q� U CREGION Destroy, ��1 q A 1 & ) � combobox combobox
cboCountry customer FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
RowSourceType = 3
RowSource = "SELECT DISTINCT COUNTRY FROM CUSTOMER INTO CURSOR cCountry"
ControlSource = "customer.country"
Height = 23
Left = 261
TabIndex = 20
Top = 234
Visible = .T.
Width = 109
Name = "cboCountry"
2PROCEDURE Destroy
SELECT cCountry
USE
ENDPROC
�� � � �� % H a Y � U F� � Q� U CCOUNTRY Destroy, ��1 q A 1 ' ) � textbox textbox
txtCust_id customer �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.cust_id"
Height = 23
Left = 91
TabIndex = 4
Top = 79
Width = 89
Name = "txtCust_id"
textbox textbox
txtCompany customer �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.company"
Height = 23
Left = 91
TabIndex = 6
Top = 106
Width = 277
Name = "txtCompany"
textbox textbox
txtContact customer �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.contact"
Height = 23
Left = 91
TabIndex = 8
Top = 132
Width = 277
Name = "txtContact"
textbox textbox txtTitle customer �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.title"
Height = 23
Left = 91
TabIndex = 10
Top = 158
Width = 277
Name = "txtTitle"
textbox textbox
txtPostalCode customer �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.postalcode"
Height = 23
Left = 91
TabIndex = 18
Top = 234
Width = 112
Name = "txtPostalCode"
textbox textbox txtPhone customer �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.phone"
Height = 23
Left = 91
TabIndex = 22
Top = 258
Width = 112
Name = "txtPhone"
textbox textbox txtFax customer �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.fax"
Height = 23
Left = 261
TabIndex = 24
Top = 258
Width = 108
Name = "txtFax"
textbox textbox txtMaxordamt customer �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.maxordamt"
Format = "R"
Height = 23
InputMask = "$$99999.99"
Left = 261
TabIndex = 26
Top = 282
Width = 109
Name = "txtMaxordamt"
label label Label14 customer �AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Customer \<ID:"
Height = 15
Left = 12
Top = 83
Width = 63
TabIndex = 3
Name = "Label14"
label label Label1 customer �AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Company:"
Height = 15
Left = 12
Top = 109
Width = 49
TabIndex = 5
Name = "Label1"
label label Label2 customer �AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "C\<ontact:"
Height = 15
Left = 12
Top = 134
Width = 42
TabIndex = 7
Name = "Label2"
label label Label3 customer �AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Title:"
Height = 15
Left = 12
Top = 161
Width = 25
TabIndex = 9
Name = "Label3"
label label Label4 customer �AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Address:"
Height = 15
Left = 12
Top = 184
Width = 43
TabIndex = 11
Name = "Label4"
label label Label5 customer �AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Cit\<y:"
Height = 15
Left = 12
Top = 211
Width = 22
TabIndex = 13
Name = "Label5"
label label Label6 customer �AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Postal code:"
Height = 15
Left = 12
Top = 236
Width = 61
TabIndex = 17
Name = "Label6"
label label Label8 customer �AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "P\<hone:"
Height = 15
Left = 12
Top = 260
Width = 36
TabIndex = 21
Name = "Label8"
label label Label10 customer �AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Maximum order amount:"
Height = 15
Left = 137
Top = 287
Width = 114
TabIndex = 25
Name = "Label10"
label label Label7 customer �AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Region:"
Height = 15
Left = 213
Top = 211
Width = 39
TabIndex = 15
Name = "Label7"
label label Label9 customer �AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Co\<untry:"
Height = 15
Left = 213
Top = 236
Width = 41
TabIndex = 19
Name = "Label9"
label label Label11 customer �AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<FAX:"
Height = 15
Left = 213
Top = 260
Width = 25
TabIndex = 23
Name = "Label11"
c_solutions ..\solution.vcx custom C_solutions1 customer FTop = 317
Left = 56
Height = 18
Width = 25
Name = "C_solutions1"
behindscenes ..\solution.vcx
commandbutton
Behindscenes1 customer =Top = 315
Left = 13
TabIndex = 30
Name = "Behindscenes1"
cmdclose ..\solution.vcx
commandbutton Cmdclose2 customer :Top = 315
Left = 383
TabIndex = 29
Name = "Cmdclose2"
textbox textbox
txtAddress customer �FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
ControlSource = "customer.address"
Height = 23
Left = 91
TabIndex = 12
Top = 183
Width = 277
Name = "txtAddress"
vcr ..\solution.vcx container Vcr1 customer Top = 314
Left = 91
Width = 104
Height = 24
TabIndex = 31
Name = "Vcr1"
cmdTop.Name = "cmdTop"
cmdPrior.Name = "cmdPrior"
cmdNext.Name = "cmdNext"
cmdBottom.Name = "cmdBottom"
Datachecker1.Height = 15
Datachecker1.Width = 23
Datachecker1.Name = "Datachecker1"
shape shape Shape3 customer bTop = 12
Left = 11
Height = 56
Width = 445
BackStyle = 0
SpecialEffect = 0
Name = "Shape3"
label label Label12 customer WFontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "This simple single-table form illustrates some basic functionality. Use the VCR buttons at the bottom of the form to navigate between records. Click New and Delete to add and delete records."
Height = 43
Left = 21
Top = 22
Width = 425
TabIndex = 2
Name = "Label12"
label label Label13 customer �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 19
Top = 6
Width = 62
TabIndex = 1
Name = "Label13"
rArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Courier New, 1, 11, 9, 17, 12, 11, 5, 0
DataSession = 2
Top = 2
Left = 9
Height = 347
Width = 466
Desktop = .F.
DoCreate = .T.
BorderStyle = 2
Caption = "Create a Single Table Data Entry Form"
MaxButton = .F.
Icon = ..\..\..\
LockScreen = .F.
HelpContextID = 1231552
Name = "customer"