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

摘  要：数据库中所提供的各种有效控件，实现超级链接控件与互联网对接。
关键词：超级链接；事件代码；表单设计器
        利用超级链接控件可以巧妙地实现表单程序与互联网网站的对接。可以先制作一个简单例子：建立表单程序与大庆职业学院网站的对接。操作步骤如下：
        （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（"小小鸟"）