w_jjhk_bgsl.srw

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

$PBExportHeader$w_jjhk_bgsl.srw
$PBExportComments$变更受理录入窗
forward
global type w_jjhk_bgsl from window
end type
type tab_1 from tab within w_jjhk_bgsl
end type
type tabpage_1 from userobject within tab_1
end type
type dw_2 from datawindow within tabpage_1
end type
type tabpage_1 from userobject within tab_1
dw_2 dw_2
end type
type tabpage_2 from userobject within tab_1
end type
type sle_slr from singlelineedit within tabpage_2
end type
type em_slrq from editmask within tabpage_2
end type
type st_5 from statictext within tabpage_2
end type
type st_4 from statictext within tabpage_2
end type
type sle_qylx from singlelineedit within tabpage_2
end type
type cbx_qylx from checkbox within tabpage_2
end type
type cbx_zyfzr from checkbox within tabpage_2
end type
type cbx_qymc from checkbox within tabpage_2
end type
type cbx_zs from checkbox within tabpage_2
end type
type cbx_zczb from checkbox within tabpage_2
end type
type cbx_yyqx from checkbox within tabpage_2
end type
type cbx_slyj from checkbox within tabpage_2
end type
type sle_qymc from singlelineedit within tabpage_2
end type
type sle_zs from singlelineedit within tabpage_2
end type
type sle_zyfzr from singlelineedit within tabpage_2
end type
type cbx_jyfw from checkbox within tabpage_2
end type
type mle_jyfw from multilineedit within tabpage_2
end type
type mle_slyj from multilineedit within tabpage_2
end type
type em_zczb from editmask within tabpage_2
end type
type em_yyqx from editmask within tabpage_2
end type
type dw_1 from datawindow within tabpage_2
end type
type tabpage_2 from userobject within tab_1
sle_slr sle_slr
em_slrq em_slrq
st_5 st_5
st_4 st_4
sle_qylx sle_qylx
cbx_qylx cbx_qylx
cbx_zyfzr cbx_zyfzr
cbx_qymc cbx_qymc
cbx_zs cbx_zs
cbx_zczb cbx_zczb
cbx_yyqx cbx_yyqx
cbx_slyj cbx_slyj
sle_qymc sle_qymc
sle_zs sle_zs
sle_zyfzr sle_zyfzr
cbx_jyfw cbx_jyfw
mle_jyfw mle_jyfw
mle_slyj mle_slyj
em_zczb em_zczb
em_yyqx em_yyqx
dw_1 dw_1
end type
type tab_1 from tab within w_jjhk_bgsl
tabpage_1 tabpage_1
tabpage_2 tabpage_2
end type
type rb_3 from radiobutton within w_jjhk_bgsl
end type
type rb_2 from radiobutton within w_jjhk_bgsl
end type
type rb_1 from radiobutton within w_jjhk_bgsl
end type
type st_2 from statictext within w_jjhk_bgsl
end type
type cb_print from commandbutton within w_jjhk_bgsl
end type
type cb_5 from commandbutton within w_jjhk_bgsl
end type
type sle_2 from singlelineedit within w_jjhk_bgsl
end type
type st_1 from statictext within w_jjhk_bgsl
end type
type cb_exit from commandbutton within w_jjhk_bgsl
end type
type cb_save from commandbutton within w_jjhk_bgsl
end type
type gb_1 from groupbox within w_jjhk_bgsl
end type
end forward

shared variables
boolean flag_qymc=false

end variables

global type w_jjhk_bgsl from window
integer y = 4
integer width = 3685
integer height = 2436
boolean titlebar = true
string title = "变更受理"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
windowtype windowtype = response!
long backcolor = 80269524
event user_open ( )
tab_1 tab_1
rb_3 rb_3
rb_2 rb_2
rb_1 rb_1
st_2 st_2
cb_print cb_print
cb_5 cb_5
sle_2 sle_2
st_1 st_1
cb_exit cb_exit
cb_save cb_save
gb_1 gb_1
end type
global w_jjhk_bgsl w_jjhk_bgsl

type variables
//ls_slyj ="该企业申请变更(企业名称、经营地址、负责人、注册资金、经济性质、经营范围、经营期限)，前置要件：              ，材料齐全，请领导审批。"
//变更企业受理意建
string is_slyj_beg = "    该企业申请变更("
string is_slyj_end = ")，前置要件：              ，材料齐全，请领导审批。"
string is_slyj,is_qymc,is_zs,is_zyfzr,is_zczb,is_qylx,is_jyfw,is_yyqx


