精华区文章阅读

发信人: wodeji (西西), 信区: Database
标  题: [转载] PowerBuilder 开发系列谈 (10)
发信站: 紫丁香 (Tue Sep 29 17:51:13 1998), 站内信件

【以下文字转载自 Programming 讨论区】
【原文由 two 所发表】

---- 在开发中, 我们有时会遇到用一个DataWindow 来表现数据库中多个表中
数据的情形, 这时DataWindow 用到的SQLSelect 语句是一个多张表连接的视
图。当我们对这样一个DataWindow 中的数据进行修改并提交数据库时, 我
们将会发现我们并不能简单地使用一条dw.update() 来实现同时对数据库中
多张表的修改。

---- 事实上, 系统在DataWindow 中提交数据库并生成UPDATE 语句时所根据的
仍然是图一这个窗口。在以前的章节中我们曾介绍过利用这个窗口中一
些不同的选项实现数据库的并发控制, 这里我们再讲一下这个窗口中的
选项对生成UPDATE 语句的其它影响。

---- 当我们调用UPDATE 函数时, 这个窗口中有四个域将被涉及:

      Where Clause for Update/Delete where 子句的生成依据。这个选项主要是用来
      进行并发控制的, 这里不再赘述。
      UpdateableColumns 可修改的列。这是一个我们将遇到麻烦的地
      方。PowerBuilder 只能同时对一张要修改的表进行管理, 所以我们不能
      一下子指出所有表中所有要修改的列。在这里我们只能指出某一张
      表中要修改的列, 以后在程序中用Modify 语句依次指定其它每一张表
      中要修改的列。
      Table to Update 将要修改的表。PowerBuilder 只支持一张表的修改, 所以我
      们也只能在这里只指定其中的某一张表, 其余的表也将要利用Modify
      语句修改。
      Unique Key Columns 唯一键的列。这也是我们要注意的地方, 因
      为PowerBuilder 生成的UPDATE 语句只是在要修改的表名中使
      用DATABASE.OWNER.TABLE 这样的全称, 而引用某列时只是简单指出列
      名, 而不用DATABASE.OWNER.TABLE.COLUMN 这样的全称。所以, 如果我
      们这里用到的唯一列标识不属于上面"Table to Update" 中定义的表的列,
      这一条SQL 语句将出现语法错误。

---- PowerBuilder 在DataWindow 中产生的UPDATE 语句和DELETE 语句如下:
---- ●UPDATE database.owner.table
---- SET column=somevalue,
---- WHERE UniqueKeyColumn=somevalue;

---- ●DELETE FROM database.owner.table
---- WHERE UniqueKeyColumn=somevalue;

---- 在一条SQLUPDATE 和DELETE 语句中, 所有引用的列名均不使用列的全
称, 因此对列名的确定完全由update table 来决定, 在UPDATE 语句中所有修改
属性均设为TRUE, 而且用户进行过修改的列都将加到SET 子句
中。PowerBuilder 根据用户对"Where Clause for Update/Delete" 的选择形成WHERE 子
句, 由于系统自动地将多个表中所有的列都加到SET 子句和WHERE 子句中,
而PowerBuilder 又是根据用户指定的update table 来确定列, 因此我们显然是无
法得到一个准确的SQL 语句的。我们来看这样一个实例( 本表可以
在PowerBuilderDEOM 数据库中得到, 注意: 如果我们希望某一列不被修改, 我们
可以在DataWindow 画笔中将TABorder 设置为0):

  CUSTOMER.Customer-ID=101
  CUSTOMER.FirstName=Michaels
  CUSTOMER.LastName=Devlin
  CUSTOMER.Address=3114 Pioneer Avenue
  SALES-ORDER.ID=2001
  SALES-ORDER.order-date=09/14/94
  我们将其改为:
  CUSTOMER.Address=1905 Maple Avenue
  SALES-ORDER.order-date=12/11/94

---- 如果我们只是用dw.update() 语句来形成UPDATE 语句,PowerBuilder 将自动构
造成这样的一条语句:

---- 上述三条SQL 语句在提交数据库时都将产生"Invalid column name ‘id' " 的错
误, 很明显,"id" 这一个字段并不在custumer 这一张表中。此外SALES-ORDER 这
张表的内容并没有进行修改。

