查询等待，导入功能优化_专业服装进销存批发收银管理软件

19-5-19:

原语句:
         if (U_DataOptionFrm.Showing = False) and ((DateTimeToint(Now()) - timess) > 2) then
            U_DataOptionFrm.ShowModal;

更新后:
         if (U_DataOptionFrm.Showing = False) and ((DateTimeToint(Now()) - timess) > 2) then
            U_DataOptionFrm.ShowModal
          else
            sleep(50); // 要加个SLEEP，否则在回不来消息的时候，占用cpu

区别:

在3秒不返回结果时，不加SLEEP占用18%的CPU。
要中断个50毫秒。

导入功能:

导入时双数量不没有处理到，改成不管是否启用双数量功能,都要同时处理主数量,和零数.

打开EXCEL的方式更改成3种，

第一种为原来的CreateOleObject('Excel.Application');
失败后转成第二种:

      PD_XLS.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edt_path.Text +
        ';Extended Properties=Excel 8.0;Persist Security Info=False';
      try
        PD_XLS.SQL.Text := 'select * from [sheet1$]';

再失败转成第三种:

打开*.XLSX高版本格式。