end variables

forward prototypes
public function string wf_xlh (string as_bz)
end prototypes

event user_open;//string ls_xlh,ls_zs,ls_fzr,ls_djjg
//long ll_rowno,ll_i
//datetime ldt_clrq,ldt_slrq,ldt_hzrq
//dec{4}  ldec_zczj
//
//Openwithparm(w_sl_bgdjcx,'1')//查询企业是否已存在
//
////根据返回的情况进行处理
//if message.Stringparm='-1' then 	//放弃这次操作
//	cb_exit.Triggerevent(clicked!)
//	return
//end if
//
////取得核准日期
//ldt_slrq = Datetime(Date(Mid(message.Stringparm,2,Len(message.Stringparm) - 1)))
//
//tab_1.tabpage_1.dw_2.retrieve(qy.nbxh)
//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_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")
//
//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,'slrq',ldt_slrq)
//tab_1.tabpage_2.dw_1.setitem(ll_i,'sllx','2')
//tab_1.tabpage_2.dw_1.setitem(ll_i,'slr',g_userid)
//tab_1.tabpage_2.dw_1.setitem(ll_i,'nbxh',qy.nbxh)
//tab_1.tabpage_2.dw_1.setitem(ll_i,'qymc',qy.qymc)
//tab_1.tabpage_2.dw_1.setitem(ll_i,'qylx',qy.qylx)
//tab_1.tabpage_2.dw_1.setitem(ll_i,'zczj',ldec_zczj)
//tab_1.tabpage_2.dw_1.setitem(ll_i,'zs',ls_zs)
//tab_1.tabpage_2.dw_1.setitem(ll_i,'fddbr',ls_fzr)
//tab_1.tabpage_2.dw_1.setitem(ll_i,'rlbz','2')
//tab_1.tabpage_2.dw_1.setitem(ll_i,'djjg',ls_djjg)
//tab_1.tabpage_2.dw_1.setitem(ll_i,'hzrq',ldt_hzrq)
//
end event

public function string wf_xlh (string as_bz);//生成一个新的内部序号
//返回-1为出错

string lsh,ls_return
long xlh

//生成新的内部序号

//首先生成一个新的7位流水号
UPDATE a_xlh SET xlhz = xlhz +1  WHERE xlhbz = :as_bz   ;
//取得流水号
SELECT xlhz INTO :xlh  FROM a_xlh  WHERE xlhbz = :as_bz   ;
if sqlca.sqlcode=0 then
	//序列号生成成功,则生成一个7位流水号
	lsh=Right('0000000'+String(Long(xlh)),7)
else
	//序列号生成失败,则退出系统
	Rollback;
	return ''
end if
if Long(xlh)=9999999 then
	//恢复
	UPDATE a_xlh SET xlhz = 0 WHERE xlhbz = :as_bz   ;
	if sqlca.sqlcode<>0 then
		//失败,则退出系统
		Rollback;
		return ''
	end if
end if
Commit;
//新的内部序号=当前登记机关码(6位)+内部序号类别码(1位)+'00'+流水号(7位)
ls_return=p_djjg + nbxhlbm + '00' + lsh//注:p_djjg为进入系统时得到的值,nbxhlbm为窗口打开时得到的

return ls_return

end function

on w_jjhk_bgsl.create
this.tab_1=create tab_1
this.rb_3=create rb_3
this.rb_2=create rb_2
this.rb_1=create rb_1
this.st_2=create st_2
this.cb_print=create cb_print
this.cb_5=create cb_5
this.sle_2=create sle_2
this.st_1=create st_1
this.cb_exit=create cb_exit
this.cb_save=create cb_save
this.gb_1=create gb_1
this.Control[]={this.tab_1,&
this.rb_3,&
this.rb_2,&
this.rb_1,&
this.st_2,&
this.cb_print,&
this.cb_5,&
this.sle_2,&
this.st_1,&
this.cb_exit,&
this.cb_save,&
this.gb_1}
end on

on w_jjhk_bgsl.destroy
destroy(this.tab_1)
destroy(this.rb_3)
destroy(this.rb_2)
destroy(this.rb_1)
destroy(this.st_2)
destroy(this.cb_print)
destroy(this.cb_5)
destroy(this.sle_2)
destroy(this.st_1)
destroy(this.cb_exit)
destroy(this.cb_save)
destroy(this.gb_1)
end on

