44.asp

来自「ASPWeb数据库范例总览」· ASP 代码 · 共 702 行 · 第 1/2 页

End Sub</P>

<P><FONT COLOR="#008000">　 </FONT></P>

<P><FONT COLOR="#008000">' Form2 模 组 <BR>
</FONT>Sub SubY()<BR>
<B>　 　 Form1.</B>x = <B>Form1.</B>x + 100 <BR>
End Sub</P>

<P>　 </P>
</DIR>
</DIR>

<P>由 於 Form2 模 组 使 用 的 是 Form1 模 组 的 全 域 变 数 ， 所 以 必
须 在 变 数 之 前 冠 上「Form1.」。 </P>

<P>　 </P>

<P><FONT COLOR="#0000FF"><FONT SIZE=+1>专 案 全 域 变 数 </FONT></FONT></P>

<P>　 </P>

<P>在 一 般 模 组 中 ， 如 果 我 们 利 用 <B>Public</B> 保 留 字 来 宣
告 全 域 变 数 ， 则 此 一 变 数 为「专 案」全 域 变 数 。 所 谓 专 案
全 域 变 数 ， 指 的 是 同 一 专 案 中 ， 所 有 模 组 的 所 有 程 序 均
可 使 用 的 变 数 ， 因 此 以 这 种 方 式 所 宣 告 的 变 数 其 活 动 范
围 将 扩 及 整 个 专 案 。 </P>

<P>　 </P>

<P>最 後 我 们 以 一 个 实 例 来 整 理 以 上 各 种 变 数 在 程 式 中 的
活 动 范 围 ， 假 设 专 案 中 有 含 有 两 个 表 单 模 组 ─ Form1、 Form2
及 一 个 一 般 模 组 Module1， 而 这 几 个 模 组 中 的 所 宣 告 的 变 数
如 下 ： </P>

<P>　 </P>

<CENTER><TABLE BORDER=1 CELLSPACING=0 WIDTH="461" >
<TR>
<TD WIDTH="33%" VALIGN="TOP"><B><U>Form1</U></B> 
<P>Private <B>A1<BR>
</B>Dim <B>A2<BR>
</B>Public <B>A3<BR>
</B>Sub <B>SubX1</B>()<BR>
Dim <B>A4<BR>
</B>End Sub<BR>
Sub <B>SubX2</B>()<BR>
Dim <B>A5<BR>
</B>End Sub</P>
</TD>

<TD WIDTH="33%" VALIGN="TOP"><B><U>Form2</U></B> 
<P>Private <B>B1<BR>
</B>Dim <B>B2<BR>
</B>Public <B>B3<BR>
</B>Sub <B>SubY1</B>()<BR>
Dim <B>B4<BR>
</B>End Sub<BR>
Sub <B>SubY2</B>()<BR>
Dim <B>B5<BR>
</B>End Sub</P>
</TD>

<TD WIDTH="33%" VALIGN="TOP"><B><U>Module1</U></B> 
<P>Private <B>C1<BR>
</B>Dim <B>C2<BR>
</B>Public <B>C3<BR>
</B>Sub <B>SubZ1</B>()<BR>
Dim <B>C4<BR>
</B>End Sub<BR>
Sub <B>SubZ2</B>()<BR>
Dim <B>C5<BR>
</B>End Sub</P>
</TD>
</TR>
</TABLE></CENTER>

<P>　 </P>

<P>则 这 些 变 数 在 几 个 副 程 式 中 的 可 使 用 性 如 下 表 ： (「ˇ
」符 号 表 示 可 使 用 、「F1」表 示 必 须 冠 上「Form1.」才 可 以 使 用
、「F2」表 示 必 须 冠 上「Form2.」才 可 以 使 用 ， 空 白 者 表 示 不
可 使 用 )</P>

<P>　 </P>

<CENTER><TABLE BORDER=1 CELLSPACING=0 WIDTH="389" >
<TR BGCOLOR="#00FFFF">
<TD WIDTH="13%" VALIGN="TOP"><FONT SIZE=-1>副 程 式 </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>A1</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>A2</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>A3</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>A4</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>A5</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>B1</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>B2</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>B3</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>B4</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>B5</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>C1</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>C2</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>C3</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>C4</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>C5</FONT></TD>
</TR>

<TR>
<TD WIDTH="13%" VALIGN="TOP"><FONT SIZE=-1>SubX1</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>F2</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>
</TR>

<TR>
<TD WIDTH="13%" VALIGN="TOP"><FONT SIZE=-1>SubX2</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>F2</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>
</TR>

<TR>
<TD WIDTH="13%" VALIGN="TOP"><FONT SIZE=-1>SubY1</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>F1</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>
</TR>

<TR>
<TD WIDTH="13%" VALIGN="TOP"><FONT SIZE=-1>SubY2</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>F1</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>
</TR>

<TR>
<TD WIDTH="13%" VALIGN="TOP"><FONT SIZE=-1>SubZ1</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>F1</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>F2</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>
</TR>

<TR>
<TD WIDTH="13%" VALIGN="TOP"><FONT SIZE=-1>SubZ2</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>F1</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>F2</FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>

<TD WIDTH="6%" VALIGN="TOP">　 </TD>

<TD WIDTH="6%" VALIGN="TOP"><FONT SIZE=-1>ˇ </FONT></TD>
</TR>
</TABLE></CENTER>

<P>　 </P>

<P><FONT COLOR="#0000FF"><FONT SIZE=+1>物 件 的 活 动 范 围 </FONT></FONT></P>

<P>　 </P>

<P>物 件 按 性 质 可 分 成 控 制 元 件 、 表 单 物 件 、 及 一 般 物 件
三 种 ， 其 中 一 般 物 件 与 变 数 一 样 ， 可 分 成 区 域 物 件 、 静
态 物 件 、 及 全 域 物 件 三 种 ， 活 动 范 围 也 与 变 数 一 样 ， 以
下 让 笔 者 来 说 明 控 制 元 件 与 表 单 的 活 动 范 围 。 </P>

<P>　 </P>

<P>控 制 元 件 的 活 动 范 围 与 表 单 完 全 相 同 ， 当 表 单 被 载 入
时 ， 表 单 上 的 控 制 元 件 即 會 被 载 入 ， 当 表 单 被 载 出 时 ，
控 制 元 件 即 會 被 载 出 ， 若 与 变 数 做 比 较 ， 则 与 全 域 变 数
的 活 动 范 围 完 全 相 同 。 </P>

<P>　 </P>

<P>由 於 表 单 中 全 域 (静 态 )变 数 及 控 制 元 件 的 诞 生 (灭 亡 )取
决 於 表 单 的 载 入 (载 出 )， 因 此 我 们 必 须 特 别 注 意 表 单 载
入 与 载 出 的 时 机 。 导 致 表 单 被 载 入 的 叙 述 有「Load 表 单 名」、「表
单 .Show」、 及「使 用 表 单 的 属 性 、 全 域 变 数 、 控 制 元 件」叙
述 ； 至 於 表 单 被 载 出 的 情 况 则 有「Unload 表 单