Q5/ws_objects/Ew_mainface.pbl.src/w_sys_option_def.srw

$PBExportHeader$w_sys_option_def.srw
forward
global type w_sys_option_def from w_publ_base
end type
type ln_bar from line within w_sys_option_def
end type
type ln_bar2 from line within w_sys_option_def
end type
type r_bar from rectangle within w_sys_option_def
end type
type tab_1 from tab within w_sys_option_def
end type
type tabpage_7 from userobject within tab_1
end type
type dw_sys_option from u_dw_rbtnfilter within tabpage_7
end type
type tv_sys_option from treeview within tabpage_7
end type
type tabpage_7 from userobject within tab_1
dw_sys_option dw_sys_option
tv_sys_option tv_sys_option
end type
type tabpage_3 from userobject within tab_1
end type
type cbx_1 from checkbox within tabpage_3
end type
type cb_7 from uo_imflatbutton within tabpage_3
end type
type cb_6 from uo_imflatbutton within tabpage_3
end type
type cb_1 from uo_imflatbutton within tabpage_3
end type
type dw_4 from u_dw_rbtnfilter within tabpage_3
end type
type tabpage_3 from userobject within tab_1
cbx_1 cbx_1
cb_7 cb_7
cb_6 cb_6
cb_1 cb_1
dw_4 dw_4
end type
type tabpage_1 from userobject within tab_1
end type
type cb_3 from uo_imflatbutton within tabpage_1
end type
type dw_3 from u_dw_rbtnfilter within tabpage_1
end type
type tabpage_1 from userobject within tab_1
cb_3 cb_3
dw_3 dw_3
end type
type tabpage_4 from userobject within tab_1
end type
type cbx_2 from checkbox within tabpage_4
end type
type cb_9 from uo_imflatbutton within tabpage_4
end type
type cb_8 from uo_imflatbutton within tabpage_4
end type
type cb_5 from uo_imflatbutton within tabpage_4
end type
type cb_4 from uo_imflatbutton within tabpage_4
end type
type dw_1 from datawindow within tabpage_4
end type
type tabpage_4 from userobject within tab_1
cbx_2 cbx_2
cb_9 cb_9
cb_8 cb_8
cb_5 cb_5
cb_4 cb_4
dw_1 dw_1
end type
type tabpage_2 from userobject within tab_1
end type
type cb_11 from uo_imflatbutton within tabpage_2
end type
type cb_10 from uo_imflatbutton within tabpage_2
end type
type cb_2 from uo_imflatbutton within tabpage_2
end type
type dw_5 from u_dw_rbtnfilter within tabpage_2
end type
type tabpage_2 from userobject within tab_1
cb_11 cb_11
cb_10 cb_10
cb_2 cb_2
dw_5 dw_5
end type
type tab_1 from tab within w_sys_option_def
tabpage_7 tabpage_7
tabpage_3 tabpage_3
tabpage_1 tabpage_1
tabpage_4 tabpage_4
tabpage_2 tabpage_2
end type
end forward

global type w_sys_option_def from w_publ_base
integer width = 3611
integer height = 2380
string title = "系统选项设置"
boolean maxbox = true
windowstate windowstate = maximized!
event retr_mx ( )
event retr_zlmx ( )
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
tab_1 tab_1
end type
global w_sys_option_def w_sys_option_def

type variables
datawindow dw_1,dw_2,dw_3,dw_5
datawindow dw_sys_option

String ins_sqlerrtext
Boolean  ls_update_flag = TRUE
Long modifyrow_no = 0

string is_module

boolean dw_edit_mode_hile = false

end variables

forward prototypes
public function integer wf_dft_face ()
public subroutine wf_refresh_option (string arg_module)
public function integer wf_hidecol_face ()
public subroutine wf_refresh_hilecol ()
end prototypes

public function integer wf_dft_face ();if dw_edit_mode then
	tab_1.tabpage_3.cb_6.text="放弃[&E]"
	tab_1.tabpage_3.cb_1.text="保存[&S]"
else	
   tab_1.tabpage_3.cb_6.text="修改[&E]"
	tab_1.tabpage_3.cb_1.text="新建[&S]"	
end if
tab_1.tabpage_3.cbx_1.enabled = not dw_edit_mode
tab_1.tabpage_3.cb_1.triggerevent('ue_textchange')
tab_1.tabpage_3.cb_6.triggerevent('ue_textchange')
return 1
end function

public subroutine wf_refresh_option (string arg_module);Long i
Long ll_row


uo_sys_option uo_opt
uo_opt = CREATE uo_sys_option

tab_1.tabpage_7.dw_sys_option.SetRedraw(FALSE)
tab_1.tabpage_7.dw_sys_option.Reset()

