Q5/ws_objects/longjoe_report.pbl.src/w_rpt_field_def.srw

$PBExportHeader$w_rpt_field_def.srw
forward
global type w_rpt_field_def from w_publ_base
end type
type dw_table from u_dw_rbtnfilter within w_rpt_field_def
end type
type dw_field from u_dw_rbtnfilter within w_rpt_field_def
end type
type cb_add from uo_imflatbutton within w_rpt_field_def
end type
type cb_edit from uo_imflatbutton within w_rpt_field_def
end type
type cb_delet from uo_imflatbutton within w_rpt_field_def
end type
type cb_retrieve from uo_imflatbutton within w_rpt_field_def
end type
type cb_add_table from uo_imflatbutton within w_rpt_field_def
end type
type cb_edit_table from uo_imflatbutton within w_rpt_field_def
end type
type cb_delet_table from uo_imflatbutton within w_rpt_field_def
end type
type cb_imexport_table from uo_imflatbutton within w_rpt_field_def
end type
type cb_imexport from uo_imflatbutton within w_rpt_field_def
end type
type cb_retrieve_table from uo_imflatbutton within w_rpt_field_def
end type
type ln_bar2 from line within w_rpt_field_def
end type
type ln_bar from line within w_rpt_field_def
end type
type r_bar from rectangle within w_rpt_field_def
end type
end forward

global type w_rpt_field_def from w_publ_base
integer width = 3611
integer height = 2372
string title = "系统数据字典"
boolean maxbox = true
windowstate windowstate = maximized!
event retrieve_field ( )
event dwnkey pbm_dwnkey
dw_table dw_table
dw_field dw_field
cb_add cb_add
cb_edit cb_edit
cb_delet cb_delet
cb_retrieve cb_retrieve
cb_add_table cb_add_table
cb_edit_table cb_edit_table
cb_delet_table cb_delet_table
cb_imexport_table cb_imexport_table
cb_imexport cb_imexport
cb_retrieve_table cb_retrieve_table
ln_bar2 ln_bar2
ln_bar ln_bar
r_bar r_bar
end type
global w_rpt_field_def w_rpt_field_def

type variables
//long ll_billid
uo_reportdef uo_report
uo_billdef uo_bill
boolean  ls_update_flag=true
Boolean dw_edit_mode_table = FALSE

str_rpt s_rpt_parm

s_rpt_bill s_bill[]

long dw_table_h,dw_field_h,dw_field_w
long modifyrow_no

string ins_sqlerrtext
end variables

forward prototypes
public function integer wf_face_change ()
public function integer wf_face_change_table ()
end prototypes

event retrieve_field();Long row
row = dw_table.GetRow()
IF row > 0 THEN
	dw_field.SetRedraw (FALSE)
	dw_field.Retrieve(dw_table.Object.table_english[row])
	dw_field.SetRedraw (TRUE)
ELSE
	dw_field.Reset()
END IF

end event

public function integer wf_face_change ();Long i
IF dw_edit_mode THEN
	cb_delet_table.Enabled = FALSE
	cb_imexport_table.Enabled = FALSE
	cb_retrieve_table.Enabled = FALSE
	cb_edit_table.Enabled = FALSE
	cb_add_table.Enabled = FALSE
	
	cb_retrieve.Enabled = FALSE
	cb_delet.Enabled = FALSE
	cb_imexport.Enabled = FALSE
	cb_add.Enabled = TRUE
	
	cb_edit.Text = "放弃&E"
	cb_edit.normalpicname = 'Undo.bmp'
	
	FOR i = 1 TO 2
		dw_field.SetTabOrder ( i , i * 10 )
	NEXT
	
	dw_table.Enabled = FALSE
ELSE
	
	cb_delet_table.Enabled = TRUE
	cb_imexport_table.Enabled = TRUE
	cb_retrieve_table.Enabled = TRUE
	cb_edit_table.Enabled = TRUE
	cb_add_table.Enabled = TRUE
	
	cb_retrieve.Enabled = TRUE
	cb_delet.Enabled = TRUE
	cb_imexport.Enabled = TRUE
	cb_add.Enabled = FALSE
	
	cb_edit.Text = "修改&E"
	cb_edit.normalpicname = 'OPEN.bmp'
	
	FOR i = 1 TO 2
		dw_field.SetTabOrder ( i , 0 )
	NEXT
	
	dw_table.Enabled = TRUE
END IF

cb_edit.of_init_draw()
cb_edit.of_paint()
cb_edit.TriggerEvent('ue_textchange')

