declare instance variables:

blob vcf_form

declare global variables:

string gs_ztm,gs_lrdw,gs_gldw

datetime gd_lrsj,gd_tdsj

在窗口的open事件中写脚本：

datetime sj

int fh

string ls_dwmc

em_1.text=string(gd_tdsj,"yyyy年mm月dd日hh:mm")

selectblob sqpnr into :vcf_form from dfs_tdsqp

where lrsj=:gd_lrsj and lrdw=:gs_lrdw

using sqlca;//取出库中申请票内容

if isnull(vcf_form) then

ole_1.object.read("模板.vts", ref fh)//把模板读入ole控件

ole_1.object.setactivecell(21,2)

ole_1.object.entry=string(gd_tdsj,"mm月dd日hh时mm分至")//填入计划停电时间

ole_1.object.setactivecell(4,3)

select zz_dwmc into :ls_dwmc from b04 where zz_dwbm=:gs_lrdw;

ole_1.object.entry=ls_dwmc//填入计划停电单位

ole_1.object.setactivecell(4,6)

ole_1.object.entry=xm//填入姓名

else

if fileexists("c:\book1.vts") then

filedelete("c:\book1.vts")

end if

fh=fileopen("c:\book1.vts",streammode!,write!)//建一临时文件

if fh<>-1 then

filewrite(fh,vcf_form)//把库中的库中申请票内容写入临时文件

fileclose(fh)

ole_1.object.read("c:\book1.vts", ref fh)//把临时文件内容读入控件

else

messagebox("错误提示", "打开文件操作错误!")

close(this)

return

end if

end if

choose case qx

case "lr"//权限为二级单位录入时只能录入左半边的报表

ole_1.object.selection="a1:g38"

ole_1.object.setprotection(false,false)//将a1：g38的单元格置为可写，其余不可。

ole_1.object.enableprotection=true

ole_1.object.selection="c4"//光标停在c4单元格处

case "gl"

case "zd"

case "zb"

end choose

int fh

oleobject book;

string filename="c:\book1.vts"

book=ole_1.object

book.write(filename, 12)//将控件内容写入临时文件

fh=fileopen( filename, streammode!)

if fh<>-1 then

fileread(fh, vcf_form) //将临时文件内容写入blob变量

fileclose(fh)

else

return 0

end if

if len(vcf_form )>0 then

updateblob dfs_tdsqp set sqpnr=:vcf_form

where lrsj=:gd_lrsj and lrdw=:gs_lrdw

using sqlca;//将blob变量内容写入库中

if sqlca.sqlcode=0 then

commit using sqlca;

// messagebox("提示", "完成对数据库的申请票存储操作!")

else

rollback using sqlca;

messagebox("提示", "申请票存储操作失败!")

return 0

end if

end if

gd_tdsj=datetime(date(left(em_1.text,4)+"-"+mid(em_1.text,7,2)+"-"+mid(em_1.text,11,2)),&

time(mid(em_1.text,15,5)+":00"))

update dfs_tdsqp set tdsj=:gd_tdsj , ztm=:ztm_wf

where lrsj=:gd_lrsj and lrdw=:gs_lrdw

using sqlca;//保存录入时间和录入单位的值

if sqlca.sqlcode=0 then

commit using sqlca;

messagebox("提示", "完成对数据库的存储操作!")

return 1

else

rollback using sqlca;

messagebox("提示", "停电时间存储操作失败!")

return 0

end if