翻译：lovem
这个星期我们将给前三篇文章所做的一个数据库下一个最终的结论。我同样会讨论在Director中存储数据的可选择的方法。虽然以前的版本能够列出数据库中的所有项目, 但我们仍然需要它能列出我们所选的项目。当数据库增大时这将变得很重要。我们只需要将现有的代码略作改动就可以很容易的增加一个search功能。以前的listData句柄可以生成一个包含数据库中所有数据的HTML表格。但是当我们在传递一个列表到这句柄中时该告诉它哪些数据该列出来呢。举个例子,如果我们传递数值[1,3]到句柄,那么它将只列出数据库中的第一和第三条记录。同时, 让我们使得listdata的句柄足够强大从而我们不需要再去对它的调用进行任何地修改。如果没有列表被传递到句柄中,它就会假设我们想要列出所有的数据。
下面就是这个新的句柄。除了在声明后的参数列表外;在“--”后新增的几行可以查看是否在注释后面有一个列表。它将首先检查列表的值是不是VOID。如果不是,它就会接着检查数据是否在列表中。如果它不在列表中,那么它就会利用接着的循环来略过这个数据。
-- show entire database in HTML list
on listData list
if gDatabase.count < 1 then
-- if no data yet, then show message instead
member ("list").text = "No data."
else
-- start html code
html = "<HTML><BODY><TABLE BORDER=1><TR>"
-- create headings row
repeat with i = 1 to gDatabase[1].count
put "<TD>" & getPropAt (gDatabase[1], i) & "</TD>" after html
end repeat
put "</TR>" after html
-- put each entry in a row
repeat with m = 1 to gDatabase.count
-- see if there is a list to follow
if not voidP (list) then
-- skip if not in list
if not getOne (list, m) then next repeat
end if
put "<TR>" after html
-- link to edit record
put "<TD><A HREF=』" & i & "』>EDIT</A></TD>" after html
-- put each item in a column
repeat with j = 1 to gDatabase[m].count
put "<TD>" & gDatabase[m][j] & "</TD>" after html
end repeat
put "</TR>" after html
end repeat
-- end html code
put "</TABLE></BODY></HTML>" after html
-- put html into member
member ("list").html = html
end if
go to frame "list data"
end
为了调用这个新的listData句柄,我们首先需要以某种方式建立数据的列表。我在程序的主菜单中加入了一个新的搜索按钮。当用户按下这个按钮后, 就会跳到一个有文本域的“search”帧，在这里，用户需要往文本域里填入搜索的项目。接着他们就可以按下GO按钮来运行搜索句柄。
搜索句柄获得了用户输入的文字并通过在所有的数据域中循环来寻找它。它将使用包含功能来辨别他们是否符合。所以搜索"gar"时会搜索到"gar"或者"gary"。
on search
-- get text to search for
searchText = member ("search text").text
-- init list of found records
list = []
-- loop through all records
repeat with m = 1 to gDatabase.count
-- loop through all fields
repeat with j = 1 to gDatabase[m].count
-- see if the search text was found in the field
if gDatabase[m][j] contains searchText then
-- add record number to list
add list, m
next repeat
end if
end repeat
end repeat
-- only list found records
listData (list)
end
这种搜索方法是比较全面。它将发现记录中的任何字符串。你可能只是想要搜索一个特定的字符串，或者可能是用比较而不是用包含来实现精确的匹配。
搜索的结果将会像是把所有数据都列了出来，除了那些没必要显示出来的数据。这个程序现在是一个拥有全部功能的数据库了。你可以使用这些代码作为建立你自己的特殊的应用程序的基础。然而,如果你准备存储很多数据，我将给你一些让你更好地储存它们的建议。
过去我曾经成功使用过的一种方法是：每个数据存储在它自己的文本成员里，然后我使用一个外部的成员库来作为数据库,这样每个号码都被记录了。你也可以在每个成员里储存一个改变过的字符串列表, 或者用数据的号码对应的那一行来记录数据。如果你对分列的字符感到满意的话, 你可以生成你自己的置标语言并以它们各自的文本成员来储存数据，或者, 你甚至可以用XML插件来储存XML数据,但是我没有尝试过它。