RETURN 1




end function

public function integer wf_face_change_table ();Long i
IF dw_edit_mode_table THEN
	cb_retrieve.Enabled = FALSE
	cb_delet.Enabled = FALSE
	cb_imexport.Enabled = FALSE
	cb_edit.Enabled = FALSE
	cb_add.Enabled = FALSE
	
	
	cb_delet_table.Enabled = FALSE
	cb_imexport_table.Enabled = FALSE
	cb_retrieve_table.Enabled = FALSE
	
	cb_edit_table.Text = "放弃&E"
	cb_add_table.Text = "保存&S"
	cb_edit_table.normalpicname = 'Undo.bmp'
	cb_add_table.normalpicname = 'Save.bmp'
	dw_field.Enabled = FALSE
ELSE
	cb_retrieve.Enabled = TRUE
	cb_delet.Enabled = TRUE
	cb_imexport.Enabled = TRUE
	cb_edit.Enabled = TRUE
	cb_add.Enabled = FALSE
	
	cb_delet_table.Enabled = TRUE
	cb_imexport_table.Enabled = TRUE
	cb_retrieve_table.Enabled = TRUE
	
	cb_edit_table.Text = "修改&E"
	cb_add_table.Text = "新建&S"
	cb_edit_table.normalpicname = 'OPEN.bmp'
	cb_add_table.normalpicname = 'new.bmp'
	dw_field.Enabled = TRUE
END IF


cb_edit_table.of_init_draw()
cb_add_table.of_init_draw()
cb_edit_table.of_paint()
cb_add_table.of_paint()
cb_edit_table.TriggerEvent('ue_textchange')
cb_add_table.TriggerEvent('ue_textchange')

RETURN 1


end function

on w_rpt_field_def.create
int iCurrent
call super::create
this.dw_table=create dw_table
this.dw_field=create dw_field
this.cb_add=create cb_add
this.cb_edit=create cb_edit
this.cb_delet=create cb_delet
this.cb_retrieve=create cb_retrieve
this.cb_add_table=create cb_add_table
this.cb_edit_table=create cb_edit_table
this.cb_delet_table=create cb_delet_table
this.cb_imexport_table=create cb_imexport_table
this.cb_imexport=create cb_imexport
this.cb_retrieve_table=create cb_retrieve_table
this.ln_bar2=create ln_bar2
this.ln_bar=create ln_bar
this.r_bar=create r_bar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_table
this.Control[iCurrent+2]=this.dw_field
this.Control[iCurrent+3]=this.cb_add
this.Control[iCurrent+4]=this.cb_edit
this.Control[iCurrent+5]=this.cb_delet
this.Control[iCurrent+6]=this.cb_retrieve
this.Control[iCurrent+7]=this.cb_add_table
this.Control[iCurrent+8]=this.cb_edit_table
this.Control[iCurrent+9]=this.cb_delet_table
this.Control[iCurrent+10]=this.cb_imexport_table
this.Control[iCurrent+11]=this.cb_imexport
this.Control[iCurrent+12]=this.cb_retrieve_table
this.Control[iCurrent+13]=this.ln_bar2
this.Control[iCurrent+14]=this.ln_bar
this.Control[iCurrent+15]=this.r_bar
end on

on w_rpt_field_def.destroy
call super::destroy
destroy(this.dw_table)
destroy(this.dw_field)
destroy(this.cb_add)
destroy(this.cb_edit)
destroy(this.cb_delet)
destroy(this.cb_retrieve)
destroy(this.cb_add_table)
destroy(this.cb_edit_table)
destroy(this.cb_delet_table)
destroy(this.cb_imexport_table)
destroy(this.cb_imexport)
destroy(this.cb_retrieve_table)
destroy(this.ln_bar2)
destroy(this.ln_bar)
destroy(this.r_bar)
end on

event open;call super::open;dw_table.SetTransObject(sqlca)
dw_field.SetTransObject(sqlca)
dw_table.Retrieve()

end event

event close;call super::close;DESTROY uo_report
end event

event resize;call super::resize;long w_width,w_height
w_width = 3630
w_height = 2290 + 100

ln_bar.endx = this.width
ln_bar2.endx = this.width
r_bar.width = this.width

if newwidth < w_width then this.width = w_width
if newheight < w_height then  this.height = w_height

dw_table.height = this.height - (w_height - dw_table_h)
dw_field.width=this.width - (w_width - dw_field_w)
dw_field.height=this.height - (w_height - dw_field_h)

