如何在VF表单中建立超级链接？

在表单中实现超级链接
在表单上添加一个“超级链接”控件，然后再添加一个命令按钮，在命令按钮的 Click 事件中，通过调用“超级链接”控件的NavigateTo方法来启动Internet浏览器并实现向目标地址的跳转。也可以通过一个或一个标签的Click事件来实现这种跳转。
下面给出一个用命令按钮来启动超级链接的实例：
1新建一个表单（Form1），属性设置如下：
AutoCenter = T
Caption=″在表单中使用超级链接″
2通过表单控制工具栏在Form1上添加一个超级链接控件（Hyperlink1）和一个命令按钮Command1 ，设置Command1的Caption属性为“链接到中国计算机报网站”。
3在Command1的Click Event事件中写入代码：
ThisFormHyperLink1NavigateTo

你新建一个表单，在上面如图添加三个标签，其Caption属性分别设置为：半径、面积、周长。再添加三个文本框Text1、Text2、Text3，其Value属性都设置为0。再添加三个命令按钮，其Caption属性分别是：面积、周长、退出。控件位置和图上一致。
你双击面积按钮，在其Click事件中输入代码：
r=thisformtext1value
s=pi()rr
thisformtext2value=s
你双击周长按钮，在其Click事件中输入代码：
r=thisformtext1value
s=2pi()r
thisformtext3value=s
你双击退出按钮，在其Click事件中输入代码：
thisformrelease

运行一下就行了。OK！

首先要有一个表
tabiddbf
用于存放用户名和密码，至少有“用户名”和“密码”两个字段。
设计一个登录表单，至少有两个文本框分别为text1
(用于填写用户名)和text2(用于填写密码)。至少有二个命令按钮command1(确定)和command2(取消)
再有，本人习惯添加一个标签控件
label1,并设其
Caption
初始值为“0”
command1的代码如下
设置用户名不能为空，如允许为空则不需此步骤
If
Len(Alltrim(Thisformtext1Value))=0
Messagebox('请输入用户名！')
Return
Endif
设置密码不能为空，如允许为空则不需此步骤
If
Len(Alltrim(Thisformtext2Value))=0
Messagebox('请输入密码！')
Return
Endif
Use
tabidDbf
In
0
Locate
For
Alltrim(用户名)==Alltrim(Thisformtext1Value)
&&定位到与输入用户名相同的记录
如果没有找到相同记录时执行下面代码
If
Eof()
Use
Messagebox('没有此用户！')
Thisformtext1Value=''
Thisformtext2Value=''
Thisformtext1SetFocus
Thisformlabel1Caption=Alltrim(Str(Val(Thisformlabel1Caption)+1))
&&累计出错的次数
If
Thisformlabel1Caption='3'
&&出错三次后自动退出
Messagebox('连续三次输入错误，系统将退出！')
Use
Quit
Endif
Return
ENDIF
找到后执行的动做
If
Alltrim(Thisformtext2Value)==Alltrim(密码)
Use
在这里添加在正确登录后你要继续执行的程度
Else
Use
Messagebox('密码错误！')
Thisformtext2Value=''
Thisformtext2SetFocus
Thisformlabel1Caption=Alltrim(Str(Val(Thisformlabel1Caption)+1))
If
Thisformlabel1Caption='3'
&&出错三次后自动退出
Messagebox('连续三次输入错误，系统将退出！')
Use
Quit
Endif
Return
ENDIF
没做测试。为使代码在帖子里美观，句首加入了全角空格，所以不能直接复制代码。请高手指正！

---