w_jjhk_bgsl.srw

一套PB开发的工商行政管理全套源码,包括企业登记,执照,案件管理等.

destroy(this.cbx_zyfzr)
destroy(this.cbx_qymc)
destroy(this.cbx_zs)
destroy(this.cbx_zczb)
destroy(this.cbx_yyqx)
destroy(this.cbx_slyj)
destroy(this.sle_qymc)
destroy(this.sle_zs)
destroy(this.sle_zyfzr)
destroy(this.cbx_jyfw)
destroy(this.mle_jyfw)
destroy(this.mle_slyj)
destroy(this.em_zczb)
destroy(this.em_yyqx)
destroy(this.dw_1)
end on

type sle_slr from singlelineedit within tabpage_2
integer x = 430
integer y = 1244
integer width = 750
integer height = 92
integer taborder = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type em_slrq from editmask within tabpage_2
integer x = 1659
integer y = 1244
integer width = 896
integer height = 92
integer taborder = 100
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy.mm.dd"
end type

type st_5 from statictext within tabpage_2
integer x = 1367
integer y = 1244
integer width = 279
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "受理日期"
boolean focusrectangle = false
end type

type st_4 from statictext within tabpage_2
integer x = 128
integer y = 1244
integer width = 279
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "受理人"
boolean focusrectangle = false
end type

type sle_qylx from singlelineedit within tabpage_2
integer x = 430
integer y = 568
integer width = 2427
integer height = 92
integer taborder = 70
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
borderstyle borderstyle = stylelowered!
end type

type cbx_qylx from checkbox within tabpage_2
integer x = 50
integer y = 568
integer width = 357
integer height = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "经济性质"
boolean lefttext = true
borderstyle borderstyle = stylelowered!
end type

event clicked;string ls_slyj

if this.checked=true then
   sle_qylx.enabled=true
	is_qylx = "经济性质、"
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end	
else
	sle_qylx.enabled=false
	is_qylx = ""
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end
end if
end event

type cbx_zyfzr from checkbox within tabpage_2
integer x = 50
integer y = 336
integer width = 357
integer height = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "法定代表人"
boolean lefttext = true
borderstyle borderstyle = stylelowered!
end type

event clicked;string ls_slyj

if this.checked=true then
	sle_zyfzr.enabled=true
//	if is_zczb<>'' or is_qylx<>'' or is_jyfw<>'' or is_yyqx<>'' then
		is_zyfzr = "负责人、"
//	else
//		is_zyfzr = "负责人"
//	end if	
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end
else
	sle_zyfzr.enabled=false
	is_zyfzr = ""
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end
end if

end event

type cbx_qymc from checkbox within tabpage_2
integer x = 50
integer y = 104
integer width = 357
integer height = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "企业名称"
boolean lefttext = true
borderstyle borderstyle = stylelowered!
end type

event clicked;string ls_slyj

if this.checked=true then
	sle_qymc.enabled=true
//	if is_zs<>'' or is_zyfzr<>'' or is_zczb<>'' or is_qylx<>'' or is_jyfw<>'' or is_yyqx<>'' then
		is_qymc = "企业名称、"
//	else
//		is_qymc = "企业名称"
//	end if	
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end
else
	sle_qymc.enabled=false
	is_qymc = ""
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end
end if
end event

type cbx_zs from checkbox within tabpage_2
integer x = 50
integer y = 220
integer width = 357
integer height = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "经营地址"
boolean lefttext = true
borderstyle borderstyle = stylelowered!
end type

event clicked;string ls_slyj
if this.checked=true then
	sle_zs.enabled=true
//	if is_zyfzr<>'' or is_zczb<>'' or is_qylx<>'' or is_jyfw<>'' or is_yyqx<>'' then
		is_zs = "经营地址、"
//	else
//		is_zs = "经营地址"
//	end if
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end
else
	sle_zs.enabled=false
	is_zs = ""
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end
end if

end event

type cbx_zczb from checkbox within tabpage_2
integer x = 50
integer y = 452
integer width = 357
integer height = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "注册资本"
boolean lefttext = true
borderstyle borderstyle = stylelowered!
end type

event clicked;string ls_slyj

if this.checked=true then
   em_zczb.enabled=true
//	if is_qylx<>'' or is_jyfw<>'' or is_yyqx<>'' then
		is_zczb = "注册资本、"
//	else
//		is_zczb = "注册资本"
//	end if
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end
else
	em_zczb.enabled=false
	is_zczb = ""
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end
end if

end event

type cbx_yyqx from checkbox within tabpage_2
integer x = 50
integer y = 908
integer width = 357
integer height = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "经营期限"
boolean lefttext = true
borderstyle borderstyle = stylelowered!
end type

event clicked;string ls_slyj

if this.checked=true then
	em_yyqx.enabled=true
	is_yyqx = "经营期限"
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end
else
	em_yyqx.enabled=false
	is_yyqx = ""
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end
end if

end event

type cbx_slyj from checkbox within tabpage_2
integer x = 50
integer y = 1024
integer width = 357
integer height = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "受理意见"
boolean lefttext = true
borderstyle borderstyle = stylelowered!
end type

event clicked;if this.checked=true then
	mle_slyj.enabled=true
else
	mle_slyj.enabled=false
end if

end event

type sle_qymc from singlelineedit within tabpage_2
integer x = 430
integer y = 104
integer width = 2427
integer height = 92
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
borderstyle borderstyle = stylelowered!
end type

type sle_zs from singlelineedit within tabpage_2
integer x = 430
integer y = 220
integer width = 2427
integer height = 92
integer taborder = 50
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean enabled = false
borderstyle borderstyle = stylelowered!
end type

type sle_zyfzr from singlelineedit within tabpage_2
integer x = 430
integer y = 336
integer width = 2427
integer height = 92
integer taborder = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
borderstyle borderstyle = stylelowered!
end type

type cbx_jyfw from checkbox within tabpage_2
integer x = 50
integer y = 684
integer width = 357
integer height = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "经营范围"
boolean lefttext = true
borderstyle borderstyle = stylelowered!
end type

event clicked;string ls_slyj

if this.checked=true then
	mle_jyfw.enabled=true
	is_jyfw = "经营范围、"
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end	
else
	mle_jyfw.enabled=false
	is_jyfw = ""
	ls_slyj = is_qymc + is_zs + is_zyfzr + is_zczb + is_qylx + is_jyfw + is_yyqx
	if right(ls_slyj,2) = '、' then
		ls_slyj = left(ls_slyj,len(ls_slyj) - 2)
	end if
	mle_slyj.text = is_slyj_beg + ls_slyj + is_slyj_end
end if