w_jjhk_qyhb_query.srw

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

$PBExportHeader$w_jjhk_qyhb_query.srw
$PBExportComments$企业核驳查询
forward
global type w_jjhk_qyhb_query from window
end type
type ddlb_20 from dropdownlistbox within w_jjhk_qyhb_query
end type
type ddlb_17 from dropdownlistbox within w_jjhk_qyhb_query
end type
type ddlb_14 from dropdownlistbox within w_jjhk_qyhb_query
end type
type st_8 from statictext within w_jjhk_qyhb_query
end type
type st_7 from statictext within w_jjhk_qyhb_query
end type
type st_6 from statictext within w_jjhk_qyhb_query
end type
type dw_13 from datawindow within w_jjhk_qyhb_query
end type
type dw_12 from datawindow within w_jjhk_qyhb_query
end type
type ddlb_11 from dropdownlistbox within w_jjhk_qyhb_query
end type
type st_21 from statictext within w_jjhk_qyhb_query
end type
type cb_3 from commandbutton within w_jjhk_qyhb_query
end type
type dw_11 from datawindow within w_jjhk_qyhb_query
end type
type dw_10 from datawindow within w_jjhk_qyhb_query
end type
type ddlb_5 from dropdownlistbox within w_jjhk_qyhb_query
end type
type st_5 from statictext within w_jjhk_qyhb_query
end type
type dw_9 from datawindow within w_jjhk_qyhb_query
end type
type dw_8 from datawindow within w_jjhk_qyhb_query
end type
type ddlb_4 from dropdownlistbox within w_jjhk_qyhb_query
end type
type st_4 from statictext within w_jjhk_qyhb_query
end type
type dw_7 from datawindow within w_jjhk_qyhb_query
end type
type dw_6 from datawindow within w_jjhk_qyhb_query
end type
type ddlb_3 from dropdownlistbox within w_jjhk_qyhb_query
end type
type st_3 from statictext within w_jjhk_qyhb_query
end type
type dw_5 from datawindow within w_jjhk_qyhb_query
end type
type dw_4 from datawindow within w_jjhk_qyhb_query
end type
type ddlb_2 from dropdownlistbox within w_jjhk_qyhb_query
end type
type st_2 from statictext within w_jjhk_qyhb_query
end type
type dw_3 from datawindow within w_jjhk_qyhb_query
end type
type dw_2 from datawindow within w_jjhk_qyhb_query
end type
type ddlb_1 from dropdownlistbox within w_jjhk_qyhb_query
end type
type dw_1 from datawindow within w_jjhk_qyhb_query
end type
type st_1 from statictext within w_jjhk_qyhb_query
end type
type cb_1 from commandbutton within w_jjhk_qyhb_query
end type
type cb_2 from commandbutton within w_jjhk_qyhb_query
end type
type gb_2 from groupbox within w_jjhk_qyhb_query
end type
type dw_18 from datawindow within w_jjhk_qyhb_query
end type
type dw_19 from datawindow within w_jjhk_qyhb_query
end type
type dw_16 from datawindow within w_jjhk_qyhb_query
end type
type dw_15 from datawindow within w_jjhk_qyhb_query
end type
type dw_22 from datawindow within w_jjhk_qyhb_query
end type
type dw_21 from datawindow within w_jjhk_qyhb_query
end type
end forward

