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

$PBExportHeader$w_user_copyright_ch.srw
forward
global type w_user_copyright_ch from window
end type
type cbx_xls_print from checkbox within w_user_copyright_ch
end type
type cbx_report from checkbox within w_user_copyright_ch
end type
type cbx_xls_send from checkbox within w_user_copyright_ch
end type
type cbx_account from checkbox within w_user_copyright_ch
end type
type cbx_outrep from checkbox within w_user_copyright_ch
end type
type cbx_classview from checkbox within w_user_copyright_ch
end type
type cbx_spttype from checkbox within w_user_copyright_ch
end type
type cbx_plugins from checkbox within w_user_copyright_ch
end type
type cbx_classedit from checkbox within w_user_copyright_ch
end type
type cbx_storage from checkbox within w_user_copyright_ch
end type
type cbx_sc from checkbox within w_user_copyright_ch
end type
type cbx_area from checkbox within w_user_copyright_ch
end type
type cbx_right from checkbox within w_user_copyright_ch
end type
type cb_2 from uo_imflatbutton within w_user_copyright_ch
end type
type cb_1 from uo_imflatbutton within w_user_copyright_ch
end type
end forward

global type w_user_copyright_ch from window
integer width = 1531
integer height = 1044
boolean titlebar = true
string title = "用户权限复制"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 134217739
string icon = "AppIcon!"
boolean center = true
cbx_xls_print cbx_xls_print
cbx_report cbx_report
cbx_xls_send cbx_xls_send
cbx_account cbx_account
cbx_outrep cbx_outrep
cbx_classview cbx_classview
cbx_spttype cbx_spttype
cbx_plugins cbx_plugins
cbx_classedit cbx_classedit
cbx_storage cbx_storage
cbx_sc cbx_sc
cbx_area cbx_area
cbx_right cbx_right
cb_2 cb_2
cb_1 cb_1
end type
global w_user_copyright_ch w_user_copyright_ch

type variables
s_sys_user s_user
end variables

on w_user_copyright_ch.create
this.cbx_xls_print=create cbx_xls_print
this.cbx_report=create cbx_report
this.cbx_xls_send=create cbx_xls_send
this.cbx_account=create cbx_account
this.cbx_outrep=create cbx_outrep
this.cbx_classview=create cbx_classview
this.cbx_spttype=create cbx_spttype
this.cbx_plugins=create cbx_plugins
this.cbx_classedit=create cbx_classedit
this.cbx_storage=create cbx_storage
this.cbx_sc=create cbx_sc
this.cbx_area=create cbx_area
this.cbx_right=create cbx_right
this.cb_2=create cb_2
this.cb_1=create cb_1
this.Control[]={this.cbx_xls_print,&
this.cbx_report,&
this.cbx_xls_send,&
this.cbx_account,&
this.cbx_outrep,&
this.cbx_classview,&
this.cbx_spttype,&
this.cbx_plugins,&
this.cbx_classedit,&
this.cbx_storage,&
this.cbx_sc,&
this.cbx_area,&
this.cbx_right,&
this.cb_2,&
this.cb_1}
end on

on w_user_copyright_ch.destroy
destroy(this.cbx_xls_print)
destroy(this.cbx_report)
destroy(this.cbx_xls_send)
destroy(this.cbx_account)
destroy(this.cbx_outrep)
destroy(this.cbx_classview)
destroy(this.cbx_spttype)
destroy(this.cbx_plugins)
destroy(this.cbx_classedit)
destroy(this.cbx_storage)
destroy(this.cbx_sc)
destroy(this.cbx_area)
destroy(this.cbx_right)
destroy(this.cb_2)
destroy(this.cb_1)
end on

event close;//f_SetProfileString (-1, THIS.ClassName(), "status", "1")
Long i
String ls_name
Int li_value
dragobject tmp
checkbox cbx
FOR i = 1 TO UpperBound(THIS.Control)
	tmp = THIS.Control[i]
	IF TypeOf(tmp) = checkbox! THEN
		cbx = tmp
		ls_name = cbx.ClassName()
		IF cbx.Checked THEN
			li_value = 1
		ELSE
			li_value = 0
		END IF
		f_SetProfileString (-1, THIS.ClassName(), ls_name, string(li_value))
		
	END IF
NEXT


CloseWithReturn(THIS,s_user)




end event

event open;Long i
String ls_name
Int li_value
dragobject tmp
checkbox cbx
FOR i = 1 TO UpperBound(THIS.Control)
	tmp = THIS.Control[i]
	IF TypeOf(tmp) = checkbox! THEN
		cbx = tmp
		ls_name = cbx.ClassName()
		li_value = Integer(f_profilestring (-1, THIS.ClassName(), ls_name, "1"))
		cbx.Checked = li_value = 1
	END IF
NEXT