FOR i = 1 TO UpperBound(s_sys_opt)
	IF s_sys_opt[i].optionname = '' THEN CONTINUE
	if s_sys_opt[i].module_int = 100 THEN CONTINUE
	IF arg_module = '' OR &
		arg_module <> '' AND arg_module = s_sys_opt[i].module THEN
		
		IF Mid(sys_optionstr,Long(s_sys_opt[i].optionid),1) <> '1' THEN CONTINUE
		
		ll_row = tab_1.tabpage_7.dw_sys_option.InsertRow(0)
		 
		tab_1.tabpage_7.dw_sys_option.Object.module[ll_row] = s_sys_opt[i].module
		tab_1.tabpage_7.dw_sys_option.Object.optionid[ll_row] = s_sys_opt[i].optionid
		tab_1.tabpage_7.dw_sys_option.Object.optionname[ll_row] = s_sys_opt[i].optionname
		
		tab_1.tabpage_7.dw_sys_option.Object.itype[ll_row] = s_sys_opt[i].itype
		
		String ls_value,arg_msg, ls_valuedisplay
		
		IF uo_opt.uof_get_sys_option_value(s_sys_opt[i].optionid,ls_value,arg_msg) = 0 THEN
			ls_value = s_sys_opt[i].dftvalue
		END IF
		
		tab_1.tabpage_7.dw_sys_option.Object.dftvalue[ll_row] = ls_value
		
		IF s_sys_opt[i].itype = 0 THEN
			IF ls_value = '0' THEN
				tab_1.tabpage_7.dw_sys_option.Object.valuedisplay[ll_row] = '否'
			ELSEIF ls_value = '1' THEN
				tab_1.tabpage_7.dw_sys_option.Object.valuedisplay[ll_row] = '是'
			ELSE
				tab_1.tabpage_7.dw_sys_option.Object.valuedisplay[ll_row] = ''
			END IF
		ELSEIF s_sys_opt[i].itype = 1 OR s_sys_opt[i].itype = 2 OR s_sys_opt[i].itype = 3 THEN
			tab_1.tabpage_7.dw_sys_option.Object.valuedisplay[ll_row] = ls_value
		ELSEIF s_sys_opt[i].itype = 4 THEN
			uo_opt.uof_get_sys_option_displayvalue(ls_value,s_sys_opt[i].dscrp,ls_valuedisplay,arg_msg)
			tab_1.tabpage_7.dw_sys_option.Object.valuedisplay[ll_row] = ls_valuedisplay
		ELSE
			tab_1.tabpage_7.dw_sys_option.Object.valuedisplay[ll_row] = ''
		END IF
		
		tab_1.tabpage_7.dw_sys_option.Object.module_int[ll_row] = s_sys_opt[i].module_int
		tab_1.tabpage_7.dw_sys_option.Object.dscrp[ll_row] = s_sys_opt[i].dscrp
	END IF
NEXT

tab_1.tabpage_7.dw_sys_option.SetSort('module_int asc,optionid asc')
tab_1.tabpage_7.dw_sys_option.Sort()

tab_1.tabpage_7.dw_sys_option.SetRedraw(TRUE)
DESTROY uo_opt
















end subroutine

public function integer wf_hidecol_face ();IF dw_edit_mode_hile THEN
	tab_1.tabpage_2.cb_10.Text = "放弃[&E]"
	tab_1.tabpage_2.cb_2.Enabled = TRUE
ELSE
	tab_1.tabpage_2.cb_10.Text = "修改[&E]"
	tab_1.tabpage_2.cb_2.Enabled = FALSE
END IF
tab_1.tabpage_2.cb_10.TriggerEvent('ue_textchange')
RETURN 1

end function

public subroutine wf_refresh_hilecol ();Long i
Long ll_row
String ls_value
String arg_msg
uo_sys_option uo_opt
uo_opt = CREATE uo_sys_option

dw_5.SetRedraw(FALSE)
dw_5.Reset()

FOR i = 200 TO UpperBound(s_sys_opt)
	IF s_sys_opt[i].module_int <> 100 then continue
	