global type w_jjhk_qyhb_query from window
integer y = 4
integer width = 3657
integer height = 2312
boolean titlebar = true
string title = "企业核驳信息查询"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 12632256
event keydownenter pbm_dwnprocessenter
ddlb_20 ddlb_20
ddlb_17 ddlb_17
ddlb_14 ddlb_14
st_8 st_8
st_7 st_7
st_6 st_6
dw_13 dw_13
dw_12 dw_12
ddlb_11 ddlb_11
st_21 st_21
cb_3 cb_3
dw_11 dw_11
dw_10 dw_10
ddlb_5 ddlb_5
st_5 st_5
dw_9 dw_9
dw_8 dw_8
ddlb_4 ddlb_4
st_4 st_4
dw_7 dw_7
dw_6 dw_6
ddlb_3 ddlb_3
st_3 st_3
dw_5 dw_5
dw_4 dw_4
ddlb_2 ddlb_2
st_2 st_2
dw_3 dw_3
dw_2 dw_2
ddlb_1 ddlb_1
dw_1 dw_1
st_1 st_1
cb_1 cb_1
cb_2 cb_2
gb_2 gb_2
dw_18 dw_18
dw_19 dw_19
dw_16 dw_16
dw_15 dw_15
dw_22 dw_22
dw_21 dw_21
end type
global w_jjhk_qyhb_query w_jjhk_qyhb_query

type variables

int item_index_hzrq////核准日期:

int item_index_zczj//注册资金zczj
int item_index_zljzrq//赁租截止期限:
int item_index_yyqx2//经营截止日期


int item_index_slrq//受理日期
int item_index_rlrq//认领日期

int item_index_tcrq//调查日期
int item_index_hbrq//核驳日期
int item_index_jymj//经营面积
end variables

event keydownenter;Send(handle(this),256,9,long(0,0))
end event

on w_jjhk_qyhb_query.create
this.ddlb_20=create ddlb_20
this.ddlb_17=create ddlb_17
this.ddlb_14=create ddlb_14
this.st_8=create st_8
this.st_7=create st_7
this.st_6=create st_6
this.dw_13=create dw_13
this.dw_12=create dw_12
this.ddlb_11=create ddlb_11
this.st_21=create st_21
this.cb_3=create cb_3
this.dw_11=create dw_11
this.dw_10=create dw_10
this.ddlb_5=create ddlb_5
this.st_5=create st_5
this.dw_9=create dw_9
this.dw_8=create dw_8
this.ddlb_4=create ddlb_4
this.st_4=create st_4
this.dw_7=create dw_7
this.dw_6=create dw_6
this.ddlb_3=create ddlb_3
this.st_3=create st_3
this.dw_5=create dw_5
this.dw_4=create dw_4
this.ddlb_2=create ddlb_2
this.st_2=create st_2
this.dw_3=create dw_3
this.dw_2=create dw_2
this.ddlb_1=create ddlb_1
this.dw_1=create dw_1
this.st_1=create st_1
this.cb_1=create cb_1
this.cb_2=create cb_2
this.gb_2=create gb_2
this.dw_18=create dw_18
this.dw_19=create dw_19
this.dw_16=create dw_16
this.dw_15=create dw_15
this.dw_22=create dw_22
this.dw_21=create dw_21
this.Control[]={this.ddlb_20,&
this.ddlb_17,&
this.ddlb_14,&
this.st_8,&
this.st_7,&
this.st_6,&
this.dw_13,&
this.dw_12,&
this.ddlb_11,&
this.st_21,&
this.cb_3,&
this.dw_11,&
this.dw_10,&
this.ddlb_5,&
this.st_5,&
this.dw_9,&
this.dw_8,&
this.ddlb_4,&
this.st_4,&
this.dw_7,&
this.dw_6,&
this.ddlb_3,&
this.st_3,&
this.dw_5,&
this.dw_4,&
this.ddlb_2,&
this.st_2,&
this.dw_3,&
this.dw_2,&
this.ddlb_1,&
this.dw_1,&
this.st_1,&
this.cb_1,&
this.cb_2,&
this.gb_2,&
this.dw_18,&
this.dw_19,&
this.dw_16,&
this.dw_15,&
this.dw_22,&
this.dw_21}
end on

