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/newid.sct

-6VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 147
Top = 286
Width = 455
Height = 189
Name = "Dataenvironment"
cursorcursorCursor1Dataenvironment�Left = 20
Top = 10
Width = 90
Height = 90
Alias = "table1"
Database = newid.dbc
CursorSource = "table1"
Exclusive = .T.
Name = "Cursor1"
cursorcursorCursor2Dataenvironment�Left = 160
Top = 10
Width = 90
Height = 90
Alias = "table2"
Database = newid.dbc
CursorSource = "table2"
Exclusive = .T.
Name = "Cursor2"
cursorcursorCursor3Dataenvironment|Left = 300
Top = 10
Width = 95
Height = 90
Alias = "ids"
Database = newid.dbc
CursorSource = "ids"
Name = "Cursor3"
42formformForm1�DataSession = 2
Top = 18
Left = 28
Height = 313
Width = 450
DoCreate = .T.
Caption = "Create a Default Unique ID Value for a Field"
MaxButton = .F.
LockScreen = .F.
HelpContextID = 44
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 Unload
IF DBUSED('newid')
	SET DATABASE TO newid
	CLOSE DATABASE
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

�� ���%{U�U9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP
�����UTHISC_SOLUTIONS1SAVEHELP/%�C�newid��(�G(�newid���UNEWID	�%�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�����UTHISSETALL
Deactivate,��Activate���Unload���Init���1Q�A2�2Q�QA2d	��A�3d����	U)�shapeshapeShape4Form1dTop = 101
Left = 268
Height = 71
Width = 172
BackStyle = 0
SpecialEffect = 0
Name = "Shape4"
labellabelLabel2Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " \<IDs Table "
Height = 15
Left = 276
Top = 96
Width = 54
TabIndex = 7
Name = "Label2"
shapeshapeShape3Form1eTop = 101
Left = 139
Height = 176
Width = 122
BackStyle = 0
SpecialEffect = 0
Name = "Shape3"
labellabelLabel1Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Table \<2 "
Height = 15
Left = 147
Top = 96
Width = 44
TabIndex = 4
Name = "Label1"
shapeshapeShape1Form1dTop = 101
Left = 10
Height = 175
Width = 118
BackStyle = 0
SpecialEffect = 0
Name = "Shape1"
labellabelLabel7Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Table \<1 "
Height = 15
Left = 18
Top = 96
Width = 44
TabIndex = 1
Name = "Label7"
gridgridGrid1Form1�ColumnCount = 1
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
DeleteMark = .F.
Height = 130
Left = 20
Panel = 1
RecordMark = .F.
RecordSource = "Table1"
RecordSourceType = 1
RowHeight = 16
ScrollBars = 2
TabIndex = 2
Top = 113
Width = 98
Name = "Grid1"
Column1.FontBold = .F.
Column1.FontName = "MS Sans Serif"
Column1.FontSize = 8
Column1.ControlSource = "Table1.Id"
Column1.CurrentControl = "Text1"
Column1.Width = 82
Column1.BackColor = 255,255,255
Column1.Name = "Column1"
headerheaderHeader1Form1.Grid1.Column1LFontName = "MS Sans Serif"
FontSize = 8
Caption = "Id"
Name = "Header1"
textboxtextboxText1Form1.Grid1.Column1�FontName = "MS Sans Serif"
FontSize = 8
BorderStyle = 0
Margin = 0
ColorSource = 3
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
4PROCEDURE Click
THIS.Parent.Parent.Click
ENDPROC
�� ��6v%Xmg�U������UTHISPARENTCLICKClick,��11))�gridgridGrid2Form1�ColumnCount = 1
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
DeleteMark = .F.
Height = 130
Left = 149
Panel = 1
RecordMark = .F.
RecordSource = "Table2"
RecordSourceType = 1
RowHeight = 16
ScrollBars = 2
TabIndex = 5
Top = 113
Width = 98
Name = "Grid2"
Column1.FontBold = .F.
Column1.FontName = "MS Sans Serif"
Column1.FontSize = 8
Column1.ControlSource = "Table2.Id"
Column1.CurrentControl = "Text1"
Column1.Width = 82
Column1.Name = "Column1"
headerheaderHeader1Form1.Grid2.Column1LFontName = "MS Sans Serif"
FontSize = 8
Caption = "Id"
Name = "Header1"
textboxtextboxText1Form1.Grid2.Column1�FontName = "MS Sans Serif"
FontSize = 8
BorderStyle = 0
Margin = 0
ColorSource = 3
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
4PROCEDURE Click
THIS.Parent.Parent.Click
ENDPROC
�� ��6v%Xmg�U������UTHISPARENTCLICKClick,��11))�
commandbutton
commandbutton	cmdTable1Form1�Top = 248
Left = 46
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<New"
TabIndex = 3
Name = "cmdTable1"
IPROCEDURE Click
SELECT Table1
APPEND BLANK
THISFORM.Refresh
ENDPROC
�� ����%d}s�UF���
����UTABLE1THISFORMREFRESHClick,��1qQ�1>)�behindscenes..\solution.vcx
commandbutton
Behindscenes2Form1<Top = 282
Left = 11
TabIndex = 9
Name = "Behindscenes2"
cmdclose..\solution.vcx
commandbutton	Cmdclose3Form1:Top = 282
Left = 367
TabIndex = 10
Name = "Cmdclose3"
�PROCEDURE Click
cmdClose::click
SELECT ids
REPLACE ALL nextid WITH 1
cOldSafe = SET("SAFETY")
SET SAFETY OFF
ZAP IN table1
ZAP IN table2
SET SAFETY &cOldSafe
ENDPROC
[�� BB�%��
��Ui������F��>�����T��C�SAFETYv��G.�S��S��SET SAFETY &cOldSafe
UCMDCLOSECLICKIDSALLNEXTIDCOLDSAFETABLE1TABLE2Click,��1�q�Qa���1�)Bc_solutions..\solution.vcxcustomC_solutions1Form1FTop = 285
Left = 69
Height = 18
Width = 25
Name = "C_solutions1"
gridgridgrdNewIdForm1�ColumnCount = 2
FontName = "MS Sans Serif"
FontSize = 8
DeleteMark = .F.
Height = 50
Left = 277
Panel = 1
ReadOnly = .T.
RecordMark = .F.
RecordSource = "ids"
RecordSourceType = 1
RowHeight = 16
ScrollBars = 0
TabIndex = 8
Top = 113
Width = 138
Name = "grdNewId"
Column1.FontName = "MS Sans Serif"
Column1.FontSize = 8
Column1.ControlSource = ""
Column1.Width = 95
Column1.ReadOnly = .T.
Column1.BackColor = 255,255,255
Column1.Name = "Column1"
Column2.FontName = "MS Sans Serif"
Column2.FontSize = 8
Column2.ControlSource = ""
Column2.Width = 39
Column2.ReadOnly = .T.
Column2.BackColor = 255,255,255
Column2.Name = "Column2"
headerheaderHeader1Form1.grdNewId.Column1^FontName = "MS Sans Serif"
FontSize = 8
Alignment = 2
Caption = "Alias"
Name = "Header1"
textboxtextboxText1Form1.grdNewId.Column1�FontName = "MS Sans Serif"
FontSize = 8
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"
headerheaderHeader1Form1.grdNewId.Column2`FontName = "MS Sans Serif"
FontSize = 8
Alignment = 2
Caption = "Next ID"
Name = "Header1"
textboxtextboxText1Form1.grdNewId.Column2�FontName = "MS Sans Serif"
FontSize = 8
BorderStyle = 0
Margin = 0
ReadOnly = .T.
ForeColor = 0,0,0
BackColor = 255,255,255
Name = "Text1"

commandbutton
commandbutton	cmdTable2Form1�Top = 248
Left = 175
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Ne\<w"
TabIndex = 6
Name = "cmdTable2"
IPROCEDURE Click
SELECT Table2
APPEND BLANK
THISFORM.Refresh
ENDPROC
�� ����%d}s�UF���
����UTABLE2THISFORMREFRESHClick,��1qQ�1>)�shapeshapeShape2Form1bTop = 12
Left = 10
Height = 76
Width = 430
BackStyle = 0
SpecialEffect = 0
Name = "Shape2"
labellabelLabel5Form1�FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "Having an ID field increment automatically is a common need."
Height = 33
Left = 19
Top = 22
Width = 418
TabIndex = 0
Name = "Label5"
labellabelLabel6Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 18
Top = 6
Width = 62
TabIndex = 0
Name = "Label6"
labellabelLabel3Form1FFontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "To append new records to either table, click New.  A stored procedure in the database associated with this form increments the ID number and tracks the IDs in a separate table."
Height = 41
Left = 18
Top = 41
Width = 418
TabIndex = 0
Name = "Label3"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Top = 18
Left = 28
Height = 313
Width = 450
DoCreate = .T.
Caption = "Create a Default Unique ID Value for a Field"
MaxButton = .F.
LockScreen = .F.
HelpContextID = 1231517
Name = "Form1"