⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 builderb.htm

📁 MSComm控件资料,Visual Basic 6.0(以下简称VB) 是一种功能强大、简单易学的程序设计语言。它不但保留了原先Basic语言的全部功能
💻 HTM
字号:
🔍 
<HTML>
<HEAD>
<TITLE>BuilderB</TITLE>
</HEAD>
<BODY BACKGROUND="brickwal.gif" BGCOLOR="silver">
{{>GenBuilder}}
</BODY>
</HTML>

<SCRIPT LANGUAGE="VFPS">

SET LIBRARY TO (HOME()+"FoxTools.fll") ADDITIVE
oTHIS.RunScript("OpenBuilderBTable")
oTHIS.AddProp(oTHIS.oHost,"oBuilder",CREATEOBJECT("Custom"))
oTHIS.oHost.oBuilder=CREATEOBJECT("Custom")
oTHIS.AddProp(oTHIS.oHost.oBuilder,"cLastBuilderObjName","")
oTHIS.RunScript("SetSelectedObject")
oTHIS.AddProp(oTHIS.oHost.oBuilder,"lSource",TYPE("oTHIS.oSource")=="O" AND NOT ISNULL(oTHIS.oSource))
IF oTHIS.oHost.oBuilder.lSource
	oTHIS.oHost.oBuilder.cLastBuilderObjName=oTHIS.oSource.Name
ENDIF

FUNCTION OnActivate
oTHIS.RunScript("Refresh")
IF oTHIS.oHost.oBuilder.lSource=(TYPE("oTHIS.oSource")=="O" AND NOT ISNULL(oTHIS.oSource))
	IF oTHIS.oHost.oBuilder.lSource AND oTHIS.oHost.oBuilder.cLastBuilderObjName==oTHIS.oSource.Name
		oTHIS.RunScript("RefreshData")
	ELSE
		IF NOT EMPTY(oTHIS.oHost.oBuilder.cLastBuilderObjName)
			oTHIS.Refresh2
		ENDIF
	ENDIF
ELSE
	oTHIS.Refresh2
ENDIF
ENDFUNC

FUNCTION Refresh
oTHIS.RunScript("SetSelectedObject")
ENDFUNC

FUNCTION SetSelectedObject
oTHIS.oSource=.NULL.
DIMENSION paSelObj[1]
pnSelObj=ASELOBJ(paSelObj)
IF pnSelObj=0
	pnSelObj=ASELOBJ(paSelObj,1)
	oTHIS.oSource=paSelObj[1]
ELSE
	IF pnSelObj=1
		oTHIS.oSource=paSelObj[1]
	ENDIF
ENDIF
ENDFUNC

FUNCTION GenBuilder
DO (oTHIS.cFilePath+"BldrWeb.prg")
ENDFUNC

FUNCTION OpenBuilderBTable
oTHIS.OpenTable(oTHIS.cFilePath+"BuilderB","BuilderB",,"NOT DELETED()")
ENDFUNC

</SCRIPT>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -