您正在看的电子信息论文是:基于PB6和ORACLE8开发“劳动信息管理系统”。 article=replace(article,t,2,"")

else

end if

next

mle_1.text=article

//将处理后的文件c:\ldxx.txt存盘，文件中的回车换行符已全部去掉

text1=blob(article)

filname="c:\ldxx.txt"

fn=fileopen(filname,streammode!,write!,lockwrite!,replace!)  

if fn<>-1 then

filewrite(fn,text1)

fileclose(fn) 

end if

//文本入库

bigtext1=blob(mle_1.text)

updateblob ldxxwj set bigtext=:bigtext1 where bh=:varbh and rq=:varrq using SQLca;

commit;

//从库中提出放入MLE中查询

selectblob bigtext into :bigtext1 from ldxxwj where bh=:varbh rq=:varrq using SQLca;

mle_1.text=blob(bigtext1)   

//从库中重新生成文本文件filename.txt并存盘

select bigtext into :varfile from ldxxwj where bh=:varbh and rq=:varrq using SQLca;

fname="c:\filename.txt”

fh=fileopen(fname,streammode!,write!,lockwrite!,replace!)  

if fh<>-1 then

filewrite(fh,filen)

fileclose(fh)    

end if

4．4  处理图象文件（大的二进制文件）

     职工照片-图象文件（例如BMP位图文件）是二进制文件，将其以数据流方式存入Oracle8的LONG字段中，查询时从LONG字段中取出，放入图象框（如p_1）中查询，下边是一个例子：

//将图象文件读入BLOB型变量pict中

fn=fileopen(picname,streammode!)

if fn<> -1 then