//	IF s_sys_opt[i].optionname = 'status' &
//		OR s_sys_opt[i].optionname = 'woodcode' &
//		OR s_sys_opt[i].optionname = 'pcode' &
//		OR s_sys_opt[i].optionname = 'mtrlsectype' &
//		OR s_sys_opt[i].optionname = 'zxmtrlmode' &
//		OR s_sys_opt[i].optionname = 'addqty' THEN
		
		ll_row = dw_5.GetRow()
		IF dw_5.GetRow() > 0 THEN
			IF dw_5.Object.optionid[ll_row] <> 0 THEN
				ll_row = dw_5.InsertRow (0)
			ELSE
				ll_row = dw_5.GetRow()
			END IF
		ELSE
			ll_row = dw_5.InsertRow (0)
		END IF
		
		
		//ll_row = dw_5.InsertRow(0)
		
		
		CHOOSE CASE s_sys_opt[i].optionname
			CASE 'status'
				dw_5.Object.optionname[ll_row] = sys_option_change_status
			CASE 'woodcode'
				dw_5.Object.optionname[ll_row] = sys_option_change_woodcode
			CASE 'pcode'
				dw_5.Object.optionname[ll_row] = sys_option_change_pcode
			CASE 'mtrlsectype'
				dw_5.Object.optionname[ll_row] = sys_option_change_mtrlsectype
			CASE 'zxmtrlmode'
				dw_5.Object.optionname[ll_row] = sys_option_change_zxmtrlmode
			CASE 'addqty'
				dw_5.Object.optionname[ll_row] = sys_option_change_addqty
			CASE 'plancode'
				dw_5.Object.optionname[ll_row] = "批号"
			CASE ELSE
				CONTINUE
				//dw_5.Object.optionname[ll_row] = s_sys_opt[i].optionname
		END CHOOSE
		
		dw_5.Object.optionid[ll_row] = Long(s_sys_opt[i].optionid)
		
		IF uo_opt.uof_get_sys_option_value(s_sys_opt[i].optionid,ls_value,arg_msg) = 0 THEN
			ls_value = s_sys_opt[i].dftvalue
		END IF
		
		dw_5.Object.Value[ll_row] = Long(ls_value)
//	END IF
NEXT

dw_5.SetSort('optionid asc')
dw_5.Sort()

dw_5.SetRedraw(TRUE)
DESTROY uo_opt












end subroutine

on w_sys_option_def.create
int iCurrent
call super::create
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.tab_1=create tab_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ln_bar
this.Control[iCurrent+2]=this.ln_bar2
this.Control[iCurrent+3]=this.r_bar
this.Control[iCurrent+4]=this.tab_1
end on

on w_sys_option_def.destroy
call super::destroy
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.tab_1)
end on

event open;call super::open;

wf_refresh_option('')

dw_1 = tab_1.tabpage_1.dw_3
dw_2 = tab_1.tabpage_3.dw_4
dw_3 = tab_1.tabpage_4.dw_1
dw_5 = tab_1.tabpage_2.dw_5
dw_sys_option = tab_1.tabpage_7.dw_sys_option

dw_1.SetTransObject(sqlca)
dw_1.Retrieve()

dw_2.SetTransObject(sqlca)
dw_2.Retrieve(0)

dw_3.SetTransObject(sqlca)
dw_3.Retrieve()


wf_refresh_hilecol()
end event

event resize;call super::resize;ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width
r_bar.Width = THIS.Width

tab_1.Width = THIS.Width - tab_1.X - 40
tab_1.Height = THIS.Height - tab_1.Y - 150

tab_1.tabpage_7.tv_sys_option.Height = tab_1.Height - 30
dw_sys_option.Height = tab_1.Height - 30
dw_sys_option.Width = THIS.Width - (3600 - 2231)

dw_1.Width = THIS.Width - (3600 - 2898)
dw_1.Height =  THIS.Height - (2300 - 1852) - 50

dw_3.Width = THIS.Width - (3600 - 2898)
dw_3.Height =  THIS.Height - (2300 - 1852) - 50

tab_1.tabpage_3.dw_4.Width = THIS.Width - (3600 - 2898)
tab_1.tabpage_3.dw_4.Height = THIS.Height - (2300 - 1852) - 50

dw_5.Width = THIS.Width - (3600 - 2898)
dw_5.Height = THIS.Height - (2300 - 1852) - 50
end event

