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

二 查询系统的制作

制作从键盘输入记录号 可查询到该人的档案记录

①制作查询窗口 步骤为 鼠标点按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图标 出现应用程序的自动生成的主体脚本 部分内容如下 它的任务是将数据库初始化 相当于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图标运行该程序 结果如下图 为简化程序 我们只加入了多媒体中的图片字段 成功后 读者可自已增加动画 声音字段

讨论 假若多媒体的字段和数据个数比较少 也可用变量和函数来解决 如

temp =temp+ bmp p_ picturename=temp ole_ insertfile( sample avi )run( c:\acdsee exe c:\aa bmp normal!)

lishixinzhi/Article/program/SQL/201311/16400

因 为 在 PB中 必 须 跟 指 定 的 DB建 立 连 接 。

能 在 PB中 创 建 SQL SERVER数 据 库 设 备 与 数 据 库 。

因 为 在 安 装 MSSQL SERVER 数 据 库 时 安 装 了 MASTER数 据 库 ， 你 可 以进 入 PB 数 据 库 描 绘 器 建 立 与 mssql master数 据 库 的 连 接 ， 然 后 进 入

DB ADministration 描 绘 器 ， 直 接 用 sql 语 句 创 建 设 备

创 建 设 备 语 句 例 如

DISK INIT NAME =''mq'', PHYSNAME = ''C:\MSSQL\DATA\zxxlog.DAT'', VDEVNO = 101, SIZE = 21200

然 后 执 行

创 建 了 mq 设 备 ， 创 建 数 据 库 雷 同 。

在 程 序 脚 本 中 编 写 时 注 意 ： 连 接 MSSQL时 SQLCA.AutoCommit = true

脚 本 例 子

sql1="DISK INIT NAME = ''mq'', PHYSNAME = ''C:\MSSQL\DATA\zxxlog.DAT'', VDEVNO = 101, SIZE = 21200"

执 行 程 序 创 建 mq设 备 。

---