您正在看的电子信息论文是:基于PB6和ORACLE8开发“劳动信息管理系统”。 fileread(fn,pict)

fileclose(fn)

//将图象放入图象框p_1内查看

setpicture(p_1,pict)

end if

//将图象存入表pic 的LONG字段bmpt 中

updateblob pic set bmpt=:pict ;

commit;

4．5  使用动态数据窗口

    动态数据窗口指的是在程序的运行过程中通过SQL语句的改变动态地创建、修改数据窗口的内容和表现形式，它多用在对同类型的对象的描述过程中，“劳动信息查询系统”的一些类似的内容可用动态数据窗口来编制，表现形式一致、构造界面统一、编程效率高，当然还有其它一些优点。下边是一个创建动态数据窗口并由此绘出趋势图的例子（动态数据窗口dw_1,图形框gr_1）：

dw_1.Create(SyntaxFromSQL(SQLCA,"SELECT sj,val01  FROM tab01 where  ytmh='"+rowcha+"' ORDER BY sj  ","style=(type=grid)",err))

//执行上述语句会动态地产生类型为grid的数据窗口dw_1。

//由下边这段程序做出趋势图:

//将数据调入数据窗口

dw_1.SetTransObject(SQLca) 

dw_1.Retrieve()

rows = rowcount(dw_1)

if rows>0 then

gr_1.SetRedraw(False)

gr_1.reset(all!)

gr_1.addseries("dz1")

for  i =1  to rows

xis=mid(getitemstring(dw_1,i,1),3,2)

yis=getitemnumber(dw_1,i,2)

if isnull(yis) then

yis=0