type cb_func from w_publ_base`cb_func within w_sys_option_def
boolean visible = false
integer x = 165
integer width = 306
integer height = 164
string text = "危险功能"
end type

event cb_func::clicked;open(w_dangus)

//Long ll_i
//Int rslt = 1
//
//Long ll_funcid,ll_parentid
//Int li_functype
//String ls_treename,ls_menuname
//
//INSERT INTO sys_func_pwr
//	(funcid,parentid,functype,treename,menuname)
//	Values(256,0,0,'销售管理','销售');
//IF sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	GOTO ext
//END IF
//
//INSERT INTO sys_func_pwr
//	(funcid,parentid,functype,treename,menuname)
//	Values(257,0,0,'生产管理','生产');
//IF sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	GOTO ext
//END IF
//
//INSERT INTO sys_func_pwr
//	(funcid,parentid,functype,treename,menuname)
//	Values(258,0,0,'仓库管理','仓库');
//IF sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	GOTO ext
//END IF
//
//INSERT INTO sys_func_pwr
//	(funcid,parentid,functype,treename,menuname)
//	Values(259,0,0,'采购管理','采购');
//IF sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	GOTO ext
//END IF
//
//INSERT INTO sys_func_pwr
//	(funcid,parentid,functype,treename,menuname)
//	Values(260,0,0,'人事工资','人事工资');
//IF sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	GOTO ext
//END IF
//
//INSERT INTO sys_func_pwr
//	(funcid,parentid,functype,treename,menuname)
//	Values(261,0,0,'财务管理','财务');
//	
//INSERT INTO sys_func_pwr
//	(funcid,parentid,functype,treename,menuname)
//	Values(262,0,0,'系统维护','系统');
//IF sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	GOTO ext
//END IF
//
//INSERT INTO sys_func_pwr
//	(funcid,parentid,functype,treename,menuname)
//	Values(263,0,9,'特殊权限','特殊权限');
//IF sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	GOTO ext
//END IF
//
//
//
//FOR ll_i = 1 TO 255
//	IF s_powerlinfo[ll_i].powerid = 0 THEN CONTINUE
//	ll_funcid = s_powerlinfo[ll_i].powerid
//	CHOOSE CASE s_powerlinfo[ll_i].powertype
//		CASE '销售管理'
//			ll_parentid = 256
//		CASE '生产管理'
//			ll_parentid = 257
//		CASE '仓库管理'
//			ll_parentid = 258
//		CASE '采购管理'
//			ll_parentid = 259
//		CASE '人事工资'
//			ll_parentid = 260
//		CASE '财务管理'
//			ll_parentid = 261
//		CASE '系统维护'
//			ll_parentid = 262
//		CASE '特殊权限'
//			ll_parentid = 263
//	END CHOOSE
//	ls_treename = s_powerlinfo[ll_i].powername
//	ls_menuname = s_powerlinfo[ll_i].powername
//	
//	INSERT INTO sys_func_pwr
//		(funcid,parentid,functype,treename,menuname)
//		Values(:ll_funcid,:ll_parentid,9,:ls_treename,:ls_menuname);
//		
//	IF sqlca.SQLCode <> 0 THEN
//		rslt = 0
//		GOTO ext
//	END IF
//	
//NEXT
//
//ext :
//IF rslt = 0 THEN
//	ROLLBACK;
//	MessageBox('','error')
//ELSE
//	COMMIT;
//	MessageBox('','ok')
//END IF
//
//
//
//
end event

type cb_exit from w_publ_base`cb_exit within w_sys_option_def
integer x = 0
integer width = 165
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

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

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

type r_bar from rectangle within w_sys_option_def
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 2139
integer width = 146
integer height = 68
end type

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

end event

type tab_1 from tab within w_sys_option_def
integer y = 184
integer width = 3529
integer height = 1988
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean raggedright = true
boolean boldselectedtext = true
boolean perpendiculartext = true
tabposition tabposition = tabsonleft!
integer selectedtab = 1
tabpage_7 tabpage_7
tabpage_3 tabpage_3
tabpage_1 tabpage_1
tabpage_4 tabpage_4
tabpage_2 tabpage_2
end type

on tab_1.create
this.tabpage_7=create tabpage_7
this.tabpage_3=create tabpage_3
this.tabpage_1=create tabpage_1
this.tabpage_4=create tabpage_4
this.tabpage_2=create tabpage_2
this.Control[]={this.tabpage_7,&
this.tabpage_3,&
this.tabpage_1,&
this.tabpage_4,&
this.tabpage_2}
end on

on tab_1.destroy
destroy(this.tabpage_7)
destroy(this.tabpage_3)
destroy(this.tabpage_1)
destroy(this.tabpage_4)
destroy(this.tabpage_2)
end on

event doubleclicked;cb_func.Visible = NOT cb_func.Visible

end event

type tabpage_7 from userobject within tab_1
integer x = 608
integer y = 16
integer width = 2903
integer height = 1956
long backcolor = 134217739
string text = "系统选项"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_sys_option dw_sys_option
tv_sys_option tv_sys_option
end type

on tabpage_7.create
this.dw_sys_option=create dw_sys_option
this.tv_sys_option=create tv_sys_option
this.Control[]={this.dw_sys_option,&
this.tv_sys_option}
end on

on tabpage_7.destroy
destroy(this.dw_sys_option)
destroy(this.tv_sys_option)
end on