end event

event closequery;call super::closequery;
Int ls_row = 0

IF dw_edit_mode THEN
	dw_field.AcceptText()
	ls_row = dw_field.GetNextModified(0, Primary!)+&
		dw_field.GetNextModified(0, Filter!)+dw_field.DeletedCount()
	IF ls_row > 0 THEN
		IF MessageBox('询问','数据已经改变，是否先保存？',Question!,YesNo!,1 ) = 1 THEN
			RETURN 1
		END IF
	END IF
END IF

IF dw_edit_mode_table THEN
	dw_table.AcceptText()
	ls_row = dw_table.GetNextModified(0, Primary!)+&
		dw_table.GetNextModified(0, Filter!)+dw_table.DeletedCount()
	IF ls_row > 0 THEN
		IF MessageBox('询问','数据已经改变，是否先保存？',Question!,YesNo!,1 ) = 1 THEN
			RETURN 1
		END IF
	END IF
END IF

end event

event key;call super::key;IF KeyDown(KeyDelete!) THEN
	cb_delet_table.TriggerEvent(clicked!)
end if
end event

type cb_func from w_publ_base`cb_func within w_rpt_field_def
end type

type cb_exit from w_publ_base`cb_exit within w_rpt_field_def
integer x = 2446
integer width = 151
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_table from u_dw_rbtnfilter within w_rpt_field_def
integer y = 188
integer width = 1499
integer height = 2080
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_rpt_table_def"
boolean vscrollbar = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
boolean autosave_setlayout_use = false
end type

event clicked;call super::clicked;IF not( dw_edit_mode or row <=0 ) THEN  this.setrow(row)


end event

event rowfocuschanged;call super::rowfocuschanged;IF dw_edit_mode THEN RETURN
IF currentrow <= 0 THEN
	dw_field.Reset()
	RETURN
END IF

THIS.SetRow(currentrow)
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

PARENT.TriggerEvent('retrieve_field')


end event

event constructor;call super::constructor;dw_table_h = this.height
end event

event rowfocuschanging;call super::rowfocuschanging;if dw_edit_mode_table  then return 1
end event

event dwnkey;if keydown(KeyF4!)  then //read layout
	uf_read_profile_filter()
	uf_read_profile_sort()
	//uf_read_profile_layout()
elseif keydown(KeyF5!)  then //save layout 不含列显示
	uf_save_profile_filter()
	uf_save_profile_sort()
	//uf_save_profile_layout()
elseif keydown(KeyF9!)  then //reset layout 不含列显示
	uf_reset_layout()
end if


PARENT.TriggerEvent(Key!)
end event

type dw_field from u_dw_rbtnfilter within w_rpt_field_def
integer x = 1504
integer y = 184
integer width = 2085
integer height = 2080
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_rpt_field_def"
boolean hscrollbar = true
boolean vscrollbar = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;
	this.selectrow(0,false)
	this.selectrow(currentrow,true)

end event

event doubleclicked;call super::doubleclicked;if dw_edit_mode then return

parent.triggerevent('ue_f7')
end event

event constructor;call super::constructor;dw_field_h = this.height
dw_field_w = this.width
end event