---- 为真正实现对多表数据的修改, 我们可以编写这样一个函
数f-MUpdate()。

  integer f-MUpdate(a-dw,as-update-table)
  a-dw-DataWindow 名称;as-update-table- 将要修改的表名的全称。
  Long ll-ipos,ll-maxcol,i
  String ls-colnam,ls-mod,ls-table-name,ls-err,ls-updatekeyll,ls-qualifier=""
  // 从传递的参数中分离出表名和域名
  ll-ipos=Pos(as-update-table," ·",l)
  If(ll-ipos ＞0)Then
  ls-qualifier =Left(as-update-table,ll-ipos)
  as-update-table=Mid(as-update-table,& ll-ipos+1)
  ll-ipos=Pos(as-update-table," ·",l)
  If(ll-ipos ＞0)Then
  ls-qualifier=ls-qualifier+&
  Left(as-update-table,ll-ipos)
  as-update-table=Mid(as-update-table,& ll-ipos+1)
  end If
  End If
  // 得到这个DataWindow 包含列的数量

  ls-err=a-dw.object.DataWindow.Column.Count
  ll-maxcol=Integer(Is-err)
  If(ll-maxcol ＜1)Then
  Return 1

  End IF

---- // 确认DataWindow 中的每一列是否属于要修改的表中的列, 如是将
其update 属性设为 Yes, 否则为No.

  FOR i=1 To ll-maxcol

  ls-mod="#"+String(i)+".Name"
  ls-colnam=a-dw.Descibe(ls-mod)
  ls-table-name=a-dw.Descibe(ls-colnam+&".dbName")
  ls-table-name=Left(ls-table-name,&)
  (Pos(ls-table-name," ·",l)-l))

  If(Upper(as-update-table)=Upper(ls-table-name))Then
  ls-mod=ls-colnam+".Update=Yes"
  Else
  // 如果该列不在可修改的表中,
  // 而其为主键的属性为TRUE
  // 将其列名存在ls-updatekey[ ] 中
  // 并将其主键的属性设为FALSE。
  // 由于PB 不保留列的全名, 我们不能。
// 保留非修改表的键的名称。
// 所以我们将其保留在数组之中, 以便其恢复
  If(Upper(a-dw.Descibe(ls-colnam+".Key"))=" YES")Then
  ls-updatekey[UpperBound(ls-updatekey[ ])+1]=ls-colnam
  ls-mod=ls-colnam+".Key=No"
  If(a-dw.Modify(ls-mod) ＜＞"")Then
  Return-2
  End If
  End If
  ls-mod=ls-colnam+".Update=No"
  End IF

  // 确认修改是否成功
  If(a-dw.Modify(ls-mod) ＜＞"")Then
Return-2
  End IF

  NEXT

  // 将修改表名设置为全称
  a-dw.object.Data Window.Table.UpdateTable=ls-qualifier+as-update-table

  // 修改DataWindow

  If(a-dw.Update(TRUE,FALSE) ＜＞1)Then
Return-5
  Else
  // 将DataWindow 恢复为其原来的状态
  ll-maxcol=UpperBound(ls-updatekey)
  FOR i=l to ll-maxcol
  ls-mod=ls-updatekey[i]+".key=Yes"
  If(a-dw.Modify(ls-mod) ＜＞"")Then
Return-6
  End If
  Return 0
  End If

---- 调用这一函数时应遵守以下规则:

      保证数据的参照完整性, 应当先修改父表后修改子表;
      在DataWindow 画笔中为每张表建立唯一主键;
      在图一窗口中, 将该DataWindow 设为允许修改;
      指定所涉及的任意一张表为修改表, 表中的任一列为可修改列。以保
      证DataWindow 有修改权, 这样我们调用的函数就可以覆盖这一设置。
      不要将并发控制选为key and >

      传输中断！

      数无法在这一条件下工作。
      将表名的全称DATABASE.OWNER.TABLE 传递给这个函数, 特别是在这
      个DataWindows 是对多个数据库进行操作时。

---- 在上例中, 我们可以这样调用这个函数

  f-MUpdate(dw-l," dbo.sales-order")
  f-MUpdate(dw-l," dbo.customer")



--
※ 来源:．紫丁香 bbs.hit.edu.cn．[FROM: 202.97.236.132]
--
※ 转载:．紫丁香 bbs.hit.edu.cn．[FROM: whs.hit.edu.cn]
--
※ 转载:．紫丁香 bbs.hit.edu.cn．[FROM: cadcam.hit.edu.c]

Database 版 (精华区)