w_jjhk_qyhb_query.srw

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

if key=keyenter! then
	if kj=ddlb_1 then setfocus(dw_2)
	if kj=dw_2 then setfocus(dw_3)
	if kj=dw_3 then setfocus(ddlb_2)
	if kj=ddlb_2 then setfocus(dw_4)
	if kj=dw_4 then setfocus(dw_5)
	if kj=dw_5 then setfocus(ddlb_3)		
	if kj=ddlb_3 then setfocus(dw_6)
	if kj=dw_6 then setfocus(dw_7)
	if kj=dw_7 then setfocus(ddlb_4)	
	if kj=ddlb_4 then setfocus(dw_8)
	if kj=dw_8 then setfocus(dw_9)
	if kj=dw_9 then setfocus(ddlb_5)	
	if kj=ddlb_5 then setfocus(dw_10)
	if kj=dw_10 then setfocus(dw_11)	
	if kj=dw_11 then cb_1.triggerevent(clicked!)
end if

end event

type ddlb_20 from dropdownlistbox within w_jjhk_qyhb_query
integer x = 553
integer y = 2096
integer width = 480
integer height = 356
integer taborder = 180
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean sorted = false
boolean vscrollbar = true
string item[] = {"大于","小于","大于等于","小于等于","等于","在..之间","无条件"}
end type

event selectionchanged;item_index_hbrq=index
if item_index_hbrq>0  or isnull(item_index_hbrq) then
	dw_22.Enabled=false
	dw_22.Visible=false
else
	dw_22.Enabled=true
	dw_22.Visible=true
end if	

if item_index_hbrq=6 then
	dw_22.Enabled=true
	dw_22.Visible=true
end if	
   
end event

type ddlb_17 from dropdownlistbox within w_jjhk_qyhb_query
integer x = 558
integer y = 1992
integer width = 480
integer height = 356
integer taborder = 170
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean sorted = false
boolean vscrollbar = true
string item[] = {"大于","小于","大于等于","小于等于","等于","在..之间","无条件"}
end type

event selectionchanged;item_index_tcrq=index
if item_index_tcrq>0  or isnull(item_index_tcrq) then
	dw_19.Enabled=false
	dw_19.Visible=false
else
	dw_19.Enabled=true
	dw_19.Visible=true
end if	

if item_index_tcrq=6 then
	dw_19.Enabled=true
	dw_19.Visible=true
end if	
   
end event

type ddlb_14 from dropdownlistbox within w_jjhk_qyhb_query
integer x = 558
integer y = 1896
integer width = 480
integer height = 356
integer taborder = 50
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean sorted = false
boolean vscrollbar = true
string item[] = {"大于","小于","大于等于","小于等于","等于","在..之间","无条件"}
end type

event selectionchanged;item_index_rlrq=index
if item_index_rlrq>0  or isnull(item_index_rlrq) then
	dw_16.Enabled=false
	dw_16.Visible=false
else
	dw_16.Enabled=true
	dw_16.Visible=true
end if	

if item_index_rlrq=6 then
	dw_16.Enabled=true
	dw_16.Visible=true
end if	
   
end event

type st_8 from statictext within w_jjhk_qyhb_query
integer x = 224
integer y = 2088
integer width = 302
integer height = 72
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 12632256
string text = "核驳日期:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_7 from statictext within w_jjhk_qyhb_query
integer x = 224
integer y = 1992
integer width = 293
integer height = 68
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 12632256
string text = "调查日期:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_6 from statictext within w_jjhk_qyhb_query
integer x = 224
integer y = 1896
integer width = 297
integer height = 68
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 12632256
string text = "认领日期:"
alignment alignment = right!
boolean focusrectangle = false
end type

type dw_13 from datawindow within w_jjhk_qyhb_query
integer x = 1806
integer y = 1792
integer width = 512
integer height = 84
integer taborder = 40
string dataobject = "dw_num_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event itemchanged;//decimal num1,num2
//int rec1,rec2
//rec1=dw_3.Getrow()
//rec2=dw_2.Getrow()
//num1=dw_3.Getitemdecimal(rec1,"num1")
//num2=dw_2.Getitemdecimal(rec2,"num1")
//if num1<num2 then
//	MessageBox("错误提示","本栏数目必须大于等于前一栏数目")
//	SetFocus(dw_3)
//   dw_3.scrolltorow(rec1)
//	dw_3.Selectrow(rec1,true)
//	dw_3.Setitem(rec1,"num1",0)
//end if
end event

event losefocus;//decimal num1,num2
//int rec1,rec2
//rec1=dw_3.Getrow()
//rec2=dw_2.Getrow()
//num1=dw_3.Getitemdecimal(rec1,"num1")
//num2=dw_2.Getitemdecimal(rec2,"num1")
//if num1<num2 then
//	MessageBox("错误提示","本栏数目必须大于等于前一栏数目")
//	SetFocus(dw_3)
//   dw_3.scrolltorow(rec1)
//	dw_3.Selectrow(rec1,true)
//	dw_3.Setitem(rec1,"num1",0)
//end if

