frm_allimportbillinfo.pas

这是一个基于delphi平台的物流空运管理系统！

        FrmMain.InsStr(SqlStr, goodsfile.GoodsNumber, ',');
        FrmMain.InsStr(SqlStr, goodsfile.goodsweight, ',');
        FrmMain.InsStr(SqlStr, goodsfile.goodsunit, ',');
        FrmMain.InsStr(SqlStr, goodsfile.goodssize, ',');
        FrmMain.InsStr(SqlStr, goodsfile.goodsgrade, ',');
        FrmMain.InsStr(SqlStr, goodsfile.formul, ',');
        FrmMain.InsStr(SqlStr, goodsfile.chargeweight, ',');
        FrmMain.InsStr(SqlStr, goodsfile.unitprice, ',');
        FrmMain.InsStr(SqlStr, goodsfile.total, ',');
        FrmMain.InsStr(SqlStr, '', ',');
        FrmMain.InsStr(SqlStr, '', ',');
        FrmMain.InsStr(SqlStr, goodsfile.goodsdesc, '');
        if FrmMain.ExecSQL(sqlstr) then
        else
        begin
          ShowMessage('主单货物数据数据导入插入时出错,记录导入失败,请检查!');
          exit;
        end;
      end;
    end;
    {进舱派车通知}
    FrmMain.ExecSQL(pchar('delete from Landtrans where trustcode=''' + VarMain +
      ''''));

    if ztrustfile.JCPCNumber > 0 then
    begin
      context := fileread(myfilehandle, jcpcfile, sizeof(jcpcfile));
      CodeGet := FrmMain.GetCode('Q');
      SqlStr := 'insert into landtrans(transcode,trustcode,goodshw,' +
        'carname,carrela,thdate,stationcode,' +
        'stationaddr,stationrelation,stationtele,jcno,jcdate,' +
        'jctime,ccdate,cctime,goodsplace,' +
        'goodsrelationstyle,goodsrelation,dodate,jcpc,benative,remark) values(';
      FrmMain.InsStr(sqlstr, CodeGet, ',');
      FrmMain.InsStr(sqlstr, Varmain, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.goodshw, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.carname, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.carrela, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.thdate, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.station, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.stationaddr, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.stationrela, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.stationstyle, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.jcno, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.jcdate, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.jctime, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.ccdate, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.cctime, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.goodsplace, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.goodsrelastyle, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.goodsrela, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.recorddate, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.ifpc, ',');
      FrmMain.InsStr(sqlstr, jcpcfile.ifnative, ',');

      FrmMain.InsStr(sqlstr, jcpcfile.remark, '');
      if FrmMain.ExecSQL(sqlstr) then
      else
      begin
        ShowMessage('主单进舱派车数据导入插入时出错,记录导入失败,请检查!');
        exit;
      end;
    end;

    {报关文件}
    FrmMain.ExecSQL(pchar('delete from truckfile where trustcode=''' + VarMain +
      ''''));

    if ztrustfile.bgnumber > 0 then
    begin
      for i := 1 to ztrustfile.bgnumber do
      begin
        context := fileread(myfilehandle, bgfile, sizeof(bgfile));
        codeget := FrmMain.GetCode('K');
        sqlstr := 'insert into truckfile(kcode,trustcode,fileno,mawb,cuscode,' +
          'ciqname,filename,filenameno,recedate,returndate,ciqrecedate,ciqreturndate,' +
          'occurtime,PlaneOcean,operator,remark) values(';
        FrmMain.InsStr(sqlstr, codeget, ',');
        FrmMain.InsStr(sqlstr, varmain, ',');
        FrmMain.InsStr(sqlstr, bgfile.fileno, ',');
        FrmMain.InsStr(sqlstr, bgfile.mawb, ',');
        FrmMain.InsStr(sqlstr, bgfile.jyname, ',');
        FrmMain.InsStr(sqlstr, bgfile.bghname, ',');
        FrmMain.InsStr(sqlstr, bgfile.filename, ',');
        FrmMain.InsStr(sqlstr, bgfile.filenameno, ',');
        FrmMain.InsStr(sqlstr, bgfile.cusrecedate, ',');
        FrmMain.InsStr(sqlstr, bgfile.cusretudate, ',');
        FrmMain.InsStr(sqlstr, bgfile.ciqrecedate, ',');
        FrmMain.InsStr(sqlstr, bgfile.ciqretudate, ',');
        FrmMain.InsStr(sqlstr, bgfile.recorddate, ',');
        FrmMain.InsStr(sqlstr, 1, ',');
        FrmMain.InsStr(sqlstr, bgfile.opercode, ',');
        FrmMain.InsStr(sqlstr, bgfile.remark, '');
        if FrmMain.ExecSQL(SqlStr) then
        else
        begin
          ShowMessage('主单报关文件数据导入插入时出错,记录导入失败,请检查!');
          exit;
        end;
      end;
    end;

    {费用记录}
    FrmMain.ExecSQL(pchar('delete from fareinfo where filecode=''' + VarMain +
      ''''));

    if ztrustfile.farenumber > 0 then
    begin
      for i := 1 to ztrustfile.farenumber do
      begin
        context := fileread(myfilehandle, farefile, sizeof(farefile));
        codeget := FrmMain.GetCode('F');
        SqlStr := 'insert into FareInfo(Fareno,Filecode,cuscode,cuscodename,' +
          'Farecode,Farepaytodate,Billno,invoiceno,bxno,operator,Acount,FareType,' +
          'Writedate,currencytype,currencyrate,recedeal,' +
          'goodscode,unitprice,opercwmark,Remark) values (';
        FrmMain.InsStr(sqlstr, codeget, ',');
        FrmMain.InsStr(sqlstr, varmain, ',');
        FrmMain.InsStr(sqlstr, farefile.cuscode, ',');
        FrmMain.InsStr(sqlstr, farefile.cuscodename, ',');
        FrmMain.InsStr(sqlstr, farefile.farename, ',');
        FrmMain.InsStr(sqlstr, farefile.paytodate, ',');
        FrmMain.InsStr(sqlstr, farefile.billno, ',');
        FrmMain.InsStr(sqlstr, farefile.invoiceno, ',');
        FrmMain.InsStr(sqlstr, '', ',');
        FrmMain.InsStr(sqlstr, farefile.opercode, ',');
        FrmMain.InsStr(sqlstr, farefile.fareacount, ',');
        FrmMain.InsStr(sqlstr, farefile.faretype, ',');
        FrmMain.InsStr(sqlstr, farefile.recorddate, ',');
        FrmMain.InsStr(sqlstr, farefile.currencytype, ',');
        FrmMain.InsStr(sqlstr, farefile.rate, ',');
        FrmMain.InsStr(sqlstr, farefile.recedeal, ',');
        FrmMain.InsStr(sqlstr, farefile.farefl, ',');
        FrmMain.InsStr(sqlstr, farefile.unitprice, ',');
        FrmMain.InsStr(sqlstr, farefile.opercwmark, ',');
        FrmMain.InsStr(sqlstr, '', '');
        if FrmMain.ExecSQL(SqlStr) then
        else
        begin
          ShowMessage('主单费用数据导入插入时出错,记录导入失败,请检查!');
          exit;
        end;
      end;
    end;
    {分单的一系列文件的导入}
    SqlStr := 'delete from Fareinfo where filecode in ' +
      ' (select filecode from filetable where Maincode=''' + Varmain + ''')';
    FrmMain.ExecSQL(sqlstr);
    SqlStr := 'delete from planegoods where filecode in ' +
      ' (select filecode from filetable where Maincode=''' + Varmain + ''')';
    FrmMain.ExecSQL(sqlstr);
    SqlStr := 'delete from truckfile where trustcode in ' +
      ' (select filecode from filetable where Maincode=''' + Varmain + ''')';
    FrmMain.ExecSQL(sqlstr);
    SqlStr := 'delete from landtrans where trustcode in ' +
      ' (select filecode from filetable where Maincode=''' + Varmain + ''')';
    FrmMain.ExecSQL(sqlstr);
    SqlStr := 'delete from filetable where maincode=''' + Varmain + '''';
    FrmMain.ExecSQL(sqlstr);

    hawbnumber := ztrustfile.HawbNumber;
    for j := 1 to hawbnumber do
    begin
      context := fileread(myfilehandle, ztrustfile, sizeof(ztrustfile));
      sqlstr := 'insert into FileTable(FileCode,MainCode,hawb,' +
        'Fileno,Trusttype,trustsource,quotecode,djnumber,kjkm,zcdjnumber,zckjkm,' +
        'Cuscode,CusCodeName,shouhuoren,consignname,AgentCode,Shipper,' +
        'Consignee,Agent,' +
        'CuscomPany,Reciplace,' +
        'AirPort,AirPortTo,Destination,' +
        'Carrier,BY1,TO1,Fdate,DFdate,Fdate1,' +
        'BY2,TO2,Fdate2,By3,TO3,Fdate3,' +
        'Accinfo,Handling,Curr,CHGS,' +
        'PPD,COLL,OPPD,OCOLL,DVC,DVCus,' +
        'AccInsurance,aic,' +
        'Execdate,Dexecdate,Execplace,bussiness,' +
        'befinish,keydown,Ifdiscard,ifzhidan,' +
        'inout,ModiOper,operate) values(';
      {FileCode}
      VarHawb := FrmMain.GetCode('H');
      FrmMain.InsStr(SqlStr, varhawb, ',');
      {Maincode}
      FrmMain.InsStr(sqlstr, varmain, ',');
      {hawb}
      FrmMain.InsStr(sqlstr, Ztrustfile.hawb, ',');
      {FileNo}
      FrmMain.InsStr(sqlstr, Ztrustfile.fileno, ',');
      {trusttype}
      FrmMain.InsStr(sqlstr, Ztrustfile.trusttype, ',');
      {trustsource}
      FrmMain.InsStr(sqlstr, Ztrustfile.trustsource, ',');
      {quotecode}
      if Ztrustfile.jjcode = '' then
        FrmMain.InsStr(sqlstr, 'null', ',')
      else
        FrmMain.InsStr(sqlstr, Ztrustfile.jjcode, ',');
      {djnumber}
      FrmMain.InsStr(sqlstr, Ztrustfile.djnumber, ',');
      {kjkm}
      FrmMain.InsStr(sqlstr, Ztrustfile.kjkm, ',');
      {zcdjnumber}
      FrmMain.InsStr(sqlstr, Ztrustfile.zcdjnumber, ',');
      {zckjkm}
      FrmMain.InsStr(sqlstr, Ztrustfile.zckjkm, ',');

      {cuscode}
      if Ztrustfile.cuscode = '' then
        FrmMain.InsStr(sqlstr, 'null', ',')
      else
        FrmMain.InsStr(sqlstr, Ztrustfile.cuscode, ',');
      {发货人名称}
      FrmMain.InsStr(sqlstr, Ztrustfile.cuscodename, ',');
      {收货人}
      FrmMain.InsStr(sqlstr, Ztrustfile.consigncode, ',');
      {收货人名称}
      FrmMain.InsStr(sqlstr, Ztrustfile.consignname, ',');
      {代理商}
      FrmMain.InsStr(sqlstr, Ztrustfile.agentcode, ',');
      {Shipper}
      FrmMain.InsStr(sqlstr, Ztrustfile.shipper, ',');
      {Consignee}
      FrmMain.InsStr(sqlstr, Ztrustfile.consignee, ',');
      {Agent 通知方}
      FrmMain.InsStr(sqlstr, Ztrustfile.inform, ',');

      {cuscompany运费对象}
      FrmMain.InsStr(sqlstr, '', ',');
      {Reciplace  收货地}
      FrmMain.InsStr(sqlstr, Ztrustfile.receport, ',');
      {AirPort 装货港}
      FrmMain.InsStr(sqlstr, Ztrustfile.loadport, ',');
      {AirPortTo 卸货港}
      FrmMain.InsStr(sqlstr, Ztrustfile.unloadport, ',');
      {destination 目的地}
      FrmMain.InsStr(sqlstr, Ztrustfile.dest, ',');

      {Carrier 航空公司}
      FrmMain.InsStr(sqlstr, Ztrustfile.shipcomcode, ',');
      {一乘航班，经停，出运日期}
      FrmMain.InsStr(sqlstr, Ztrustfile.ycvoyage, ',');
      FrmMain.InsStr(sqlstr, Ztrustfile.ycport, ',');
      FrmMain.InsStr(sqlstr, Ztrustfile.ycvoyagedate, ',');
      FrmMain.InsStr(sqlstr, Ztrustfile.ycvoyagedate, ',');
      FrmMain.InsStr(sqlstr, Ztrustfile.ycvoyagedate, ',');
      {二乘航班，经停，出运日期}
      FrmMain.InsStr(sqlstr, Ztrustfile.ecvoyage, ',');
      FrmMain.InsStr(sqlstr, Ztrustfile.ecport, ',');
      FrmMain.InsStr(sqlstr, Ztrustfile.ecvoyagedate, ',');
      {三乘航班，经停，出运日期}
      FrmMain.InsStr(sqlstr, Ztrustfile.scvoyage, ',');
      FrmMain.InsStr(sqlstr, Ztrustfile.scport, ',');
      FrmMain.InsStr(sqlstr, Ztrustfile.scvoyagedate, ',');

      {Accinfo  麦头}
      FrmMain.InsStr(sqlstr, Ztrustfile.maitou, ',');
      {Handing}
      FrmMain.InsStr(sqlstr, Ztrustfile.hi, ',');
      {Curr}
      FrmMain.InsStr(sqlstr, Ztrustfile.currency, ',');
      {CHGS}
      FrmMain.InsStr(sqlstr, Ztrustfile.chgs, ',');
      {PPD}
      FrmMain.InsStr(sqlstr, Ztrustfile.ppd, ',');
      {COLL}
      FrmMain.InsStr(sqlstr, Ztrustfile.coll, ',');
      {OPPD}
      FrmMain.InsStr(sqlstr, Ztrustfile.oppd, ',');
      {OCOLL}
      FrmMain.InsStr(sqlstr, Ztrustfile.ocoll, ',');
      {DCV}
      FrmMain.InsStr(sqlstr, Ztrustfile.dvc, ',');
      {DVCus}
      FrmMain.InsStr(sqlstr, Ztrustfile.odvc, ',');
      {AccInfo}
      FrmMain.InsStr(sqlstr, Ztrustfile.ai, ',');
      {A.i.c.}
      FrmMain.InsStr(sqlstr, Ztrustfile.aic, ',');
      {签定日期}
      FrmMain.InsStr(sqlstr, Ztrustfile.billdate, ',');
      FrmMain.InsStr(sqlstr, Ztrustfile.billdate, ',');
      {签定地点}
      FrmMain.InsStr(sqlstr, Ztrustfile.billplace, ',');
      {业务员}
      FrmMain.InsStr(sqlstr, Ztrustfile.bussiness, ',');
      {Befinish 是否完成标记}
      FrmMain.InsStr(sqlstr, Ztrustfile.finish, ',');

      FrmMain.InsStr(sqlstr, Ztrustfile.keydown, ',');
      FrmMain.InsStr(sqlstr, Ztrustfile.discard, ',');
      FrmMain.InsStr(sqlstr, Ztrustfile.zhidan, ',');
      {进出口标记 出口为1}
      FrmMain.InsStr(sqlstr, 0, ',');
      {业务员}
      FrmMain.InsStr(sqlstr, Ztrustfile.ModiOper, ',');

      {操作人}
      FrmMain.InsStr(sqlstr, Ztrustfile.opercode, '');
      if FrmMain.execsql(sqlstr) then
      else
      begin
        ShowMessage('分单数据导入插入时出错,记录导入失败,请检查!');
        exit;
      end;
      {保存完毕以后,置于编辑状态}

     {保存货物记录}
      if ztrustfile.GoodsNumber > 0 then
      begin
        for i := 1 to ztrustfile.goodsnumber do
        begin
          context := fileread(myfilehandle, goodsfile, sizeof(goodsfile));
          codeget := FrmMain.GetCode('B');
          {件数  单位  体积  等级  公式  }
          {计费重量  单价  费用  货物描述  编号 编号  C.M.I  一个 }
          SqlStr := 'Insert into PlaneGoods(GoodsCode,FileCode,Pieces,weight,' +
            'kgid,Size,rateclass,Formula,chargweight,rate,' +
            'total,SpeGoods,SpeRemark,goods) Values(';
          FrmMain.InsStr(SqlStr, codeget, ',');
          FrmMain.InsStr(SqlStr, Varhawb, ',');
          FrmMain.InsStr(SqlStr, goodsfile.GoodsNumber, ',');
          FrmMain.InsStr(SqlStr, goodsfile.goodsweight, ',');
          FrmMain.InsStr(SqlStr, goodsfile.goodsunit, ',');
          FrmMain.InsStr(SqlStr, goodsfile.goodssize, ',');
          FrmMain.InsStr(SqlStr, goodsfile.goodsgrade, ',');
          FrmMain.InsStr(SqlStr, goodsfile.formul, ',');
          FrmMain.InsStr(SqlStr, goodsfile.chargeweight, ',');
          FrmMain.InsStr(SqlStr, goodsfile.unitprice, ',');
          FrmMain.InsStr(SqlStr, goodsfile.total, ',');
          FrmMain.InsStr(SqlStr, '', ',');
          FrmMain.InsStr(SqlStr, '', ',');
          FrmMain.InsStr(SqlStr, goodsfile.goodsdesc, '');
          if FrmMain.ExecSQL(sqlstr) then
          else
          begin
            ShowMessage('分单货物数据数据导入插入时出错,记录导入失败,请检查!');
            exit;
          end;
        end;
      end;
      {进舱派车通知}
      if ztrustfile.JCPCNumber > 0 then
      begin
        context := fileread(myfilehandle, jcpcfile, sizeof(jcpcfile));
        CodeGet := FrmMain.GetCode('Q');