on w_jjhk_qyhb_query.destroy
destroy(this.ddlb_20)
destroy(this.ddlb_17)
destroy(this.ddlb_14)
destroy(this.st_8)
destroy(this.st_7)
destroy(this.st_6)
destroy(this.dw_13)
destroy(this.dw_12)
destroy(this.ddlb_11)
destroy(this.st_21)
destroy(this.cb_3)
destroy(this.dw_11)
destroy(this.dw_10)
destroy(this.ddlb_5)
destroy(this.st_5)
destroy(this.dw_9)
destroy(this.dw_8)
destroy(this.ddlb_4)
destroy(this.st_4)
destroy(this.dw_7)
destroy(this.dw_6)
destroy(this.ddlb_3)
destroy(this.st_3)
destroy(this.dw_5)
destroy(this.dw_4)
destroy(this.ddlb_2)
destroy(this.st_2)
destroy(this.dw_3)
destroy(this.dw_2)
destroy(this.ddlb_1)
destroy(this.dw_1)
destroy(this.st_1)
destroy(this.cb_1)
destroy(this.cb_2)
destroy(this.gb_2)
destroy(this.dw_18)
destroy(this.dw_19)
destroy(this.dw_16)
destroy(this.dw_15)
destroy(this.dw_22)
destroy(this.dw_21)
end on

event open;datawindowchild dwc_gxdw,ldc_dqylx
string ls_filter

SetPointer(HourGlass!)

////改变窗口的标题
//choose case manage_unit
//	case "01"
//			this.title="内资查询： 复杂条件查询选择窗"
//	case "02"
//		this.title="外资查询： 复杂条件查询选择窗"
//	case "03"
//		this.title="私营查询： 复杂条件查询选择窗"
//	case else
//		this.title="查询： 复杂条件查询选择窗"
//end choose
//
dw_1.settransobject(sqlca)
dw_2.settransobject(sqlca)
dw_3.Settransobject(sqlca)
dw_4.settransobject(sqlca)
dw_5.Settransobject(sqlca)
dw_6.settransobject(sqlca)
dw_7.Settransobject(sqlca)
dw_8.settransobject(sqlca)
dw_9.Settransobject(sqlca)
dw_10.settransobject(sqlca)
dw_11.Settransobject(sqlca)
dw_12.settransobject(sqlca)
dw_13.Settransobject(sqlca)
dw_15.settransobject(sqlca)
dw_16.Settransobject(sqlca)
dw_18.settransobject(sqlca)
dw_19.Settransobject(sqlca)
dw_21.settransobject(sqlca)
dw_22.Settransobject(sqlca)
dw_1.Reset()
dw_1.Insertrow(0)
//messagebox('',p_djjg)
//dw_1.Setitem(dw_1.Getrow(),'djjg',p_djjg)
//if left(p_djjg,2)='23' then  //哈尔滨市局特殊要求
//	dw_1.SetTabOrder('djjg',0)
////	dw_1.object.djjg.visible = false
//end if
//dw_1.Setitem(dw_1.Getrow(),'gxdw',manage_unit)
dw_2.Insertrow(0)
dw_3.Insertrow(0)
dw_3.Visible=false
dw_4.Insertrow(0)
dw_5.Insertrow(0)
dw_5.Setitem(dw_5.Getrow(),"rq",today())
dw_5.Visible=false
dw_6.Insertrow(0)
dw_7.Insertrow(0)
dw_7.Setitem(dw_7.Getrow(),"rq",today())
dw_7.Visible=false
dw_8.Insertrow(0)
dw_9.Insertrow(0)
dw_9.Setitem(dw_9.Getrow(),"rq",today())
dw_9.Visible=false
dw_10.Insertrow(0)
dw_11.Insertrow(0)
dw_11.Setitem(dw_11.Getrow(),"rq",today())
dw_11.Visible=false
dw_12.Insertrow(0)
dw_13.Insertrow(0)
dw_13.Visible=false
dw_15.Insertrow(0)
dw_16.Insertrow(0)
dw_16.Setitem(dw_11.Getrow(),"rq",today())
dw_16.Visible=false
dw_18.Insertrow(0)
dw_19.Insertrow(0)
dw_19.Setitem(dw_11.Getrow(),"rq",today())
dw_19.Visible=false
dw_21.Insertrow(0)
dw_22.Insertrow(0)
dw_22.Setitem(dw_11.Getrow(),"rq",today())
dw_22.Visible=false
//调整窗口界面
//dw_2.x=1700
//dw_4.x=1700
//dw_6.x=1700
//dw_8.x=1700
//dw_10.x=1700
//
Setfocus(dw_1)
SetPointer(Arrow!)

