基于数据库的表单设计程序实现超级链接控件与互联网对

摘  要：数据库中所提供的各种有效控件，实现超级链接控件与互联网对接。
关键词：超级链接；事件代码；表单设计器
        利用超级链接控件可以巧妙地实现表单程序与互联网网站的对接。可以先制作一个简单例子：建立表单程序与大庆职业学院网站的对接。操作步骤如下：
        （1）新建一表单并命名。
        （2）在表单上添加超级链接控件和命令按钮控件各一个。
        （3）命令按钮Command1的Caption属性设置为：大庆职业学院，添加合适的背景颜色。表单背景随意设置。表单标题更改为：“互联网站点访问。”
        （4）添加代码（也是制作的最关键步骤）：
        Command1的Click事件代码编写如下：
        Thisform.hyperlink1.navigeteto（"http：//www.dqzyxy.net"）。
        （5）保存并运行表单。使用ctrl+E执行即可实现表单程序与互联网对接。同样，如果建立表单程序与其他网站的超级链接及同时与多个网站建立超级链接访问，步骤和上面相似。
        下面再看一个综合性的例子：超级链接控件（HyperLink）不象文本框、命令按钮等控件那样常用，一般是在制作软件的“关于”表单的时候能够用到它。这个控件的最常用的方法是NavigateTo（指定要打开的网址），本文来做一个关于这个控件的例子
        制作步骤如下：
        （1）新建表单，将其Autocenter属性值设置为.t.，保存为“表单1.scx”。
        （2）向表单添加一个标签控件label1，caption属性值设为“编程入门网”，fontbold属性值设为.t.，fontsize属性值设为12，forcolor属性值设置为“0,0,255”（rgb颜色）。
        （3）向表单上添加一个命令按钮控件command1，caption属性值设为“关于本站”。
        （4）向表单上添加一个标签控件label2，caption属性值设为“访问指定网站”。
        （5）向表单添加一个列表框控件list1，采用其默认属性值。
        （6）适当调整控件、大小及在表单上的位置。
        （7）添加事件代码：
        a.表单的load事件代码：（form1的load事件）
        declare integer ShellAbout in Shell32.dll long hwnd,string szApp,string szOtherStuff,;
        long hIcon &&声明API函数
        set library to “foxtools.fll” &&载入vfp的Fll库
        b.表单（form1）的init事件代码：
        this.AddObject（"Hyperlink1"，"HyperLink"）
        &&这是添加,若以后要移去它可用RemoveObject（"Hyperlink1"）
        this.list1.additem（"MSDN"）
        this.list1.additem（"CSDN"）
        this.list1.additem（"Yesky"）
        this.list1.additem（"小小鸟"）
　　[8]电大学习网.免费论文网[EB/OL]. /d/file/p/2024/0424/fontbr />
        c.“编程入门网”标签label1的click事件代码：thisform.HyperLink1.NavigateTo（"www.bianceng.cn"）
        d.“关于本站”命令按钮command1的click事件代码：
        hwnd=_WhToHwnd（_Wontop（））
        =shellAbout（hWnd,"编程入门网","欢迎访问网站：",0）
        e.列表框控件list1的click事件代码：
        do case this.listindex
        case this.selected（1）&&访问微软MSDN主页
        thisform.Hyperlink1.NavigateTo（"msdn.microsoft.com"）
        case this.selected（2）&&访问CSDN网站
        thisform.Hyperlink1.NavigateTo（"www.csdn.net"）
        case this.selected（3）&&访问天极
        thisform.Hyperlink1.NavigateTo（"www.yesky.com"）
        case this.selected（4）&&访问编程入门网
        thisform.Hyperlink1.NavigateTo（"www.bianceng.cn"）
        endcase　
        （8）运行“表单1.scx”。（可用快捷键ctrl+E）
        总而言之，超级链接功能可以使程序具备直接访问的能力，不少优秀的软件都提供直接访问Internet的功能。如金山词霸2000在它的系统桌面上提供互联网资源；其应用程序在其帮助菜单中提供MicrosoftontheWeb，这都是在系统内部直接访问Internet的典型例子。
        为了在应用程序中实现直接访问Internet功能，只要能在程序中控制启动Internet浏览器即可。在Visual foxpro6.0（以下简称VFP6.0）中，我们可以很容易地实现这一功能，这要使用VFP6.0的“超级链接”控件。
        下面给出一个用命令按钮来启动超级链接。
        （1）新建一个表单（Form1），属性设置如下：
        AutoCenter=.T.
        Caption=”在表单中使用超级链接”
        （2）通过表单控制工具栏在Form1上添加一个超级链接控件（Hyperlink1）和一个命令按钮Command1，设置Command1的Caption属性为：“链接到计算机世界网站”。
        （3）在Command1的ClickEvent事件中写入代码：ThisForm.HyperLink1.NavigateTo
        （4）保存表单Form1，然后运行这个表单，当单击“链接到计算机世界网站”这个命令按钮时，就会启动Internet浏览器并直接链接到站点。首先设置一个菜单选项，然后为这个菜单选项创建一个过程，写入以下代码即可：
        在_SCREEN中添加一个HyperLink对象
        _SCREEN.AddObject
        链接到http://www.qlsh.net地址
        _SCREEN.oAppHyperLink.NavigateTo
　　[8]电大学习网.免费论文网[EB/OL]. /d/file/p/2024/0424/fontbr />
        移去oAppHyperLink对象
        _SCREEN.RemoveObject
        RETURN
        用VFP6.0开发的应用程序中，使用“超级链接”控件可以方便地跳转到Internet或Intranet的一个目标地址上。只要运行这个程序的客户端Internet浏览器（例如：MicrosoftInternet），并且具备访问Internet的条件，那么“超级链接”对象就会自动启动浏览器并打开地址中指定的页面。
参考文献
[1]何安东，程显林.数据库系统及应用教程[M].北京：石油工业出版社.
　　[8]电大学习网.免费论文网[EB/OL]. /d/file/p/2024/0424/fontbr />