w_grdz_dj.srw

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

$PBExportHeader$w_grdz_dj.srw
$PBExportComments$个人独资企业登记
forward
global type w_grdz_dj from window
end type
type tab_1 from tab within w_grdz_dj
end type
type tabpage_detail from userobject within tab_1
end type
type st_2 from statictext within tabpage_detail
end type
type cbx_10 from checkbox within tabpage_detail
end type
type cbx_9 from checkbox within tabpage_detail
end type
type cbx_8 from checkbox within tabpage_detail
end type
type cbx_7 from checkbox within tabpage_detail
end type
type cbx_6 from checkbox within tabpage_detail
end type
type cbx_5 from checkbox within tabpage_detail
end type
type dw_1 from datawindow within tabpage_detail
end type
type tabpage_detail from userobject within tab_1
st_2 st_2
cbx_10 cbx_10
cbx_9 cbx_9
cbx_8 cbx_8
cbx_7 cbx_7
cbx_6 cbx_6
cbx_5 cbx_5
dw_1 dw_1
end type
type tabpage_legal from userobject within tab_1
end type
type dw_legal from datawindow within tabpage_legal
end type
type tabpage_legal from userobject within tab_1
dw_legal dw_legal
end type
type tabpage_1 from userobject within tab_1
end type
type st_3 from statictext within tabpage_1
end type
type dw_2 from datawindow within tabpage_1
end type
type tabpage_1 from userobject within tab_1
st_3 st_3
dw_2 dw_2
end type
type tabpage_jtcy from userobject within tab_1
end type
type uo_1 from uo_list_detail within tabpage_jtcy
end type
type tabpage_jtcy from userobject within tab_1
uo_1 uo_1
end type
type tab_1 from tab within w_grdz_dj
tabpage_detail tabpage_detail
tabpage_legal tabpage_legal
tabpage_1 tabpage_1
tabpage_jtcy tabpage_jtcy
end type
type cb_bzsm from commandbutton within w_grdz_dj
end type
type st_name from statictext within w_grdz_dj
end type
type st_1 from statictext within w_grdz_dj
end type
type dw_qymccx from datawindow within w_grdz_dj
end type
type cb_exit from commandbutton within w_grdz_dj
end type
type cb_print from commandbutton within w_grdz_dj
end type
type cb_save from commandbutton within w_grdz_dj
end type
type cb_cancel from commandbutton within w_grdz_dj
end type
type cb_prt_zz from commandbutton within w_grdz_dj
end type
end forward

global type w_grdz_dj from window
integer x = 5
integer y = 12
integer width = 3625
integer height = 2384
boolean titlebar = true
string title = "个人独资企业登记窗"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 79741120
event user_open ( )
event user_error ( )
tab_1 tab_1
cb_bzsm cb_bzsm
st_name st_name
st_1 st_1
dw_qymccx dw_qymccx
cb_exit cb_exit
cb_print cb_print
cb_save cb_save
cb_cancel cb_cancel
cb_prt_zz cb_prt_zz
end type
global w_grdz_dj w_grdz_dj

type variables
//对应企业名称核准库
datastore qymchz

//对应各页的取出数据的情况,取出为'1',否则为'0'是保存时执行
//update的一个标志,因为数据取出后可能删除而使得数据窗口
//的行数为零,这时update的标志为此
string dw_retrieve[20]

//发现半角之后，得到替换值，准备替换输入
string thasc

//备注说明的内容
string smbz

string iv_dah,iv_zch
string ls_nbxh,dw_nbxh,old_sql
int rr=0
end variables

forward prototypes
public subroutine fn_nz_space (ref string coltext)
public subroutine fn_gs_dj_cx (datawindow dw1, datawindow dw2)
end prototypes

event user_open;//建立企业名称核准库的 datastore
//qymchz 是 instance 变量
qymchz=Create datastore
qymchz.dataobject='dw_nz_qymchz'
qymchz.settransobject(sqlca)

//给标志赋初值
int i
FOR i=1 TO 20
	dw_retrieve[i]='0'
NEXT
   
dw_qymccx.Settransobject(sqlca)

end event
event user_error;Messagebox("错 误 信 息","数据存在错误,请仔细检查输入的项目!")
rollback using sqlca;


end event

public subroutine fn_nz_space (ref string coltext);//将字符串中的空格去掉
int i
i=1
DO WHILE i<>0
	i=Pos(coltext,' ')
	if i<>0 then
		coltext=Replace(coltext,i,1,'')
	end if
LOOP

end subroutine

