Mini Kabibi Habibi

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

*(VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentKLeft = 10
Top = 214
Width = 320
Height = 225
Name = "Dataenvironment"
cursorcursorCursor2Dataenvironment�Left = 160
Top = 10
Width = 95
Height = 90
Alias = "products"
Database = ..\..\data\testdata.dbc
CursorSource = "products"
Name = "Cursor2"
cursorcursorCursor1Dataenvironment�Left = 20
Top = 10
Width = 95
Height = 90
Alias = "employee"
Database = ..\..\data\testdata.dbc
CursorSource = "employee"
Name = "Cursor1"
32formformForm1�DataSession = 2
Top = 0
Left = 1
Height = 282
Width = 564
DoCreate = .T.
BorderStyle = 3
Caption = "Nest Transactions"
MaxButton = .F.
HelpContextID = 120
Name = "Form1"
�PROCEDURE Destroy
DO WHILE TXNLEVEL() > 0
	ROLLBACK
ENDDO
ENDPROC
PROCEDURE Refresh
THISFORM.txtLevel.value = ALLTRIM(STR(TXNLEVEL()))
ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
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
Q�� 88�I%1���U+�C�������UT����CCC�Z���UTHISFORMTXTLEVELVALUE
�����UTHISC_SOLUTIONS1SAVEHELP9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP	�%�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�����UTHISSETALLDestroy,��RefreshM��Activate���
Deactivate���Init��1!AA2q2�2Q�A2d	��A�3<Z���		�4
O�)8commandgroupcommandgroupcmgTransForm1QButtonCount = 3
BackStyle = 0
Value = 1
Height = 150
Left = 456
Top = 69
Width = 98
TabIndex = 7
Name = "cmgTrans"
Command1.Top = 12
Command1.Left = 12
Command1.Height = 23
Command1.Width = 72
Command1.FontBold = .F.
Command1.FontName = "MS Sans Serif"
Command1.FontSize = 8
Command1.Caption = "\<Begin"
Command1.Name = "cmdBegin"
Command2.Top = 52
Command2.Left = 12
Command2.Height = 23
Command2.Width = 72
Command2.FontBold = .F.
Command2.FontName = "MS Sans Serif"
Command2.FontSize = 8
Command2.Caption = "\<End"
Command2.Enabled = .F.
Command2.Name = "cmdEnd"
Command3.Top = 80
Command3.Left = 12
Command3.Height = 23
Command3.Width = 72
Command3.FontBold = .F.
Command3.FontName = "MS Sans Serif"
Command3.FontSize = 8
Command3.Caption = "\<Rollback"
Command3.Enabled = .F.
Command3.Name = "cmdRollback"
CPROCEDURE cmdBegin.Click
IF TXNLEVEL() = 4
	THIS.enabled = .F.
ENDIF

THIS.Parent.cmdEnd.enabled = .T.
THIS.Parent.cmdRollback.enabled = .T.

BEGIN TRANSACTION
THISFORM.REFRESH
ENDPROC
PROCEDURE cmdEnd.Click
END TRANSACTION

THIS.Parent.cmdBegin.enabled = .T.
IF TXNLEVEL() < 1
	THIS.enabled = .F.
	THIS.Parent.cmdRollback.enabled = .F.
ENDIF

THISFORM.REFRESH
ENDPROC
PROCEDURE cmdRollback.Click
ROLLBACK

THIS.Parent.cmdBegin.enabled = .T.
IF TXNLEVEL() < 1
	THIS.enabled = .F.
	THIS.Parent.cmdEnd.enabled = .F.
ENDIF