type dw_sys_option from u_dw_rbtnfilter within tabpage_7
integer x = 667
integer width = 2231
integer height = 1952
integer taborder = 20
string dataobject = "dw_sys_option"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	s_sys_option ls_s_opt,ls_s_opt_ref
	ls_s_opt.optionid = THIS.Object.optionid[row]
	ls_s_opt.optionname = THIS.Object.optionname[row]
	ls_s_opt.dftvalue = THIS.Object.dftvalue[row]
	ls_s_opt.itype = THIS.Object.itype[row]
	ls_s_opt.dscrp = THIS.Object.dscrp[row]
	
	CHOOSE CASE ls_s_opt.itype
		CASE 0
			OpenWithParm(w_sys_option_def_itype0,ls_s_opt)
		CASE 1
			OpenWithParm(w_sys_option_def_itype1,ls_s_opt)
		CASE 2
			OpenWithParm(w_sys_option_def_itype2,ls_s_opt)
		CASE 3
			OpenWithParm(w_sys_option_def_itype3,ls_s_opt)
		CASE 4
			OpenWithParm(w_sys_option_def_itype4,ls_s_opt)			
	END CHOOSE
	
	ls_s_opt_ref = Message.PowerObjectParm
	
	IF ls_s_opt_ref.ifset = 0 THEN RETURN
	
	String arg_msg
	uo_sys_option uo_opt
	uo_opt = CREATE uo_sys_option
	IF uo_opt.uof_add_sys_option(ls_s_opt.optionid,&
		ls_s_opt.optionname,ls_s_opt_ref.dftvalue,arg_msg,TRUE) = 0 THEN
		MessageBox('提示',arg_msg)
		DESTROY uo_opt
		RETURN
	END IF
	uo_opt.uof_sys_option()
	
	DESTROY uo_opt
	
	THIS.Object.dftvalue[row] = ls_s_opt_ref.dftvalue
	IF ls_s_opt_ref.valuedisplay <> '' THEN
		THIS.Object.valuedisplay[row] = ls_s_opt_ref.valuedisplay
	ELSE
		THIS.Object.valuedisplay[row] = ls_s_opt_ref.dftvalue
	END IF
	
	//wf_refresh_option(is_module)
	
END IF













end event

type tv_sys_option from treeview within tabpage_7
integer y = 4
integer width = 663
integer height = 1952
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
boolean linesatroot = true
string picturename[] = {"graphics\content.BMP","graphics\Shell32 005.bmp"}
long picturemaskcolor = 536870912
long statepicturemaskcolor = 536870912
end type

event constructor;Long ll_handl
ll_handl = THIS.InsertItemLast(0,sys_message_title,1)
THIS.InsertItemLast(ll_handl,'系统',2)
THIS.InsertItemLast(ll_handl,'应收,应付',2)
//THIS.InsertItemLast(ll_handl,'应付',2)
THIS.InsertItemLast(ll_handl,'销售',2)
THIS.InsertItemLast(ll_handl,'采购,外协',2)
THIS.InsertItemLast(ll_handl,'仓库',2)
THIS.InsertItemLast(ll_handl,'生产辅助',2)
THIS.InsertItemLast(ll_handl,'工资',2)

THIS.ExpandItem(ll_handl)



end event

event selectionchanged;Long ll_hand
treeviewitem tvi

ll_hand = THIS.FindItem(CurrentTreeItem!,0)

IF ll_hand = 1 THEN
	is_module = ''
ELSE
	THIS.GetItem(ll_hand,tvi)	
	is_module = tvi.Label
END IF

wf_refresh_option(is_module)




end event

type tabpage_3 from userobject within tab_1
event create ( )
event destroy ( )
integer x = 608
integer y = 16
integer width = 2903
integer height = 1956
long backcolor = 134217739
string text = "单据打印格式重定向"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cbx_1 cbx_1
cb_7 cb_7
cb_6 cb_6
cb_1 cb_1
dw_4 dw_4
end type

on tabpage_3.create
this.cbx_1=create cbx_1
this.cb_7=create cb_7
this.cb_6=create cb_6
this.cb_1=create cb_1
this.dw_4=create dw_4
this.Control[]={this.cbx_1,&
this.cb_7,&
this.cb_6,&
this.cb_1,&
this.dw_4}
end on

on tabpage_3.destroy
destroy(this.cbx_1)
destroy(this.cb_7)
destroy(this.cb_6)
destroy(this.cb_1)
destroy(this.dw_4)
end on

type cbx_1 from checkbox within tabpage_3
integer x = 951
integer y = 24
integer width = 411
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "显示默认格式"
end type

event clicked;int li_dft
if this.checked then
	cb_1.enabled = false
	cb_6.enabled = false
	cb_7.enabled = false
	li_dft = -1
else
	cb_1.enabled = true
	cb_6.enabled = true
	cb_7.enabled = true
	li_dft = 0
end if

dw_4.Retrieve(li_dft)
	
end event

type cb_7 from uo_imflatbutton within tabpage_3
integer x = 603
integer height = 96
integer taborder = 60
string text = "删除"
string normalpicname = "delete.bmp"
end type

event clicked;call super::clicked;IF MessageBox (publ_operator,"是否确定要删除当前记录?(选择确定后记录将不可恢复)",Question!,YesNo! ) = 2 THEN
	RETURN
END IF

String arg_msg
IF DW_2.GetRow() <= 0 THEN
	MessageBox('','没有操作目标记录!')
	RETURN
END IF
DW_2.SetRedraw (FALSE)
DW_2.DeleteRow (0)
DW_2.TriggerEvent (RowFocusChanged!)