public subroutine fn_gs_dj_cx (datawindow dw1, datawindow dw2);
//取得名称查询库和公司登记库的数据窗口的部分字段相互拷贝
//将参数 dw2 的内容拷贝到 dw1
datetime qx
string nu
dw1.object.nbxh[1] = dw2.object.nbxh[1]
dw1.object.qymc[1] = dw2.object.qymc[1]
dw1.object.zs[1] = dw2.object.zs[1]
dw1.object.yzbm[1] = dw2.object.yzbm[1]
dw1.object.lxdh[1] = dw2.object.lxdh[1]
//if dw1=dw_qymccx  then
//	dw1.object.zczb[1]= dw2.object.cze[1]
//else
//dw1.object.cze[1]= dw2.object.zczb[1]
//end if
dw1.object.zczb[1]= dw2.object.zczb[1]
dw1.object.qylx[1] = dw2.object.qylx[1]
dw1.object.yyqx2[1] = dw2.object.yyqx2[1]
dw1.object.hydm[1] = dw2.object.hydm[1]
dw1.object.hyml[1] = dw2.object.hyml[1]
dw1.object.czrq[1] = dw2.object.czrq[1]
dw1.object.zch[1] = dw2.object.zch[1]
dw1.object.djjg[1] = dw2.object.djjg[1]
dw1.object.hzrq[1] = dw2.object.hzrq[1]
dw1.object.tydm[1] = dw2.object.tydm[1]
dw1.object.zycp[1] = dw2.object.zycp[1]
dw1.object.gxdw[1] = dw2.object.gxdw[1]
dw1.object.zchxh[1] = dw2.object.zchxh[1]
dw1.object.mcjc[1] = dw2.object.mcjc[1]
dw1.object.clrq[1] = dw2.object.clrq[1]
dw1.object.zgdw[1] = dw2.object.zgdw[1]
dw1.object.byzd[1] = dw2.object.byzd[1]
dw1.object.dah[1] = dw2.object.dah[1]

if dw1.dataobject='dw_grdzdj_sy' then
//if dw1.dataobject='dw_grdzdj' then
	dw1.object.fddbr[1] = dw2.object.zyfzr[1]
	dw1.object.jyfw[1] = dw2.object.ywfw[1]
else
	dw1.object.zyfzr[1] = dw2.object.fddbr[1]
	dw1.object.ywfw[1] = dw2.object.jyfw[1]
	dw1.object.zjbz[1] = '002'
	dw1.object.mclx[1] = '2'
	Setnull(qx)
	dw1.Setitem(1,'blqx2',qx)
	Setnull(nu)
	dw1.object.zgbm[1]=nu
end if


end subroutine

on w_grdz_dj.create
this.tab_1=create tab_1
this.cb_bzsm=create cb_bzsm
this.st_name=create st_name
this.st_1=create st_1
this.dw_qymccx=create dw_qymccx
this.cb_exit=create cb_exit
this.cb_print=create cb_print
this.cb_save=create cb_save
this.cb_cancel=create cb_cancel
this.cb_prt_zz=create cb_prt_zz
this.Control[]={this.tab_1,&
this.cb_bzsm,&
this.st_name,&
this.st_1,&
this.dw_qymccx,&
this.cb_exit,&
this.cb_print,&
this.cb_save,&
this.cb_cancel,&
this.cb_prt_zz}
end on

on w_grdz_dj.destroy
destroy(this.tab_1)
destroy(this.cb_bzsm)
destroy(this.st_name)
destroy(this.st_1)
destroy(this.dw_qymccx)
destroy(this.cb_exit)
destroy(this.cb_print)
destroy(this.cb_save)
destroy(this.cb_cancel)
destroy(this.cb_prt_zz)
end on

event open;gs_enterprise_type='9240'  //个人独资企业
//gs_enterprise_type='96'
nbxhlbm='5'
this.Postevent("user_open")
end event

event close;//离开时结构内容清控
qy.qymc=''
qy.zch=''
qy.qylx=''
qy.nbxh=''

int i

i=Messagebox("提 示 信 息","是否继续输入其它的数据?",question!,yesno!,1)
if i=1 then
	if ls_window_bg=true then
		w_grdz_dj xw
		Open(xw)
	end if
end if

end event

event closequery;int i
string bz

if dw_retrieve[20]='exit' then
	goto end_close
end if
//当输入数据后未存盘而退出则提示
cb_save.Setfocus()
i=fn_status(tab_1.tabpage_detail.dw_1)//基本信息
CHOOSE CASE i
	CASE 0
	CASE 1
		cb_save.Triggerevent(clicked!)
		bz='1'
		goto l_end
	CASE 2
		
		Rollback;
		if iv_dah<>'' then
			UPDATE a_qymccx SET dah = :iv_dah WHERE nbxh = :qy.nbxh   ;
		end if
		if iv_zch<>'' then
			UPDATE a_qymccx SET zch = :iv_zch WHERE nbxh = :qy.nbxh   ;
		end if
		Commit;
		
		goto l_end
	CASE 3
		return 1