event ue_setlayout;//if setcolumn_visible_USE=false then return
//IF this.DATAOBJECT='' THEN RETURN
//
//datastore ls_ds
//ls_ds=create datastore
//ls_ds.dataobject='dw_rbtnfilter_setlayout'
//string ls_mdfstr,ls_mdftext_str,ls_titlex_str,ls_titley_str,ls_x_str,ls_y_str //存放modify string
//string des_1,des_2,szColumn,ls_cwidth,ls_alignment
//long nColumnIndex,nColumnCount,lRow,ls_i
//s_dw_rbtnfilter_setlayout_rt ls_s_rt
//
//nColumnCount = Integer( this.Object.DataWindow.Column.Count)
//
//For nColumnIndex = 1 To nColumnCount
//	des_1= this.Describe( "#" + String(nColumnIndex) + ".Name") 
//	des_2= this.describe(des_1+ "_t.Text")
//	
//	szColumn = f_strip( des_2)
//	If szColumn <> "!" Then
//		lRow = ls_ds.InsertRow( 0)
//		ls_ds.SetItem( lRow, "ctitle", szColumn)
//		ls_ds.SetItem( lRow, "cname", des_1)
//		ls_ds.SetItem( lRow, "cshow_flag", long(this.describe(des_1+ ".Visible")))
//		ls_ds.SetItem( lRow, "cnewtitle", this.describe(des_1+ "_t.text"))
//		ls_ds.SetItem( lRow, "cwidth", long(this.describe(des_1+ ".width")))
//		ls_ds.SetItem( lRow, "alignment", long(this.describe(des_1+ ".alignment")))
//		ls_ds.SetItem( lRow, "nColumnIndex", nColumnIndex)
//		ls_ds.SetItem( lRow, "titlex",  long(this.describe(des_1+ "_t.x")))
//		ls_ds.SetItem( lRow, "titley",  long(this.describe(des_1+ "_t.y")))
//		ls_ds.SetItem( lRow, "x",  long(this.describe(des_1+ ".x")))
//		ls_ds.SetItem( lRow, "y",  long(this.describe(des_1+ ".y")))
//	End If
//Next
//
////---打开设置窗口
//openwithparm(w_dw_rbtnfilter_setlayout,ls_ds)
//
//ls_s_rt=message.powerobjectparm
////---处理设置
//if ls_s_rt.flag=1 then //要保存修改
//	ls_ds.setfullstate( ls_s_rt.b_changes )
//	for ls_i=1 to ls_ds.rowcount()
//		ls_mdfstr=ls_mdfstr+ls_ds.object.cname[ls_i]+'.visible='+string(ls_ds.object.cshow_flag[ls_i])+'~t'
//		ls_mdfstr=ls_mdfstr+ls_ds.object.cname[ls_i]+'_t.visible='+string(ls_ds.object.cshow_flag[ls_i])+'~t'
//		
//		ls_mdftext_str=ls_mdftext_str+ls_ds.object.cname[ls_i]+"_t.text='"+ls_ds.object.cnewtitle[ls_i]+"'~t"
//		ls_titlex_str=ls_titlex_str+ls_ds.object.cname[ls_i]+"_t.x="+string(ls_ds.object.titlex[ls_i])+'~t'
//		ls_titley_str=ls_titley_str+ls_ds.object.cname[ls_i]+"_t.y="+string(ls_ds.object.titley[ls_i])+'~t'
//		ls_x_str=ls_x_str+ls_ds.object.cname[ls_i]+".x="+string(ls_ds.object.x[ls_i])+'~t'
//		ls_y_str=ls_y_str+ls_ds.object.cname[ls_i]+".y="+string(ls_ds.object.y[ls_i])+'~t'
//		ls_cwidth=ls_cwidth+ls_ds.object.cname[ls_i]+".width="+string(ls_ds.object.cwidth[ls_i])+'~t'
//		ls_alignment=ls_alignment+ls_ds.object.cname[ls_i]+".alignment="+string(ls_ds.object.alignment[ls_i])+'~t'
//	next
//	
//	ins_mdfstr_column_visible=ls_mdfstr
//	ins_mdfstr_column_text=ls_mdftext_str
//	ins_mdfstr_column_x=ls_titlex_str+ls_x_str
//	ins_mdfstr_column_y=ls_titley_str+ls_y_str
//	ins_mdfstr_column_width=ls_cwidth
//	ins_mdfstr_column_alignment=ls_alignment
//	
//	this.modify( ins_mdfstr_column_visible)
//	this.modify(ins_mdfstr_column_text)
//	this.modify(ins_mdfstr_column_width)
//	this.modify(ins_mdfstr_column_x)
//	this.modify(ins_mdfstr_column_y)
//	this.modify(ins_mdfstr_column_alignment)
//elseif ls_s_rt.flag=2 then //reset
//	uf_reset_layout()
//	uf_save_profile_layout()
//end if
//
//destroy ls_ds
//
//
//
end event

event dwnkey;call super::dwnkey;PARENT.TriggerEvent(Key!)
end event

type cb_add from uo_imflatbutton within w_rpt_field_def
string tag = "保存[Alt+S]"
integer x = 1499
integer width = 192
integer height = 164
integer taborder = 30
boolean bringtotop = true
boolean enabled = false
string text = "保存&S"
string normalpicname = "Save.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;
String errmsg

IF dw_edit_mode THEN
	String ls_errmsg
	IF dw_field.Update() = -1 THEN
		IF Pos(ins_sqlerrtext,"Cannot insert duplicate key row") > 0 THEN
			ls_errmsg = "关键内容重复"
		ELSE
			ls_errmsg = "因为网络或其他原因>"+ins_sqlerrtext
		END IF
		ROLLBACK;
		MessageBox ('错误',ls_errmsg+",保存操作失败!",stopsign!,OK!)
		LS_UPDATE_FLAG = FALSE
		RETURN
	ELSE
		COMMIT;
		LS_UPDATE_FLAG = TRUE
	END IF
