u_dbtread.pas

数据导入导出

                  dbtrans.tosqlserverB.Next;
                  dbtrans.fromaccessquery_3.Next;
                end; //end for



                    with dbtrans.tosqlserver do  //修改会员信息中"未归还部数",'租碟编号'信息
                        begin
                          close;
                          sql.Clear;
                          sql.add('update atorinfo set 未归还部数='+''+inttostr(k)+''
                          +','+'租碟编号='+''''+sl.DelimitedText+''''
                          +'where 会员编号='+''''+temp5+'''');
                          execsql;

                        end;

                     sl.free;











          end;//if end

                    dbtrans.fromaccessquery_1.next;


       end;

            
                     //okokokokokokok

 /////////////////////////////////////////////////////////////////////////////////////////////
    //导入会员缴费信息
      with dbtrans.fromaccessquery_2 do //操作员与资金表的联合查询,这里,一起将1,2数据集合为一个
      begin
        close;
        sql.Clear;
        sql.add('select TbOperator.name,TbFtransaction.*,Tbassociator.code from TbOperator,TbFtransaction,Tbassociator where TbOperator.ID=TbFtransaction.CID3 and TbFtransaction.AID3=Tbassociator.ID and TbFtransaction.CID1=11');
        open;
        first;
      end;



 dbtrans.bsskingauge1.ProgressText:='正在导入到会员会费缴纳表';

 for i:=0 to dbtrans.fromaccessquery_2.RecordCount do //读入资金表的记录,从第一条开始
      begin //for BEGIN
        dbtrans.bsskingauge1.maxvalue:=dbtrans.fromaccessquery_2.RecordCount;//进度条1
        dbtrans.bsskingauge1.value:=i;//进度条1
        if i=dbtrans.fromaccessquery_2.RecordCount then break;
             with dbtrans.tosqlserver do
                  begin
                    close;
                    sql.Clear;
                    sql.Add('insert into atorcharge(会员编号,金额,对应帐户,说明,操作日期,经手人,收支分类) values('+''''+dbtrans.fromaccessquery_2.FieldValues['code']+''''+','+''''+currtostr(dbtrans.fromaccessquery_2.FieldValues['sum2']) +''''
                     +','+''''+'收银箱'+''''+','+''''+dbtrans.fromaccessquery_2.FieldValues['memo']+''''+','+''''+datetostr(dbtrans.fromaccessquery_2.FieldValues['day']) +''''
                     +','+''''+dbtrans.fromaccessquery_2.FieldValues['name']+''''+','+''''+'会员缴费'+''''+'      )');
                    execsql;
                    dbtrans.fromaccessquery_2.next;
                  end;                             //开始导入到TCS的资金表,其FID字段等它自动累加
        
      end;//for end;
                        //okokokokokokok
 ///////////////////////////////////////////////////////////////////////////////////////////////


 //导入影片类型表



    with dbtrans.fromaccessquery_1 do
      begin
        close;
        sql.Clear;
        sql.add('select * from TbCdCategory');
        open;
        first;
        dbtrans.bsskingauge1.ProgressText:='正在导入到影片类型表';
          for i:=1 to dbtrans.fromaccessquery_1.RecordCount do
            begin
               dbtrans.bsskingauge1.maxvalue:=dbtrans.fromaccessquery_1.RecordCount;//进度条1
               dbtrans.bsskingauge1.value:=i;//进度条1
               if i=dbtrans.fromaccessquery_1.RecordCount then break;
               with dbtrans.tosqlserver do
                  begin
                    close;
                    sql.Clear;
                    sql.Add('insert filmtype values('+''''+dbtrans.fromaccessquery_1.FieldValues['name']+''''+','+''''+dbtrans.fromaccessquery_1.FieldValues['memo']+''''+        ')');
                    //dbtrans.tosqlserver.ParamByName('a').asstring:=dbtrans.fromaccessquery_1.FieldValues['name'];     //关键字
                    //dbtrans.tosqlserver.ParamByName('b').asstring:=dbtrans.fromaccessquery_1.FieldValues['memo'];     //ACCESS中字段类型为"备注"
                    execsql;
                    dbtrans.fromaccessquery_1.next;

                  end;                             //FreeOnTerminate:=True;

            end;
      end;


              //OKOKOKOKOKOK



/////////////////////////////////////////////////////////////////////////////////////////////
      //导入演员,导演表


    with dbtrans.fromaccessquery_1 do
      begin
        close;
        sql.Clear;
        sql.add('select * from TbPlayer');
        open;
        first;
        dbtrans.bsskingauge1.ProgressText:='正在导入到演员表';
     end;
          for i:=1 to dbtrans.fromaccessquery_1.RecordCount do
            begin
               dbtrans.bsskingauge1.maxvalue:=dbtrans.fromaccessquery_1.RecordCount;//进度条1
               dbtrans.bsskingauge1.value:=i;//进度条1
               if i=dbtrans.fromaccessquery_1.RecordCount then break;
               with dbtrans.tosqlserver do
                  begin
                    close;
                    sql.Clear;
                    sql.Add('insert into doctor(导演,首拼,说明) values('+''''+dbtrans.fromaccessquery_1.FieldValues['name']+''''
                    +','+''''+dbtrans.fromaccessquery_1.FieldValues['spell']+''''
                    +','+''''+dbtrans.fromaccessquery_1.FieldValues['memo']+''''   +                ')');
                    //dbtrans.tosqlserver.ParamByName('a').asstring:=dbtrans.fromaccessquery_1.FieldValues['name'];   //关键字
                    //dbtrans.tosqlserver.ParamByName('b').asstring:=dbtrans.fromaccessquery_1.FieldValues['spell'];  //不可能为空
                    //dbtrans.tosqlserver.ParamByName('c').asstring:=dbtrans.fromaccessquery_1.FieldValues['memo'];   //备注类型
                    execsql;
                    dbtrans.fromaccessquery_1.next;

                  end;                             //FreeOnTerminate:=True;


             end;




        with dbtrans.fromaccessquery_1 do
      begin
        close;
        sql.Clear;
        sql.add('select * from TbPlayer');
        open;
        first;
        dbtrans.bsskingauge1.ProgressText:='正在导入到导演表';
     end;
          for i:=1 to dbtrans.fromaccessquery_1.RecordCount do
            begin
               dbtrans.bsskingauge1.maxvalue:=dbtrans.fromaccessquery_1.RecordCount;//进度条1
               dbtrans.bsskingauge1.value:=i;//进度条1
               if i=dbtrans.fromaccessquery_1.RecordCount then break;
               with dbtrans.tosqlserver do
                  begin
                    close;
                    sql.Clear;
                    sql.Add('insert into player(演员,首拼,说明) values('+''''+dbtrans.fromaccessquery_1.FieldValues['name']+''''
                    +','+''''+dbtrans.fromaccessquery_1.FieldValues['spell']+''''
                    +','+''''+dbtrans.fromaccessquery_1.FieldValues['memo']+''''   +')');
                   // dbtrans.tosqlserver.ParamByName('a').asstring:=dbtrans.fromaccessquery_1.FieldValues['name'];
                    //dbtrans.tosqlserver.ParamByName('b').asstring:=dbtrans.fromaccessquery_1.FieldValues['spell'];
                    //dbtrans.tosqlserver.ParamByName('c').asstring:=dbtrans.fromaccessquery_1.FieldValues['memo'];
                    execsql;
                    dbtrans.fromaccessquery_1.next;

                  end;                             //FreeOnTerminate:=True;


             end;

                                //OKOKOKOKOKOKOK
 ////////////////////////////////////////////////////////////////////////////////////////////////
    //导入供应商表

   with dbtrans.fromaccessquery_1 do
      begin
        close;
        sql.Clear;
        sql.add('select * from Tbcompany');
        open;
        first;
        dbtrans.bsskingauge1.ProgressText:='正在导入到进货表';
     end;
          for i:=1 to dbtrans.fromaccessquery_1.RecordCount do
            begin
               dbtrans.bsskingauge1.maxvalue:=dbtrans.fromaccessquery_1.RecordCount;//进度条1
               dbtrans.bsskingauge1.value:=i;//进度条1
               if i=dbtrans.fromaccessquery_1.RecordCount then break;




                        if dbtrans.fromaccessquery_1.FieldValues['telephone']=null then
                           rentcdtemp1:=' '
                        else
                           rentcdtemp1:=dbtrans.fromaccessquery_1.FieldValues['telephone'];




                        if  dbtrans.fromaccessquery_1.FieldValues['address']=null then
                            rentcdtemp2:='  '
                        else
                            rentcdtemp2:=dbtrans.fromaccessquery_1.FieldValues['address'];










               with dbtrans.tosqlserver do
                  begin
                    close;
                    sql.Clear;
                    sql.Add('insert into provider(供应商,电话号码,首拼,地址,说明) values('+''''+dbtrans.fromaccessquery_1.FieldValues['name']+''''
                    +','+''''+rentcdtemp1+''''+','+''''+' '+''''
                    +','+''''+rentcdtemp2+''''+','+''''+dbtrans.fromaccessquery_1.FieldValues['memo']+''''+    '          )');


                        execsql;
                        dbtrans.fromaccessquery_1.next;

                           end;                             //FreeOnTerminate:=True;


             end;



                 //OKOKOKOKOKOKOK


  //////////////////////////////////////////////////////////////////////////////////////////////////////



      application.MessageBox('导入成功!', 'TCSVCD管理系统', mb_iconinformation + mb_defbutton1);

 EXCEPT
      application.MessageBox('导入失败,请与开发商联系!', 'TCSVCD管理系统', mb_iconinformation + mb_defbutton1);

 END;


end;

end.