IF DW_2.Update() = -1 THEN
	ROLLBACK;
	MessageBox ('系统提示',"删除记录操作失败!",Exclamation!,OK!)
ELSE
	COMMIT;
END IF
DW_2.SetRedraw (TRUE)

end event

type cb_6 from uo_imflatbutton within tabpage_3
integer x = 302
integer height = 96
integer taborder = 50
string text = "修改"
string normalpicname = "open.bmp"
end type

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

dw_edit_mode = NOT dw_edit_mode
WF_dft_face()

end event

type cb_1 from uo_imflatbutton within tabpage_3
integer height = 96
integer taborder = 30
string text = "增加"
string normalpicname = "new.bmp"
end type

event clicked;call super::clicked;Long ll_newid,i
String errmsg
dw_2.AcceptText()
IF dw_edit_mode THEN
	dw_2.AcceptText()
	IF dw_2.GetNextModified(0, Primary!) = 0 THEN
		MessageBox('提示','没有任何修改，不可以保存!', Information!, OK! ) 
		RETURN
	END IF
	
	IF Trim(dw_2.Object.dft_new_dwname[dw_2.GetRow()]) = '' THEN
		MessageBox('提示','请输入新打印dw', Information!, OK! ) 
		RETURN
	END IF
	
	IF Trim(dw_2.Object.chnname[dw_2.GetRow()]) = '' THEN
		MessageBox('提示','请输入中文名称', Information!, OK! ) 
		RETURN
	END IF
	IF Trim(dw_2.Object.dwtype[dw_2.GetRow()]) = '' THEN
		MessageBox('提示','请输入窗口名称', Information!, OK! ) 
		RETURN
	END IF
	
	IF Trim(dw_2.Object.pblname[dw_2.GetRow()]) = '' THEN
		MessageBox('提示','请输入所属格式库文件', Information!, OK! ) 
		RETURN
	END IF
	
	
	IF dw_2.Object.dwprintid[dw_2.GetRow()] = 0 THEN
		ll_newid = f_sys_scidentity(0,"sys_dft_dwprint_dynamic","dwprintid",errmsg,FALSE,sqlca)
		IF ll_newid <= 0 THEN
			MessageBox('错误',errmsg, StopSign!, OK! )
			RETURN
		ELSE
			dw_2.Object.dwprintid[dw_2.GetRow()] = ll_newid
		END IF
	END IF
END IF

IF dw_edit_mode THEN
	String ls_errmsg
	IF dw_2.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+",保存操作失败!",Exclamation!,OK!)
		LS_UPDATE_FLAG = FALSE
		RETURN
	ELSE
		COMMIT;
		FOR i = 1 TO 12
			dw_2.SetTabOrder ( i, 0 )
		NEXT
		LS_UPDATE_FLAG = TRUE
	END IF
	ins_sqlerrtext = ""
ELSE
	Long	li_row, li_cur_row
	li_cur_row = dw_2.GetRow()
	li_row = dw_2.InsertRow (0)
	FOR i = 1 TO 12
		dw_2.SetTabOrder ( i, i*10 )
	NEXT
	dw_2.SelectRow(0,FALSE)
	dw_2.ScrollToRow (li_row)
	dw_2.SelectRow(li_row,TRUE)
	dw_2.SetFocus()
	modifyrow_no = li_row
END IF

dw_edit_mode = NOT dw_edit_mode

WF_dft_FACE()


end event

type dw_4 from u_dw_rbtnfilter within tabpage_3
integer y = 100
integer width = 2898
integer height = 1852
integer taborder = 20
string dataobject = "dw_dft_dwprint_dynamic"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

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

event rowfocuschanged;call super::rowfocuschanged;IF modifyrow_no >0 AND dw_edit_mode THEN
	THIS.SETROW(modifyrow_no)
	THIS.ScrollToRow(modifyrow_no)
else
	this.selectrow(0,false)
	this.selectrow(currentrow,true)
END IF
end event

event doubleclicked;call super::doubleclicked;if dw_edit_mode then 
	if dwo.name = "dwtype" then
		open(w_system_window_ch)
		
		long ll_mainid
		string ls_win
		ll_mainid = message.doubleparm
		
		if ll_mainid > 0 then
			if UpperBound(s_sys_win_open) >= ll_mainid then
				ls_win = s_sys_win_open[ll_mainid].Name
				this.object.dwtype[row] = ls_win
			end if
		end if
	end if
end if
end event

type tabpage_1 from userobject within tab_1
event create ( )
event destroy ( )
integer x = 608
integer y = 16
integer width = 2903
integer height = 1956
long backcolor = 134217739
string text = "单据打印样式"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cb_3 cb_3
dw_3 dw_3
end type

on tabpage_1.create
this.cb_3=create cb_3
this.dw_3=create dw_3
this.Control[]={this.cb_3,&
this.dw_3}
end on

