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

,�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentLLeft = 251
Top = 242
Width = 520
Height = 200
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1$Height = 311
Width = 334
DoCreate = .T.
Caption = "Generate HTML"
Visible = .T.
HelpContextID = 217
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 276
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 276
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 8
Behindscenes1.ZOrderSet = 1
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 312
Shape2.ZOrderSet = 2
Shape2.Name = "Shape2"
Label1.Caption = "You can use HTML classes for creating web pages from your data, forms and reports. Pick a table below and select various options to see some of the available output possible."
Label1.Height = 43
Label1.Left = 24
Label1.Top = 24
Label1.Width = 288
Label1.TabIndex = 9
Label1.ZOrderSet = 3
Label1.Name = "Label1"
Label4.Left = 18
Label4.Top = 5
Label4.TabIndex = 11
Label4.ZOrderSet = 4
Label4.Name = "Label4"
Cmdclose1.Top = 276
Cmdclose1.Left = 252
Cmdclose1.TabIndex = 10
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"
�PROCEDURE navigate
LPARAMETERS tcURL
IF VARTYPE(THIS.oWebForm)#"O"
	THIS.oWebForm = NewObject("_webform",HOME()+"Gallery\_webview.vcx")
ENDIF
THIS.oWebForm.oleWebBrowser.Navigate(tcURL)
THIS.oWebForm.Show()
ENDPROC
PROCEDURE Resize
THIS._Resize.AdjustControls()
ENDPROC
PROCEDURE Destroy
IF VARTYPE(THIS.oWebForm)="O"
	THIS.oWebForm.Release()
ENDIF
DODEFAULT()
ENDPROC
G�� ..�y%t���U����%�C�����O��U�6T���C�_webformC�Q�Gallery\_webview.vcx������C���������C�����UTCURLTHISOWEBFORM
OLEWEBBROWSERNAVIGATESHOW��C�����UTHIS_RESIZEADJUSTCONTROLS8%�C�����O��(���C������	��C��UTHISOWEBFORMRELEASEnavigate,��Resize���Destroy��1q�aAq22�A�1��	
,w).owebform
*navigate 

_resizable..\..\..\ffc\_controls.vcxcustom_resizeFrmsolution1(Top = 276
Left = 72
Name = "_resize"
	_dbf2html..\..\..\ffc\_internet.vcxcustom	_dbf2htmlFrmsolution1*Top = 276
Left = 96
Name = "_dbf2html"

commandbutton
commandbuttoncmdDataFrmsolution1�Top = 84
Left = 12
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Data..."
TabIndex = 1
ZOrderSet = 8
Name = "cmdData"
PROCEDURE Click
#DEFINE SELECT_LOC	"Select a Source Table to Generate HTML"
LOCAL lcSourceFile,lcOutFile
lcSourceFile= GETFILE("DBF","","",0,SELECT_LOC)
IF !FILE(lcSourceFile) OR !UPPER(JUSTEXT(lcSourceFile))="DBF"
	RETURN
ENDIF
THISFORM.txtData.Value = lcSourceFile

ENDPROC
u�� \\�%��U�����DT��C�DBF����&Select a Source Table to Generate HTML���$%�C�0
�CC���f�DBF
��w�B��T�������ULCSOURCEFILE	LCOUTFILETHISFORMTXTDATAVALUEClick,��1�AAAA12)\optiongroupoptiongroup	opgSourceFrmsolution1bButtonCount = 2
Value = 1
Height = 52
Left = 12
Top = 204
Width = 108
TabIndex = 5
ZOrderSet = 9
Name = "opgSource"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.Caption = "Da\<ta"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Style = 0
Option1.Top = 11
Option1.Width = 50
Option1.AutoSize = .F.
Option1.Name = "Option1"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.Caption = "\<Report"
Option2.Height = 17
Option2.Left = 5
Option2.Style = 0
Option2.Top = 28
Option2.Width = 50
Option2.AutoSize = .F.
Option2.Name = "Option2"
�PROCEDURE Click
THISFORM.opgTableStyle.Option1.Enabled = (THIS.Value = 1)
THISFORM.opgTableStyle.Option2.Enabled = (THIS.Value = 1)

ENDPROC
)�� "g%����U?T����������T����������UTHISFORM
OPGTABLESTYLEOPTION1ENABLEDTHISVALUEOPTION2Click,��1��2�)optiongroupoptiongroupopgScopeFrmsolution1aButtonCount = 2
Value = 1
Height = 52
Left = 132
Top = 132
Width = 96
TabIndex = 4
ZOrderSet = 10
Name = "opgScope"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.Caption = "\<All"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Style = 0
Option1.Top = 11
Option1.Width = 47
Option1.AutoSize = .F.
Option1.Name = "Option1"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.Caption = "\<Single"
Option2.Height = 17
Option2.Left = 5
Option2.Style = 0
Option2.Top = 28
Option2.Width = 47
Option2.AutoSize = .F.
Option2.Name = "Option2"
textboxtextboxtxtdataFrmsolution1nEnabled = .F.
Height = 25
Left = 96
TabIndex = 2
Top = 84
Width = 228
ZOrderSet = 11
Name = "txtdata"
optiongroupoptiongroup
opgTableStyleFrmsolution1gButtonCount = 2
Value = 1
Height = 52
Left = 132
Top = 204
Width = 96
TabIndex = 6
ZOrderSet = 12
Name = "opgTableStyle"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.Caption = "\<List"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Style = 0
Option1.Top = 11
Option1.Width = 45
Option1.AutoSize = .F.
Option1.Name = "Option1"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.Caption = "D\<etail"
Option2.Height = 17
Option2.Left = 5
Option2.Style = 0
Option2.Top = 28
Option2.Width = 45
Option2.AutoSize = .F.
Option2.Name = "Option2"

