Q5/ws_objects/Ew_define.pbl.src/w_unit_def_ch.srw

$PBExportHeader$w_unit_def_ch.srw
forward
global type w_unit_def_ch from w_unit_def
end type
end forward

global type w_unit_def_ch from w_unit_def
boolean minbox = false
windowtype windowtype = response!
end type
global w_unit_def_ch w_unit_def_ch

type variables
s_unit INS_RT_STRU
end variables

on w_unit_def_ch.create
call super::create
end on

on w_unit_def_ch.destroy
call super::destroy
end on

event close;call super::close;CloseWithReturn(THIS,INS_RT_STRU)


end event

type cb_func from w_unit_def`cb_func within w_unit_def_ch
end type

type cb_exit from w_unit_def`cb_exit within w_unit_def_ch
integer x = 987
end type

type cb_add from w_unit_def`cb_add within w_unit_def_ch
end type

type cb_edit from w_unit_def`cb_edit within w_unit_def_ch
end type

type cb_delet from w_unit_def`cb_delet within w_unit_def_ch
end type

type cb_choice from w_unit_def`cb_choice within w_unit_def_ch
boolean visible = true
integer x = 686
boolean enabled = true
end type

event cb_choice::clicked;call super::clicked;LONG LS_ROW
LS_ROW=dw_uc.getrow()
if LS_ROW<=0 then 
	messagebox('提示','请先选择目标行!', Information!, OK! )
	return
end if

INS_RT_STRU.unit=dw_uc.OBJECT.unit[LS_ROW]

CLOSE(PARENT)
end event

type dw_uc from w_unit_def`dw_uc within w_unit_def_ch
end type

event dw_uc::doubleclicked;call super::doubleclicked;cb_choice.triggerevent(clicked!)
end event

type cb_rtr from w_unit_def`cb_rtr within w_unit_def_ch
end type

type cb_help from w_unit_def`cb_help within w_unit_def_ch
integer x = 837
end type

type ln_bar from w_unit_def`ln_bar within w_unit_def_ch
end type

type ln_bar2 from w_unit_def`ln_bar2 within w_unit_def_ch
end type

type r_bar from w_unit_def`r_bar within w_unit_def_ch
end type

type cb_view from w_unit_def`cb_view within w_unit_def_ch
boolean visible = false
end type