求解析delphi里头的业务代码

unit AsnImport1;

uses PubGrid1, PubDb1, PubComm1, PubExcel1;

{$R *.dfm}

{ TAsnImport }



procedure TAsnImport.Import;

var s1,s2,s3,s4,sql:String;

    E_App,E_Wb,E_Sheet:Variant;

    i1,i2,i3,i4:integer;

begin

  

  if pubexcel.OpenExcel.Execute then

  Begin

    s1:=pubexcel.OpenExcel.FileName;

    if s1<>'' then

    Begin

      self.Text_Clear;

//      sql:= 'Select distinct cast(null as   nvarchar2(50)) as ID, cast(null as nvarchar2(50)) as SKU,'+

//            ' cast(null as nvarchar2(50)) as SKU1, cast(null as NUMBER) as Qty, cast(null as nvarchar2(50)) as LOC,'+

//            ' cast(''0'' as nvarchar2(2)) as CheckSku, cast(''0'' as nvarchar2(2)) as CheckAltSku, cast(''0'' as nvarchar2(2)) as CheckLoc from tttuser ';

      sql := ' SELECT ''0'' AS ID , A.SKU AS SKU,A.DESCR AS SKU1,B.QTYEXPECTED AS QTY, '

         +' B.TOLOC AS LOC ,A.DESCR AS udf5,A.DESCR AS DepotCount, ''0'' AS CheckSku,''0'' AS CheckAltSku, ''0'' AS CheckLoc'

         +' FROM SKU A,receiptdetail B WHERE A.SKU = B.SKU AND 1 = 0 AND A.SKU =''A'' ';

      pubdb.DOpenGrid(Grid1,SQL);

  self.TextSetValue('TYPE','正常');

      //Grid1.DataSource.DataSet.Delete;

      try

        E_App := GetActiveOleObject('Excel.Application');

      except

        E_App := CreateOleObject('Excel.Application');

      end;

      E_Wb:=E_App.workbooks.open(s1);

      E_Sheet:=E_Wb.sheets[1];

      E_App.Visible:=True;



      s2:=E_Sheet.cells[4,2];

      self.TextSetValue('EXTERNKEY',s2);