二. 查询系统的制作
1. 制作从键盘输入记录号，可查询到该人的档案记录。
①制作查询窗口。步骤为：鼠标点按Window图标，新建一窗口，在窗口中，添加一个DataWindow控件，在DataWindow控件上按鼠标右键，选择并单击Properties快捷菜单项，在在Datawindow object name旁按Browse按钮，选择装入前面制作的aaa数据窗口，调整好窗口的大小，再在窗口上放一SingleLineEdit控件，和一CommandButton按钮控件，点中按钮控件并按右键选择Properties ，将其显示文本修改为"查询"，按钮名称仍为cb_1，点中按钮控件并按右键选择Script…，输入以下脚本
dw_1.settransobject(sqlca)
dw_1.retrieve(sle_1.text)
关闭并保存，按Save图标保存该窗口，窗口取名为aaa，
②将查询窗口连接入test应用程序内。点按Application图标，出现test应用程序，双击test，出现名为w_genapp_frame的窗口图标，这是应用程序为我们提供的主窗口的名字，点按w_genapp_frame不放按右键选edit，出现该主窗口，将一按钮控件放入该窗口，按钮显示的文本可改为"唯一查询"，也可省略不改，点中该按钮控件并按右键选择Script…，输入：open(aaa)，保存。点按Application图标，再按script图标，出现应用程序的自动生成的主体脚本，部分内容如下，它的任务是将数据库初始化，相当于win.ini。假若不要应用程序的模板，则下面的脚本需自己输入。而使用模板后，现在我们只需将//connect；前面的注释号"//"符号删除即可。除省事外还避免了因为排版引起的下面的程序格式错误。(本人经常因为书中个别字母印刷错，或排版引起的程序格式错误造成程序无法运行而痛心不已。)
sqlca.DBMS = ProfileString (ls_startupfile, "database", "dbms", "")
sqlca.database = ProfileString (ls_startupfile, "database", "database", "")
sqlca.userid = ProfileString (ls_startupfile, "database", "userid", "")
sqlca.dbpass = ProfileString (ls_startupfile, "database", "dbpass", "")
sqlca.logid = ProfileString (ls_startupfile, "database", "logid", "")
sqlca.logpass = ProfileString (ls_startupfile, "database", "LogPassWord", "")
sqlca.servername = ProfileString (ls_startupfile, "database", "servername", "")
sqlca.dbparm = ProfileString (ls_startupfile, "database", "dbparm", "")
connect; |
现在按Run图标运行该程序，结果如下图。为简化程序，我们只加入了多媒体中的图片字段，成功后，读者可自已增加动画，声音字段。
讨论：假若多媒体的字段和数据个数比较少，也可用变量和函数来解决。如：
temp2=temp+".bmp"
p_1.picturename=temp2
ole_1.insertfile("sample.avi")
run("c:\acdsee.exe c:\aa.bmp",normal!) |
这些都是很有用的函数，但数据多而杂时，它们就会显得力不从心了，因为使用它们时，多媒体数据并没有内置于数据库之中，也就是说数据库内并没有它们的字段，想想看，假若数据库的所有字段都用变量来代替的话，我想任何人看了都会头大！
|
|
