pb新手,入坑不久后接手了一个离职兄弟的pb程序,发现有两个窗口打开的时候需要很长的时间,可能是初始化的东西太多?也不至于1分钟吧?所以想做一些优化,不知如何下手,还望诸位能人指点
open 事件
win_center(this)
This.TriggerEvent('ue_position')
datetime dt
string s_1,s_2,s_3,s_4,kh1,kh2
DECLARE ls_cur CURSOR FOR
SELECT "KHXXDB"."KHMC"
FROM "KHXXDB" where sjhm is not null and wxsbs='1' and wxshzbs='1' and inval is null;
open ls_cur;
fetch ls_cur into:s_1;
do while sqlca.sqlcode=0
ddlb_1.additem(s_1)
ddlb_14.additem(s_1)
fetch ls_cur into:s_1;
loop
close ls_cur;
em_1.text=string(today())
DECLARE l CURSOR FOR
SELECT "BM_WXCPLB"."SORT_NA"
FROM "BM_WXCPLB"
where id not in('7');
open l;
fetch l into:s_2;
do while sqlca.sqlcode=0
ddlb_4.additem(s_2);
fetch l into:s_2;
loop
close l;
DECLARE ls_2 CURSOR FOR
SELECT DISTINCT JZM FROM JZB WHERE BS<>'7' ;
open ls_2;
fetch ls_2 into:s_3;
do while sqlca.sqlcode=0
ddlb_2.additem(s_3);
fetch ls_2 into:s_3;
loop
close ls_2;
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_3.retrieve()
//dw_4.retrieve()
int i,j
string khmc
for j=1 to dw_3.rowcount()
khmc=dw_3.getitemstring(j,"khmc")
ddlb_9.additem(khmc)
next
select sysdate into:dt from dual;
em_2.text=string(dt)
ddlb_5.reset()
DECLARE ls_cur4 CURSOR FOR
SELECT "CALL_KH_LEVEL1"."KH_NAME"
FROM "CALL_KH_LEVEL1" where kh_name not in ('哈根达斯','好利来','德克士','肯德基KFC','必胜客PH') and inval='0' ;
open ls_cur4;
fetch ls_cur4 into:s_1;
do while sqlca.sqlcode=0
ddlb_5.additem(s_1)
fetch ls_cur4 into:s_1;
loop
close ls_cur4;
DECLARE ls_gzxz CURSOR FOR
SELECT code,"BM_WX_GDXZ"."MC"
FROM "BM_WX_GDXZ" order by code;
open ls_gzxz;
fetch ls_gzxz into:s_1,:s_2;
do while sqlca.sqlcode=0
ddlb_10.additem(s_1+s_2)
fetch ls_gzxz into:s_1,:s_2;
loop
close ls_gzxz;
ddlb_8.text='48'
/////省份//////////
String ls_sf
declare cursor_sf cursor for
SELECT "BM_PROVINCE"."NAME"
FROM "BM_PROVINCE"
WHERE "BM_PROVINCE"."LEVELTYPE" = '1' and "BM_PROVINCE"."BS" is null and "BM_PROVINCE"."NAME"<>'海外'
order by "BM_PROVINCE"."NAME" asc;
open cursor_sf ;
fetch cursor_sf into:ls_sf;
do while sqlca.sqlcode=0
ddlb_13.additem(ls_sf)
fetch cursor_sf into:ls_sf;
loop
close cursor_sf;
//电话排障备注
String ls_dhpzbz
declare cursor_bz cursor for
SELECT "BM_WX_DHPZGZ"."NAME"
FROM "BM_WX_DHPZGZ"
WHERE "BM_WX_DHPZGZ"."INVAL" = '0'
order by "BM_WX_DHPZGZ"."NAME" asc;
open cursor_bz ;
fetch cursor_bz into:ls_dhpzbz;
do while sqlca.sqlcode=0
ddlb_dhpzgz.additem(ls_dhpzbz)
fetch cursor_bz into:ls_dhpzbz;
loop
close cursor_bz;
//特殊维修类别
String ls_tswxlb
declare cursor_tswxlb cursor for
SELECT "BM_WXTSWXLX"."NAME"
FROM "BM_WXTSWXLX"
WHERE "BM_WXTSWXLX"."INVAL" = '0'
order by "BM_WXTSWXLX"."NAME" asc;
open cursor_tswxlb ;
fetch cursor_tswxlb into:ls_tswxlb;
do while sqlca.sqlcode=0
ddlb_tswxlb.additem(ls_tswxlb)
fetch cursor_tswxlb into:ls_tswxlb;
loop
close cursor_tswxlb;