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