w_jjhk_qyhb_query.srw

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

//		st_1.text='资金数:'
//	end if
//end if
////增加投资总额查询条件
//choose case ls_colname 
//	case 'qylx'
//		choose case left(data,2)
//			case '50','51','52','53','61','62','63','法','合','独'//外商投资企业
//				st_21.visible = true
//				ddlb_11.visible = true
//				dw_12.visible = true
//				dw_12.insertrow(0)
//				dw_13.insertrow(0)
//				gb_2.height = ddlb_11.width + 260
//			case else
//				if st_21.visible = true then
//					st_21.visible = false
//					ddlb_11.visible = false
//					ddlb_11.Selectitem(7)				
//					dw_12.visible = false
//					dw_13.visible = false
//					dw_12.reset()
//					dw_13.reset()
//					gb_2.height = ddlb_11.width + 160
//				end if
//		end choose
//end choose
//
////if colname='qylx' then
////	this.Getchild("qylx",dhydm)//获得企业类型字段的子数据窗口
////	tj="bm='"+data+"'"
////   if dhydm.Find(tj,1,dhydm.Rowcount())<=0 then
////		//输入的内容不在范围内
////		this.Postevent("user_post",1,0)
////		return 1
////	end if
////end if
//
////if colname='hydm' then
////	this.Getchild("hydm",dhydm)//获得行业代码字段的子数据窗口
////	tj="bm='"+data+"'"
////   if dhydm.Find(tj,1,dhydm.Rowcount())<=0 then
////		//输入的内容不在范围内
////		this.Postevent("user_post",3,0)
////		return 1
////	end if
////end if
//
//if ls_colname='zjbz' then
//	this.Getchild("zjbz",dhydm)//获得币种字段的子数据窗口
//	ls_tj="bm='"+data+"'"
//   if dhydm.Find(ls_tj,1,dhydm.Rowcount())<=0 then
//		//输入的内容不在范围内
//		this.Postevent("user_post",2,0)
//		return 1
//	end if
//end if
//
//if ls_colname='gb' then
//	this.Getchild("gb",dhydm)//获得国别字段的子数据窗口
//	ls_tj="bm='"+data+"'"
//   if dhydm.Find(ls_tj,1,dhydm.Rowcount())<=0 then
//		//输入的内容不在范围内
//		this.Postevent("user_post",4,0)
//		return 1
//	end if
//end if
//
////if colname='zgdw' then
////	this.Getchild("zgdw",dhydm)//获得管辖单位的子数据窗口
////	tj="bm='"+data+"'"
////   if dhydm.Find(tj,1,dhydm.Rowcount())<=0 then
////		//输入的内容不在范围内
////		this.Postevent("user_post",5,0)
////		return 1
////	end if
////end if
end event

event itemerror;//return 1
end event

event clicked;//String ls_type		//保存用户点击对象的类型
//String ls_name		//保存用户点击对象的名称
//String ls_parm		//保存调用窗口w_select_bm时的参数
//String ls_Rtn		//保存返回内容
//String ls_ColName	//字段名称
//String ls_bm		//编码
//String ls_nr		//内容
//String ls_hyml		//行业门类
//string ls_temp,ls_tj
//datawindowchild ldwc_dhydm
//if row < 1 then return						//如果没有数据则返回
//ls_type = dwo.type							//获取当前点击对象的类型
//ls_type = Lower(Trim(ls_type))			//进行一定的处理
//if ls_type <> 'button' then return		//如果点击的不是命令按钮则直接返回
//
//this.AcceptText()								//获取条件字段的当前取值
//ls_name = dwo.name							//获取点击按钮的名称
//ls_name = Lower(Trim(ls_name))			//进行一定的处理
//choose case ls_name							//根据按钮的名称设置窗口w_select_bm打开时的参数
//	case 'b_hydm'								//参数格式为：类别^过滤条件
//		ls_hyml = this.GetItemString(row,'hyml')
//		if ls_hyml <> '' and (not IsNull(ls_hyml)) then
//			ls_parm = 'hydm^bm like "' + ls_hyml +'%"'		//行业代码
//		else
//			ls_parm = 'hydm^'
//		end if
//	case 'b_hyml'
//		ls_parm = 'hyml^'		//行业门类
//	case 'b_gb'
//		ls_parm = 'gb^'		//地区国别
//	case 'b_zjbz'
//		ls_parm = 'bz^'		//币种
//	case 'b_djjg'
//		ls_parm = 'djjg^'		//登记机关
//	case 'b_zgdw'
//		ls_parm = 'zgdw^'     //管辖单位
//	case 'b_qylx'
//		ls_parm = 'qylx^'		//企业类型
//		choose case manage_unit
//			case '01'
//				ls_parm = ls_parm + "Left(bm,1)<='4' or (Left(bm,2)>='90' and Left(bm,2)<='91')"//过滤条件
//			case '02'
//				ls_parm = ls_parm + "Left(bm,1)>='5' and Left(bm,1)<='7'"
//			case '03'
//				ls_parm = ls_parm + "(Left(bm,2)>='92' and Left(bm,2)<='93') or bm='9500'"
//		end choose
//end choose
//
//OpenWithParm(w_select_bm,ls_parm)	//打开拼音检索窗口
//ls_Rtn = Message.StringParm			//获取返回内容，格式为：dm^nr
//if ls_Rtn = '' then return				//如果用户没有选择内容
//ls_bm = Left(ls_Rtn,Pos(ls_Rtn,'^') - 1)					//获取返回信息中的‘编码’
//ls_nr = Right(ls_Rtn,Len(ls_Rtn) - Pos(ls_Rtn,'^'))	//获取返回信息中的‘内容’
//
//choose case ls_name						//根据图片的名称设置数据窗口中字段的内容
//	case 'b_hydm'
//		ls_ColName = 'hydm'
//	case 'b_hyml'
//		ls_ColName = 'hyml'
//	case 'b_gb'
//		ls_ColName = 'gb'
//	case 'b_zjbz'
//		ls_ColName = 'zjbz'
//	case 'b_djjg'
//		ls_ColName = 'djjg'
//	case 'b_qylx'
//		ls_ColName = 'qylx'
//	case 'b_zgdw'
//		ls_ColName = 'zgdw'
//end choose
//
//this.SetItem(row,ls_ColName,ls_bm)
//if ls_name='b_qylx' then
//	qy.qylx=ls_bm
//	dw_1.Getchild("qylx",ldwc_dhydm)//获得行业代码字段的子数据窗口
//	ls_tj="bm='"+ls_bm+"'"
//   if ldwc_dhydm.Find(ls_tj,1,ldwc_dhydm.Rowcount())<=0 then
//		//输入的内容不在范围内
//		this.Postevent("user_post",3,0)
//	end if
//	//增加投资总额查询条件
//	choose case left(ls_bm,2)
//			case '50','51','52','53','61','62','63'//外商投资企业
//				st_21.visible = true
//				ddlb_11.visible = true
//				dw_12.visible = true
//				dw_13.visible = false
//				dw_12.insertrow(0)
//				dw_13.insertrow(0)
//				gb_2.height = ddlb_11.width + 260
//			case else
//				if st_21.visible = true then
//					st_21.visible = false
//					ddlb_11.visible = false
//					ddlb_11.Selectitem(7)					
//					dw_12.visible = false
//					dw_13.visible = false
//					dw_12.reset()
//					dw_13.reset()
//					gb_2.height = ddlb_11.width + 160
//				end if
//		end choose
//end if
//if ls_name='b_zjbz' then
//	this.Getchild("zjbz",ldwc_dhydm)//获得币种字段的子数据窗口
//	ls_tj="bm='"+ls_bm+"'"
//   if ldwc_dhydm.Find(ls_tj,1,ldwc_dhydm.Rowcount())<=0 then
//		//输入的内容不在范围内
//		this.Postevent("user_post",2,0)
//		return 1
//	end if
//end if
//
//if ls_colname='gb' then
//	this.Getchild("gb",ldwc_dhydm)//获得国别字段的子数据窗口
//	ls_tj="bm='"+ls_bm+"'"
//   if ldwc_dhydm.Find(ls_tj,1,ldwc_dhydm.Rowcount())<=0 then
//		//输入的内容不在范围内
//		this.Postevent("user_post",4,0)
//		return 1
//	end if
//end if
//
end event

event losefocus;//this.AcceptText()
end event

type st_1 from statictext within w_jjhk_qyhb_query
integer x = 224
integer y = 1252
integer width = 302
integer height = 76
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 12632256
boolean enabled = false
string text = "注册资金:"
alignment alignment = right!
boolean focusrectangle = false
end type

type cb_1 from commandbutton within w_jjhk_qyhb_query
event clicked pbm_bnclicked
event clicked1 ( )
integer x = 2779
integer y = 1300
integer width = 475
integer height = 112
integer taborder = 170
integer textsize = -12
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "&Q.查  询"
end type

event clicked;
//注册资金zczj，赁租截止期限:zljzrq，经营面积:jymj，经营截止日期:yyqx2，
//核准日期:hzrq,受理日期:slrq,认领日期:rlrq,调查日期:tcrq,核驳日期:hbrq

datetime yyqx21,yyqx22,hzrq1,hzrq2,zljzrq1,zljzrq2,slrq1,slrq2,rlrq1,rlrq2,tcrq1,tcrq2,hbrq1,hbrq2
decimal zczj1,zczj2,jymj1,jymj2

string ls_sql
string where_clause
dw_1.accepttext()
ls_sql = gf_get_query_sql(dw_1)
messagebox('',ls_sql)

