$PBExportHeader$w_rpt_sql.srw $PBExportComments$设置数据源--窗口 forward global type w_rpt_sql from w_rpt_base end type type tab_1 from tab within w_rpt_sql end type type tp_table from userobject within tab_1 end type type dw_1 from datawindow within tp_table end type type tp_table from userobject within tab_1 dw_1 dw_1 end type type tp_where from userobject within tab_1 end type type dw_2 from datawindow within tp_where end type type dw_5 from datawindow within tp_where end type type tp_where from userobject within tab_1 dw_2 dw_2 dw_5 dw_5 end type type tp_col from userobject within tab_1 end type type dw_3 from datawindow within tp_col end type type cb_2 from commandbutton within tp_col end type type cb_3 from commandbutton within tp_col end type type tp_col from userobject within tab_1 dw_3 dw_3 cb_2 cb_2 cb_3 cb_3 end type type tp_sort from userobject within tab_1 end type type dw_4 from datawindow within tp_sort end type type tp_sort from userobject within tab_1 dw_4 dw_4 end type type tp_sql from userobject within tab_1 end type type mle_1 from multilineedit within tp_sql end type type dw_10 from datawindow within tp_sql end type type tp_sql from userobject within tab_1 mle_1 mle_1 dw_10 dw_10 end type type tp_procedure from userobject within tab_1 end type type dw_6 from datawindow within tp_procedure end type type sle_1 from singlelineedit within tp_procedure end type type st_1 from statictext within tp_procedure end type type st_2 from statictext within tp_procedure end type type tp_procedure from userobject within tab_1 dw_6 dw_6 sle_1 sle_1 st_1 st_1 st_2 st_2 end type type tp_wbsjy from userobject within tab_1 end type type dw_7 from datawindow within tp_wbsjy end type type tp_wbsjy from userobject within tab_1 dw_7 dw_7 end type type tp_bbgs from userobject within tab_1 end type type gb_3 from groupbox within tp_bbgs end type type gb_2 from groupbox within tp_bbgs end type type gb_1 from groupbox within tp_bbgs end type type rb_1 from radiobutton within tp_bbgs end type type rb_2 from radiobutton within tp_bbgs end type type rb_3 from radiobutton within tp_bbgs end type type ddlb_1 from dropdownlistbox within tp_bbgs end type type dw_8 from datawindow within tp_bbgs end type type ddlb_3 from dropdownlistbox within tp_bbgs end type type dw_9 from datawindow within tp_bbgs end type type ddlb_2 from dropdownlistbox within tp_bbgs end type type ddlb_4 from dropdownlistbox within tp_bbgs end type type rb_6 from radiobutton within tp_bbgs end type type rb_5 from radiobutton within tp_bbgs end type type rb_7 from radiobutton within tp_bbgs end type type rb_9 from radiobutton within tp_bbgs end type type rb_4 from radiobutton within tp_bbgs end type type rb_8 from radiobutton within tp_bbgs end type type rb_10 from radiobutton within tp_bbgs end type type em_1 from editmask within tp_bbgs end type type st_3 from statictext within tp_bbgs end type type tp_bbgs from userobject within tab_1 gb_3 gb_3 gb_2 gb_2 gb_1 gb_1 rb_1 rb_1 rb_2 rb_2 rb_3 rb_3 ddlb_1 ddlb_1 dw_8 dw_8 ddlb_3 ddlb_3 dw_9 dw_9 ddlb_2 ddlb_2 ddlb_4 ddlb_4 rb_6 rb_6 rb_5 rb_5 rb_7 rb_7 rb_9 rb_9 rb_4 rb_4 rb_8 rb_8 rb_10 rb_10 em_1 em_1 st_3 st_3 end type type tab_1 from tab within w_rpt_sql tp_table tp_table tp_where tp_where tp_col tp_col tp_sort tp_sort tp_sql tp_sql tp_procedure tp_procedure tp_wbsjy tp_wbsjy tp_bbgs tp_bbgs end type type dw11 from datawindow within w_rpt_sql end type type rb_s1 from radiobutton within w_rpt_sql end type type rb_s2 from radiobutton within w_rpt_sql end type type rb_s3 from radiobutton within w_rpt_sql end type type rb_s4 from radiobutton within w_rpt_sql end type type cb_yes from commandbutton within w_rpt_sql end type type cb_no from commandbutton within w_rpt_sql end type end forward global type w_rpt_sql from w_rpt_base integer y = 4 integer width = 3282 integer height = 1816 string title = "自动生成数据窗口向导" boolean minbox = false boolean maxbox = false boolean resizable = false windowtype windowtype = response! windowstate windowstate = normal! long backcolor = 80269524 tab_1 tab_1 dw11 dw11 rb_s1 rb_s1 rb_s2 rb_s2 rb_s3 rb_s3 rb_s4 rb_s4 cb_yes cb_yes cb_no cb_no end type global w_rpt_sql w_rpt_sql type variables datawindow dw01,dw02,dw03,dw04,dw05,dw06,dw07,dw10 DataWindowChild dw_child1,dw_child2,dw_child3 string is_ctag int ii_bbgs=1,ii_band_size,ii_tables,ii_select_count,ii_select_row datastore ids,ids2 int ii_rowc=50,ii_sqlno=1 string is_sqlselect,is_where,is_fields,is_from,is_sort,is_group,is_from_old,is_arguments string is_procedure w_rpt_main win_parent end variables forward prototypes public subroutine wf_select (datawindow f_dw, integer f_row, integer f_label) public subroutine wf_dwclick (datawindow f_dw, integer f_row) public subroutine wf_button (datawindow f_dw, integer f_label) public subroutine wf_sql () public subroutine wf_getfrom () public subroutine wf_bbgs (string s_bbgs) public subroutine wf_arg () public function integer wf_dw11 (string ssql) end prototypes public subroutine wf_select (datawindow f_dw, integer f_row, integer f_label);int li_row,li_select_row,j string ls_select_row if f_label= -1 then ii_select_count=ii_select_count -1 is_ctag=f_dw.getitemstring(f_row,'ctag') ii_select_row=long(left(is_ctag,3)) is_ctag=right(is_ctag,len(is_ctag) -4) f_dw.setitem(f_row,'ctag',is_ctag) for j=1 to 999 li_row=f_dw.getSelectedRow(li_row) if li_row=0 then exit is_ctag=f_dw.getitemstring(li_row,'ctag') li_select_row=long(left(is_ctag,3)) ls_select_row=string(li_select_row -1) ls_select_row=space(3 -len(ls_select_row))+ls_select_row if li_select_row>ii_select_row then is_ctag=ls_select_row+'.'+right(is_ctag,len(is_ctag) -4) f_dw.setitem(li_row,'ctag',is_ctag) end if next else ii_select_count=ii_select_count+1 is_ctag=string(ii_select_count) is_ctag=space(3 -len(is_ctag))+is_ctag is_ctag=is_ctag+'.'+f_dw.getitemstring(f_row,'ctag') f_dw.setitem(f_row,'ctag',is_ctag) end if return end subroutine public subroutine wf_dwclick (datawindow f_dw, integer f_row);if f_row>0 then if f_dw.getSelectedrow(f_row -1)=f_row then f_dw.Selectrow(f_row,false) wf_select(f_dw,f_row,-1) else f_dw.Selectrow(f_row,true) wf_select(f_dw,f_row,1) end if end if end subroutine public subroutine wf_button (datawindow f_dw, integer f_label);int li,li_rows li_rows=f_dw.rowcount() for li=1 to li_rows if f_dw.getSelectedRow(li -1)=li then if f_label=-1 then f_dw.SelectRow(li,false) wf_select(f_dw,li,-1) end if else if f_label=1 then f_dw.SelectRow(li,true) wf_select(f_dw,li,1) end if end if next end subroutine public subroutine wf_sql ();string ls_fields,ls_dbname,ls_name,ls_tag,ls_type,ls_table int j,li_row,li_len2,li_pos ids.reset() dw11.reset() dw02.accepttext() dw04.accepttext() ii_rows=dw03.rowcount() dw03.rowscopy(1,ii_rows,Primary!,ids,1,Primary!) ids.setfilter("mid(ctag,4,1)='.'") ids.filter()//过滤选择好的字段 ids.setsort("ctag") ids.sort()//按选择字段的顺序排序 if is_datasource='dw' then//前台 is_sqlselect=f_replace(trim(ids2.object.datawindow.table.sqlselect),'~~~"','')//SQL语句里的~"可以去掉 else//后台 wf_getfrom() end if ii_rows=ids.rowcount() for i=1 to ii_rows ls_dbname=ids.getitemstring(i,2) ls_fields=ls_fields+','+ls_dbname if is_datasource='dw' then//前台 ls_tag=mid(ids.getitemstring(i,1),5) ls_type=ids.getitemstring(i,3) ls_name=ids.getitemstring(i,4) ls_tag=mid(ls_tag,pos(ls_tag,'.')+1) li_pos=pos(ls_dbname,'.') ls_table=left(ls_dbname,li_pos -1) ii_row=dw11.insertrow(0) dw11.setitem(ii_row,'cname',ls_name) dw11.setitem(ii_row,'cdbname',ls_dbname) dw11.setitem(ii_row,'ctag',ls_tag) dw11.setitem(ii_row,'ctype',ls_type) dw11.setitem(ii_row,'cinitial',ids.getitemstring(i,'cinitial')) if pos(is_from,',')=0 then dw11.setitem(ii_row,'cupdate','yes') dw11.setitem(ii_row,'ckey',ids.getitemstring(i,'ckey')) end if end if next if is_datasource<>'dw' then//后台 is_where='' ii_row=dw02.rowcount() for i=1 to ii_row//通过关联字段生成where子句语法 s[1]=dw02.getitemstring(i,'s_col1') s[2]=dw02.getitemstring(i,'s_col2') s[5]=dw02.getitemstring(i,'s_zkh') s[6]=dw02.getitemstring(i,'s_ykh') if s[1]>'' and s[2]>'' then s[3]=' '+dw02.getitemstring(i,'s_relation')+' ' if i=1 then s[4]='' else s[4]=dw02.getitemstring(i -1,'s_label') end if if s[4]='' then s[4]=' and ' if is_where>'' then is_where=is_where+s[4]+s[5]+s[1]+s[3]+s[2]+s[6] else is_where=s[5]+s[1]+s[3]+s[2]+s[6] end if end if next is_sort='' for j=1 to ii_rowc//提取排序表达式 s[1]=trim(dw04.getitemstring(j,1)) s[2]=dw04.getitemstring(j,2) if s[1]>'' then if s[2]='2' then s[1]=s[1]+' desc' else s[1]=s[1]+' asc' end if is_sort=is_sort+','+s[1] end if next is_sort=mid(is_sort,2) ls_fields=mid(ls_fields,2) is_sqlselect='select '+ls_fields+' from '+is_from if is_where>'' then is_sqlselect=is_sqlselect+' where '+is_where if is_group>'' then is_sqlselect=is_sqlselect+' group by '+is_group if is_sort>'' then is_sqlselect=is_sqlselect+' order by '+is_sort end if //messagebox('',is_sqlselect) return end subroutine public subroutine wf_getfrom ();int li ii_tables=0 is_from='' ii_rows=dw01.rowcount() for i=1 to ii_rows li=dw01.getSelectedRow(li) if li=0 then exit ii_tables++ is_from=is_from+','+dw01.getitemstring(li,'table_english') next is_from=mid(is_from,2) end subroutine public subroutine wf_bbgs (string s_bbgs);ii_bbgs=long(left(s_bbgs,2)) if ii_bbgs=0 then ii_bbgs=long(win_parent.id[1].ox1) if ii_bbgs>0 then ii_bbgs=ii_bbgs+5 else is_temp=win_parent.id[1].ofweight if long(is_temp)>1 then ii_bbgs=5 tab_1.tp_bbgs.em_1.text=is_temp else ii_bbgs=1 end if end if choose case ii_bbgs case 1 tab_1.tp_bbgs.rb_1.postevent(clicked!) case 5 tab_1.tp_bbgs.rb_5.postevent(clicked!) case 6 tab_1.tp_bbgs.rb_6.postevent(clicked!) case 7 tab_1.tp_bbgs.rb_7.postevent(clicked!) case 8 tab_1.tp_bbgs.rb_8.postevent(clicked!) case 9 tab_1.tp_bbgs.rb_9.postevent(clicked!) case 10 tab_1.tp_bbgs.rb_10.postevent(clicked!) end choose elseif ii_bbgs=5 then tab_1.tp_bbgs.st_3.visible=true tab_1.tp_bbgs.em_1.visible=true else tab_1.tp_bbgs.st_3.visible=false tab_1.tp_bbgs.em_1.visible=false end if end subroutine public subroutine wf_arg ();is_arguments='' ii_rows=dw05.rowcount() for i=1 to ii_rows//提取参数 s[1]=trim(dw05.getitemstring(i,1)) s[2]=trim(dw05.getitemstring(i,2)) if s[1]>'' then if is_arguments>'' then is_arguments=is_arguments+',' is_arguments=is_arguments+'("'+s[1]+'",'+s[2]+')' end if next if is_arguments>'' then is_arguments='('+is_arguments+')' end subroutine public function integer wf_dw11 (string ssql);ii_rows=dw05.rowcount() for i=1 to ii_rows//提取参数 s[3]=trim(dw05.getitemstring(i,1)) if s[3]='' then continue s[4]=trim(dw05.getitemstring(i,2)) choose case s[4] case 'date' s[5]=string(today()) ssql=f_replace(ssql,':'+s[3],"'"+s[5]+"'") case 'datetime' s[5]=string(now()) ssql=f_replace(ssql,':'+s[3],"'"+s[5]+"'") case 'time' s[5]=string(time(now())) case 'string','number','numberlist' s[5]='0' ssql=f_replace(ssql,':'+s[3],s[5]) case else s[5]='0' ssql=f_replace(ssql,':'+s[3],s[5]) end choose next dw11.reset() s[6]=f_rpt_gdw(ssql,dw11,it_report,'','') if s[6]>'' then messagebox('出错信息',s[6]) return 1 end if istr_rpt.rsql2=ssql//此SQL的参数已经有值,可以直接运行 return 0 end function on w_rpt_sql.create int iCurrent call super::create this.tab_1=create tab_1 this.dw11=create dw11 this.rb_s1=create rb_s1 this.rb_s2=create rb_s2 this.rb_s3=create rb_s3 this.rb_s4=create rb_s4 this.cb_yes=create cb_yes this.cb_no=create cb_no iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.tab_1 this.Control[iCurrent+2]=this.dw11 this.Control[iCurrent+3]=this.rb_s1 this.Control[iCurrent+4]=this.rb_s2 this.Control[iCurrent+5]=this.rb_s3 this.Control[iCurrent+6]=this.rb_s4 this.Control[iCurrent+7]=this.cb_yes this.Control[iCurrent+8]=this.cb_no end on on w_rpt_sql.destroy call super::destroy destroy(this.tab_1) destroy(this.dw11) destroy(this.rb_s1) destroy(this.rb_s2) destroy(this.rb_s3) destroy(this.rb_s4) destroy(this.cb_yes) destroy(this.cb_no) end on event open;call super::open;win_parent = this.parentwindow() f_wcenter(this) //定义dw01,dw02,dw03,dw04是为了之后编程书写方便 dw01=tab_1.tp_table.dw_1 dw02=tab_1.tp_where.dw_2 dw03=tab_1.tp_col.dw_3 dw04=tab_1.tp_sort.dw_4 dw05=tab_1.tp_where.dw_5 dw06=tab_1.tp_procedure.dw_6 dw07=tab_1.tp_wbsjy.dw_7 dw10=tab_1.tp_sql.dw_10 //ctag是选择的字段前面加了编号,ctag2则是没有加编号的字段中文名 dw03.modify("ctag.visible=1 ctag2.visible=0") it_report=istr_rpt.transation//接收参数 is_datasource=istr_rpt.datasource ids=create datastore ids.dataobject=dw03.dataobject ids2=create datastore if is_datasource='dw' then tab_1.tp_table.visible=false tab_1.tp_where.visible=false tab_1.tp_sort.visible=false istr_rpt.isdw=istr_rpt.userdw.object.datawindow.syntax ids2.create(istr_rpt.isdw) ids2.settransobject(it_report) else dw01.SETTRANSOBJECT(it_report) dw01.retrieve() for i=1 to ii_rowc dw02.insertrow(0) dw04.insertrow(0) next dw02.GetChild('s_col1',dw_child1) dw02.GetChild('s_col2',dw_child2) dw04.GetChild('s_sort',dw_child3) dw03.sharedata(dw_child1) dw03.sharedata(dw_child2) dw03.sharedata(dw_child3) end if tab_1.tp_bbgs.dw_8.INSERTROW(0) tab_1.tp_bbgs.dw_9.INSERTROW(0) tab_1.tp_bbgs.dw_8.modify("text_1.text='标题字体示例' text_1.font.height='24'") tab_1.tp_bbgs.dw_9.modify("text_1.text='内容字体示例' text_1.font.height='12'") if istr_rpt.auto='sql' then//重新设置数据源 tab_1.tp_bbgs.visible=false title='重新设置数据源' end if wf_bbgs('0') is_arguments=istr_rpt.rarguments is_sqlselect=istr_rpt.rsqlselect is_procedure=istr_rpt.rprocedure if is_sqlselect='' and is_procedure='' and win_parent.dw3.rowcount()>0 then ii_sqlno=3 elseif is_sqlselect='' and is_procedure>'' then ii_sqlno=4 else if pos(is_sqlselect,'~n')>0 then//SQL中有回车符,则认为是直接写SQL语句 ii_sqlno=2 else ii_sqlno=1 end if end if f_rpt_cksql(is_sqlselect,is_fields,is_from,is_where,is_group,is_sort) /////////////修改点////////////--------is_where if istr_rpt.auto <> 'sql' then is_where = istr_rpt.wheresql is_from = istr_rpt.tablename end if if ii_sqlno=1 then is_from=is_from+',' is_where=is_where+' and ' is_sort=is_sort+',' do while 1=1//重新标记已选的表 l[1]=pos(is_from,',') if l[1]<2 then exit s[1]=trim(left(is_from,l[1] -1)) is_from=mid(is_from,l[1]+1) ii_row=dw01.Find("table_english='"+s[1]+"'",1,999) if ii_row>0 then dw01.SelectRow(ii_row,TRUE) else ii_sqlno=2 end if loop tab_1.event selectionchanged(1,3)//去取dw03的数据 if is_where<>' and ' then string ls[] int j,k,m is_temp=dw02.describe('s_relation.values') is_temp=f_replace(is_temp,'/','~t') f_atab(ls[],is_temp) k=upperbound(ls[]) for i=1 to ii_rowc l[1]=pos(is_where,' and ') l[2]=pos(is_where,' or ') if l[1]+l[2]=0 then exit if l[1]>0 and l[2]>0 then l[3]=min(l[1],l[2]) elseif l[1]>0 then l[3]=l[1] else l[3]=l[2] end if s[3]=trim(left(is_where,l[3] -1)) is_where=lefttrim(mid(is_where,l[3]+4))//lefttrim不能改为trim,因为最后是' and ' if is_where>'' then if l[1]=l[3] then dw02.setitem(i,'s_label',' and ') else dw02.setitem(i,'s_label',' or ') end if end if if s[3]>'' then for j=k to 1 step -1 l[1]=pos(s[3],ls[j]) if l[1]>0 then if pos(ls[j],'=')+pos(ls[j],'>')+pos(ls[j],'<')=0 then if l[1]=1 or pos(' '+char(9),mid(s[3],l[1] -1,1))=0 or pos(' '+char(9),mid(s[3],l[1]+len(ls[j]),1))=0 then//比较符为英文单词时,前面一个字符必须为空格或Tab字符 continue end if end if s[1]=trim(left(s[3],l[1] -1)) s[2]=trim(mid(s[3],l[1]+len(ls[j]))) s[3]='' s[4]='' for m=1 to 6 if left(s[1],1)='(' then s[3]=s[3]+'(' s[1]=trim(mid(s[1],2)) else exit end if next for m=1 to 6 if right(s[2],1)=')' then s[4]=s[4]+')' s[2]=trim(left(s[2],len(s[2])-1)) else exit end if next dw02.setitem(i,'s_col1',s[1]) dw02.setitem(i,'s_col2',s[2]) dw02.setitem(i,'s_relation',ls[j]) dw02.setitem(i,'s_zkh',s[3]) dw02.setitem(i,'s_ykh',s[4]) exit end if next if j=0 then ii_sqlno=2 end if end if next end if l[2]=1//重新标记已选的索引 for i=1 to ii_rowc//is_sort=表达式1 asc,表达式2 desc,索引字段也带表名 l[1]=pos(is_sort,',',l[2]) if l[1]=0 then exit s[2]='1' s[3]=trim(left(is_sort,l[1] -1)) if right(lower(s[3]),5)=' desc' then s[1]=trim(left(s[3],l[1] -6)) s[2]='2' elseif right(lower(s[3]),4)=' asc' then s[1]=trim(left(s[3],l[1] -5)) elseif pos(s[3],'(',l[2])=0 then//没有函数情况 s[1]=s[3] elseif pos(s[3],'(',l[2])>0 then//暂时只能处理只有一个函数有','的情况,否则此索引会变成两个 l[2]=l[1]+1 i -- continue end if dw04.setitem(i,1,s[1]) if s[2]='2' then dw04.setitem(i,2,'2') is_sort=trim(mid(is_sort,l[1]+1)) l[2]=1 next end if is_arguments=mid(is_arguments,2,len(is_arguments)-2)//把两边的括号去掉 /////////////修改点////////////--------is_arguments if istr_rpt.auto <> 'sql' then is_arguments=istr_rpt.arguments end if do while 1=1//重新标记参数 l[1]=pos(is_arguments,'(') l[2]=pos(is_arguments,',',l[1]) l[3]=pos(is_arguments,')',l[1]) if l[1]<1 then exit s[1]=trim(mid(is_arguments,l[1]+2,l[2] -l[1] -3)) s[2]=trim(mid(is_arguments,l[2]+1,l[3] -l[2] -1)) is_arguments=mid(is_arguments,l[3]+1) i=dw05.insertrow(0) dw05.setitem(i,1,s[1]) dw05.setitem(i,2,s[2]) loop dw05.sharedata(dw06) dw05.sharedata(dw10) if ii_bbgs=9 then//crosstab wf_dw11(istr_rpt.rsqlselect+istr_rpt.rprocedure)// else win_parent.dw3.sharedata(dw11) end if ii_rows=dw11.rowcount() for i=1 to ii_rows if ii_sqlno=3 then//外部数据源 s[1]=dw11.getitemstring(i,'cname') s[2]=dw11.getitemstring(i,'ctype') dw07.insertrow(0) dw07.setitem(i,1,s[1]) if pos(s[2],'decimal')=1 then dw07.setitem(i,2,'decimal') dw07.setitem(i,4,long(mid(s[2],9,len(s[2])-9))) elseif pos(s[2],'char')=1 then dw07.setitem(i,2,'string') dw07.setitem(i,3,long(mid(s[2],6,len(s[2])-6))) elseif pos(s[2],'varchar')=1 then dw07.setitem(i,2,'string') dw07.setitem(i,3,long(mid(s[2],9,len(s[2])-9))) else dw07.setitem(i,2,s[2]) end if elseif ii_sqlno<3 then//存储过程跳过 s[1]=dw11.getitemstring(i,'cdbname') l[2]=dw03.find("cdbname='"+s[1]+"'",1,999) if l[2]>0 then wf_dwclick(dw03,l[2]) else ii_sqlno=2 end if end if next if ii_bbgs<>9 then//非crosstab win_parent.dw3.sharedataoff() end if if is_procedure>'' then l[1]=pos(is_procedure,'execute ') l[2]=pos(is_procedure,';') if l[2]=0 then l[2]=pos(is_procedure,' ',l[1]+8) if l[1]>0 and l[2]>0 then s[1]=trim(mid(is_procedure,l[1]+8,l[2] -l[1] -8)) tab_1.tp_procedure.sle_1.text=s[1] end if end if if is_datasource='dw' then choose case ii_sqlno case 1 rb_s1.checked=true case 2 rb_s2.checked=true case 3 rb_s3.checked=true case 4 rb_s4.checked=true end choose rb_s1.enabled=false rb_s2.enabled=false rb_s3.enabled=false rb_s4.enabled=false tab_1.tp_sql.visible=true tab_1.tp_table.visible=false tab_1.tp_where.visible=false tab_1.tp_col.visible=true tab_1.tp_sort.visible=false tab_1.tp_procedure.visible=false tab_1.tp_wbsjy.visible=false tab_1.tp_sql.mle_1.text=is_sqlselect l[1]=long(ids2.Object.DataWindow.Column.Count)//字段总数 for j=1 to l[1] s[1]=ids2.describe("#"+string(j)+'.name')//字段英文名 s[2]=trim(ids2.describe(s[1]+'_t.text'))//字段中文名 if pos('?!',s[2])>0 then//取不到就取字段的tag名 s[2]=trim(ids2.describe(s[1]+'.tag')) end if if s[2]='?' then s[2]=s[1] s[3]=ids2.describe(s[1]+'.coltype')//字段类型 s[4]=ids2.describe(s[1]+'.dbname') s[5]=ids2.describe(s[1]+'.initial') ii_row=dw03.insertrow(0) dw03.setitem(ii_row,'cname',s[1]) dw03.setitem(ii_row,'ctag',s[2]) dw03.setitem(ii_row,'ctype',s[3]) dw03.setitem(ii_row,'cdbname',s[4]) dw03.setitem(ii_row,'cinitial',s[5]) next if istr_rpt.auto<>'auto' then ii_rows=dw03.rowcount() for i=1 to ii_rows wf_dwclick(dw03,i) next end if tab_1.post selecttab(tab_1.tp_col) else choose case ii_sqlno case 1 rb_s1.postevent(clicked!) case 2 rb_s2.postevent(clicked!) case 3 rb_s3.postevent(clicked!) case 4 rb_s4.postevent(clicked!) end choose end if f_getfont(tab_1.tp_bbgs.ddlb_1) f_getfont(tab_1.tp_bbgs.ddlb_3) if istr_rpt.tt='crosstab_auto' then//此参数纯粹为了取参数如istr_rpt.rprocedur2 cb_yes.event clicked() end if end event event close;destroy ids destroy ids2 end event event resize;////根据显示分辨率调整对象位置,大小 //if ii_sqlno=1 then // tab_1.x=0 // tab_1.y=0 // tab_1.width=newwidth // tab_1.height=newheight // dw01.x=(newwidth - dw01.width -30)/2 // dw01.height=newheight -150 // dw02.x=(newwidth - dw02.width -30)/2 // dw02.height=newheight -160 -dw05.height // dw05.x=dw02.x // dw05.y=dw02.y+dw02.height+8 // ii_temp=newheight -240 // dw03.x=(newwidth - dw03.width -30)/2 // dw03.height=ii_temp // dw04.x=(newwidth - dw04.width -30)/2 // dw04.height=newheight -150 // tab_1.tp_col.cb_2.x=(newwidth -30)/2 -30 -tab_1.tp_col.cb_2.width // tab_1.tp_col.cb_3.x=(newwidth -30)/2 +30 // tab_1.tp_sql.mle_1.width=newwidth -2*tab_1.tp_sql.mle_1.x //end if end event event ue_cond;tab_1.SelectTab(3) end event type tab_1 from tab within w_rpt_sql integer x = 5 integer width = 3273 integer height = 1612 integer taborder = 10 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 80269524 alignment alignment = center! integer selectedtab = 1 tp_table tp_table tp_where tp_where tp_col tp_col tp_sort tp_sort tp_sql tp_sql tp_procedure tp_procedure tp_wbsjy tp_wbsjy tp_bbgs tp_bbgs end type on tab_1.create this.tp_table=create tp_table this.tp_where=create tp_where this.tp_col=create tp_col this.tp_sort=create tp_sort this.tp_sql=create tp_sql this.tp_procedure=create tp_procedure this.tp_wbsjy=create tp_wbsjy this.tp_bbgs=create tp_bbgs this.Control[]={this.tp_table,& this.tp_where,& this.tp_col,& this.tp_sort,& this.tp_sql,& this.tp_procedure,& this.tp_wbsjy,& this.tp_bbgs} end on on tab_1.destroy destroy(this.tp_table) destroy(this.tp_where) destroy(this.tp_col) destroy(this.tp_sort) destroy(this.tp_sql) destroy(this.tp_procedure) destroy(this.tp_wbsjy) destroy(this.tp_bbgs) end on event selectionchanged;int j,li_row string ls_sql,ls_errors if ii_sqlno<>1 then return if oldindex=1 and newindex<>1 then if is_datasource='dw' then//前台 else wf_getfrom() if is_from<>is_from_old then//如果选择的表改变 is_from_old=is_from dw03.reset() li_row=0 ii_select_count=0 for i=1 to ii_tables li_row=dw01.getSelectedRow(li_row) if li_row=0 then exit s[5]=dw01.getitemstring(li_row,'table_chinese')//表的中文名 s[6]=dw01.getitemstring(li_row,'table_english')//表的英文名 ls_sql='SELECT '+s[6]+'.* from '+s[6] if ii_tables>1 then s[2]=mid('ABCDEFGHIJKLMNOPQRSTUVWXYZ',i,1)+s[5]+'.' else s[2]='' end if ls_errors=f_rpt_gdw(ls_sql,dw03,it_report,s[2],s[6]) next end if end if end if if newindex=5 then wf_sql() tab_1.tp_sql.mle_1.text=is_sqlselect end if return end event type tp_table from userobject within tab_1 integer x = 18 integer y = 112 integer width = 3237 integer height = 1484 long backcolor = 80269524 string text = "选表或视图" long tabtextcolor = 33554432 long tabbackcolor = 80269524 string picturename = "Database!" long picturemaskcolor = 553648127 dw_1 dw_1 end type on tp_table.create this.dw_1=create dw_1 this.Control[]={this.dw_1} end on on tp_table.destroy destroy(this.dw_1) end on type dw_1 from datawindow within tp_table integer x = 571 integer y = 4 integer width = 2094 integer height = 1484 integer taborder = 2 boolean bringtotop = true string dataobject = "dw_rpt_table" boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type event clicked;if row>0 then if getSelectedRow(Row - 1)=row then SelectRow(Row,false) else SelectRow(Row,true) end if end if return 1 end event type tp_where from userobject within tab_1 integer x = 18 integer y = 112 integer width = 3237 integer height = 1484 long backcolor = 80269524 string text = "关联或条件" long tabtextcolor = 33554432 long tabbackcolor = 80269524 string picturename = "Join!" long picturemaskcolor = 553648127 dw_2 dw_2 dw_5 dw_5 end type on tp_where.create this.dw_2=create dw_2 this.dw_5=create dw_5 this.Control[]={this.dw_2,& this.dw_5} end on on tp_where.destroy destroy(this.dw_2) destroy(this.dw_5) end on type dw_2 from datawindow within tp_where event ue_auto ( ) integer width = 3237 integer height = 1136 integer taborder = 2 string dragicon = "one!" boolean bringtotop = true string dataobject = "dw_rpt_relation" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type event ue_auto;accepttext() l[1]=getrow() l[2]=getcolumn() if l[1]>0 then choose case l[2] case 1 s[1]=getitemstring(l[1],1) if s[1]>'' then s[2]=getitemstring(l[1],2) if s[2]='' then setitem(l[1],2,'=') for i=l[1] -1 to 1 step -1 s[1]=getitemstring(i,1) s[2]=getitemstring(i,4) if s[1]>'' and s[2]='' then setitem(i,4,' and ') exit end if next end if case 3,4 s[1]=getitemstring(l[1],1) s[2]=getitemstring(l[1],2) if s[1]>'' and s[2]='' then setitem(l[1],2,'=') end if end choose end if end event event buttonclicked;if row>0 then deleterow(row) insertrow(0) end if end event event clicked;event ue_auto() end event event itemchanged;event ue_auto() end event event rowfocuschanged;event ue_auto() end event type dw_5 from datawindow within tp_where integer y = 1144 integer width = 3232 integer height = 340 integer taborder = 110 boolean bringtotop = true string dataobject = "dw_rpt_argument" boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type type tp_col from userobject within tab_1 integer x = 18 integer y = 112 integer width = 3237 integer height = 1484 long backcolor = 80269524 string text = "选字段" long tabtextcolor = 33554432 long tabbackcolor = 80269524 string picturename = "ArrangeIcons!" long picturemaskcolor = 553648127 dw_3 dw_3 cb_2 cb_2 cb_3 cb_3 end type on tp_col.create this.dw_3=create dw_3 this.cb_2=create cb_2 this.cb_3=create cb_3 this.Control[]={this.dw_3,& this.cb_2,& this.cb_3} end on on tp_col.destroy destroy(this.dw_3) destroy(this.cb_2) destroy(this.cb_3) end on type dw_3 from datawindow within tp_col event clicked pbm_dwnlbuttonclk integer x = 69 integer y = 96 integer width = 2752 integer height = 1372 integer taborder = 10 string dataobject = "dw_rpt_field_drop" boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type event clicked;wf_dwclick(this,row) end event type cb_2 from commandbutton within tp_col integer x = 1175 integer y = 12 integer width = 178 integer height = 76 integer taborder = 10 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "全选" end type event clicked;wf_button(dw_3,1) end event type cb_3 from commandbutton within tp_col integer x = 1399 integer y = 12 integer width = 219 integer height = 76 integer taborder = 20 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "全不选" end type event clicked;wf_button(dw_3,-1) end event type tp_sort from userobject within tab_1 integer x = 18 integer y = 112 integer width = 3237 integer height = 1484 long backcolor = 80269524 string text = "选索引" long tabtextcolor = 33554432 long tabbackcolor = 80269524 string picturename = "Sort!" long picturemaskcolor = 553648127 dw_4 dw_4 end type on tp_sort.create this.dw_4=create dw_4 this.Control[]={this.dw_4} end on on tp_sort.destroy destroy(this.dw_4) end on type dw_4 from datawindow within tp_sort integer x = 238 integer y = 12 integer width = 2405 integer height = 1460 integer taborder = 20 boolean bringtotop = true string dataobject = "dw_rpt_sort" boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type type tp_sql from userobject within tab_1 integer x = 18 integer y = 112 integer width = 3237 integer height = 1484 long backcolor = 80269524 string text = "语句" long tabtextcolor = 33554432 long tabbackcolor = 80269524 string picturename = "SQL!" long picturemaskcolor = 553648127 mle_1 mle_1 dw_10 dw_10 end type on tp_sql.create this.mle_1=create mle_1 this.dw_10=create dw_10 this.Control[]={this.mle_1,& this.dw_10} end on on tp_sql.destroy destroy(this.mle_1) destroy(this.dw_10) end on type mle_1 from multilineedit within tp_sql integer y = 28 integer width = 3232 integer height = 1060 integer taborder = 20 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 80269524 boolean vscrollbar = true boolean autovscroll = true boolean displayonly = true borderstyle borderstyle = stylelowered! end type type dw_10 from datawindow within tp_sql integer y = 1100 integer width = 3227 integer height = 360 integer taborder = 90 boolean bringtotop = true string dataobject = "dw_rpt_argument" boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type type tp_procedure from userobject within tab_1 integer x = 18 integer y = 112 integer width = 3237 integer height = 1484 long backcolor = 80269524 string text = "存储过程" long tabtextcolor = 33554432 long tabbackcolor = 80269524 string picturename = "DeclareProcedure!" long picturemaskcolor = 553648127 dw_6 dw_6 sle_1 sle_1 st_1 st_1 st_2 st_2 end type on tp_procedure.create this.dw_6=create dw_6 this.sle_1=create sle_1 this.st_1=create st_1 this.st_2=create st_2 this.Control[]={this.dw_6,& this.sle_1,& this.st_1,& this.st_2} end on on tp_procedure.destroy destroy(this.dw_6) destroy(this.sle_1) destroy(this.st_1) destroy(this.st_2) end on type dw_6 from datawindow within tp_procedure integer x = 78 integer y = 780 integer width = 2802 integer height = 604 integer taborder = 120 boolean bringtotop = true string dataobject = "dw_rpt_argument" boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type type sle_1 from singlelineedit within tp_procedure integer x = 78 integer y = 212 integer width = 2802 integer height = 92 integer taborder = 50 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 boolean autohscroll = false borderstyle borderstyle = stylelowered! end type type st_1 from statictext within tp_procedure integer x = 78 integer y = 116 integer width = 2802 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 80269524 boolean enabled = false string text = "存储过程名称(如：sp_name)" boolean focusrectangle = false end type type st_2 from statictext within tp_procedure integer x = 78 integer y = 672 integer width = 2802 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 boolean enabled = false string text = "存储过程参数" boolean focusrectangle = false end type type tp_wbsjy from userobject within tab_1 integer x = 18 integer y = 112 integer width = 3237 integer height = 1484 long backcolor = 80269524 string text = "外部数据源" long tabtextcolor = 33554432 long tabbackcolor = 80269524 string picturename = "ScriptYes!" long picturemaskcolor = 553648127 dw_7 dw_7 end type on tp_wbsjy.create this.dw_7=create dw_7 this.Control[]={this.dw_7} end on on tp_wbsjy.destroy destroy(this.dw_7) end on type dw_7 from datawindow within tp_wbsjy integer x = 197 integer y = 24 integer width = 2583 integer height = 1440 integer taborder = 20 boolean bringtotop = true string dataobject = "dw_rpt_wbsjy" boolean vscrollbar = true boolean livescroll = true borderstyle borderstyle = stylelowered! end type type tp_bbgs from userobject within tab_1 event create ( ) event destroy ( ) integer x = 18 integer y = 112 integer width = 3237 integer height = 1484 long backcolor = 80269524 string text = "数据窗口格式" long tabtextcolor = 33554432 long tabbackcolor = 80269524 string picturename = "RunReport!" long picturemaskcolor = 553648127 gb_3 gb_3 gb_2 gb_2 gb_1 gb_1 rb_1 rb_1 rb_2 rb_2 rb_3 rb_3 ddlb_1 ddlb_1 dw_8 dw_8 ddlb_3 ddlb_3 dw_9 dw_9 ddlb_2 ddlb_2 ddlb_4 ddlb_4 rb_6 rb_6 rb_5 rb_5 rb_7 rb_7 rb_9 rb_9 rb_4 rb_4 rb_8 rb_8 rb_10 rb_10 em_1 em_1 st_3 st_3 end type on tp_bbgs.create this.gb_3=create gb_3 this.gb_2=create gb_2 this.gb_1=create gb_1 this.rb_1=create rb_1 this.rb_2=create rb_2 this.rb_3=create rb_3 this.ddlb_1=create ddlb_1 this.dw_8=create dw_8 this.ddlb_3=create ddlb_3 this.dw_9=create dw_9 this.ddlb_2=create ddlb_2 this.ddlb_4=create ddlb_4 this.rb_6=create rb_6 this.rb_5=create rb_5 this.rb_7=create rb_7 this.rb_9=create rb_9 this.rb_4=create rb_4 this.rb_8=create rb_8 this.rb_10=create rb_10 this.em_1=create em_1 this.st_3=create st_3 this.Control[]={this.gb_3,& this.gb_2,& this.gb_1,& this.rb_1,& this.rb_2,& this.rb_3,& this.ddlb_1,& this.dw_8,& this.ddlb_3,& this.dw_9,& this.ddlb_2,& this.ddlb_4,& this.rb_6,& this.rb_5,& this.rb_7,& this.rb_9,& this.rb_4,& this.rb_8,& this.rb_10,& this.em_1,& this.st_3} end on on tp_bbgs.destroy destroy(this.gb_3) destroy(this.gb_2) destroy(this.gb_1) destroy(this.rb_1) destroy(this.rb_2) destroy(this.rb_3) destroy(this.ddlb_1) destroy(this.dw_8) destroy(this.ddlb_3) destroy(this.dw_9) destroy(this.ddlb_2) destroy(this.ddlb_4) destroy(this.rb_6) destroy(this.rb_5) destroy(this.rb_7) destroy(this.rb_9) destroy(this.rb_4) destroy(this.rb_8) destroy(this.rb_10) destroy(this.em_1) destroy(this.st_3) end on event constructor;st_3.visible=false em_1.visible=false end event type gb_3 from groupbox within tp_bbgs integer x = 1787 integer y = 792 integer width = 1024 integer height = 608 integer taborder = 30 integer textsize = -9 integer weight = 400 fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 80269524 string text = "内容字体" end type type gb_2 from groupbox within tp_bbgs integer x = 1792 integer y = 60 integer width = 1024 integer height = 608 integer taborder = 20 integer textsize = -9 integer weight = 400 fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 80269524 string text = "标题字体" end type type gb_1 from groupbox within tp_bbgs integer x = 46 integer y = 56 integer width = 1504 integer height = 1356 integer taborder = 10 integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 80269524 string text = "数据窗口类型" end type type rb_1 from radiobutton within tp_bbgs event clicked pbm_bnclicked integer x = 201 integer y = 148 integer width = 987 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 80269524 string text = " 1 FreeForm - 表格式(标准宽度)" boolean checked = true end type event clicked;wf_bbgs(text) checked=true end event type rb_2 from radiobutton within tp_bbgs event clicked pbm_bnclicked integer x = 201 integer y = 228 integer width = 987 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 80269524 string text = " 2 FreeForm - 表格式(压缩宽度)" end type event clicked;wf_bbgs(text) checked=true end event type rb_3 from radiobutton within tp_bbgs event clicked pbm_bnclicked integer x = 201 integer y = 308 integer width = 987 integer height = 92 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 80269524 string text = " 3 FreeForm - 纯自由式" end type event clicked;wf_bbgs(text) checked=true end event type ddlb_1 from dropdownlistbox within tp_bbgs event selectionchanged pbm_cbnselchange integer x = 1833 integer y = 136 integer width = 736 integer height = 492 integer taborder = 40 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "宋体" boolean vscrollbar = true end type event selectionchanged;dw_8.modify("text_1.font.face='"+this.text+"'") end event type dw_8 from datawindow within tp_bbgs integer x = 1829 integer y = 280 integer width = 942 integer height = 356 integer taborder = 50 boolean bringtotop = true string dataobject = "dw_rpt_font" boolean border = false boolean livescroll = true end type type ddlb_3 from dropdownlistbox within tp_bbgs event selectionchanged pbm_cbnselchange integer x = 1824 integer y = 868 integer width = 736 integer height = 492 integer taborder = 70 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "宋体" boolean vscrollbar = true end type event selectionchanged;dw_9.modify("text_1.font.face='"+this.text+"'") end event type dw_9 from datawindow within tp_bbgs integer x = 1824 integer y = 1012 integer width = 942 integer height = 356 integer taborder = 80 boolean bringtotop = true string dataobject = "dw_rpt_font" boolean border = false boolean livescroll = true end type type ddlb_2 from dropdownlistbox within tp_bbgs event selectionchanged pbm_cbnselchange integer x = 2578 integer y = 136 integer width = 192 integer height = 492 integer taborder = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "18" boolean allowedit = true boolean sorted = false boolean vscrollbar = true string item[] = {"8","9","10","11","12","14","16","18","20","22","24","26","28","36","48","72"} end type event selectionchanged;dw_8.modify("text_1.font.height='"+this.text+"'") end event type ddlb_4 from dropdownlistbox within tp_bbgs event selectionchanged pbm_cbnselchange integer x = 2574 integer y = 868 integer width = 192 integer height = 492 integer taborder = 90 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 16777215 string text = "9" boolean allowedit = true boolean sorted = false boolean vscrollbar = true string item[] = {"8","9","10","11","12","14","16","18","20","22","24","26","28","36","48","72"} end type event selectionchanged;dw_9.modify("text_1.font.height='"+this.text+"'") end event type rb_6 from radiobutton within tp_bbgs integer x = 201 integer y = 564 integer width = 987 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 string text = " 6 Grid - 网格" end type event clicked;wf_bbgs(text) checked=true end event type rb_5 from radiobutton within tp_bbgs integer x = 201 integer y = 484 integer width = 658 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 string text = " 5 N-UP - 格式" end type event clicked;wf_bbgs(text) checked=true end event type rb_7 from radiobutton within tp_bbgs integer x = 201 integer y = 644 integer width = 987 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 string text = " 7 Label - 标签格式" end type event clicked;wf_bbgs(text) checked=true end event type rb_9 from radiobutton within tp_bbgs integer x = 201 integer y = 804 integer width = 987 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 string text = " 9 Crosstab - 交叉表" end type event clicked;wf_bbgs(text) checked=true end event type rb_4 from radiobutton within tp_bbgs integer x = 201 integer y = 404 integer width = 987 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 string text = " 4 Tabular - 格式" end type event clicked;wf_bbgs(text) checked=true end event type rb_8 from radiobutton within tp_bbgs integer x = 201 integer y = 724 integer width = 987 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 string text = " 8 Graph - 图表" end type event clicked;wf_bbgs(text) checked=true end event type rb_10 from radiobutton within tp_bbgs integer x = 201 integer y = 884 integer width = 987 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 string text = "10 Composite - 复合表" end type event clicked;wf_bbgs(text) checked=true rb_s3.postevent(clicked!) end event type em_1 from editmask within tp_bbgs integer x = 1330 integer y = 480 integer width = 178 integer height = 84 integer taborder = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 string text = "2" alignment alignment = right! borderstyle borderstyle = stylelowered! string mask = "0" boolean spin = true double increment = 1 end type type st_3 from statictext within tp_bbgs integer x = 878 integer y = 492 integer width = 453 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 boolean enabled = false string text = "- 细节区重复行数" alignment alignment = center! boolean focusrectangle = false end type type dw11 from datawindow within w_rpt_sql boolean visible = false integer x = 841 integer y = 1764 integer width = 1262 integer height = 368 integer taborder = 20 boolean bringtotop = true string dataobject = "dw_rpt_column" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean livescroll = true end type type rb_s1 from radiobutton within w_rpt_sql integer x = 41 integer y = 1632 integer width = 439 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 string text = "视图方式" boolean checked = true end type event clicked;ii_sqlno=1 tab_1.tp_table.visible=true tab_1.selecttab(tab_1.tp_table) tab_1.tp_sql.visible=true tab_1.tp_sql.mle_1.displayonly=true tab_1.tp_sql.mle_1.BackColor=80269524 tab_1.tp_where.visible=true tab_1.tp_col.visible=true tab_1.tp_sort.visible=true tab_1.tp_procedure.visible=false tab_1.tp_wbsjy.visible=false checked=true end event type rb_s2 from radiobutton within w_rpt_sql integer x = 457 integer y = 1632 integer width = 439 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 string text = "直接写SQL语句" end type event clicked;ii_sqlno=2 tab_1.tp_sql.visible=true tab_1.tp_sql.mle_1.displayonly=false tab_1.tp_sql.mle_1.BackColor=16777215 tab_1.selecttab(tab_1.tp_sql) tab_1.tp_table.visible=false tab_1.tp_where.visible=false tab_1.tp_col.visible=false tab_1.tp_sort.visible=false tab_1.tp_procedure.visible=false tab_1.tp_wbsjy.visible=false tab_1.tp_sql.mle_1.text=is_sqlselect checked=true end event type rb_s3 from radiobutton within w_rpt_sql integer x = 983 integer y = 1632 integer width = 439 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 string text = "外部数据源" end type event clicked;ii_sqlno=3 tab_1.tp_wbsjy.visible=true tab_1.selecttab(tab_1.tp_wbsjy) tab_1.tp_table.visible=false tab_1.tp_where.visible=false tab_1.tp_col.visible=false tab_1.tp_sort.visible=false tab_1.tp_sql.visible=false tab_1.tp_procedure.visible=false checked=true end event type rb_s4 from radiobutton within w_rpt_sql integer x = 1454 integer y = 1632 integer width = 439 integer height = 76 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 67108864 string text = "存储过程" end type event clicked;ii_sqlno=4 tab_1.tp_procedure.visible=true tab_1.tp_table.visible=false tab_1.tp_where.visible=false tab_1.tp_col.visible=false tab_1.tp_sort.visible=false tab_1.tp_sql.visible=false tab_1.tp_wbsjy.visible=false tab_1.selecttab(tab_1.tp_procedure) checked=true end event type cb_yes from commandbutton within w_rpt_sql integer x = 2181 integer y = 1624 integer width = 265 integer height = 88 integer taborder = 30 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontpitch fontpitch = variable! string facename = "宋体" string text = "确定(&Y)" end type event clicked;dw11.reset() dw02.accepttext() dw04.accepttext() dw05.accepttext() dw06.accepttext() dw07.accepttext() dw10.accepttext() if is_datasource='dw' then//前台 wf_sql()//处理is_sqlselect和coldw else choose case ii_sqlno case 1//视图方式 is_procedure='' tab_1.event selectionchanged(1,3)//先选字段后再去改选表,需要触发此事件 wf_sql()//处理is_sqlselect和coldw if is_from='' then is_temp='请选择表名.' goto myerror end if if ids.rowcount()=0 then is_temp='请选择字段.' goto myerror end if if is_where='' and pos(is_from,',')>0 then is_temp='请选择关联.' goto myerror end if if wf_dw11(is_sqlselect)=1 then return case 2//直接写SQL语句 is_procedure='' s[1]=tab_1.tp_sql.mle_1.text if wf_dw11(s[1])=1 then return if right(s[1],1)<>'~n' then s[1]=s[1]+'~n'//为了在OPEN事件中好识别是直接写SQL语句 is_sqlselect=s[1] case 3//外部数据源 is_sqlselect='' is_procedure='' ii_rows=dw07.rowcount() for i=1 to ii_rows s[1]=dw07.getitemstring(i,1) s[2]=dw07.getitemstring(i,2) dw11.insertrow(0) dw11.setitem(i,'cname',s[1]) dw11.setitem(i,'cdbname',s[1]) dw11.setitem(i,'ctag',s[1]) if s[2]='decimal' then dw11.setitem(i,'ctype','decimal('+string(dw07.object.data[i,4])+')') elseif s[2]='string' then dw11.setitem(i,'ctype','char('+string(dw07.object.data[i,3])+')') else dw11.setitem(i,'ctype',s[2]) end if next case 4//存储过程//execute dba.sp3 '','' is_sqlselect='' s[1]=tab_1.tp_procedure.sle_1.text s[1]='execute '+s[1]+' ' ii_rows=dw05.rowcount() for i=1 to ii_rows//提取参数 s[3]=trim(dw05.getitemstring(i,1)) if s[3]='' then continue s[1]=s[1]+':'+s[3]+',' next if right(s[1],1)=',' then s[1]=left(s[1],len(s[1])-1) if wf_dw11(s[1])=1 then return is_procedure=s[1] end choose end if if ii_bbgs<>9 then//非crosstab if istr_rpt.auto='auto' then if ii_sqlno=1 and pos(is_from,',')=0 then win_parent.is_updatetable=is_from end if ii_band_size=long(tab_1.tp_bbgs.ddlb_4.text)*4/3 ii_rows=dw11.rowcount() for i=1 to ii_rows s[1]=dw11.getitemstring(i,'ctag') s[2]=dw11.getitemstring(i,'ctype') dw11.setitem(i,'clen1',len(s[1])*ii_band_size/2)//字段标题象素 dw11.setitem(i,'clen2',min(f_clen(s[2])*ii_band_size/2,800)) next end if ii_rows=dw11.rowcount() for i=1 to ii_rows//恢复设置的initial,value, is_temp=dw11.getitemstring(i,'cdbname') ii_row=win_parent.dw3.find("cdbname='"+is_temp+"'",1,999) if ii_row>0 then dw11.setitem(i,'cinitial',win_parent.dw3.getitemstring(ii_row,'cinitial')) dw11.setitem(i,'cvalues',win_parent.dw3.getitemstring(ii_row,'cvalues')) dw11.setitem(i,'cvalidation',win_parent.dw3.getitemstring(ii_row,'cvalidation')) dw11.setitem(i,'cvalidationmsg',win_parent.dw3.getitemstring(ii_row,'cvalidationmsg')) dw11.setitem(i,'cidentity',win_parent.dw3.getitemstring(ii_row,'cidentity')) end if next win_parent.dw3.reset() dw11.RowsCopy(1,dw11.RowCount(),Primary!,win_parent.dw3,1,Primary!) end if if is_datasource<>'dw' then//后台 wf_arg() istr_rpt.rsqlselect=is_sqlselect istr_rpt.rarguments=is_arguments istr_rpt.rprocedure=is_procedure end if if istr_rpt.auto='auto' then istr_rpt.tt=string(ii_bbgs) istr_rpt.t1=tab_1.tp_bbgs.ddlb_1.text//title font name istr_rpt.t2=string(round(long(tab_1.tp_bbgs.ddlb_2.text)*4/3,0))//title font size istr_rpt.t3=tab_1.tp_bbgs.ddlb_3.text//band font name istr_rpt.t4=string(round(long(tab_1.tp_bbgs.ddlb_4.text)*4/3,0)) istr_rpt.t5=tab_1.tp_bbgs.em_1.text end if closewithreturn(parent,istr_rpt) return myerror: //清除已经生成的有关字段 ids.setfilter("") ids.setsort("") messagebox('提示信息',is_temp) return end event type cb_no from commandbutton within w_rpt_sql integer x = 2587 integer y = 1624 integer width = 265 integer height = 88 integer taborder = 40 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontpitch fontpitch = variable! string facename = "宋体" string text = "取消(&N)" end type event clicked;close(parent) end event