原创 山东德州 新华同帮

use tpimis
select a.no_goods,a.article,a.price_sale,a.origin,b.na_factory from syb_zdigene a,syb_zdifactory b
where a.no_factory = b.no_factory

select tpimis.no_goods,tpimis.article,tpimis.price_sale,tpimis.origin from syb_zdigene tpimis;

 for   i:=1   to   ADOQuery1.recordcount   do    
        begin
          writeln(tfile,ADOQuery1.fieldbyname('no_goods').AsString + #9 + '123'+#9+'1'+#9+    ADOQuery1.fieldbyname('price_sale').AsString+ #9  + '[' +'2002'+ #9 + ']' +#9+ADOQuery1.fieldbyname('article').AsString+#9+'[!]'+#9 + ADOQuery1.fieldbyname('origin').AsString   );
          ADOQuery1.next;