//dw_1.getchild('gxdw',dwc_gxdw)
//dwc_gxdw.settransobject(sqlca)
//dwc_gxdw.retrieve()
//if manage_unit = '' then
//else
//	ls_filter="bm ='"+manage_unit+"'"
//	dwc_gxdw.setfilter(ls_filter)
//	dwc_gxdw.filter()
//end if
//dw_1.Getchild("qylx",ldc_dqylx)//获得企业类型字段的子数据窗口
//ldc_dqylx.Settransobject(sqlca)
//ldc_dqylx.Retrieve()
//choose case manage_unit
//	case '01'
//		ls_filter="Left(bm,1)<='4' or (Left(bm,2)>='90' and Left(bm,2)<='91')"//过滤条件
//	case '02'
//		//按照法人、分支、合资、合作、独资、股份和办事几种类型进行查询
//		ldc_dqylx.Reset()
//		Long ll_CurRow
//		
//		ldc_dqylx.Modify("bm.width=0")
//		//法人
//		ll_CurRow = ldc_dqylx.InsertRow(0)
//		ldc_dqylx.setitem(ll_CurRow,'bm','法人')  //法人的临时编码，为了实现山西要求
//		ldc_dqylx.SetItem(ll_CurRow,'nr','法人')
//		//分支
//		ll_CurRow = ldc_dqylx.InsertRow(0)
//		ldc_dqylx.setitem(ll_CurRow,'bm','分支')  //法人的临时编码，为了实现山西要求
//		ldc_dqylx.SetItem(ll_CurRow,'nr','分支')
//		//合资
//		ll_CurRow = ldc_dqylx.InsertRow(0)
//		ldc_dqylx.setitem(ll_CurRow,'bm','合资')  //法人的临时编码，为了实现山西要求
//		ldc_dqylx.SetItem(ll_CurRow,'nr','合资')
//		//合作
//		ll_CurRow = ldc_dqylx.InsertRow(0)
//		ldc_dqylx.setitem(ll_CurRow,'bm','合作')  //法人的临时编码，为了实现山西要求
//		ldc_dqylx.SetItem(ll_CurRow,'nr','合作')
//		//独资
//		ll_CurRow = ldc_dqylx.InsertRow(0)
//		ldc_dqylx.setitem(ll_CurRow,'bm','独资')  //法人的临时编码，为了实现山西要求
//		ldc_dqylx.SetItem(ll_CurRow,'nr','独资')
//		//股份
//		ll_CurRow = ldc_dqylx.InsertRow(0)
//		ldc_dqylx.setitem(ll_CurRow,'bm','股份')  //法人的临时编码，为了实现山西要求
//		ldc_dqylx.SetItem(ll_CurRow,'nr','股份')
//		//办事
//		ll_CurRow = ldc_dqylx.InsertRow(0)
//		ldc_dqylx.setitem(ll_CurRow,'bm','办事')  //法人的临时编码，为了实现山西要求
//		ldc_dqylx.SetItem(ll_CurRow,'nr','办事')
//		ls_filter='1=1'
////		ls_filter = "left(bm,1)>='5' and left(bm,1)<='7' and  (bm <'5100' or (bm > '5399' and bm < '6100' ) or (bm > '6139' and bm < '6200') or (bm > '6399') )"
//	case '03'
//		ls_filter="(Left(bm,2)>='92' and Left(bm,2)<='93') or bm='9500'"
//	case else
//		ls_filter = ""
//end choose
//ldc_dqylx.Setfilter(ls_filter)//过滤
//ldc_dqylx.Filter()	
//
end event

event key;graphicobject kj
kj=getfocus()
//用 Enter 键移动焦点