xls数据读入说明(dhqy).txt

xls2sql 将Microsoft的Excel文件导入MSSQL中

产品读入
cp:(product)  上级pid：edit1
     上级pno: edit2
     起始序号:edit3 ( i)
     产品级别:edit4

          parambyname('pID').asstring   :=Edit1.text+formatfloat('000',i);
          parambyname('pNO').asstring   :=Edit2.text+'-'+formatfloat('00',i+1);
          parambyname('pNAME').asstring   :=trim(ADOQuery1.fieldbyname('F1').asstring);
          parambyname('Pjb').asinteger   :=strtoint(edit4.text);
          parambyname('Pmx').asstring   :='1';
          parambyname('dw').asstring   :='台';

部件库读入
bj:(material)  上级类型id：edit1
     mid起始序号:edit2 ( i)
          parambyname('MID').asstring   :=Edit1.text+formatfloat('000',i);
          parambyname('MNO').asstring   :='BJ'+formatfloat('0000',i+1);
          parambyname('ssign').asstring   :=ADOQuery1.fieldbyname('F1').asstring;
          parambyname('mname').asstring   :=ADOQuery1.fieldbyname('F2').asstring;
          parambyname('price').asfloat   :=ADOQuery1.fieldbyname('F3').asfloat;
          parambyname('mjb').asinteger   :=2;
          parambyname('mmx').asstring   :='1';
          parambyname('mtype').asinteger   :=0;
          parambyname('dw').asstring   :='只';

产品结构文件读入
EXCEL格式：
           F1: 
           F2: 序号   4
           F3+F4: 代码   20
           F5: 图号   30
           F6: 品名   50
           F7: 数量   9，4


jg:(pdmaclmx)  pno：edit1
               i=1
          parambyname('flno').asinteger   :=i;
          parambyname('pID').asstring   :=trim(Edit1.text);
          parambyname('MID').asstring   :=trim(ADOQuery1.fieldbyname('F1').asstring)+trim(ADOQuery1.fieldbyname('F2').asstring);
          parambyname('SL').asFLOAT   :=ADOQuery1.fieldbyname('F3').asfloat;
         parambyname('cllyl').asinteger   :=100;
      整理pid,mid：
      sql.add('update pdmaclmx set pdmaclmx.pid=product.pid from product where pdmaclmx.pid=product.pno');
      execsql;
      sql.clear;
      sql.add('update pdmaclmx set pdmaclmx.mid=material.mid from material where pdmaclmx.mid=material.mno');

零件库读入
EXCEL格式：
           F1: 类型   20
           F2: 代码   20
           F3: 图号   30
           F4: 品名   50
           F5: 日币单价   9，4
           F6: 备注   50


lj:(material)  上级类型id：edit1

          if (trim(ADOQuery1.fieldbyname('F3').asstring)='') and (trim(ADOQuery1.fieldbyname('F4').asstring)='') then begin
                ADOQuery1.next;
                continue;
          end;
          if  trim(ADOQuery1.fieldbyname('F2').asstring)='' then begin
            if trim(ADOQuery1.fieldbyname('F3').asstring)='' then
                currcode:=trim(ADOQuery1.fieldbyname('F4').asstring)
            else currcode:=trim(ADOQuery1.fieldbyname('F3').asstring);
          end else currcode:=trim(ADOQuery1.fieldbyname('F2').asstring);
          if  prevcode=currcode then begin
                ADOQuery1.next;
                continue;
          end;
          prevcode:=currcode;
          parambyname('MID').asstring   :=curr_sub_id;
          parambyname('MNO').asstring   :=currcode;
          if ADOQuery1.fieldbyname('F3').asstring<>'' then
            parambyname('ssign').asstring   :=ADOQuery1.fieldbyname('F3').asstring
          else
            parambyname('ssign').asstring   :=ADOQuery1.fieldbyname('F4').asstring ;
          if ADOQuery1.fieldbyname('F4').asstring<>'' then
            parambyname('mname').asstring   :=ADOQuery1.fieldbyname('F4').asstring
          else
            parambyname('mname').asstring   :=ADOQuery1.fieldbyname('F3').asstring ;
//          parambyname('price').asfloat   :=ADOQuery1.fieldbyname('F5').asfloat*0.067773;
          parambyname('price').asfloat   :=0;
          parambyname('ybprice').asfloat   :=ADOQuery1.fieldbyname('F5').asfloat;
          parambyname('bz').asstring   :=ADOQuery1.fieldbyname('F6').asstring;
          parambyname('mjb').asinteger   :=sjjb+1;
          parambyname('mmx').asstring   :='1';
          parambyname('mtype').asinteger   :=0;
          parambyname('dw').asstring   :='只';