on tabpage_1.destroy
destroy(this.cb_3)
destroy(this.dw_3)
end on

type cb_3 from uo_imflatbutton within tabpage_1
integer height = 96
integer taborder = 30
string text = "删除"
string normalpicname = "delete.bmp"
end type

event clicked;call super::clicked;if dw_1.getrow()<=0 then 
	messagebox("提示","请选择要删除的样式", Information!, OK! )
	return
end if

IF MessageBox ("询问","是否确定要删除当前打印样式吗?",Question!,YesNo! ) = 2 THEN RETURN

string ls_dname,ls_dwname
ls_dname = dw_1.object.dname[dw_1.getrow()]
ls_dwname = dw_1.object.dwname [dw_1.getrow()]

delete from sys_dwnSyntax where dname = :ls_dname and dwname = :ls_dwname;
if sqlca.sqlcode <> 0 then
	messagebox("提示","删除的打印样式:"+ls_dwname+"/"+ls_dname+'失败 ~n'+sqlca.sqlerrtext, Information!, OK! )
	rollback;
	return
end if

commit;
dw_1.retrieve()
messagebox("提示","删除的打印样式:"+ls_dwname+"/"+ls_dname+'成功', Information!, OK! )


end event

type dw_3 from u_dw_rbtnfilter within tabpage_1
integer y = 100
integer width = 2898
integer height = 1852
integer taborder = 20
string dataobject = "dw_sys_option_def_dwnsyntax"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)


end event

type tabpage_4 from userobject within tab_1
integer x = 608
integer y = 16
integer width = 2903
integer height = 1956
long backcolor = 134217739
string text = "附加文件"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cbx_2 cbx_2
cb_9 cb_9
cb_8 cb_8
cb_5 cb_5
cb_4 cb_4
dw_1 dw_1
end type

on tabpage_4.create
this.cbx_2=create cbx_2
this.cb_9=create cb_9
this.cb_8=create cb_8
this.cb_5=create cb_5
this.cb_4=create cb_4
this.dw_1=create dw_1
this.Control[]={this.cbx_2,&
this.cb_9,&
this.cb_8,&
this.cb_5,&
this.cb_4,&
this.dw_1}
end on

on tabpage_4.destroy
destroy(this.cbx_2)
destroy(this.cb_9)
destroy(this.cb_8)
destroy(this.cb_5)
destroy(this.cb_4)
destroy(this.dw_1)
end on

type cbx_2 from checkbox within tabpage_4
integer x = 951
integer y = 24
integer width = 411
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "显示系统文件"
end type

event clicked;
String ls_list
String ls_filename
Long ll_pos, ll_row

IF This.Checked THEN
	
	dw_1.Reset()
	
	ls_list = getlibrarylist ()
	ll_pos = Pos(ls_list, ',')
	
	DO WHILE ll_pos > 0
		ls_filename = Left(ls_list, ll_pos - 1)
		ls_list = Mid(ls_list, ll_pos + 1)
		
		ll_row = dw_1.Find("libname = '"+ls_filename+"'", 1, dw_1.RowCount())
		IF Not ll_row > 0 THEN
			ll_row = dw_1.InsertRow(0)
			dw_1.Object.libname[ll_row] = ls_filename
		END IF
		
		ll_pos = Pos(ls_list, ',')
	LOOP
	ls_filename = ls_list
	ll_row = dw_1.InsertRow(0)
	dw_1.Object.libname[ll_row] = ls_filename
	
ELSE
	dw_1.Retrieve()
END IF

//dw_4.Retrieve(li_dft)





end event

type cb_9 from uo_imflatbutton within tabpage_4
boolean visible = false
integer x = 905
integer height = 96
integer taborder = 70
string text = "测试连接"
string normalpicname = "update.bmp"
end type

event clicked;call super::clicked;
if f_setliblist()=1 then
	messagebox('','ok')
else
	messagebox('','no')
end if
end event

type cb_8 from uo_imflatbutton within tabpage_4
integer x = 603
integer height = 96
integer taborder = 70
string text = "删除"
string normalpicname = "delete.bmp"
end type

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

String arg_msg
IF DW_3.GetRow() <= 0 THEN
	MessageBox('提示','没有操作目标记录!', Information!, OK! )
	RETURN
END IF
DW_3.SetRedraw (False)
DW_3.DeleteRow (0)
DW_3.TriggerEvent (RowFocusChanged!)

IF DW_3.Update() = -1 THEN
	ROLLBACK;
	MessageBox ('提示',"删除记录操作失败!",Exclamation!,OK!)
ELSE
	COMMIT;
END IF
DW_3.SetRedraw (True)

end event

type cb_5 from uo_imflatbutton within tabpage_4
integer height = 96
integer taborder = 60
string text = "增加"
string normalpicname = "new.bmp"
end type

