pb datawindow中使用blob字段

 

 

字段设置如图：

 

 

datawindow语法

release 8;
datawindow(units=0 timer_interval=0 color=15793151 processing=0 HTMLDW=no print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 96 print.margin.bottom = 96 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no ole.client.class="DataWindow" ole.client.name="Untitled" )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(height=4452 color="536870912" )
table(column=(type=char(32) updatewhereclause=yes key=yes name=id dbname="T_Svt_Unit.id" )
 column=(type=char(4099) update=yes updatewhereclause=no name=link dbname="T_Svt_Unit.link" )
 column=(type=char(4099) updatewhereclause=no name=content dbname="T_Svt_Unit.content" )
 column=(type=char(50) updatewhereclause=yes name=name dbname="T_Svt_Unit.name" )
 column=(type=blob name=blob_1 dbname="content" )
 column=(type=blob name=blob_2 dbname="brief" )
 retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"T_Svt_Unit~" ) COLUMN(NAME=~"T_Svt_Unit.id~") COLUMN(NAME=~"T_Svt_Unit.link~") COLUMN(NAME=~"T_Svt_Unit.content~") COLUMN(NAME=~"T_Svt_Unit.name~")WHERE(    EXP1 =~"T_Svt_Unit.id~"   OP =~"=~"    EXP2 =~":id~" ) ) ARG(NAME = ~"id~" TYPE = string) " update="T_Svt_Unit" updatewhere=0 updatekeyinplace=yes arguments=(("id", string)) )
tableblob (band=detail table="T_Svt_Unit" keyclause="id=:id" template="" id=5 x="338" y="12" height="172" width="247" border="2"  oleclass="Word.Document.8" clientname="'单位详介'" name=blob_1 visible="0" )
text(band=detail alignment="0" text="简介(图像):" border="0" color="128" x="0" y="132" height="60" width="352" html.valueishtml="0"  name=brief_t visible="1"  font.face="宋体" font.height="-10" font.weight="400"  font.family="0" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )
text(band=detail alignment="0" text="联系方式:" border="0" color="128" x="0" y="1708" height="60" width="274" html.valueishtml="0"  name=link_t visible="1"  font.face="宋体" font.height="-10" font.weight="400"  font.family="0" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=20 border="2" color="33554432" x="9" y="1776" height="1012" width="3127" format="[general]" html.valueishtml="0"  name=link visible="1" edit.limit=4099 edit.case=any edit.focusrectangle=no edit.autoselect=no edit.autohscroll=yes edit.hscrollbar=yes edit.imemode=0 edit.vscrollbar=yes  font.face="宋体" font.height="-10" font.weight="400"  font.family="2" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )
compute(band=detail alignment="2" expression=" trim(name )"border="4" color="255" x="795" y="24" height="104" width="1550" format="[GENERAL]" html.valueishtml="0"  name=compute_1 visible="1"  font.face="宋体" font.height="-16" font.weight="700"  font.family="0" font.pitch="2" font.charset="134" background.mode="1" background.color="536870912" )
tableblob (band=detail table="T_Svt_Unit" keyclause="id=:id" template="" id=6 x="9" y="220" height="1472" width="3127" border="2"  oleclass="Paint.Picture" clientname="~"~"" name=blob_2 visible="1" )
button(band=detail text="修改描述"filename=""action="0" border="0" color="33554432" x="2720" y="108" height="92" width="256" vtextalign="0" htextalign="0"  name=b_2 visible="1"  font.face="宋体" font.height="-10" font.weight="400"  font.family="0" font.pitch="2" font.charset="134" background.mode="2" background.color="67108864" )
button(band=detail text="显示描述"filename=""action="0" border="0" color="33554432" x="2720" y="8" height="92" width="256" vtextalign="0" htextalign="0"  name=b_1  tag="" visible="1"  font.face="宋体" font.height="-10" font.weight="400"  font.family="0" font.pitch="2" font.charset="134" background.mode="2" background.color="67108864" )
htmltable(border="1" )
htmlgen(clientevents="1" clientvalidation="1" clientcomputedfields="1" clientformatting="0" clientscriptable="0" generatejavascript="1" netscapelayers="0" )
 

 

代码部分 b_1是显示，b_2是修改

 

if row < 1 then return
if dwo.name = 'b_2' then
 oleactivate(row,'blob_1',0)
end if
if dwo.name = 'b_1' then
 dw_temp.dataobject=this.dataobject
 dw_temp.settransobject(sqlca)
 dw_temp.retrieve(string(this.object.id[1]))
 dw_temp.oleactivate(1,'blob_1',0)
end if

 

 

 

 

 

 

另一种做法，不在datawindow中显示

 

 

if dwo.name='b_load' then
 li_value = GetFileOpenName("选择图片文件",ls_docname,ls_named)
 IF li_value = 1 THEN
  if f_readfile(lb_fj,ls_docname)=1 then
   if ll_picid>0 then
    ll_picid=this.getitemdecimal(row,'pictureid')
    UPDATE T_Svt_Picture SET PicName=:ls_named WHERE PictureId=:ll_picid ; 
   else
    ll_picid=gf_getid('T_Svt_Picture')
    INSERT INTO T_Svt_Picture ( PictureId,PicName,detaillogId ) 
       VALUES ( :ll_picid,:ls_named, :ld_detaillogId);     
   end if
   if sqlca.sqlcode<0 then
    rollback;
    messagebox('系统提示','数据保存失败')
    return
   end if
   updateblob T_Svt_Picture set PicBlob=:lb_fj
     where pictureid=:ll_picid;
   if sqlca.sqlcode<0 then
    rollback;
    messagebox('系统提示','图片保存失败')
    return
   else
    commit;
    //int li_temp=row
    this.retrieve(dw_6.object.detaillogId[dw_6.getrow()])
    //this.scrolltorow( li_temp)
   end if  
  end if
 end if
elseif dwo.name='b_look' then
  selectblob PicBlob into :lb_fj from T_Svt_Picture
   where pictureid=:ll_picid;
  if sqlca.sqlcode<>0 then
   messagebox('系统提示','资料附件读取失败')
   return
  end if
  ls_docname='c:/cnsmisworktemp'
  if not DirectoryExists(ls_docname) then CreateDirectory(ls_docname)
  ls_docname=ls_docname+dw_10.object.picname[row]
  if f_writefile(lb_fj,ls_docname)=1 then
   if ShellExecuteA(Handle(parent),ls_null,ls_docname,ls_null,ls_null, 1) > 32 then
    return
   else
    messagebox('系统提示','系统打开文件出错')
    return
   end if
  end if
elseif dwo.name='b_add' then
 if dw_6.modifiedcount( )>0 then
  messagebox("系统提示","请先保存救助记录的内容，在增加图片！")
  return
 end if
 ll_newrow=this.insertrow( 0)
 this.object.bureauid[ll_newrow]=ll_bureauid
 this.object.pictureid[ll_newrow]=gf_getid('T_Svt_Picture')
 this.object.detaillogid[ll_newrow]=ld_detaillogId
 this.scrolltorow( ll_newrow) 
elseif dwo.name='b_del' then
 if this.rowcount()>0 then
  if messagebox("提示","请确定是否要删除此图片！",Question!,YesNoCancel!,3)=1 then
   this.deleterow( this.getrow()) 
   if this.update( )=1 then
    commit;
   else
    rollback;
   end if
  end if
 end if
elseif dwo.name='b_save' then
 this.accepttext()
 
 if this.update( )=1 then
  commit;
  messagebox('系统提示','保存成功')
 else
  rollback;
  messagebox('系统提示','保存失败')
 end if
end if