📄 w_jjhk_bgsl.srw
字号:
end event
type mle_jyfw from multilineedit within tabpage_2
integer x = 430
integer y = 684
integer width = 2427
integer height = 200
integer taborder = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
boolean autovscroll = true
borderstyle borderstyle = stylelowered!
end type
type mle_slyj from multilineedit within tabpage_2
integer x = 430
integer y = 1024
integer width = 2427
integer height = 196
integer taborder = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
string text = " 该企业申请变更()，前置要件： ，材料齐全，请领导审批。"
boolean autovscroll = true
borderstyle borderstyle = stylelowered!
end type
type em_zczb from editmask within tabpage_2
integer x = 430
integer y = 452
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!
string mask = "##########.0000"
end type
type em_yyqx from editmask within tabpage_2
integer x = 430
integer y = 908
integer width = 2427
integer height = 92
integer taborder = 90
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy.mm.dd"
end type
type dw_1 from datawindow within tabpage_2
boolean visible = false
integer x = 18
integer y = 40
integer width = 3099
integer height = 1300
integer taborder = 100
boolean bringtotop = true
string dataobject = "dw_jjhk_kysl"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type
type rb_3 from radiobutton within w_jjhk_bgsl
integer x = 1289
integer y = 2028
integer width = 343
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 = "免调查"
borderstyle borderstyle = stylelowered!
end type
event clicked;tab_1.tabpage_2.dw_1.setitem(1,'fblx','3')
end event
type rb_2 from radiobutton within w_jjhk_bgsl
integer x = 891
integer y = 2028
integer width = 402
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 = "本局调查"
borderstyle borderstyle = stylelowered!
end type
event clicked;tab_1.tabpage_2.dw_1.setitem(1,'fblx','2')
end event
type rb_1 from radiobutton within w_jjhk_bgsl
integer x = 507
integer y = 2028
integer width = 402
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 = "公告板"
borderstyle borderstyle = stylelowered!
end type
event clicked;tab_1.tabpage_2.dw_1.setitem(1,'fblx','1')
end event
type st_2 from statictext within w_jjhk_bgsl
integer x = 206
integer y = 2044
integer width = 261
integer height = 64
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 cb_print from commandbutton within w_jjhk_bgsl
integer x = 2263
integer y = 2024
integer width = 411
integer height = 96
integer taborder = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
boolean enabled = false
string text = "&B.打印审核表"
end type
event clicked;string ls_nbxh,ls_sllx
long ll_row
ll_row = tab_1.tabpage_2.dw_1.getrow()
if ll_row < 1 then
messagebox('提示信息','没有相关的企业信息，请正确操作')
return
end if
ls_nbxh = tab_1.tabpage_2.dw_1.getitemstring(tab_1.tabpage_2.dw_1.getrow(),'nbxh')
ls_sllx = tab_1.tabpage_2.dw_1.getitemstring(tab_1.tabpage_2.dw_1.getrow(),"sllx")
openwithparm(w_jjhk_slsh_print,ls_nbxh+ls_sllx)
this.enabled = false
end event
type cb_5 from commandbutton within w_jjhk_bgsl
integer x = 2629
integer y = 84
integer width = 718
integer height = 104
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "选择变更受理的企业名称"
end type
event clicked;Openwithparm(w_jjhk_bgsl_cx,'1')//查询企业是否已存在
//根据返回的情况进行处理
if message.Stringparm='-1' then //放弃这次操作
cb_exit.Triggerevent(clicked!)
return
end if
sle_2.text=trim(qy.qymc)
sle_2.setfocus()
if not IsNull(sle_2.text) then
cb_save.enabled = TRUE
sle_2.TriggerEvent('mchz')
end if
end event
type sle_2 from singlelineedit within w_jjhk_bgsl
event mchz ( )
integer x = 933
integer y = 84
integer width = 1385
integer height = 96
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type
event mchz;string ls_ccdy
long ll_k,ll_m,ll_i
string ls_zs,ls_djjg,ls_xlh,ls_nbxh,ls_qymc,ls_qylx,ls_jyfw,ls_dh
datetime ldt_hzrq
dec{4} ldec_zczj
string ls_fzr
ls_ccdy = trim(sle_2.text)
ll_k = tab_1.tabpage_1.dw_2.retrieve(ls_ccdy,p_djjg)
if ll_k < 1 then
MessageBox("提示","对不起！该企业没有登记或已经注吊销。")
sle_2.setfocus()
return
else
ls_nbxh = tab_1.tabpage_1.dw_2.getitemstring(tab_1.tabpage_1.dw_2.getrow(),"nbxh")
ls_qymc = tab_1.tabpage_1.dw_2.getitemstring(tab_1.tabpage_1.dw_2.getrow(),"qymc")
ls_qylx = tab_1.tabpage_1.dw_2.getitemstring(tab_1.tabpage_1.dw_2.getrow(),"qylx")
ls_zs = tab_1.tabpage_1.dw_2.getitemstring(tab_1.tabpage_1.dw_2.getrow(),"zs")
ls_fzr = tab_1.tabpage_1.dw_2.getitemstring(tab_1.tabpage_1.dw_2.getrow(),"zyfzr")
ls_dh = tab_1.tabpage_1.dw_2.getitemstring(tab_1.tabpage_1.dw_2.getrow(),"lxdh")
ls_djjg = tab_1.tabpage_1.dw_2.getitemstring(tab_1.tabpage_1.dw_2.getrow(),"djjg")
ldec_zczj = tab_1.tabpage_1.dw_2.GetItemDecimal(tab_1.tabpage_1.dw_2.getrow(),"zczb")
ldt_hzrq = tab_1.tabpage_1.dw_2.GetItemDateTime(tab_1.tabpage_1.dw_2.getrow(),"hzrq")
ls_jyfw = tab_1.tabpage_1.dw_2.getitemstring(tab_1.tabpage_1.dw_2.getrow(),"ywfw")
ll_i = tab_1.tabpage_2.dw_1.insertrow(0)
ls_xlh = wf_xlh('j_slxh')
tab_1.tabpage_2.dw_1.setitem(ll_i,'slxh',ls_xlh)
tab_1.tabpage_2.dw_1.setitem(ll_i,'sllx','2')
tab_1.tabpage_2.dw_1.setitem(ll_i,'slr',g_username)
tab_1.tabpage_2.dw_1.setitem(ll_i,'rlbz','2')
tab_1.tabpage_2.dw_1.setitem(ll_i,'nbxh',ls_nbxh)
tab_1.tabpage_2.dw_1.setitem(ll_i,'qymc',ls_qymc)
tab_1.tabpage_2.dw_1.setitem(ll_i,'fddbr',ls_fzr)
tab_1.tabpage_2.dw_1.setitem(ll_i,'lxdh',ls_dh)
tab_1.tabpage_2.dw_1.setitem(ll_i,'zs',ls_zs)
tab_1.tabpage_2.dw_1.setitem(ll_i,'qylx',ls_qylx)
tab_1.tabpage_2.dw_1.setitem(ll_i,'zczj',ldec_zczj)
tab_1.tabpage_2.dw_1.setitem(ll_i,'jyfw',ls_jyfw)
tab_1.tabpage_2.dw_1.setitem(ll_i,'djjg',ls_djjg)
tab_1.tabpage_2.dw_1.setitem(ll_i,'hzrq',ldt_hzrq)
tab_1.tabpage_2.sle_slr.text = g_username
tab_1.tabpage_2.em_slrq.text = string(today(),"yyyy.mm.dd")
end if
end event
type st_1 from statictext within w_jjhk_bgsl
integer x = 178
integer y = 84
integer width = 704
integer height = 112
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 67108864
boolean enabled = false
string text = "输入变更受理的企业名称:"
boolean focusrectangle = false
end type
type cb_exit from commandbutton within w_jjhk_bgsl
integer x = 2679
integer y = 2024
integer width = 411
integer height = 96
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "&X.退 出"
boolean cancel = true
end type
event clicked;//回退删除操作
close(parent)
end event
type cb_save from commandbutton within w_jjhk_bgsl
integer x = 1847
integer y = 2024
integer width = 411
integer height = 96
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "&S.发 布"
end type
event clicked;string ls_qymc,ls_zs,ls_zyfzr,ls_qylx,ls_jyfw,ls_slyj,ls_slr
dec ldec_zczb
datetime ldt_yyqx,ldt_slrq
if rb_1.checked=false and rb_2.checked=false and rb_3.checked=false then
messagebox('提示','发布类型没选择，请选择')
return
end if
//检查企业名称是否录入1
if tab_1.tabpage_2.cbx_qymc.checked = true then
if tab_1.tabpage_2.sle_qymc.text = '' then
messagebox("提示","变更企业名称未录入!")
return
tab_1.tabpage_2.sle_qymc.setfocus()
end if
ls_qymc = trim(tab_1.tabpage_2.sle_qymc.text)
tab_1.tabpage_2.dw_1.setitem(tab_1.tabpage_2.dw_1.getrow(),"qymc",ls_qymc)
end if
//检查经营地址是否录入2
if tab_1.tabpage_2.cbx_zs.checked = true then
if tab_1.tabpage_2.sle_zs.text = '' then
messagebox("提示","变更企业住所未录入!")
return
tab_1.tabpage_2.sle_zs.setfocus()
end if
ls_zs = trim(tab_1.tabpage_2.sle_zs.text)
tab_1.tabpage_2.dw_1.setitem(tab_1.tabpage_2.dw_1.getrow(),"zs",ls_zs)
end if
//检查法定代表人是否录入3
if tab_1.tabpage_2.cbx_zyfzr.checked = true then
if tab_1.tabpage_2.sle_zyfzr.text = '' then
messagebox("提示","变更企业法定代表人未录入!")
return
tab_1.tabpage_2.sle_zyfzr.setfocus()
end if
ls_zyfzr = trim(tab_1.tabpage_2.sle_zyfzr.text)
tab_1.tabpage_2.dw_1.setitem(tab_1.tabpage_2.dw_1.getrow(),"fddbr",ls_zyfzr)
end if
//检查注册资本是否录入4
if tab_1.tabpage_2.cbx_zczb.checked = true then
if tab_1.tabpage_2.em_zczb.text = '' then
messagebox("提示","变更企业注册资本未录入!")
return
tab_1.tabpage_2.em_zczb.setfocus()
end if
ldec_zczb = dec(trim(tab_1.tabpage_2.em_zczb.text))
tab_1.tabpage_2.dw_1.setitem(tab_1.tabpage_2.dw_1.getrow(),"zczj",ldec_zczb)
end if
//检查经济性质是否录入5
if tab_1.tabpage_2.cbx_qylx.checked = true then
if tab_1.tabpage_2.sle_qylx.text = '' then
messagebox("提示","变更企业经济性质未录入!")
return
tab_1.tabpage_2.sle_qylx.setfocus()
end if
ls_qylx = trim(tab_1.tabpage_2.sle_qylx.text)
tab_1.tabpage_2.dw_1.setitem(tab_1.tabpage_2.dw_1.getrow(),"qylx",ls_qylx)
end if
//检查经营范围是否录入6
if tab_1.tabpage_2.cbx_jyfw.checked = true then
if tab_1.tabpage_2.mle_jyfw.text = '' then
messagebox("提示","变更企业经营范围未录入!")
return
tab_1.tabpage_2.mle_jyfw.setfocus()
end if
ls_jyfw = trim(tab_1.tabpage_2.mle_jyfw.text)
tab_1.tabpage_2.dw_1.setitem(tab_1.tabpage_2.dw_1.getrow(),"jyfw",ls_jyfw)
end if
//检查经营期限是否录入7
if tab_1.tabpage_2.cbx_yyqx.checked = true then
if tab_1.tabpage_2.em_yyqx.text = '' then
messagebox("提示","变更企业经营期限未录入!")
return
tab_1.tabpage_2.em_yyqx.setfocus()
end if
ldt_yyqx = datetime(date(tab_1.tabpage_2.em_yyqx.text))
tab_1.tabpage_2.dw_1.setitem(tab_1.tabpage_2.dw_1.getrow(),"yyqx2",ldt_yyqx)
end if
ls_slyj = trim(tab_1.tabpage_2.mle_slyj.text)
ls_slr = trim(tab_1.tabpage_2.sle_slr.text)
ldt_slrq = datetime(date(tab_1.tabpage_2.em_slrq.text))
tab_1.tabpage_2.dw_1.setitem(tab_1.tabpage_2.dw_1.getrow(),"slyj",ls_slyj)
tab_1.tabpage_2.dw_1.setitem(tab_1.tabpage_2.dw_1.getrow(),"slr",ls_slr)
tab_1.tabpage_2.dw_1.setitem(tab_1.tabpage_2.dw_1.getrow(),"slrq",ldt_slrq)
tab_1.tabpage_2.dw_1.accepttext()
if tab_1.tabpage_2.dw_1.update()=1 then
commit using sqlca;
messagebox('提示','发布成功!')
cb_print.enabled = true
else
messagebox('提示','保存数据失败，请检查修改')
rollback using sqlca;
end if
end event
type gb_1 from groupbox within w_jjhk_bgsl
integer x = 471
integer y = 1960
integer width = 1221
integer height = 196
integer taborder = 70
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
borderstyle borderstyle = stylelowered!
end type
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -