pb中是使用ula one.doc

PB中使用FORMULA ONEJane_sun應(yīng)陶清所請(qǐng)，我將以一個(gè)例子來(lái)詳細(xì)說(shuō)明F1的用法，以補(bǔ)充前文所述，此例為電力企業(yè)停電申請(qǐng)票的上報(bào)審批過(guò)程，內(nèi)含過(guò)程權(quán)限控制，每一權(quán)限只能修改F1報(bào)表的一個(gè)部分，且有做圖功能，采用PB6.5和F16所編，下面將詳細(xì)說(shuō)明：1 建一張申請(qǐng)票的F1文件作為模板，如下圖：為實(shí)現(xiàn)權(quán)限控制，將I1：P38的單元格設(shè)上保護(hù)，使右半邊報(bào)表不可寫：1)、選中單元格，鼠標(biāo)右鍵FORMAT CELLS：PROTECTION下的LOCKED前打勾。2)、FORMAT菜單下SHEET項(xiàng)的PROTECTION前打勾，這句很重要，否則上句不起作用。2 庫(kù)中建一停電申請(qǐng)票表DFSTDSQP：LRSJ錄入時(shí)間TDSJ停電時(shí)間LRDW錄入單位GLDW管理單位TDSB停電設(shè)備GZNR工作內(nèi)容KGSJ開工時(shí)間WGSJ完工時(shí)間GZR工作人ZTM狀態(tài)碼SQPNR申請(qǐng)票內(nèi)容IMAGE類型 3 在PB窗口中插入F1控件：在POWERBUILDER的窗口中點(diǎn)中OLE圖標(biāo)： 會(huì)出現(xiàn)“插入對(duì)象”對(duì)話框，選擇insert control 標(biāo)簽項(xiàng)（如下圖），在對(duì)象列表中選擇 Vci Formula One Workbook，按確定鍵后，選好插入位置點(diǎn)擊鼠標(biāo)，即加入了一個(gè)名為ole_1的OLE對(duì)象，在其上用鼠標(biāo)右鍵選中OCX Properties項(xiàng)，在Show標(biāo)簽下可將Row Heading和Column Heading項(xiàng)取消選中，將Tabs的值由Bottom改為Off（如下圖），加入的OLE對(duì)象就是一個(gè)沒(méi)有行頭、列頭及標(biāo)簽的空白表格。4 讀模板的內(nèi)容至控件：declare instance variables:BLOB vcf_formdeclare global variables: string gs_ztm,gs_lrdw,gs_gldwdatetime gd_lrsj,gd_tdsj在窗口的OPEN事件中寫腳本：datetime sjint fhstring ls_dwmcem_1.text=string(gd_tdsj,yyyy年mm月dd日hh:mm)selectblob SQPNR into :vcf_form from DFS_TDSQPwhere LRSJ=:gd_lrsj and LRDW=:gs_lrdwusing sqlca;/取出庫(kù)中申請(qǐng)票內(nèi)容if isnull(vcf_form) thenole_1.object.Read(模板.vts, ref fh)/把模板讀入OLE控件ole_1.object.setactivecell(21,2)ole_1.object.Entry=string(gd_tdsj,mm月dd日hh時(shí)mm分至)/填入計(jì)劃停電時(shí)間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/填入計(jì)劃停電單位ole_1.object.setactivecell(4,6)ole_1.object.Entry=xm/填入姓名elseif fileexists(c:book1.vts) thenfiledelete(c:book1.vts)end iffh=fileopen(c:book1.vts,streammode!,write!)/建一臨時(shí)文件if fh-1 thenfilewrite(fh,vcf_form)/把庫(kù)中的庫(kù)中申請(qǐng)票內(nèi)容寫入臨時(shí)文件fileclose(fh)ole_1.object.Read(c:book1.vts, ref fh)/把臨時(shí)文件內(nèi)容讀入控件elseMessageBox(錯(cuò)誤提示, 打開文件操作錯(cuò)誤!)close(this)returnend ifEND IFCHOOSE CASE qxCASE lr/權(quán)限為二級(jí)單位錄入時(shí)只能錄入左半邊的報(bào)表ole_1.object.selection=A1:G38ole_1.object.setprotection(false,false)/將A1：G38的單元格置為可寫，其余不可。ole_1.object.enableprotection=trueole_1.object.selection=C4/光標(biāo)停在C4單元格處CASE glCASE zdCASE zbEND CHOOSE5 鼠標(biāo)右鍵雙擊OLE_1控件可直接編輯報(bào)表，填入內(nèi)容至可寫的單元格內(nèi)，可以采用F1的畫圖工具對(duì)報(bào)表進(jìn)行簡(jiǎn)單的做圖。6 將已修改的控件內(nèi)容寫入數(shù)據(jù)庫(kù)：int fhOLEobject book;string filename=c:book1.vtsbook=ole_1.objectbook.Write(filename, 12)/將控件內(nèi)容寫入臨時(shí)文件fh=fileopen( filename, StreamMode!)IF fh-1 THENFileRead(fh, vcf_form)/將臨時(shí)文件內(nèi)容寫入BLOB變量FileClose(fh)ELSE RETURN 0END IFif len(vcf_form )0 then UPDATEBLOB DFS_TDSQP set SQPNR=:vcf_form where LRSJ=:gd_lrsj and LRDW=:gs_lrdwusing sqlca;/將BLOB變量?jī)?nèi)容寫入庫(kù)中IF SQLca.sqlcode=0 THENCOMMIT using sqlca;/MessageBox(提示, 完成對(duì)數(shù)據(jù)庫(kù)的申請(qǐng)票存儲(chǔ)操作!)ELSEROLLBACK using sqlca;MessageBox(提示, 申請(qǐng)票存儲(chǔ)操作失敗!)RETURN 0END IFend ifgd_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_wfwhere LRSJ=:gd_lrsj and LRDW=:gs_lrdwusing sqlca;/保存錄入時(shí)間和錄入單位的值IF SQLca.sqlcode=0 THENCOMMIT using sqlca;MessageBox(提示, 完成對(duì)數(shù)據(jù)庫(kù)的存儲(chǔ)操作!)return 1ELSEROLLBACK using sqlca;MessageBox(提示, 停電時(shí)間存儲(chǔ)操作失敗!)RETURN 0END IF7、打印控件內(nèi)