event open;gf_window_center(this)
tab_1.tabpage_1.dw_2.settransobject(sqlca)
tab_1.tabpage_2.dw_1.settransobject(sqlca)





end event

event closequery;//tab_1.tabpage_1.dw_2.accepttext()
//if tab_1.tabpage_1.dw_2.modifiedcount() > 0 or tab_1.tabpage_1.dw_2.deletedcount() > 0 then
//	beep(1)
//	if messagebox("提示","数据已经修改，尚未保存。是否确认退出窗口？",question!,yesno!) = 2 then
//		return 1
//	end if
//end if
//
end event

event key;graphicobject lgobj_kj
lgobj_kj=getfocus()
//用 Enter 键移动焦点
if key=keyenter! then
	if lgobj_kj=sle_2 then 
		sle_2.triggerevent("mchz")
	end if
end if
end event

type tab_1 from tab within w_jjhk_bgsl
integer x = 160
integer y = 268
integer width = 3237
integer height = 1580
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_1 tabpage_1
tabpage_2 tabpage_2
end type

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

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
end on

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3200
integer height = 1468
long backcolor = 80269524
string text = "企业基本信息"
long tabtextcolor = 33554432
long tabbackcolor = 80269524
long picturemaskcolor = 536870912
dw_2 dw_2
end type

on tabpage_1.create
this.dw_2=create dw_2
this.Control[]={this.dw_2}
end on

on tabpage_1.destroy
destroy(this.dw_2)
end on

type dw_2 from datawindow within tabpage_1
integer x = 18
integer y = 40
integer width = 3099
integer height = 1300
integer taborder = 110
string dataobject = "dw_jjhk_qyjbxx"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type tabpage_2 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 3200
integer height = 1468
long backcolor = 80269524
string text = "企业变更受理信息"
long tabtextcolor = 33554432
long tabbackcolor = 80269524
long picturemaskcolor = 536870912
sle_slr sle_slr
em_slrq em_slrq
st_5 st_5
st_4 st_4
sle_qylx sle_qylx
cbx_qylx cbx_qylx
cbx_zyfzr cbx_zyfzr
cbx_qymc cbx_qymc
cbx_zs cbx_zs
cbx_zczb cbx_zczb
cbx_yyqx cbx_yyqx
cbx_slyj cbx_slyj
sle_qymc sle_qymc
sle_zs sle_zs
sle_zyfzr sle_zyfzr
cbx_jyfw cbx_jyfw
mle_jyfw mle_jyfw
mle_slyj mle_slyj
em_zczb em_zczb
em_yyqx em_yyqx
dw_1 dw_1
end type

on tabpage_2.create
this.sle_slr=create sle_slr
this.em_slrq=create em_slrq
this.st_5=create st_5
this.st_4=create st_4
this.sle_qylx=create sle_qylx
this.cbx_qylx=create cbx_qylx
this.cbx_zyfzr=create cbx_zyfzr
this.cbx_qymc=create cbx_qymc
this.cbx_zs=create cbx_zs
this.cbx_zczb=create cbx_zczb
this.cbx_yyqx=create cbx_yyqx
this.cbx_slyj=create cbx_slyj
this.sle_qymc=create sle_qymc
this.sle_zs=create sle_zs
this.sle_zyfzr=create sle_zyfzr
this.cbx_jyfw=create cbx_jyfw
this.mle_jyfw=create mle_jyfw
this.mle_slyj=create mle_slyj
this.em_zczb=create em_zczb
this.em_yyqx=create em_yyqx
this.dw_1=create dw_1
this.Control[]={this.sle_slr,&
this.em_slrq,&
this.st_5,&
this.st_4,&
this.sle_qylx,&
this.cbx_qylx,&
this.cbx_zyfzr,&
this.cbx_qymc,&
this.cbx_zs,&
this.cbx_zczb,&
this.cbx_yyqx,&
this.cbx_slyj,&
this.sle_qymc,&
this.sle_zs,&
this.sle_zyfzr,&
this.cbx_jyfw,&
this.mle_jyfw,&
this.mle_slyj,&
this.em_zczb,&
this.em_yyqx,&
this.dw_1}
end on

on tabpage_2.destroy
destroy(this.sle_slr)
destroy(this.em_slrq)
destroy(this.st_5)
destroy(this.st_4)
destroy(this.sle_qylx)
destroy(this.cbx_qylx)