END IF

dw_edit_mode = NOT dw_edit_mode
WF_FACE_CHANGE()


end event

type cb_edit from uo_imflatbutton within w_rpt_field_def
string tag = "修改/放弃[Alt+E]"
integer x = 1691
integer width = 192
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "修改&E"
string normalpicname = "OPEN.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;long table_row
table_row = dw_table.getrow()
if table_row <= 0 then return

IF dw_field.GetRow() < 1 THEN RETURN
IF dw_edit_mode THEN
	IF dw_field.GetItemStatus(dw_field.GetRow(), 0, primary!) = newmodified! OR dw_field.GetItemStatus(dw_field.GetRow(), 0, primary!) = new! THEN
		dw_field.DeleteRow(dw_field.GetRow())
	ELSE
		dw_field.ReselectRow(dw_field.GetRow())
	END IF
END IF

modifyrow_no = dw_field.GetRow()

dw_edit_mode = NOT dw_edit_mode
wf_face_change()


IF dw_edit_mode THEN
	dw_field.SetFocus( )
	dw_field.SetColumn('pbc_labl')
END IF


end event

type cb_delet from uo_imflatbutton within w_rpt_field_def
integer x = 1883
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "删除"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String ls_tablename

IF MessageBox ('询问',"是否确定要删除当前记录?(选择确定后记录将不可恢复)",Question!,YesNo! ) = 2 THEN
	RETURN
END IF

String arg_msg
IF dw_field.GetRow() <= 0 THEN
	MessageBox('提示','没有操作目标记录!',information!,OK!)
	RETURN
END IF


dw_field.SetRedraw (FALSE)
dw_field.DeleteRow (0)
dw_field.TriggerEvent (RowFocusChanged!)

IF dw_field.Update() = -1 THEN
	ROLLBACK;
	MessageBox ('错误',"删除记录操作失败!",stopsign!,OK!)
ELSE
	COMMIT;
END IF
dw_field.SetRedraw (TRUE)

PARENT.TriggerEvent('retrieve_field')

end event

type cb_retrieve from uo_imflatbutton within w_rpt_field_def
event ue_f7 ( )
integer x = 2295
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "重查"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;PARENT.TriggerEvent('retrieve_field')
end event

type cb_add_table from uo_imflatbutton within w_rpt_field_def
string tag = "新建/保存[Alt+S]"
integer x = 5
integer width = 192
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "新建&S"
string normalpicname = "NEW.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Long ll_newid,i,table_row
String errmsg

table_row = dw_table.getrow()


IF dw_edit_mode_table THEN
	dw_table.AcceptText()
	IF dw_table.GetNextModified(0, Primary!) = 0 THEN
		MessageBox('提示','没有任何修改，不可以保存!',information!,ok!)
		RETURN
	END IF
	dw_table.Object.table_english[table_row] = Trim(dw_table.Object.table_english[table_row])
	dw_table.Object.table_chinese[table_row] = Trim(dw_table.Object.table_chinese[table_row])
	
	if dw_table.Object.table_chinese[table_row] = '' then
		MessageBox('提示','英文名称不能为空，不可以保存!',information!,ok!)
		RETURN
	END IF
	
	
	IF dw_table.Object.tableid[table_row] = 0 THEN
		ll_newid = f_sys_scidentity(0,"u_report_table","tableid",errmsg,FALSE,sqlca)
		IF ll_newid <= 0 THEN
			MessageBox('错误',errmsg,stopsign!,ok!)
			RETURN
		ELSE
			dw_table.Object.tableid[table_row] = ll_newid
		END IF
	END IF
END IF



IF dw_edit_mode_table THEN
	String ls_errmsg
	IF dw_table.Update() = -1 THEN
		IF Pos(ins_sqlerrtext,"Cannot insert duplicate key row") > 0 THEN
			ls_errmsg = "关键内容重复"
		ELSE
			ls_errmsg = "因为网络或其他原因>"+ins_sqlerrtext
		END IF
		ROLLBACK;
		MessageBox ('错误',ls_errmsg+",保存操作失败!",stopsign!,OK!)
		LS_UPDATE_FLAG = FALSE
		RETURN
	ELSE
		COMMIT;
		FOR i = 1 TO 3
			dw_table.SetTabOrder ( i, 0 )
		NEXT
		LS_UPDATE_FLAG = TRUE
	END IF
	ins_sqlerrtext = ""