END CHOOSE


i=fn_status(tab_1.tabpage_legal.dw_legal)//法定代表人
CHOOSE CASE i
	CASE 0
	CASE 1
		cb_save.Triggerevent(clicked!)
		bz='1'
		goto l_end
	CASE 2
		goto l_end
	CASE 3
		return 1
END CHOOSE

l_end:
if bz='1' then
	return 1
end if

end_close:

end event

type tab_1 from tab within w_grdz_dj
event selectionchanged pbm_tcnselchanged
event create ( )
event destroy ( )
integer x = 59
integer y = 264
integer width = 3483
integer height = 1692
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
boolean raggedright = true
boolean createondemand = true
alignment alignment = center!
integer selectedtab = 1
tabpage_detail tabpage_detail
tabpage_legal tabpage_legal
tabpage_1 tabpage_1
tabpage_jtcy tabpage_jtcy
end type

event selectionchanged;if newindex=2 then
	tab_1.tabpage_legal.dw_legal.object.xm[1]=tab_1.tabpage_detail.dw_1.object.fddbr[1]
	tab_1.tabpage_legal.dw_legal.object.tzse[1]=tab_1.tabpage_detail.dw_1.object.zczb[1]
	tab_1.tabpage_legal.dw_legal.Accepttext()
end if
if newindex=3 then
	string str_sql
	
	dw_nbxh=qy.nbxh
	IF rr=0 then
		old_sql=tab_1.tabpage_1.dw_2.getsqlselect()
		str_sql=old_sql+" where lsnbxh= '"+dw_nbxh+"'"
		tab_1.tabpage_1.dw_2.setsqlselect(str_sql)
		 rr ++
	end if
	
	if 	tab_1.tabpage_1.dw_2.retrieve()<1 then tab_1.tabpage_1.dw_2.visible=false
	if 	tab_1.tabpage_1.dw_2.retrieve()<1 then  tab_1.tabpage_1.st_3.visible=true
end if





end event

on tab_1.create
this.tabpage_detail=create tabpage_detail
this.tabpage_legal=create tabpage_legal
this.tabpage_1=create tabpage_1
this.tabpage_jtcy=create tabpage_jtcy
this.Control[]={this.tabpage_detail,&
this.tabpage_legal,&
this.tabpage_1,&
this.tabpage_jtcy}
end on

on tab_1.destroy
destroy(this.tabpage_detail)
destroy(this.tabpage_legal)
destroy(this.tabpage_1)
destroy(this.tabpage_jtcy)
end on

type tabpage_detail from userobject within tab_1
event constructor pbm_constructor
event srcx ( )
event create ( )
event destroy ( )
integer x = 18
integer y = 96
integer width = 3447
integer height = 1580
long backcolor = 80269524
string text = "基本信息"
long tabtextcolor = 33554432
long tabbackcolor = 80269524
long picturemaskcolor = 536870912
st_2 st_2
cbx_10 cbx_10
cbx_9 cbx_9
cbx_8 cbx_8
cbx_7 cbx_7
cbx_6 cbx_6
cbx_5 cbx_5
dw_1 dw_1
end type

event constructor;tab_1.tabpage_detail.dw_1.Settransobject(sqlca)
tab_1.tabpage_detail.dw_1.Insertrow(0)//基本信息生成一条空记录
Setfocus(tab_1.tabpage_detail.dw_1)

//查询输入的值是否存在
tab_1.tabpage_detail.postevent("srcx")
end event

event srcx;int i
string zchxh,djmm,qyhf

if ls_window_bg=true then
	Openwithparm(w_grdz_djcx,'grdzqy')//查询企业是否已存在
	//根据返回的情况进行处理
	CHOOSE CASE Message.Stringparm
		CASE '-1'
			//放弃这次操作
			cb_exit.Triggerevent(clicked!)
			return
		CASE '1'
			//在企业名称查询库中 已 存在该企业的基本情况
			
			//显示题头
			st_1.visible=true
			st_name.visible=true
			st_name.text=qy.qymc
			
			//取出企业名称查询库的对应内容
			dw_qymccx.Retrieve(qy.nbxh)
			
		//将企业名称查询表的数据窗口的内容拷贝到公司登记的数据窗口
			fn_gs_dj_cx(dw_1,dw_qymccx)
	
			select ssgpmc into :qyhf from a_qymccx where nbxh=:qy.nbxh;