w_jjhk_qyhb_query.srw

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

end type

event losefocus;this.AcceptText()
end event

type dw_10 from datawindow within w_jjhk_qyhb_query
integer x = 1184
integer y = 1692
integer width = 512
integer height = 84
integer taborder = 150
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

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

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

type st_5 from statictext within w_jjhk_qyhb_query
integer x = 224
integer y = 1692
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 dw_9 from datawindow within w_jjhk_qyhb_query
integer x = 1806
integer y = 1580
integer width = 512
integer height = 84
integer taborder = 130
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

type dw_8 from datawindow within w_jjhk_qyhb_query
integer x = 1184
integer y = 1580
integer width = 512
integer height = 84
integer taborder = 120
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

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

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

type st_4 from statictext within w_jjhk_qyhb_query
integer x = 224
integer y = 1580
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 dw_7 from datawindow within w_jjhk_qyhb_query
integer x = 1806
integer y = 1464
integer width = 512
integer height = 84
integer taborder = 100
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

type dw_6 from datawindow within w_jjhk_qyhb_query
integer x = 1184
integer y = 1464
integer width = 512
integer height = 84
integer taborder = 90
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

type ddlb_3 from dropdownlistbox within w_jjhk_qyhb_query
integer x = 558
integer y = 1456
integer width = 480
integer height = 356
integer taborder = 80
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_yyqx2=index


if item_index_yyqx2>0 or isnull(item_index_yyqx2) then
	dw_7.Enabled=false
	dw_7.Visible=false
else
	dw_7.Enabled=true
	dw_7.Visible=true
end if

if item_index_yyqx2=6 then
	dw_7.Enabled=true
	dw_7.Visible=true
end if	
end event

type st_3 from statictext within w_jjhk_qyhb_query
integer x = 187
integer y = 1468
integer width = 370
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 dw_5 from datawindow within w_jjhk_qyhb_query
integer x = 1806
integer y = 1352
integer width = 512
integer height = 84
integer taborder = 70
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

type dw_4 from datawindow within w_jjhk_qyhb_query
integer x = 1184
integer y = 1352
integer width = 512
integer height = 84
integer taborder = 60
string dataobject = "dw_rq_tmp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;this.AcceptText()
end event

type ddlb_2 from dropdownlistbox within w_jjhk_qyhb_query
integer x = 558
integer y = 1348
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_zljzrq=index
if item_index_zljzrq>0 or isnull(item_index_zljzrq) then
	dw_5.Enabled=false
	dw_5.Visible=false
else
	dw_5.Enabled=true
	dw_5.Visible=true
end if	
if item_index_zljzrq=6 then
	dw_5.Enabled=true
	dw_5.Visible=true
end if	
   
end event

type st_2 from statictext within w_jjhk_qyhb_query
integer x = 197
integer y = 1356
integer width = 361
integer height = 76
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 12632256
boolean enabled = false
string text = "租赁截止期限:"
boolean focusrectangle = false
end type

type dw_3 from datawindow within w_jjhk_qyhb_query
integer x = 1806
integer y = 1244
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_2 from datawindow within w_jjhk_qyhb_query
integer x = 1184
integer y = 1244
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_1 from dropdownlistbox within w_jjhk_qyhb_query
integer x = 558
integer y = 1244
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_zczj=index
if item_index_zczj>0  or isnull(item_index_zczj) then
	dw_3.Enabled=false
	dw_3.Visible=false
else
	dw_3.Enabled=true
	dw_3.Visible=true
end if	

if item_index_zczj=6 then
	dw_3.Enabled=true
	dw_3.Visible=true
end if	
   
end event

type dw_1 from datawindow within w_jjhk_qyhb_query
event keyenterdown pbm_dwnprocessenter
event user_post ( )
integer x = 165
integer y = 96
integer width = 3154
integer height = 1100
integer taborder = 10
string dataobject = "dw_jjhk_qyhb_list"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event keyenterdown;//string ls_colname
//
//ls_colname=dw_1.Getcolumnname()
//if ls_colname='tybz' then
//	ddlb_1.setfocus()
//	return
//end if
//Send(handle(this),256,9,long(0,0))
//return 1
//
end event

event user_post;//datetime ldt_coldate
//string ls_colname,ls_str
//
//Setnull(ls_str)
//Setnull(ldt_coldate)
//CHOOSE CASE message.wordparm
//	CASE 1
//		this.Setitem(1,'qylx',ls_str)
//		this.Setcolumn('qylx')
//	CASE 2
//		this.Setitem(1,'zjbz',ls_str)
//		this.Setcolumn('zjbz')
//	CASE 3
//		this.Setitem(1,'hydm',ls_str)
//		this.Setcolumn('hydm')
//	CASE 4
//		this.Setitem(1,'gb',ls_str)
//		this.Setcolumn('gb')
//	CASE 5
//		this.Setitem(1,'zgdw',ls_str)
//		this.Setcolumn('zgdw')
//END CHOOSE
//
//
end event

event itemchanged;//long ll_gs,ll_i,ll_lrow
//string ls_colname,ls_zch,ls_lsh,ls_oldstr,ls_newstr,ls_xm,ls_zchxh,ls_tj,ls_zfc,ls_djmm
//datawindowchild dhydm
//string ls_qybz,ls_qybz1
//
//ls_colname=this.Getcolumnname()
////由于企业类型可编辑,所以检查是否输入的内容不在下拉的范围内
//if dwo.name='qylx' then
//	ls_qybz=left(data,1)
//	ls_qybz1=left(data,2)
//   if ls_qybz='1' or ls_qybz='3' or ls_qybz1='50' or ls_qybz1='51' or ls_qybz1='52' or ls_qybz1='53' or ls_qybz1='61' or ls_qybz1='62' or ls_qybz1='63' then
//		st_1.text='注册资本:'
//	else