用PB开发多媒体数据库管理系统

　　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!)

　　这些都是很有用的函数，但数据多而杂时，它们就会显得力不从心了，因为使用它们时，多媒体数据并没有内置于数据库之中，也就是说数据库内并没有它们的字段，想想看，假若数据库的所有字段都用变量来代替的话，我想任何人看了都会头大！