pbdatawindow中使用blob字段.doc

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 mpt=no print.buttons=no print.preview.buttons=no ole.client.class=DataWindow =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_U )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_U)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 0 thenll_picid=this.getitemdecimal(row,pictureid)UPDATE T_Svt_Picture SET PicName=:ls_named WHERE PictureId=:ll_picid ;elsell_picid=gf_getid(T_Svt_Picture)INSERT INTO T_Svt_Picture ( PictureId,PicName,detaillogId ) VALUES ( :ll_picid,:ls_named, :ld_detaillogId);end ifif sqlca.sqlcode0 thenrollback;messagebox(系统提示,数据保存失败)returnend ifupdateblob T_Svt_Picture set PicBlob=:lb_fjwhere pictureid=:ll_picid;if sqlca.sqlcode0 thenrollback;messagebox(系统提示,图片保存失败)returnelsecommit;/int li_temp=rowthis.retrieve(dw_6.object.detaillogIddw_6.getrow()/this.scrolltorow( li_temp)end ifend ifend ifelseif =b_look thenselectblob PicBlob into :lb_fj from T_Svt_Picturewhere pictureid=:ll_picid;if sqlca.sqlcode0 thenmessagebox(系统提示,资料附件读取失败)returnend ifls_docname=c:cnsmisworktempif not DirectoryExists(ls_docname) then CreateDirectory(ls_docname)ls_docname=ls_docname+dw_10.object.picnamerowif f_writefile(lb_fj,ls_docname)=1 thenif ShellExecuteA(Handle(parent),ls_null,ls_docname,ls_null,ls_null, 1) 32 thenreturnelsemessagebox(系统提示,系统打开文件出错)returnend ifend ifelseif =b_add thenif dw_6.modifiedcount( )0 thenmessagebox(系统提示,请先保存救助记录的内容，在增加图片！)returnend ifll_newrow=this.insertrow( 0)this.object.bureauidll_newrow=ll_bureauidthis.object.pictureidll_newrow=gf_getid(T_Svt_Picture)this.object.detaillogidll_newrow=ld_detaillogIdthis.scrolltorow( ll_newrow)elseif =b_del thenif this.rowcount()0 thenif messagebox(提示,请确定是否要删除此图