this.AcceptText()
end event

type dw_12 from datawindow within w_jjhk_qyhb_query
integer x = 1184
integer y = 1792
integer width = 512
integer height = 84
integer taborder = 30
string dataobject = "dw_num_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

type ddlb_11 from dropdownlistbox within w_jjhk_qyhb_query
integer x = 558
integer y = 1792
integer width = 480
integer height = 356
integer taborder = 20
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean sorted = false
boolean vscrollbar = true
string item[] = {"大于","小于","大于等于","小于等于","等于","在..之间","无条件"}
end type

event selectionchanged;item_index_jymj=index
if item_index_jymj>0  or isnull(item_index_jymj) then
	dw_13.Enabled=false
	dw_13.Visible=false
else
	dw_13.Enabled=true
	dw_13.Visible=true
end if	

if item_index_jymj=6 then
	dw_13.Enabled=true
	dw_13.Visible=true
end if	
   
end event

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

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

string ls_sql
string where_clause

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_6.Getitemdatetime(dw_7.Getrow(),"rq")
hzrq1=dw_8.Getitemdatetime(dw_8.Getrow(),"rq")
hzrq2=dw_8.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('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('jymj',string(jymj1),string(jymj2),'n',item_index_jymj,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)










	


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

type st_21 from statictext within w_jjhk_qyhb_query
integer x = 224
integer y = 1792
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_3 from commandbutton within w_jjhk_qyhb_query
integer x = 2779
integer y = 1488
integer width = 475
integer height = 112
integer taborder = 180
integer textsize = -12
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "&R.刷  新"
end type

event clicked;dw_1.Reset()
dw_1.Insertrow(0)
//置登记机关和管辖单位
//dw_1.Setitem(dw_1.Getrow(),'djjg',p_djjg)
//dw_1.Setitem(dw_1.Getrow(),'gxdw',manage_unit)
dw_2.Reset()
dw_2.Insertrow(0)
dw_3.Reset()
dw_3.Insertrow(0)
dw_3.Visible=false
dw_4.Reset()
dw_4.Insertrow(0)
dw_5.Reset()
dw_5.Insertrow(0)
dw_5.Setitem(dw_5.Getrow(),"rq",today())
dw_5.Visible=false
dw_6.Reset()
dw_6.Insertrow(0)
dw_7.Reset()
dw_7.Insertrow(0)
dw_7.Setitem(dw_7.Getrow(),"rq",today())
dw_7.Visible=false
dw_8.Reset()
dw_8.Insertrow(0)
dw_9.Reset()
dw_9.Insertrow(0)
dw_9.Setitem(dw_9.Getrow(),"rq",today())
dw_9.Visible=false
dw_10.Reset()
dw_10.Insertrow(0)
dw_11.Reset()
dw_11.Insertrow(0)
dw_11.Setitem(dw_11.Getrow(),"rq",today())
dw_11.Visible=false
dw_12.Reset()
dw_12.Insertrow(0)
dw_13.Reset()
dw_13.Insertrow(0)
dw_13.Visible=false
dw_15.Reset()
dw_15.Insertrow(0)
dw_16.Reset()
dw_16.Insertrow(0)
dw_16.Setitem(dw_11.Getrow(),"rq",today())
dw_16.Visible=false
dw_18.Reset()
dw_18.Insertrow(0)
dw_19.Reset()
dw_19.Insertrow(0)
dw_19.Setitem(dw_11.Getrow(),"rq",today())
dw_19.Visible=false
dw_21.Reset()
dw_21.Insertrow(0)
dw_22.Reset()
dw_22.Insertrow(0)
dw_22.Setitem(dw_11.Getrow(),"rq",today())
dw_22.Visible=false

dw_12.reset()
dw_13.reset()

ddlb_1.Selectitem(7)
ddlb_1.TriggerEvent(Selectionchanged!)
ddlb_2.Selectitem(7)
ddlb_2.TriggerEvent(Selectionchanged!)
ddlb_3.Selectitem(7)
ddlb_3.TriggerEvent(Selectionchanged!)
ddlb_4.Selectitem(7)
ddlb_4.TriggerEvent(Selectionchanged!)
ddlb_5.Selectitem(7)
ddlb_5.TriggerEvent(Selectionchanged!)
ddlb_11.Selectitem(7)
ddlb_11.TriggerEvent(Selectionchanged!)
ddlb_14.Selectitem(7)
ddlb_14.TriggerEvent(Selectionchanged!)
ddlb_17.Selectitem(7)
ddlb_17.TriggerEvent(Selectionchanged!)
ddlb_20.Selectitem(7)
ddlb_20.TriggerEvent(Selectionchanged!)
//rb_1.checked=true
//rb_2.checked=false
Setfocus(dw_1)

end event
type dw_11 from datawindow within w_jjhk_qyhb_query
integer x = 1806
integer y = 1688
integer width = 512
integer height = 84
integer taborder = 160
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!