当前位置: 代码迷 >> Delphi >> 求解析delphi里头的业务代码
  详细解决方案

求解析delphi里头的业务代码

热度:200   发布时间:2016-05-05 01:18:51.0
求解析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);
  相关解决方案
本站暂不开放注册!
内测阶段只得通过邀请码进行注册!
 
  • 最近登录:Thu Nov 23 09:59:20 CST 2017
  • 最近登录:Thu Nov 23 09:59:20 CST 2017
  • 最近登录:Thu Nov 23 09:59:20 CST 2017
  • 最近登录:Thu Nov 23 09:59:20 CST 2017
  • 最近登录:Thu Nov 23 09:59:20 CST 2017