Q5/ws_objects/longjoe_report_uo.pbl.src/w_rpt_groupd.srw

$PBExportHeader$w_rpt_groupd.srw
$PBExportComments$删除分组--窗口
forward
global type w_rpt_groupd from Window
end type
type cb_2 from commandbutton within w_rpt_groupd
end type
type cb_1 from commandbutton within w_rpt_groupd
end type
type dw1 from datawindow within w_rpt_groupd
end type
end forward

global type w_rpt_groupd from Window
int X=841
int Y=524
int Width=1170
int Height=1240
boolean TitleBar=true
string Title="删除分组"
long BackColor=12632256
boolean ControlMenu=true
WindowType WindowType=response!
cb_2 cb_2
cb_1 cb_1
dw1 dw1
end type
global w_rpt_groupd w_rpt_groupd

type variables
int i,iis,ii_row
string is_temp
end variables

on w_rpt_groupd.create
this.cb_2=create cb_2
this.cb_1=create cb_1
this.dw1=create dw1
this.Control[]={this.cb_2,&
this.cb_1,&
this.dw1}
end on

on w_rpt_groupd.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.dw1)
end on

event open;f_wcenter(this)
dw1.modify("ctag_t.text='分组表达式'")
iis=w_rpt_main.iis
for i=1 to iis
	is_temp=w_rpt_main.io[i].oname
	if pos(is_temp,'band_g_h_')=1 then
		ii_row=dw1.insertrow(0)
		dw1.setitem(ii_row,'cname',is_temp)
		is_temp=w_rpt_main.io[i].otext
		is_temp=f_replace(is_temp,'▲组标题区','分组')
		dw1.setitem(ii_row,'ctag',is_temp)
	end if
next

end event

type cb_2 from commandbutton within w_rpt_groupd
int X=663
int Y=1016
int Width=247
int Height=108
int TabOrder=20
string Text="取消"
int TextSize=-9
int Weight=400
string FaceName="宋体"
FontPitch FontPitch=Variable!
end type

event clicked;close(parent)
end event

type cb_1 from commandbutton within w_rpt_groupd
int X=233
int Y=1016
int Width=247
int Height=108
int TabOrder=10
string Text="确认"
int TextSize=-9
int Weight=400
string FaceName="宋体"
FontPitch FontPitch=Variable!
end type

event clicked;is_temp=''
ii_row=dw1.GetSelectedRow(0)
if ii_row>0 then
	is_temp=dw1.getitemstring(ii_row,'cname')
end if
closewithreturn(parent,is_temp)
end event

type dw1 from datawindow within w_rpt_groupd
int X=73
int Y=12
int Width=997
int Height=976
int TabOrder=30
string DataObject="dw_rpt_column"
BorderStyle BorderStyle=StyleLowered!
boolean VScrollBar=true
boolean LiveScroll=true
end type

event clicked;ii_row=dw1.getselectedrow(0)
if ii_row>0 then
	dw1.selectrow(ii_row,false)
end if
if row>0 then
	dw1.selectrow(row,true)
end if
end event