commandbutton
commandbuttoncmdGoFrmsolution1�Top = 132
Left = 252
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Go"
TabIndex = 7
ZOrderSet = 13
Name = "cmdGo"
�PROCEDURE Click
LOCAL lcSourceFile,lcOutFile,loObjRef

lcSourceFile= ALLTRIM(THISFORM.txtData.Value)
IF !FILE(lcSourceFile)
	RETURN
ENDIF
lcOutFile = FORCEEXT(lcSourceFile,"HTM")

IF THISFORM.opgSource.Value = 1
	loObjRef = THISFORM._DBF2HTML
ELSE
	loObjRef = THISFORM._FRX2HTML
ENDIF

WITH loObjRef 
	.cSource = lcSourceFile
	.cOutFile = SYS(2023)+"\"+lcOutFile
	.nGenOutput = IIF(THISFORM.opgOutput.Value=2,1,0)
	.cStyle = IIF(THISFORM.opgtableStyle.Value=1,"","DetailTable")
	.cScope = IIF(THISFORM.opgScope.Value=1,"","NEXT 1")
	.GenHTML()
ENDWITH

IF THISFORM.opgOutput.Value = 1
	THISFORM.Navigate(lcOutFile)
ENDIF

ENDPROC
 �� L�%���U������T��C������%�C�0
��8�B��T��C��HTM���%�������y�T���������T�������
�����X�T�	����T�
�C��]�\���&T��C��������6��1T�
�C��������DetailTable6��,T��C�������	�NEXT 16����C�����%�����������C������ULCSOURCEFILE	LCOUTFILELOOBJREFTHISFORMTXTDATAVALUE	OPGSOURCE	_DBF2HTML	_FRX2HTMLCSOURCECOUTFILE
NGENOUTPUT	OPGOUTPUTCSTYLE
OPGTABLESTYLECSCOPEOPGSCOPEGENHTMLNAVIGATEClick,��1�RAAar�A���a��ArA2�)optiongroupoptiongroup	opgOutputFrmsolution1iButtonCount = 2
Value = 1
Height = 52
Left = 12
Top = 132
Width = 108
TabIndex = 3
ZOrderSet = 14
Name = "opgOutput"
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.Caption = "\<Browser"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Style = 0
Option1.Top = 11
Option1.Width = 69
Option1.AutoSize = .F.
Option1.Name = "Option1"
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.Caption = "\<View Code"
Option2.Height = 17
Option2.Left = 5
Option2.Style = 0
Option2.Top = 28
Option2.Width = 69
Option2.AutoSize = .F.
Option2.Name = "Option2"
	_frx2html..\..\..\ffc\_internet.vcxcustom	_frx2htmlFrmsolution1+Top = 276
Left = 120
Name = "_frx2html"
labellabelLabel6Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Output format"
Height = 15
Left = 21
Top = 125
Width = 66
TabIndex = 12
ZOrderSet = 16
Name = "Label6"
labellabelLabel5Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Table style"
Height = 15
Left = 140
Top = 197
Width = 53
TabIndex = 13
ZOrderSet = 17
Name = "Label5"
labellabelLabel3Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Source type"
Height = 15
Left = 20
Top = 197
Width = 59
TabIndex = 14
ZOrderSet = 18
Name = "Label3"
labellabelLabel2Frmsolution1�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Record scope"
Height = 15
Left = 139
Top = 125
Width = 69
TabIndex = 15
ZOrderSet = 19
Name = "Label2"
JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
(Height = 311
Width = 334
DoCreate = .T.
Caption = "Generate HTML"
Visible = .T.
HelpContextID = 1231603
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 276
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 276
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 8
Behindscenes1.ZOrderSet = 1
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 312
Shape2.ZOrderSet = 2
Shape2.Name = "Shape2"
Label1.Caption = "You can use HTML classes for creating web pages from your data, forms and reports. Pick a table below and select various options to see some of the available output possible."
Label1.Height = 43
Label1.Left = 24
Label1.Top = 24
Label1.Width = 288
Label1.TabIndex = 9
Label1.ZOrderSet = 3
Label1.Name = "Label1"
Label4.Left = 18
Label4.Top = 5
Label4.TabIndex = 11
Label4.ZOrderSet = 4
Label4.Name = "Label4"
Cmdclose1.Top = 276
Cmdclose1.Left = 252
Cmdclose1.TabIndex = 10
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"