IF sys_option_cusarea = 0 THEN
	cbx_area.Checked = FALSE
	cbx_area.Enabled = FALSE
END IF

IF sys_option_outrep = 0 THEN
	cbx_outrep.Checked = FALSE
	cbx_outrep.Enabled = FALSE
END IF


end event

type cbx_xls_print from checkbox within w_user_copyright_ch
integer x = 809
integer y = 308
integer width = 576
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 = "EXCEL打印权限"
boolean checked = true
end type

type cbx_report from checkbox within w_user_copyright_ch
integer x = 809
integer y = 476
integer width = 576
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "自定义报表权限"
boolean checked = true
end type

type cbx_xls_send from checkbox within w_user_copyright_ch
integer x = 809
integer y = 392
integer width = 576
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "EXCEL发送权限"
boolean checked = true
end type

type cbx_account from checkbox within w_user_copyright_ch
integer x = 114
integer y = 476
integer width = 576
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 = "出纳账号权限"
boolean checked = true
end type

type cbx_outrep from checkbox within w_user_copyright_ch
integer x = 114
integer y = 560
integer width = 576
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "业务员权限"
boolean checked = true
end type

type cbx_classview from checkbox within w_user_copyright_ch
integer x = 809
integer y = 140
integer width = 576
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 = "附件查看权限"
boolean checked = true
end type

type cbx_spttype from checkbox within w_user_copyright_ch
integer x = 114
integer y = 392
integer width = 576
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "供应商类别权限"
boolean checked = true
end type

type cbx_plugins from checkbox within w_user_copyright_ch
integer x = 809
integer y = 224
integer width = 576
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "外挂执行权限"
boolean checked = true
end type

type cbx_classedit from checkbox within w_user_copyright_ch
integer x = 809
integer y = 56
integer width = 576
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 = "附件修改权限"
boolean checked = true
end type

type cbx_storage from checkbox within w_user_copyright_ch
integer x = 114
integer y = 308
integer width = 576
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 = "仓库权限"
boolean checked = true
end type

type cbx_sc from checkbox within w_user_copyright_ch
integer x = 114
integer y = 224
integer width = 576
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "分部权限"
boolean checked = true
end type

type cbx_area from checkbox within w_user_copyright_ch
integer x = 114
integer y = 140
integer width = 576
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "区域权限"
boolean checked = true
end type

type cbx_right from checkbox within w_user_copyright_ch
integer x = 114
integer y = 56
integer width = 576
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 = "操作权限"
boolean checked = true
end type

type cb_2 from uo_imflatbutton within w_user_copyright_ch
integer x = 859
integer y = 776
integer width = 311
integer taborder = 20
string text = "取消"
string normalpicname = "exit.bmp"
end type

event clicked;call super::clicked;s_user.copyflag = 0
Close(PARENT)


end event

type cb_1 from uo_imflatbutton within w_user_copyright_ch
integer x = 389
integer y = 776
integer width = 311
integer taborder = 10
string normalpicname = "ok.bmp"
end type

event clicked;call super::clicked;s_user.copyflag = 1

IF cbx_right.Checked THEN
	s_user.right_flag = 1
ELSE
	s_user.right_flag = 0
END IF

IF cbx_area.Checked THEN
	s_user.area_flag = 1
ELSE
	s_user.area_flag = 0
END IF

IF cbx_sc.Checked THEN
	s_user.sc_flag = 1
ELSE
	s_user.sc_flag = 0
END IF

IF cbx_storage.Checked THEN
	s_user.storage_flag = 1
ELSE
	s_user.storage_flag = 0
END IF

IF cbx_spttype.Checked THEN
	s_user.spttype_flag = 1
ELSE
	s_user.spttype_flag = 0
END IF

IF cbx_classedit.Checked THEN
	s_user.classedit_flag = 1
ELSE
	s_user.classedit_flag = 0
END IF

IF cbx_classview.Checked THEN
	s_user.classview_flag = 1
ELSE
	s_user.classview_flag = 0
END IF

IF cbx_plugins.Checked THEN
	s_user.plugins_flag = 1
ELSE
	s_user.plugins_flag = 0
END IF

IF cbx_xls_print.Checked THEN
	s_user.xls_print_flag = 1
ELSE
	s_user.xls_print_flag = 0
END IF

IF cbx_xls_send.Checked THEN
	s_user.xls_send_flag = 1
ELSE
	s_user.xls_send_flag = 0
END IF

IF cbx_report.Checked THEN
	s_user.report_flag = 1
ELSE
	s_user.report_flag = 0
END IF

IF cbx_account.Checked THEN
	s_user.account_flag = 1
ELSE
	s_user.account_flag = 0
END IF

IF cbx_outrep.Checked THEN
	s_user.outrep_flag = 1
ELSE
	s_user.outrep_flag = 0
END IF


Close(PARENT)





end event