操作数据库的时候如何取消系统自带的running query框？

public mypath

mypath=""

mypath=getfile("xls")

if empty(mypath) &&判断文件名是否为空

   wait clear

   return

endif

_ole_excel = CreateObject("Excel.Application")

_ole_excel.WorkBooks.Open(mypath)    && 要打开的工作表名(xls)必须是全路径

_ole_excel.WorkSheets(1).Activate   &&激活指定的工作簿

bookExcel = _ole_excel.APPLICATION.Workbooks.OPEN(mypath)

nrows=bookExcel.Worksheets(1)

UsedRange =nrows.UsedRange

r = UsedRange.ROWS.COUNT

if used('dinge')

  select dinge

  use

endif

USE  dinge

&&select dinge

delete all 

pack

     

for i=2  TO r

  &&IF EMPTY(NVL(_ole_excel.cells(i,1).value,'')) AND empty(nvl(_ole_excel.cells(i,2).value,''))

 IF empty(nvl(_ole_excel.cells(i,2).value,''))

     EXIT

  else

     With _ole_excel 

       Insert Into dinge; 

         (材料编码,材料名称,规格型号,计量单位,数量,计划单价,计划金额,部门) ; 

       Values(; 

           Cast(NVL(.cells(i,1).value,'') as C(20)),; 

           Cast(Nvl(.cells(i,2).value,'') as C(30)),; 

           Cast(Nvl(.cells(i,3).value,'') as C(30)),; 

           Cast(Nvl(.cells(i,4).value,'') as C(10)),; 

           Cast(Nvl(.cells(i,5).value,'') as N(10,2)), ; 

           Cast(Nvl(.cells(i,6).value,'') as N(10,2)), ; 

           Cast(Nvl(.cells(i,7).value,'') as N(10,2)), ; 

           Cast(Nvl(.cells(i,8).value,'') as C(20))) 

     EndWith 

endif

ENDFOR

_ole_excel.quit

select 材料编码,材料名称,规格型号,计量单位,sum(数量) as 数量,计划单价,sum(计划金额) as 计划金额,部门 from dinge group by 材料编码,材料名称,规格型号,部门 into cursor temp

 

if used('dinge_1')

  select dinge_1

  use 

endif

use dinge_1 in 1

delete from dinge_1

select dinge_1

PACK

append from dbf('temp')



UPDATE A SET A.计划单价=B.计划单价,A.计划金额=A.计划单价*A.数量 FROM dinge_1 A INNER JOIN cwb_1 B ON; 

IIF(NVL(a.材料编码,'AAA')='AAA' OR EMPTY(a.材料编码),ALLTRIM(A.材料名称)=ALLTRIM(B.材料名称) AND ALLTRIM(A.规格型号)=ALLTRIM(B.规格型号),A.材料编码=B.材料编码) 

  

_SCREEN.ActiveForm.pageframe1.page2.grid1.recordsource=''

_SCREEN.ActiveForm.pageframe1.page2.grid1.recordsourcetype=1 

_SCREEN.ActiveForm.pageframe1.page2.grid1.recordsource='dinge_1'

问题1 上述update部分（红色部分）运行时，会弹出系统的running query对话框，请问如何屏蔽掉，变成自定义的对话框或是一个进度条之类的东西？
问题2 我上传到了http://access911.net/csdn/FileDescription.asp?mdb=2009-10-15&id=13这个地址上的dinge.xls一个表，问题是，它的“材料编码”字段导入VFP时候出现了问题，在EXCEL2003中，这个字段的设置“单元格格式”的“数字”选项中，选择了“文本”，但是类似“9510011”这个字段而言，他的左上角没有三角号，不像别的这个字段会有“非文本形式存储的数字”这样的说明，当它用上述代码保存到dbf中的时候，它的结果为9510011.0000000000，请问这种情况如何去除？