$PBExportHeader$w_rp_combine.srw forward global type w_rp_combine from w_publ_easyq end type type cb_3 from uo_imflatbutton within w_rp_combine end type type st_1 from statictext within w_rp_combine end type type ddlb_1 from dropdownlistbox within w_rp_combine end type end forward global type w_rp_combine from w_publ_easyq string title = "资产负债表|损益表" cb_3 cb_3 st_1 st_1 ddlb_1 ddlb_1 end type global w_rp_combine w_rp_combine type variables Long cur_rpid Int cur_rptype end variables forward prototypes public subroutine wf_ddlb () public subroutine wf_face () end prototypes public subroutine wf_ddlb ();Long ls_rpid String ls_rpname Long ll_i String ls_space Int li_spacenum ddlb_1.reset() DECLARE cur_rp CURSOR FOR SELECT cw_rp.rpid, cw_rp.rpname from cw_rp Order By cw_rp.rpcode; OPEN cur_rp; FETCH cur_rp Into :ls_rpid,:ls_rpname ; DO WHILE sqlca.SQLCode = 0 li_spacenum = 50 - Len(Trim(ls_rpname)) - 2 - Len(String(ls_rpid)) ls_space = Fill(' ',li_spacenum) ddlb_1.AddItem (ls_rpname+ls_space+'['+String(ls_rpid)+']') ll_i++ IF ll_i = 1 THEN cur_rpid = ls_rpid ddlb_1.Text = ls_rpname+ls_space+'['+String(ls_rpid)+']' END IF FETCH cur_rp Into :ls_rpid,:ls_rpname ; LOOP CLOSE cur_rp; end subroutine public subroutine wf_face ();Long ll_row,i,j Long ll_mth Long ll_rpid Int li_rptype String ls_col1name,ls_col2name,ls_col1name_addname,ls_col2name_addname,ls_rpname IF cur_rpid <= 0 THEN dw_1.Reset() RETURN END IF ll_rpid = cur_rpid SELECT rptype, rpname, col1name, col2name, col1name_addname, col2name_addname INTO :li_rptype, :ls_rpname, :ls_col1name, :ls_col2name, :ls_col1name_addname, :ls_col2name_addname From u_rp Where rpid = :ll_rpid; IF sqlca.SQLCode <> 0 THEN dw_1.Reset() RETURN END IF cur_rptype = li_rptype dw_1.Retrieve(cur_rpid) dw_1.Object.rpname.Text = ls_rpname //改标题及列宽 Long ls_dwidth,ls_dwidth2 IF li_rptype = 0 THEN ls_dwidth = 600 ls_dwidth2 = 1800 ELSE ls_dwidth = 430 ls_dwidth2 = 800 END IF //1 j = 1 dw_1.Modify("col1_amt"+String(j,'00')+"_t.width='"+String(ls_dwidth)+"'") dw_1.Modify("col1_amt"+String(j,'00')+".width='"+String(ls_dwidth)+"'") dw_1.Modify("col1_amt"+String(j,'00')+"_t.text='" + ls_col1name_addname+"'") //2 dw_1.Modify("col1_amt"+String(j,'00')+"_2_t.width='"+String(ls_dwidth)+"'") dw_1.Modify("col1_amt"+String(j,'00')+"_2.width='"+String(ls_dwidth)+"'") dw_1.Modify("col1_amt"+String(j,'00')+"_2_t.text='" + ls_col2name_addname+"'") dw_1.Object.col1_name_t.Text = ls_col1name dw_1.Modify("col1_name_t.width='"+String(ls_dwidth2)+"'") dw_1.Modify("col1_name.width='"+String(ls_dwidth2)+"'") IF li_rptype = 0 THEN //项目 dw_1.Modify("col2_name_t.visible=false") dw_1.Modify("col2_name.visible=false") //1 dw_1.Modify("col2_amt"+String(j,'00')+"_t.visible=false") dw_1.Modify("col2_amt"+String(j,'00')+".visible=false") //2 dw_1.Modify("col2_amt"+String(j,'00')+"_2_t.visible=false") dw_1.Modify("col2_amt"+String(j,'00')+"_2.visible=false") ELSE dw_1.Object.col2_name_t.Text = ls_col2name dw_1.Modify("col2_name_t.width='"+String(ls_dwidth2)+"'") dw_1.Modify("col2_name.width='"+String(ls_dwidth2)+"'") dw_1.Modify("col2_amt"+String(j,'00')+"_t.width='"+String(ls_dwidth)+"'") dw_1.Modify("col2_amt"+String(j,'00')+".width='"+String(ls_dwidth)+"'") dw_1.Modify("col2_amt"+String(j,'00')+"_t.text='" + ls_col1name_addname+"'") //2 dw_1.Modify("col2_amt"+String(j,'00')+"_2_t.width='"+String(ls_dwidth)+"'") dw_1.Modify("col2_amt"+String(j,'00')+"_2.width='"+String(ls_dwidth)+"'") dw_1.Modify("col2_amt"+String(j,'00')+"_2_t.text='" + ls_col2name_addname+"'") END IF // end subroutine on w_rp_combine.create int iCurrent call super::create this.cb_3=create cb_3 this.st_1=create st_1 this.ddlb_1=create ddlb_1 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cb_3 this.Control[iCurrent+2]=this.st_1 this.Control[iCurrent+3]=this.ddlb_1 end on on w_rp_combine.destroy call super::destroy destroy(this.cb_3) destroy(this.st_1) destroy(this.ddlb_1) end on event resize;call super::resize; //dw_3.Height = dw_2.Y - dw_3.Y - 5 end event event open;THIS.TriggerEvent('ue_before_open') wf_movetocenter() dw_1.SetTransObject (sqlca) dw_1.RBUTTON_FILTER_USE = TRUE //右键查询功能开关 IF Trim(dw_1.DataObject) <> '' THEN dw_1.Object.DataWindow.Print.MARGIN.Top = Integer(ProfileString(sys_inifilename,dw_1.DataObject, "MARGIN_TOP", "110")) dw_1.Object.DataWindow.Print.MARGIN.Left = Integer(ProfileString(sys_inifilename,dw_1.DataObject, "MARGIN_LEFT", "96" )) dw_1.Object.DataWindow.Print.MARGIN.bottom = Integer(ProfileString(sys_inifilename,dw_1.DataObject, "MARGIN_BOTTOM", "110")) dw_1.Object.DataWindow.Print.MARGIN.Right = Integer(ProfileString(sys_inifilename,dw_1.DataObject, "MARGIN_RIGHT", "96" )) END IF wf_ddlb() wf_face() end event type cb_func from w_publ_easyq`cb_func within w_rp_combine integer x = 549 integer width = 165 string text = "功能" end type type cb_exit from w_publ_easyq`cb_exit within w_rp_combine integer x = 1376 end type type cb_2 from w_publ_easyq`cb_2 within w_rp_combine integer x = 969 end type event cb_2::clicked;call super::clicked;IF NOT (f_power_ind(1999,sys_msg_pow)) THEN MessageBox(publ_operator,'你没有使用权限！') RETURN END IF end event type cb_psetup from w_publ_easyq`cb_psetup within w_rp_combine integer x = 1120 end type type cb_1 from w_publ_easyq`cb_1 within w_rp_combine integer width = 274 string text = "统计" end type event cb_1::clicked;call super::clicked;//统计 Long ll_rpid,j Int li_rptype Long ll_col,ll_col1,ll_col2 Long ll_insert,ll_mth Decimal ld_amt,ld_amt2 String ls_formula,ls_var,ls_var2 Long l,m Long ll_array String ls_subid_array[],ls_subid Long ll_rowid_array[] String ls_code_array[],ls_code Int li_rowcmpltype Long ll_pos_dot1,ll_pos_dot2 datastore ds_col1,ds_col2,ds_col_cmpl s_edit_index_tran s_rst Open(w_rp_zcfzb_create) s_rst = Message.PowerObjectParm ll_mth = s_rst.b_long ll_rpid = cur_rpid li_rptype = cur_rptype //1栏 ds_col1 = Create datastore ds_col1.DataObject = 'ds_rp_combine_row' ds_col1.SetTransObject(sqlca) ll_col1 = ds_col1.Retrieve(ll_rpid,0) //2栏 IF li_rptype = 1 THEN ds_col2 = Create datastore ds_col2.DataObject = 'ds_rp_combine_row' ds_col2.SetTransObject(sqlca) ll_col2 = ds_col2.Retrieve(ll_rpid,1) END IF ds_col_cmpl = Create datastore ds_col_cmpl.DataObject = 'ds_rp_combine_row_cmpl' ds_col_cmpl.SetTransObject(sqlca) ll_col = Max(ll_col1,ll_col2) dw_1.reset() Open(w_sys_wait_jdt) //初始化进度条 w_sys_wait_jdt.Show() w_sys_wait_jdt.wf_accepttol(ll_col) //初始化进度条1 FOR j = 1 To ll_col w_sys_wait_jdt.wf_inc(j) //进度 ll_insert = dw_1.InsertRow(0) IF j <= ll_col1 THEN dw_1.Object.col1_name[ll_insert] = ds_col1.Object.rowname[j] dw_1.Object.col1_rowid01[ll_insert] = ds_col1.Object.rowid[j] w_sys_wait_jdt.st_msg.Text = "正在读取数据:"+ds_col1.Object.rowname[j]+'...' //进度信息 ld_amt = 0 ld_amt2 = 0 ds_col_cmpl.Retrieve(ds_col1.Object.rowid[j],sys_accsetid) IF ds_col_cmpl.RowCount() = 0 THEN ld_amt = 0 ld_amt2 = 0 ELSE ls_var = ds_col_cmpl.Object.formulavar[1] ls_var2 = ds_col_cmpl.Object.cw_rp_row_formula_formulavar2[1] ls_formula = ds_col_cmpl.Object.rowformula[1] li_rowcmpltype = ds_col_cmpl.Object.cw_rp_rowdef_rowcmpltype[1] CHOOSE CASE li_rowcmpltype CASE 0 ld_amt = 0 ld_amt2 = 0 CASE 1 ll_array = 0 ll_pos_dot1 = 0 ll_pos_dot2 = 0 ls_code = '+' IF ls_formula = '' Or ls_var = '' THEN ld_amt = 0 ld_amt2 = 0 ELSE DO WHILE ls_formula <> '' ll_pos_dot1 = Pos(ls_formula,'+') ll_pos_dot2 = Pos(ls_formula,'-') IF ll_pos_dot1 = 0 And ll_pos_dot2 = 0 THEN ll_array++ ls_subid_array[ll_array] = ls_formula ls_code_array[ll_array] = ls_code ls_formula = '' ELSEIF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 Or ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN ll_array++ ls_subid_array[ll_array] = Left(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) - 1) ls_formula = Mid(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) + 1) ls_code_array[ll_array] = ls_code IF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 THEN ls_code = '+' ELSEIF ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN ls_code = '-' END IF ELSEIF Pos(ls_formula,'+') > 0 And Pos(ls_formula,'-') > 0 THEN ll_array++ ls_subid_array[ll_array] = Left(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) - 1) ls_formula = Mid(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) + 1) ls_code_array[ll_array] = ls_code IF ll_pos_dot1 < ll_pos_dot2 THEN ls_code = '+' ELSE ls_code = '-' END IF END IF LOOP FOR l = 1 To ll_array IF ls_code_array[l] = '+' THEN ld_amt += f_amt(sys_accsetid,ls_subid_array[l],ls_var,ll_mth,sqlca) ld_amt2 += f_amt(sys_accsetid,ls_subid_array[l],ls_var2,ll_mth,sqlca) ELSE ld_amt -= f_amt(sys_accsetid,ls_subid_array[l],ls_var,ll_mth,sqlca) ld_amt2 -= f_amt(sys_accsetid,ls_subid_array[l],ls_var2,ll_mth,sqlca) END IF NEXT END IF CASE 2 ll_array = 0 ll_pos_dot1 = 0 ll_pos_dot2 = 0 ls_code = '+' IF ls_formula = '' THEN ld_amt = 0 ld_amt2 = 0 ELSE DO WHILE ls_formula <> '' ll_pos_dot1 = Pos(ls_formula,'+') ll_pos_dot2 = Pos(ls_formula,'-') IF ll_pos_dot1 = 0 And ll_pos_dot2 = 0 THEN ll_array++ ll_rowid_array[ll_array] = Long(ls_formula) ls_code_array[ll_array] = ls_code ls_formula = '' ELSEIF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 Or ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN ll_array++ ll_rowid_array[ll_array] = Long(Left(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) - 1)) ls_formula = Mid(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) + 1) ls_code_array[ll_array] = ls_code IF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 THEN ls_code = '+' ELSEIF ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN ls_code = '-' END IF ELSEIF Pos(ls_formula,'+') > 0 And Pos(ls_formula,'-') > 0 THEN ll_array++ ll_rowid_array[ll_array] = Long(Left(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) - 1)) ls_formula = Mid(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) + 1) ls_code_array[ll_array] = ls_code IF ll_pos_dot1 < ll_pos_dot2 THEN ls_code = '+' ELSE ls_code = '-' END IF END IF LOOP dw_1.AcceptText() FOR m = 1 To dw_1.RowCount() FOR l = 1 To ll_array IF dw_1.Object.col1_rowid01[m] = ll_rowid_array[l] THEN IF ls_code_array[l] = '+' THEN ld_amt += dw_1.GetItemDecimal(m,"col1_amt01") ld_amt2 += dw_1.GetItemDecimal(m,"col1_amt01_2") ELSE ld_amt -= dw_1.GetItemDecimal(m,"col1_amt01") ld_amt2 -= dw_1.GetItemDecimal(m,"col1_amt01_2") END IF END IF NEXT NEXT END IF END CHOOSE END IF dw_1.SetItem(ll_insert,"col1_amt01",ld_amt) dw_1.SetItem(ll_insert,"col1_amt01_2",ld_amt2) END IF IF li_rptype = 1 THEN IF j <= ll_col2 THEN dw_1.Object.col2_name[ll_insert] = ds_col2.Object.rowname[j] dw_1.Object.col2_rowid01[ll_insert] = ds_col2.Object.rowid[j] ld_amt = 0 ld_amt2 = 0 ll_array = 0 ds_col_cmpl.Retrieve(ds_col2.Object.rowid[j],sys_accsetid) IF ds_col_cmpl.RowCount() = 0 THEN ld_amt = 0 ld_amt2 = 0 ELSE ls_var = ds_col_cmpl.Object.formulavar[1] ls_var2 = ds_col_cmpl.Object.cw_rp_row_formula_formulavar2[1] ls_formula = ds_col_cmpl.Object.rowformula[1] li_rowcmpltype = ds_col_cmpl.Object.cw_rp_rowdef_rowcmpltype[1] CHOOSE CASE li_rowcmpltype CASE 0 ld_amt = 0 ld_amt2 = 0 CASE 1 ll_array = 0 ll_pos_dot1 = 0 ll_pos_dot2 = 0 ls_code = '+' IF ls_formula = '' Or ls_var = '' THEN ld_amt = 0 ld_amt2 = 0 ELSE DO WHILE ls_formula <> '' ll_pos_dot1 = Pos(ls_formula,'+') ll_pos_dot2 = Pos(ls_formula,'-') IF ll_pos_dot1 = 0 And ll_pos_dot2 = 0 THEN ll_array++ ls_subid_array[ll_array] = ls_formula ls_code_array[ll_array] = ls_code ls_formula = '' ELSEIF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 Or ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN ll_array++ ls_subid_array[ll_array] = Left(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) - 1) ls_formula = Mid(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) + 1) ls_code_array[ll_array] = ls_code IF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 THEN ls_code = '+' ELSEIF ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN ls_code = '-' END IF ELSEIF Pos(ls_formula,'+') > 0 And Pos(ls_formula,'-') > 0 THEN ll_array++ ls_subid_array[ll_array] = Left(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) - 1) ls_formula = Mid(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) + 1) ls_code_array[ll_array] = ls_code IF ll_pos_dot1 < ll_pos_dot2 THEN ls_code = '+' ELSE ls_code = '-' END IF END IF LOOP FOR l = 1 To ll_array IF ls_code_array[l] = '+' THEN ld_amt += f_amt(sys_accsetid,ls_subid_array[l],ls_var,ll_mth,sqlca) ld_amt2 += f_amt(sys_accsetid,ls_subid_array[l],ls_var2,ll_mth,sqlca) ELSE ld_amt -= f_amt(sys_accsetid,ls_subid_array[l],ls_var,ll_mth,sqlca) ld_amt2 -= f_amt(sys_accsetid,ls_subid_array[l],ls_var2,ll_mth,sqlca) END IF NEXT END IF CASE 2 ll_array = 0 ll_pos_dot1 = 0 ll_pos_dot2 = 0 ls_code = '+' IF ls_formula = '' THEN ld_amt = 0 ld_amt2 = 0 ELSE DO WHILE ls_formula <> '' ll_pos_dot1 = Pos(ls_formula,'+') ll_pos_dot2 = Pos(ls_formula,'-') IF ll_pos_dot1 = 0 And ll_pos_dot2 = 0 THEN ll_array++ ll_rowid_array[ll_array] = Long(ls_formula) ls_code_array[ll_array] = ls_code ls_formula = '' ELSEIF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 Or ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN ll_array++ ll_rowid_array[ll_array] = Long(Left(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) - 1)) ls_formula = Mid(ls_formula,Max(ll_pos_dot1,ll_pos_dot2) + 1) ls_code_array[ll_array] = ls_code IF ll_pos_dot1 > 0 And ll_pos_dot2 = 0 THEN ls_code = '+' ELSEIF ll_pos_dot1 = 0 And ll_pos_dot2 > 0 THEN ls_code = '-' END IF ELSEIF Pos(ls_formula,'+') > 0 And Pos(ls_formula,'-') > 0 THEN ll_array++ ll_rowid_array[ll_array] = Long(Left(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) - 1)) ls_formula = Mid(ls_formula,Min(ll_pos_dot1,ll_pos_dot2) + 1) ls_code_array[ll_array] = ls_code IF ll_pos_dot1 < ll_pos_dot2 THEN ls_code = '+' ELSE ls_code = '-' END IF END IF LOOP dw_1.AcceptText() FOR m = 1 To dw_1.RowCount() FOR l = 1 To ll_array IF dw_1.Object.col2_rowid01[m] = ll_rowid_array[l] THEN IF ls_code_array[l] = '+' THEN ld_amt += dw_1.GetItemDecimal(m,"col2_amt01") ld_amt2 += dw_1.GetItemDecimal(m,"col2_amt01_2") ELSE ld_amt -= dw_1.GetItemDecimal(m,"col2_amt01") ld_amt2 -= dw_1.GetItemDecimal(m,"col2_amt01_2") END IF END IF NEXT NEXT END IF END CHOOSE END IF dw_1.SetItem(ll_insert,"col2_amt01",ld_amt) dw_1.SetItem(ll_insert,"col2_amt01_2",ld_amt2) END IF END IF NEXT dw_1.Object.rpmonth.Text = '单位名称:'+trim(s_sys_accset.cropname)+' 月份:'+string(ll_mth) Close(w_sys_wait_jdt) end event type st_3 from w_publ_easyq`st_3 within w_rp_combine boolean visible = false integer x = 1874 integer y = 400 integer width = 261 string text = "统计期间:" end type type st_4 from w_publ_easyq`st_4 within w_rp_combine boolean visible = false integer x = 1463 integer y = 480 end type type em_1 from w_publ_easyq`em_1 within w_rp_combine boolean visible = false integer x = 2149 integer y = 384 integer width = 306 alignment alignment = center! string mask = "yyyymm" end type type em_2 from w_publ_easyq`em_2 within w_rp_combine boolean visible = false integer x = 1568 integer y = 460 integer width = 306 alignment alignment = center! string mask = "yyyy-mm" end type type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_combine integer x = 1733 integer y = 36 end type type cbx_yl from w_publ_easyq`cbx_yl within w_rp_combine integer x = 1527 integer y = 40 end type type dw_1 from w_publ_easyq`dw_1 within w_rp_combine integer y = 304 integer width = 2752 string dataobject = "dw_rp_combine_3" boolean setcolumn_visible_use = false boolean autosave_filter_use = false boolean autosave_sort_use = false boolean autosave_setlayout_use = false boolean autosave_columnvisible_use = false end type type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_combine integer x = 1979 integer y = 1216 end type type sle_cust from w_publ_easyq`sle_cust within w_rp_combine integer x = 1710 integer y = 1404 end type type st_mtrl from w_publ_easyq`st_mtrl within w_rp_combine integer x = 1522 integer y = 1232 end type type st_cust from w_publ_easyq`st_cust within w_rp_combine integer x = 1243 integer y = 1416 end type type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_combine integer x = 2533 integer y = 60 end type type pb_em1 from w_publ_easyq`pb_em1 within w_rp_combine boolean visible = false integer x = 1755 integer y = 1004 end type type pb_em2 from w_publ_easyq`pb_em2 within w_rp_combine boolean visible = false integer x = 2368 integer y = 1004 end type type pb_2 from w_publ_easyq`pb_2 within w_rp_combine boolean visible = false integer x = 2478 integer y = 1004 end type type cb_help from w_publ_easyq`cb_help within w_rp_combine boolean visible = false integer x = 2327 end type type cb_copyself from w_publ_easyq`cb_copyself within w_rp_combine integer x = 713 end type type gb_1 from w_publ_easyq`gb_1 within w_rp_combine end type type ln_bar from w_publ_easyq`ln_bar within w_rp_combine end type type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_combine end type type r_bar from w_publ_easyq`r_bar within w_rp_combine end type type ln_1 from w_publ_easyq`ln_1 within w_rp_combine end type type ln_2 from w_publ_easyq`ln_2 within w_rp_combine end type type ln_3 from w_publ_easyq`ln_3 within w_rp_combine end type type ln_4 from w_publ_easyq`ln_4 within w_rp_combine end type type cb_3 from uo_imflatbutton within w_rp_combine integer x = 274 integer width = 274 integer height = 164 integer taborder = 30 boolean bringtotop = true string text = "报表设置" string normalpicname = "update.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;open(w_rp_combine_setting) end event type st_1 from statictext within w_rp_combine integer x = 32 integer y = 204 integer width = 146 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 string text = "报表" alignment alignment = right! boolean focusrectangle = false end type type ddlb_1 from dropdownlistbox within w_rp_combine integer x = 197 integer y = 188 integer width = 690 integer height = 680 integer taborder = 50 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 boolean vscrollbar = true borderstyle borderstyle = stylelowered! end type event selectionchanged;cur_rpid = Long(Mid ( THIS.Text,Pos(THIS.Text,'[') + 1,Len(THIS.Text) - Pos(THIS.Text,'[') - 1 )) wf_face() end event