zczj1=dw_2.Getitemdecimal(dw_2.Getrow(),"num1")
zczj2=dw_3.Getitemdecimal(dw_3.Getrow(),"num1")
jymj1=dw_12.Getitemdecimal(dw_12.Getrow(),"num1")
jymj2=dw_13.Getitemdecimal(dw_13.Getrow(),"num1")
zljzrq1=dw_4.Getitemdatetime(dw_4.Getrow(),"rq")
zljzrq2=dw_5.Getitemdatetime(dw_5.Getrow(),"rq")
yyqx21=dw_6.Getitemdatetime(dw_6.Getrow(),"rq")
yyqx22=dw_7.Getitemdatetime(dw_7.Getrow(),"rq")
hzrq1=dw_8.Getitemdatetime(dw_8.Getrow(),"rq")
hzrq2=dw_9.Getitemdatetime(dw_9.Getrow(),"rq")
slrq1=dw_10.Getitemdatetime(dw_10.Getrow(),"rq")
slrq2=dw_11.Getitemdatetime(dw_11.Getrow(),"rq")
rlrq1=dw_15.Getitemdatetime(dw_15.Getrow(),"rq")
rlrq2=dw_16.Getitemdatetime(dw_16.Getrow(),"rq")
tcrq1=dw_18.Getitemdatetime(dw_18.Getrow(),"rq")
tcrq2=dw_19.Getitemdatetime(dw_19.Getrow(),"rq")
hbrq1=dw_21.Getitemdatetime(dw_21.Getrow(),"rq")
hbrq2=dw_22.Getitemdatetime(dw_22.Getrow(),"rq")


ls_sql = gf_get_query_sql_type('zczj',string(zczj1),string(zczj2),'n',item_index_zczj,ls_sql)

ls_sql = gf_get_query_sql_type('jymj',string(jymj1),string(jymj2),'n',item_index_jymj,ls_sql)


ls_sql = gf_get_query_sql_type('zljzrq',string(zljzrq1,'yyyy-mm-dd'),string(zljzrq2,'yyyy-mm-dd'),'d',item_index_zljzrq,ls_sql)

ls_sql = gf_get_query_sql_type('yyqx2',string(yyqx21,'yyyy-mm-dd'),string(yyqx22,'yyyy-mm-dd'),'d',item_index_yyqx2,ls_sql)

ls_sql = gf_get_query_sql_type('hzrq',string(hzrq1,'yyyy-mm-dd'),string(hzrq2,'yyyy-mm-dd'),'d',item_index_hzrq,ls_sql)

ls_sql = gf_get_query_sql_type('slrq',string(slrq1,'yyyy-mm-dd'),string(slrq2,'yyyy-mm-dd'),'d',item_index_slrq,ls_sql)

ls_sql = gf_get_query_sql_type('rlrq',string(rlrq1,'yyyy-mm-dd'),string(rlrq2,'yyyy-mm-dd'),'d',item_index_rlrq,ls_sql)

ls_sql = gf_get_query_sql_type('tcrq',string(tcrq1,'yyyy-mm-dd'),string(tcrq2,'yyyy-mm-dd'),'d',item_index_tcrq,ls_sql)

ls_sql = gf_get_query_sql_type('hbrq',string(hbrq1,'yyyy-mm-dd'),string(hbrq2,'yyyy-mm-dd'),'d',item_index_hbrq,ls_sql)

messagebox('sql2',ls_sql)










	

openwithparm(w_jjhk_qyhb_list,ls_sql)
//closewithreturn(parent,ls_sql)
//this.Postevent("clicked1")
end event

event clicked1;choose case cx_bz
	case '0'
	   open(w_nz_cx_fztjcx_list)
	case '1'
		open(w_nz_cx_fztjcx_qb_list)
	case '2'
		open(w_nz_cx_fztjcx_lscx)
end choose
end event

type cb_2 from commandbutton within w_jjhk_qyhb_query
integer x = 2779
integer y = 1680
integer width = 475
integer height = 112
integer taborder = 190
integer textsize = -12
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "&X.返  回"
end type

event clicked;close(parent)

end event

type gb_2 from groupbox within w_jjhk_qyhb_query
integer x = 165
integer y = 1180
integer width = 2217
integer height = 1016
integer textsize = -11
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
borderstyle borderstyle = stylelowered!
end type

type dw_18 from datawindow within w_jjhk_qyhb_query
integer x = 1175
integer y = 1996
integer width = 512
integer height = 84
integer taborder = 170
boolean bringtotop = true
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

type dw_19 from datawindow within w_jjhk_qyhb_query
integer x = 1797
integer y = 2004
integer width = 512
integer height = 84
integer taborder = 170
boolean bringtotop = true
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

type dw_16 from datawindow within w_jjhk_qyhb_query
integer x = 1801
integer y = 1896
integer width = 512
integer height = 84
integer taborder = 160
boolean bringtotop = true
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

type dw_15 from datawindow within w_jjhk_qyhb_query
integer x = 1179
integer y = 1896
integer width = 512
integer height = 84
integer taborder = 160
boolean bringtotop = true
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

type dw_22 from datawindow within w_jjhk_qyhb_query
integer x = 1792
integer y = 2092
integer width = 512
integer height = 84
integer taborder = 180
boolean bringtotop = true
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

type dw_21 from datawindow within w_jjhk_qyhb_query
integer x = 1170
integer y = 2092
integer width = 512
integer height = 84
integer taborder = 180
boolean bringtotop = true
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event