《网址智能收藏家》开发研究

1、网址智能收藏家开发研究作者：晋元高级中学 熊碌指导教师 ：袁峻【关键词】 收藏夹 网址簿 数据库技术 【摘 要】 收藏的网站地址太多时，用浏览器中收藏夹就不太方便了。本文对自主开发的一个网址智能收藏家的功能和实现作了介绍。该收藏家既能以树形目录方式管理网址和Email地址，还能作为一个导航器直接与浏览器或OutLook关联，还能作智能搜索。一、 选题目的经常上网的朋友手中恐怕都收集了不少的网站地址，管理这些地址最通常的办法就是浏览器中的收藏夹。如果地址不多，倒也十分管用，但如果收藏比较丰富时（网虫们从不拒绝知道更多的地址的，每一个地址仿佛都埋藏着巨大的宝藏一样！），收藏夹就太长了，或者建立子文

2、件夹，但嵌套太多，使用起来总是不那么方便。收藏夹不能一下全部展开，要找一个地址就要逐项点按菜单项，耽误不少时间，对网虫来说，时间又是那么宝贵！因此笔者设计了一个的网址管理器，可以建立和管理自己的网址收藏，既可以直接编排，使网址排列得井井有条，又可兼做一个地址导航器，停留在窗口最上层或隐藏在状态栏上，十分好用，它不仅可以管理网站地址，而且还可以管理Email地址，通讯簿或者可运行程序等其它内容，还可进行智能搜索与自动分类。二、 开发环境硬件：PIII+64MB RAM 软件：WINDOWS98SE，VB 5 ACCESS 97三、 开发过程我选择了VB作为开发语言，选择ACCESS97作为数据库

3、平台。1数据库设计数据库共有四个表l ADDRESS：E-MAIL地址簿 有姓名，E-MAIL，电话，通讯地址四个字段l TYPELIST ：类型列表有BOOK，TYUPE两个字段 l WEB：初始化数据库l WEBSITE：网址数据库有名称，网址，类型，备注，MYFAV五个字段2系统主要功能网络地址簿是由两个文件组成的，下面会介绍。在运行程序后面跟一个缺省的地址簿文件（带路径），一打开就会出现这个地址簿内容。显示窗口由工具条，地址栏，地址簿和关联地址编辑框组成。工具条中的按钮依次是“新建网址簿”，“打开网址簿”（你当然需要多个网络地址簿，地址太多了吗！），“展开”和“收拢”地址簿以及新建节点

4、，新建子节点和“退出”按钮；这里的关闭或退出是把程序最小化放入状态栏中，点按图标即恢复显示。用右键点图标出现弹出菜单，其中的退出才是真正的退出。下拉框和浏览器中的地址栏功能一样，可以直接输入网站地址，也可从列表中选择，列表中的内容是直接从浏览器中地址栏的历史内容拿过来的；中间是地址簿显示区。不同的节点用不同的图标来表示：目录用“书"，网站地址用地球，Email地址用信封。用鼠标点中任意节点，其关联的内容在最下面的编辑框中显示：目录关联内容为空，网站地址关联为一个URL地址，而Email节点关联一个Email地址（地址前要加上'mailto:'）。在编辑框中，您只要更改

5、对应的内容，当前节点随时会成为目录或地址节点。更改节点名时，只要选中一个节点，然后再在该节点上按一下鼠标（注意不是双击！），节点名就呈可编辑方式，修改完回车或把焦点移动到别处即可。点按目录节点前的+/-，可展开或收拢该目录，双击地址节点则开始浏览该网站或者进入Outlook编写邮件（如果浏览器没有运行，则自动启动运行）。可用Drag/Drop方式任意编排各节点的位置关系。鼠标右键的弹出菜单中，包括"添加新节点(Ins)"，“添加新子节点(Ctrl+Ins)”，“删除节点(Del)”等功能。选择相应的菜单项或用热键，即在当前所选中的节点下，完成相应操作。3编程 程序代码较长，

6、现举以下几段以说明。l 打开网址簿 Private Sub Form_Load()On Local Error Resume NextFormIsLoading = TrueCall LoadINISettingsCall LoadSkins(Me, True)Call SetColors(Me)'Load All Available Skin Schemes.If App.PrevInstance Then Exit SubIf InStr(text1, "'") Then MsgBox "input again" text1.Text

7、 = "" Exit SubEnd IfIf Right(App.Path, 1) <> "" ThenWith Datlist .DatabaseName = App.Path & "db2.mdb" .Connect = "pwd="End WithSet DB = OpenDatabase(App.Path & "db2.mdb", False, False) strSQl = "SELECT 名称,网址,备注 FROM web" '

8、strSQl = strSQl & " WHERE 类型 LIKE '*" & text1.Text & "*'" & "OR 名称 LIKE '*" & text1.Text & "*' " Datlist.RecordSource = strSQlDatlist.RefreshEnd IfsControlSelected = "Label"'Form Coordinates.Me.Width = 7500

9、Me.Height = 4505iDirty = FalseFormIsLoading = FalseEnd Subl 浏览网址簿Private Sub brows_Click() '浏览网页Dim lngCount As Integer If InStr(Datlist.RecordSource, "website") > 0 Then With Datlist.Recordset If Not .EOF And Not .BOF Then If Left(!网址, 7) = "http:/" Then lngCount = ShellE

10、xecute(Me.hwnd, "Open", _ !网址, "", App.Path, 1) Else lngCount = ShellExecute(Me.hwnd, "Open", _ "http:/" & !网址, "", App.Path, 1) End If End If End With End IfEnd Subl 查询网址 Private Sub lblWindowsColors_Click()Dim RS As Recordset'List1.Clear If

11、 text1.Text = "" Then Exit SubIf App.PrevInstance Then Exit SubIf InStr(text1, "'") Then MsgBox "input again" text1.Text = "" Exit SubEnd IfIf Right(App.Path, 1) <> "" ThenWith Datlist .DatabaseName = App.Path & "db2.mdb" .Con

12、nect = "pwd="End WithSet DB = OpenDatabase(App.Path & "db2.mdb", False, False) strSQl = "SELECT 名称,网址,备注,myfav FROM website" strSQl = strSQl & " WHERE 类型 LIKE '*" & text1.Text & "*'" & "OR 名称 LIKE '*" & t

13、ext1.Text & "*' " 'Set RS = DB.OpenRecordset(strSQl) Datlist.RecordSource = strSQlDatlist.RefreshListTree' SetDbg 3, "website "Else Set DB = OpenDatabase(App.Path & "db2.mdb") strSQl = "SELECT * FROM website" strSQl = strSQl & " WH

14、ERE 类型 LIKE '*" & text1.Text & "*'" & "OR 名称 LIKE '*" & text1.Text & "*' " 'Set RS = DB.OpenRecordset(strSQl) Datlist.RecordSource = strSQl Datlist.Refresh If Not (RS.BOF And RS.EOF) Then Do While Not RS.EOF 'depends on the kind of view 'List1.AddItem RS.Fields(1).Value 'RS.MoveNext Loop End IfEnd IfOn Local E