THISFORM.REFRESH
ENDPROC
�� ��A�%
�S�U]%�C����T���-���T�����a��T�����a�����
����UTHISENABLEDPARENTCMDENDCMDROLLBACKTHISFORMREFRESH]���T�����a��%�C�
��L�T���-��T�����-���
����UTHISPARENTCMDBEGINENABLEDCMDROLLBACKTHISFORMREFRESH\��T�����a��%�C�
��K�T���-��T�����-���
����UTHISPARENTCMDBEGINENABLEDCMDENDTHISFORMREFRESHcmdBegin.Click,��cmdEnd.Click���cmdRollback.Clickn��1�ABAR�2QB�AA�2AB�AA�1�	�|�8)�gridgridGrid1Form1ColumnCount = 2
FontBold = .F.
Height = 165
Left = 11
Panel = 1
RecordMark = .F.
RecordSource = "employee"
ScrollBars = 2
TabIndex = 2
Top = 82
Width = 166
Name = "Grid1"
Column1.FontBold = .F.
Column1.FontSize = 9
Column1.ControlSource = "employee.last_name"
Column1.Width = 72
Column1.Sparse = .F.
Column1.Name = "Column1"
Column2.FontBold = .F.
Column2.FontName = "MS Sans Serif"
Column2.FontSize = 8
Column2.ControlSource = "employee.first_name"
Column2.Width = 69
Column2.Sparse = .F.
Column2.Name = "Column2"
headerheaderHeader1Form1.Grid1.Column1rFontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Alignment = 2
Caption = "Last Name"
Name = "Header1"
textboxtextboxText1Form1.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"
headerheaderHeader1Form1.Grid1.Column2sFontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Alignment = 2
Caption = "First Name"
Name = "Header1"
textboxtextboxText1Form1.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"
c_solutions..\solution.vcxcustomC_solutions1Form1.Top = 257
Left = 116
Name = "C_solutions1"
behindscenes..\solution.vcx
commandbutton
Behindscenes1Form1<Top = 253
Left = 13
TabIndex = 5
Name = "Behindscenes1"
cmdclose..\solution.vcx
commandbutton	Cmdclose2Form1:Top = 251
Left = 481
TabIndex = 10
Name = "Cmdclose2"
gridgridGrid2Form1�ColumnCount = 2
Height = 165
Left = 190
Panel = 1
RecordMark = .F.
ScrollBars = 2
TabIndex = 4
Top = 82
Width = 257
Name = "Grid2"
Column1.FontBold = .F.
Column1.FontSize = 9
Column1.ControlSource = "products.prod_name"
Column1.Width = 163
Column1.Sparse = .F.
Column1.Name = "Column1"
Column2.FontBold = .F.
Column2.FontName = "MS Sans Serif"
Column2.FontSize = 8
Column2.ControlSource = "products.unit_price"
Column2.Width = 69
Column2.Sparse = .F.
Column2.Name = "Column2"
headerheaderHeader1Form1.Grid2.Column1pFontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Alignment = 2
Caption = "Product"
Name = "Header1"
textboxtextboxText1Form1.Grid2.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"
headerheaderHeader1Form1.Grid2.Column2sFontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Alignment = 2
Caption = "Unit Price"
Name = "Header1"
textboxtextboxText1Form1.Grid2.Column2�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BorderStyle = 0
InputMask = "$9,999.00"
Margin = 0
ColorSource = 3
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
labellabelLabel4Form1�AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "E\<mployee Table"
Height = 15
Left = 11
Top = 62
Width = 78
TabIndex = 1
Name = "Label4"
labellabelLabel5Form1�AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Products Table"
Height = 15
Left = 194
Top = 62
Width = 74
TabIndex = 3
Name = "Label5"
shapeshapeShape3Form1bTop = 13
Left = 11
Height = 43
Width = 543
BackStyle = 0
SpecialEffect = 0
Name = "Shape3"
labellabelLabel12Form1CFontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "Click Begin and then make changes to either of the tables. To nest transactions, click Begin up to 5 times. Click End to commit your changes or click Rollback to undo them."
Height = 27
Left = 21
Top = 23
Width = 520
TabIndex = 0
Name = "Label12"
labellabelLabel13Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 19
Top = 7
Width = 62
TabIndex = 0
Name = "Label13"
labellabelLabel1Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " \<Transaction "
Height = 15
Left = 464
Top = 62
Width = 64
TabIndex = 6
Name = "Label1"
labellabelLabel2Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Level:"
Height = 15
Left = 470
Top = 189
Width = 31
TabIndex = 8
Name = "Label2"
textboxtextboxtxtLevelForm1�FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Left = 503
ReadOnly = .T.
TabIndex = 9
Top = 184
Width = 19
Name = "txtLevel"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Top = 0
Left = 1
Height = 282
Width = 564
DoCreate = .T.
BorderStyle = 3
Caption = "Nest Transactions"
MaxButton = .F.
HelpContextID = 1231542
Name = "Form1"