event clicked;call super::clicked;dw_3.insertrow(0)
end event

type cb_4 from uo_imflatbutton within tabpage_4
integer x = 302
integer height = 96
integer taborder = 40
string text = "保存"
string normalpicname = "save.bmp"
end type

event clicked;call super::clicked;Long ll_i
dw_3.AcceptText()

FOR ll_i = 1 TO dw_3.RowCount()
	IF Trim(dw_3.Object.libname[ll_i]) = '' THEN
		MessageBox('提示','请输入LIBRARY名称', Information!, OK! )
		RETURN
	END IF	
NEXT

IF dw_3.Update(TRUE,FALSE) = -1  THEN
	MessageBox('错误','保存资料出错!'+sqlca.SQLErrText, StopSign!, OK! )
	ROLLBACK;
	RETURN
END IF
COMMIT;

MessageBox('提示','保存资料成功!', Information!, OK! )



end event

type dw_1 from datawindow within tabpage_4
integer y = 100
integer width = 2898
integer height = 1852
integer taborder = 70
string title = "none"
string dataobject = "dw_setliblist"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type tabpage_2 from userobject within tab_1
integer x = 608
integer y = 16
integer width = 2903
integer height = 1956
long backcolor = 134217739
string text = "单据字段隐藏选项"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
cb_11 cb_11
cb_10 cb_10
cb_2 cb_2
dw_5 dw_5
end type

on tabpage_2.create
this.cb_11=create cb_11
this.cb_10=create cb_10
this.cb_2=create cb_2
this.dw_5=create dw_5
this.Control[]={this.cb_11,&
this.cb_10,&
this.cb_2,&
this.dw_5}
end on

on tabpage_2.destroy
destroy(this.cb_11)
destroy(this.cb_10)
destroy(this.cb_2)
destroy(this.dw_5)
end on

type cb_11 from uo_imflatbutton within tabpage_2
integer x = 603
integer width = 421
integer height = 96
integer taborder = 60
string text = "重置布局"
string normalpicname = "delete.BMP"
end type

event clicked;call super::clicked;IF MessageBox('提示','是否确定删除当前所有用户的单据布局?', Question!, YesNo! ) = 2 THEN RETURN

DELETE From sys_user_dwnSyntax;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('错误','删除用户单据布局失败', StopSign!, OK! )
	RETURN
ELSE
	COMMIT;
	MessageBox('提示','删除用户单据布局成功', Information!, OK! )
	RETURN
END IF




end event

type cb_10 from uo_imflatbutton within tabpage_2
integer x = 302
integer height = 96
integer taborder = 30
string text = "修改"
string normalpicname = "open.bmp"
end type

event clicked;call super::clicked;Long i
IF dw_edit_mode_hile THEN
	 
	FOR i = 1 TO 1
		dw_5.SetTabOrder ( i, 0 )
	NEXT
	modifyrow_no = 0
ELSE
	modifyrow_no = dw_5.GetRow()
	FOR i = 1 TO 1
		dw_5.SetTabOrder ( i, i*10 )
	NEXT
	dw_5.SetFocus()
	
	dw_5.SelectRow(0,FALSE)
	dw_5.ScrollToRow (modifyrow_no)
	dw_5.SelectRow(modifyrow_no,TRUE)
	
END IF

dw_edit_mode_hile = NOT dw_edit_mode_hile
WF_hidecol_face()

end event

type cb_2 from uo_imflatbutton within tabpage_2
integer height = 96
integer taborder = 10
boolean enabled = false
string text = "保存"
string normalpicname = "new.bmp"
end type

event clicked;call super::clicked;Long ll_newid,i
String ll_optionid,ll_value
String errmsg,ls_optionname,arg_msg
dw_5.AcceptText()

uo_sys_option uo_opt
uo_opt = CREATE uo_sys_option

FOR i = 1 TO dw_5.RowCount()
	ll_value = String(dw_5.Object.Value[i])
	ll_optionid =  String(dw_5.Object.optionid[i])
	ls_optionname = dw_5.Object.optionname[i]
	IF uo_opt.uof_add_sys_option(ll_optionid,&
		ls_optionname,ll_value,arg_msg,TRUE) = 0 THEN
		MessageBox('提示',arg_msg)
		DESTROY uo_opt
		RETURN
	END IF
NEXT

uo_opt.uof_sys_option()

DESTROY uo_opt

FOR i = 1 TO 1
	dw_5.SetTabOrder ( i, 0 )
NEXT

dw_edit_mode_hile = NOT dw_edit_mode_hile
WF_hidecol_FACE()














end event

type dw_5 from u_dw_rbtnfilter within tabpage_2
integer x = 5
integer y = 100
integer width = 2231
integer height = 1820
integer taborder = 70
string dataobject = "dw_sys_option_hidecol"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_setposition_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event