u_input.pas

报纸接运程序,对报纸分捆,打印,查询等,适用于各种报社

                       if wsstr>51 then
                       begin
                                zhksstr1:=inttostr(zksstr+1);
                       end
                       else
                       begin
                                zhksstr1:=inttostr(zksstr+0);
                       end;
                       sqlstr1:='insert into fybq(jh,jm,bm,zfs,zks,ws,zhks,bqrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                       sqlstr1:=sqlstr1+''''+trim(CB_bm.Text)+''','''+trim(E_zfs.Text)+''','''+zksstr1+''','''+wsstr1+''',';
                       sqlstr1:=sqlstr1+''''+zhksstr1+''','''+Datetostr(DTP1.Date)+''')';
                end;

        with DataModule1.ADOConnection1 do
        begin
                Connected:=false;
                try
                        Connected:=true;
                        Execute(sqlstr);
                        Execute(sqlstr1);
                        if errors.Count > 0 then
                        begin
                                Connected:=false;
                                application.MessageBox('数据库访问错误，刚才提交的数据操作失败','错误提示',mb_ok);
                                exit;
                        end
                        else
                        begin
                                Connected:=false;
                        end;
                except
                        close;
                        application.MessageBox('数据库访问错误，刚才提交的数据操作失败','错误提示',mb_ok);
                        exit;
                end;
        end;
      end;

     end ;

     if (length(trim(CB_bm.Text))=3) then
      begin
        //检查数据库是否已经拥有该接发资料的信息2
        //bmstr1:='';
       // bmstr2:='';
        havezl:=false;
        with DataModule1.ADODataSet1 do
        begin
                Active:=false;
                bmstr1:=trim(CB_bm.Text);
               // showmessage(bmstr1);
                bmstr2:=trim(copy(CB_bm.Text,1,1));
               // showmessage(bmstr2);
               // CommandText:='select * from jfzl where jm='''+copy(CB_jm.Text,1,6)+''' and bs='''+trim(E_bs.text)+''' and jfrq='''+Datetostr(DTP1.Date)+''''; //bm='''+trim(CB_bm.text)+''' and bs='''+trim(E_bs.text)+'''';
                //CommandText:='select bm from jfzl where jm='''+copy(CB_jm.Text,1,6)+''' and bm '''+like+'''+'''+trim(E_bm.text)+'''+'''+%+''' or  and jfrq='''+Datetostr(DTP1.Date)+''' or bs='''+trim(E_bs.text)+'''';
                //CommandText:='select * from jfzl where jm='''+copy(CB_jm.Text,1,6)+''' and '''+(+''' bm like ''''+%+'''+'''+trim(CB_bm.text)+'''+'''+版+'''' or bm like ''''+trim(CB_bm.text)+'''+'''+%+'''+'''+版+'''' or bm='''+trim(CB_bm.text)+'''+''')+''' and jfrq='''+Datetostr(DTP1.Date)+'''';
                CommandText:='select * from jfzl where jm='''+copy(CB_jm.Text,1,6)+''' and  ( bm like '''+'%'+bmstr1+''' or bm like '''+bmstr2+'%'+'版'+''' or bm='''+bmstr1+''')  and jfrq='''+Datetostr(DTP1.Date)+''''; //or bs='''+trim(E_bs.text)+'''';
                try
                        open;
                        if not eof then
                                havezl:=true
                        else
                                havezl:=false;
                        close;
                except
                        close;
                        exit;
                end;
        end;
        //检查数据库是否存在该接发资料2
        if havezl then
            begin
              application.MessageBox('已存在该接发资料或是同版名','错误提示',mb_ok);
              CB_bm.SetFocus;
              exit;
            end

        else
        begin
                sqlstr:='insert into jfzl(jh,jm,bm,bs,zfs,jfrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                sqlstr:=sqlstr+''''+ trim(CB_bm.Text)+''','''+trim(E_bs.Text)+''','''+trim(E_zfs.Text)+''','''+Datetostr(DTP1.Date)+''')'; //'''+DateTimetostr(DTP1.DateTime)+''')';
              // showmessage(sqlstr);
                if trim(E_bs.Text)='4' then
                begin
                        zksstr:=strtoint(trim(E_zfs.Text)) div 500 ;
                        zksstr1:=inttostr(zksstr);
                        wsstr:=strtoint(trim(E_zfs.Text)) mod 500;
                        wsstr1:=inttostr(wsstr);
                       // if wsstr>30 then //2004/07/20修改
                        if wsstr>51 then
                        begin
                                zhksstr1:=inttostr(zksstr+1);
                        end
                        else
                        begin
                                zhksstr1:=inttostr(zksstr+0);;
                        end;
                        sqlstr1:='insert into fybq(jh,jm,bm,zfs,zks,ws,zhks,bqrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                        sqlstr1:=sqlstr1+''''+trim(CB_bm.Text)+''','''+trim(E_zfs.Text)+''','''+zksstr1+''','''+wsstr1+''',';
                        sqlstr1:=sqlstr1+''''+zhksstr1+''','''+Datetostr(DTP1.Date)+''')';
                end
                else
                begin
                       zksstr:=strtoint(trim(E_zfs.Text)) div 250;
                       zksstr1:=inttostr(zksstr);
                       wsstr:=strtoint(trim(E_zfs.Text)) mod 250;
                       wsstr1:=inttostr(wsstr);
                        // if wsstr>30 then //2004/07/20修改
                       if wsstr>51 then
                       begin
                                zhksstr1:=inttostr(zksstr+1);
                       end
                       else
                       begin
                                zhksstr1:=inttostr(zksstr+0);
                       end;
                       sqlstr1:='insert into fybq(jh,jm,bm,zfs,zks,ws,zhks,bqrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                       sqlstr1:=sqlstr1+''''+trim(CB_bm.Text)+''','''+trim(E_zfs.Text)+''','''+zksstr1+''','''+wsstr1+''',';
                       sqlstr1:=sqlstr1+''''+zhksstr1+''','''+Datetostr(DTP1.Date)+''')';
                end;

                {zksstr1:=inttostr(zksstr);
                wsstr1:=inttostr(wsstr);
                zhksstr1:=inttostr(zhksstr);
                sqlstr1:='insert into fybq(jh,jm,bm,zfs,zks,ws,zhks,bqrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                sqlstr1:=sqlstr1+''''+trim(CB_bm.Text)+''','''+trim(E_zfs.Text)+''','''+zksstr1+''','''+wsstr1+''',';
                sqlstr1:=sqlstr1+''''+zhksstr1+''','''+Datetostr(DTP1.Date)+''')';  //'''+DateTimetostr(DTP1.DateTime)+''')';}
                //showmessage(sqlstr1);
        with DataModule1.ADOConnection1 do
        begin
                Connected:=false;
                try
                        Connected:=true;
                        Execute(sqlstr);
                        Execute(sqlstr1);
                        if errors.Count > 0 then
                        begin
                                Connected:=false;
                                application.MessageBox('数据库访问错误，刚才提交的数据操作失败','错误提示',mb_ok);
                                exit;
                        end
                        else
                        begin
                                Connected:=false;
                        end;
                except
                        close;
                        application.MessageBox('数据库访问错误，刚才提交的数据操作失败','错误提示',mb_ok);
                        exit;
                end;
           end;
       end;
    end ;

    if (length(trim(CB_bm.Text))=6) then
      begin
        //检查数据库是否已经拥有该接发资料的信息3
        //bmstr1:='';
       // bmstr2:='';
        havezl:=false;
        with DataModule1.ADODataSet1 do
        begin
                Active:=false;
                bmstr1:=trim(copy(CB_bm.Text,1,2));
               // showmessage(bmstr1);
                bmstr2:=trim(copy(CB_bm.Text,3,2));

                //CommandText:='select * from jfzl where jm='''+copy(CB_jm.Text,1,6)+''' and '''+(+''' bm like ''''+%+'''+'''+trim(CB_bm.text)+'''+'''+版+'''' or bm like ''''+trim(CB_bm.text)+'''+'''+%+'''+'''+版+'''' or bm='''+trim(CB_bm.text)+'''+''')+''' and jfrq='''+Datetostr(DTP1.Date)+'''';
               // CommandText:='select * from jfzl where jm='''+copy(CB_jm.Text,1,6)+''' and  ( bm like '''+'%'+bmstr1+''' or bm like '''+bmstr2+'%'+''' or bm='''+trim(CB_bm.Text)+''')  and jfrq='''+Datetostr(DTP1.Date)+''''; //or bs='''+trim(E_bs.text)+'''';
                CommandText:='select * from jfzl where jm='''+copy(CB_jm.Text,1,6)+''' and   ( bm like '''+'%'+bmstr1+'版'+''' or bm like '''+bmstr2+'%'+'版'+''' or bm like '''+'%'+bmstr2+'版'+''' or bm like '''+bmstr1+'%'+'版'+''' or bm='''+trim(CB_bm.Text)+''')  and jfrq='''+Datetostr(DTP1.Date)+'''';
                try
                        open;
                        if not eof then
                                havezl:=true
                        else
                                havezl:=false;
                        close;
                except
                        close;
                        exit;
                end;
        end;
        //检查数据库是否存在该接发资料3
        if havezl then
            begin
              application.MessageBox('已存在该接发资料或是同版名','错误提示',mb_ok);
              CB_bm.SetFocus;
              exit;
            end

        else
        begin
                sqlstr:='insert into jfzl(jh,jm,bm,bs,zfs,jfrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                sqlstr:=sqlstr+''''+ trim(CB_bm.Text)+''','''+trim(E_bs.Text)+''','''+trim(E_zfs.Text)+''','''+Datetostr(DTP1.Date)+''')'; //'''+DateTimetostr(DTP1.DateTime)+''')';
              // showmessage(sqlstr);
                if trim(E_bs.Text)='4' then
                begin
                        zksstr:=strtoint(trim(E_zfs.Text)) div 500 ;
                        zksstr1:=inttostr(zksstr);
                        wsstr:=strtoint(trim(E_zfs.Text)) mod 500;
                        wsstr1:=inttostr(wsstr);
                         // if wsstr>30 then //2004/07/20修改
                        if wsstr>51 then
                        begin
                                zhksstr1:=inttostr(zksstr+1);
                        end
                        else
                        begin
                                zhksstr1:=inttostr(zksstr+0);;
                        end;
                        sqlstr1:='insert into fybq(jh,jm,bm,zfs,zks,ws,zhks,bqrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                        sqlstr1:=sqlstr1+''''+trim(CB_bm.Text)+''','''+trim(E_zfs.Text)+''','''+zksstr1+''','''+wsstr1+''',';
                        sqlstr1:=sqlstr1+''''+zhksstr1+''','''+Datetostr(DTP1.Date)+''')';
                end
                else
                begin
                       zksstr:=strtoint(trim(E_zfs.Text)) div 250;
                       zksstr1:=inttostr(zksstr);
                       wsstr:=strtoint(trim(E_zfs.Text)) mod 250;
                       wsstr1:=inttostr(wsstr);
                        // if wsstr>30 then //2004/07/20修改
                       if wsstr>51 then
                       begin
                                zhksstr1:=inttostr(zksstr+1);
                       end
                       else
                       begin
                                zhksstr1:=inttostr(zksstr+0);
                       end;
                       sqlstr1:='insert into fybq(jh,jm,bm,zfs,zks,ws,zhks,bqrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                       sqlstr1:=sqlstr1+''''+trim(CB_bm.Text)+''','''+trim(E_zfs.Text)+''','''+zksstr1+''','''+wsstr1+''',';
                       sqlstr1:=sqlstr1+''''+zhksstr1+''','''+Datetostr(DTP1.Date)+''')';
                end;

                {zksstr1:=inttostr(zksstr);
                wsstr1:=inttostr(wsstr);
                zhksstr1:=inttostr(zhksstr);
                sqlstr1:='insert into fybq(jh,jm,bm,zfs,zks,ws,zhks,bqrq) values('''+copy(CB_jm.Text,pos('|',CB_jm.Text)+1,7)+''','''+copy(CB_jm.Text,1,6)+''',';
                sqlstr1:=sqlstr1+''''+trim(CB_bm.Text)+''','''+trim(E_zfs.Text)+''','''+zksstr1+''','''+wsstr1+''',';
                sqlstr1:=sqlstr1+''''+zhksstr1+''','''+Datetostr(DTP1.Date)+''')';  //'''+DateTimetostr(DTP1.DateTime)+''')';}
                //showmessage(sqlstr1);
        with DataModule1.ADOConnection1 do
        begin
                Connected:=false;
                try
                        Connected:=true;
                        Execute(sqlstr);
                        Execute(sqlstr1);
                        if errors.Count > 0 then
                        begin
                                Connected:=false;
                                application.MessageBox('数据库访问错误，刚才提交的数据操作失败','错误提示',mb_ok);
                                exit;
                        end
                        else
                        begin
                                Connected:=false;
                        end;
                except
                        close;
                        application.MessageBox('数据库访问错误，刚才提交的数据操作失败','错误提示',mb_ok);