ELSE
	Long	li_row, li_cur_row
	li_cur_row = dw_table.GetRow()
	li_row = dw_table.InsertRow (0)
	FOR i = 1 TO 3
		dw_table.SetTabOrder ( i, i*10 )
	NEXT
	dw_table.SelectRow(0,FALSE)
	dw_table.ScrollToRow (li_row)
	dw_table.SelectRow(li_row,TRUE)
	dw_table.SetFocus()
	modifyrow_no = li_row
END IF

dw_edit_mode_table = NOT dw_edit_mode_table
WF_FACE_CHANGE_table()
end event

type cb_edit_table from uo_imflatbutton within w_rpt_field_def
string tag = "修改/放弃[Alt+E]"
integer x = 197
integer width = 192
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "修改&E"
string normalpicname = "OPEN.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Long i
IF dw_edit_mode_table THEN
	IF dw_table.GetItemStatus(dw_table.GetRow(), 0, Primary!) = NewModified! OR dw_table.GetItemStatus(dw_table.GetRow(), 0, Primary!) = New! THEN
		dw_table.DeleteRow(dw_table.GetRow())
	ELSE
		dw_table.ReselectRow(dw_table.GetRow())
	END IF
	
	FOR i = 1 TO 3
		dw_table.SetTabOrder ( i, 0 )
	NEXT
	modifyrow_no = 0
ELSE
	modifyrow_no = dw_table.GetRow()
	FOR i = 1 TO 3
		dw_table.SetTabOrder ( i, i*10 )
	NEXT
	dw_table.SetFocus()
	
	dw_table.SelectRow(0,FALSE)
	dw_table.ScrollToRow (modifyrow_no)
	dw_table.SelectRow(modifyrow_no,TRUE)
END IF

dw_edit_mode_table = NOT dw_edit_mode_table
WF_FACE_CHANGE_table()

end event

type cb_delet_table from uo_imflatbutton within w_rpt_field_def
integer x = 389
integer width = 151
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "删除"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String ls_tablename

IF MessageBox ('询问',"是否确定要删除当前记录?(选择确定后记录将不可恢复)",Question!,YesNo! ) = 2 THEN
	RETURN
END IF

String arg_msg
IF dw_table.GetRow() <= 0 THEN
	MessageBox('错误','没有操作目标记录!',information!,OK!)
	RETURN
END IF

ls_tablename = dw_table.Object.table_english[dw_table.GetRow()]

DELETE FROM pbcatcol
	Where ( pbcatcol.pbc_tnam = :ls_tablename);
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox ('错误',"删除字段信息操作失败!",stopsign!,OK!)
	RETURN
END IF

dw_table.SetRedraw (FALSE)
dw_table.DeleteRow (0)
dw_table.TriggerEvent (RowFocusChanged!)

IF dw_table.Update() = -1 THEN
	ROLLBACK;
	MessageBox ('错误',"删除记录操作失败!",stopsign!,OK!)
ELSE
	COMMIT;
END IF
dw_table.SetRedraw (TRUE)

dw_table.Retrieve()

end event

type cb_imexport_table from uo_imflatbutton within w_rpt_field_def
event ue_f7 ( )
integer x = 539
integer width = 261
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "导入/导出"
string normalpicname = "imexport.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;open(w_rpt_imexport_table)


dw_table.Retrieve()
end event

type cb_imexport from uo_imflatbutton within w_rpt_field_def
event ue_f7 ( )
integer x = 2034
integer width = 261
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "导入/导出"
string normalpicname = "imexport.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;open(w_rpt_imexport_field)

PARENT.TriggerEvent('retrieve_field')
end event

type cb_retrieve_table from uo_imflatbutton within w_rpt_field_def
event ue_f7 ( )
integer x = 800
integer width = 151
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "重查"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//dw_table.Retrieve()
end event

type ln_bar2 from line within w_rpt_field_def
long linecolor = 16777215
integer linethickness = 4
integer beginy = 176
integer endx = 3406
integer endy = 176
end type

type ln_bar from line within w_rpt_field_def
long linecolor = 268435456
integer linethickness = 4
integer beginy = 172
integer endx = 3406
integer endy = 172
end type

type r_bar from rectangle within w_rpt_field_def
long linecolor = 16777215
long fillcolor = 1073741824
integer x = 3250
integer y = -8
integer width = 73
integer height = 172
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar2.beginy - 5

end event