udataout.~pas

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

                          ToCSV.Transfer(path + edtYear.Text + '年' +
                            fillWord(edtMonth.Text,
                            2) +
                            '月' + '农业银行（有组）补发数据.txt');
                          mmoMain.Lines.Add('已生成文件' + path + edtYear.Text + '年' +
                            fillWord(edtMonth.Text, 2) + '月' +
                            '农业银行（有组）补发数据.txt');
                        end;
                        AddLine;
            }
          end;

          if ChkJG_3.Checked then
          begin
            //中行补发数据
            Close;
            SQL.Clear;

            SQL.Add('select a.xm as 姓名, a.sfzh as 身份证号,       ');
            SQL.Add('       a.zh as 帐号, a.khh as 开户行,          ');
            //            SQL.Add('       a.hrdd as 汇入地点, a.ffje as 发放金额, ');
            SQL.Add('       a.hrdd as 汇入地点, d.ffje as 发放金额, ');
            SQL.Add('       b.dm as 地区代码, b.mc as 地区名称,     ');
            SQL.Add('       c.dwdm as 单位代码, c.dwmc as 单位名称, ');
            SQL.Add('       a.ryid_ff as 人员标识,to_char(d.ffyf,''yyyymm'') as 所属月份');
            SQL.Add('from tff_ryxx a, tff_rydqxx b, tff_dwxx c, tff_ryfkxx d');
            SQL.Add('where b.ryid_ff (+)= a.ryid_ff and');
            SQL.Add('      d.ffbz=1 and');
            SQL.Add('      a.dwid_ff = a.ssdwid and');
            SQL.Add('      a.ssdwid = c.dwid_ff and');
            SQL.Add('      d.ryid_ff = a.ryid_ff and');
            //补发数据必须不同于人员数据
            SQL.Add('      (d.xm<>a.xm or d.sfzh<>a.sfzh or d.khh<>a.khh   ');
            SQL.Add('      or d.zh<>a.zh or d.yzbm<>a.yzbm or d.dz<>a.dz) and ');
            //
            SQL.Add('      to_char(d.fkrq,''yyyy.mm'')=''' + edtYear2.Text + '.'
              + fillword(edtMonth2.Text, 2) + ''' and');
            SQL.Add('      to_char(d.ffyf,''yyyy.mm'')=''' +
              edtYear.Text + '.' + fillword(edtMonth.Text, 2) + ''' and');
            SQL.Add('      d.ffjgid = ''1000000003'' and');
            SQL.Add('      a.ffjgid <> ''1000000006'' and a.ffjgid <> ''1000000007''');
            SQL.Add('order by b.dm, a.ssdwid, a.ryid_ff');

            mmoMain.Lines.Add(edtYear.Text + '年' +
              fillWord(edtMonth.Text, 2) + '月' +
              '中国银行补发数据正在生成...');
            Open;
            mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) +
              '条记录');
            if RecordCount <> 0 then
            begin
              ToCSV.Transfer(path + edtYear.Text + '年' +
                fillWord(edtMonth.Text,
                2) +
                '月' + '中国银行补发数据.txt');
              mmoMain.Lines.Add('已生成文件' + path + edtYear.Text + '年' +
                fillWord(edtMonth.Text, 2) + '月' +
                '中国银行补发数据.txt');
            end;
            AddLine;

            {            //中国银行（有组）
                        Close;
                        SQL.Clear;
                        SQL.Add('select a.dwjbr as 姓名, a.zh as 帐号,');
                        SQL.Add('       a.khmc as 开户行, a.dwdz as 汇入地点,');
                        SQL.Add('       d.ffje as 发放金额, d.dwdm as 单位代码,');
                        SQL.Add('       a.dwmc as 单位名称, d.dwid_ff as 组标识,');
                        SQL.Add('       d.zrs as 人数,to_char(d.ffyf,''yyyymm'') as 所属月份');
                        SQL.Add('from tff_dwxx a, tff_zfkxx d');
                        SQL.Add('where a.dwid_ff = d.dwid_ff and');
                        SQL.Add('      to_char(d.fkrq,''yyyy.mm'')=''' + edtYear2.Text + '.'
                          + fillword(edtMonth2.Text, 2) + ''' and');
                        SQL.Add('      d.ffjgid = ''1000000003'' and');
                        SQL.Add('      to_char(d.ffyf,''yyyy.mm'')=''' +
                          edtYear.Text + '.' + fillword(edtMonth.Text, 2) + ''' and');
                        SQL.Add('      a.ffjgid <> ''1000000006'' and a.ffjgid <> ''1000000007''');
                        SQL.Add('order by d.dwdm, d.dwid_ff');

                        mmoMain.Lines.Add(edtYear.Text + '年' +
                          fillWord(edtMonth.Text, 2) + '月' +
                          '中国银行（有组）补发数据正在生成...');
                        Open;
                        mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) +
                          '条记录');
                        if RecordCount <> 0 then
                        begin
                          ToCSV.Transfer(path + edtYear.Text + '年' +
                            fillWord(edtMonth.Text,
                            2) +
                            '月' + '中国银行（有组）补发数据.txt');
                          mmoMain.Lines.Add('已生成文件' + path + edtYear.Text + '年' +
                            fillWord(edtMonth.Text, 2) + '月' +
                            '中国银行（有组）补发数据.txt');
                        end;
                        AddLine;
            }
          end;

          if ChkJG_4.Checked then
          begin
            //建行补发数据
            Close;
            SQL.Clear;

            SQL.Add('select a.xm as 姓名, a.sfzh as 身份证号,       ');
            SQL.Add('       a.zh as 帐号, a.khh as 开户行,          ');
            //            SQL.Add('       a.hrdd as 汇入地点, a.ffje as 发放金额, ');
            SQL.Add('       a.hrdd as 汇入地点, d.ffje as 发放金额, ');
            SQL.Add('       b.dm as 地区代码, b.mc as 地区名称,     ');
            SQL.Add('       c.dwdm as 单位代码, c.dwmc as 单位名称, ');
            SQL.Add('       a.ryid_ff as 人员标识,to_char(d.ffyf,''yyyymm'') as 所属月份');
            SQL.Add('from tff_ryxx a, tff_rydqxx b, tff_dwxx c, tff_ryfkxx d');
            SQL.Add('where b.ryid_ff (+)= a.ryid_ff and');
            SQL.Add('      d.ffbz=1 and');
            SQL.Add('      a.dwid_ff = a.ssdwid and');
            SQL.Add('      a.ssdwid = c.dwid_ff and');
            SQL.Add('      d.ryid_ff = a.ryid_ff and');
            //补发数据必须不同于人员数据
            SQL.Add('      (d.xm<>a.xm or d.sfzh<>a.sfzh or d.khh<>a.khh   ');
            SQL.Add('      or d.zh<>a.zh or d.yzbm<>a.yzbm or d.dz<>a.dz) and ');
            //
            SQL.Add('      to_char(d.fkrq,''yyyy.mm'')=''' + edtYear2.Text + '.'
              + fillword(edtMonth2.Text, 2) + ''' and');
            SQL.Add('      to_char(d.ffyf,''yyyy.mm'')=''' +
              edtYear.Text + '.' + fillword(edtMonth.Text, 2) + ''' and');
            SQL.Add('      d.ffjgid = ''1000000004'' and');
            SQL.Add('      a.ffjgid <> ''1000000006'' and a.ffjgid <> ''1000000007''');
            SQL.Add('order by b.dm, a.ssdwid, a.ryid_ff');

            mmoMain.Lines.Add(edtYear.Text + '年' +
              fillWord(edtMonth.Text, 2) + '月' +
              '建设银行补发数据正在生成...');
            Open;
            mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) +
              '条记录');
            if RecordCount <> 0 then
            begin
              ToCSV.Transfer(path + edtYear.Text + '年' +
                fillWord(edtMonth.Text,
                2) +
                '月' + '建设银行补发数据.txt');
              mmoMain.Lines.Add('已生成文件' + path + edtYear.Text + '年' +
                fillWord(edtMonth.Text, 2) + '月' +
                '建设银行补发数据.txt');
            end;
            AddLine;

            {            //建设银行（有组）
                        Close;
                        SQL.Clear;
                        SQL.Add('select a.dwjbr as 姓名, a.zh as 帐号,');
                        SQL.Add('       a.khmc as 开户行, a.dwdz as 汇入地点,');
                        SQL.Add('       d.ffje as 发放金额, d.dwdm as 单位代码,');
                        SQL.Add('       a.dwmc as 单位名称, d.dwid_ff as 组标识,');
                        SQL.Add('       d.zrs as 人数,to_char(d.ffyf,''yyyymm'') as 所属月份');
                        SQL.Add('from tff_dwxx a, tff_zfkxx d');
                        SQL.Add('where a.dwid_ff = d.dwid_ff and');
                        SQL.Add('      to_char(d.fkrq,''yyyy.mm'')=''' + edtYear2.Text + '.'
                          + fillword(edtMonth2.Text, 2) + ''' and');
                        SQL.Add('      d.ffjgid = ''1000000004'' and');
                        SQL.Add('      to_char(d.ffyf,''yyyy.mm'')=''' +
                          edtYear.Text + '.' + fillword(edtMonth.Text, 2) + ''' and');
                        SQL.Add('      a.ffjgid <> ''1000000006'' and a.ffjgid <> ''1000000007''');
                        SQL.Add('order by d.dwdm, d.dwid_ff');

                        mmoMain.Lines.Add(edtYear.Text + '年' +
                          fillWord(edtMonth.Text, 2) + '月' +
                          '建设银行（有组）补发数据正在生成...');
                        Open;
                        mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) +
                          '条记录');
                        if RecordCount <> 0 then
                        begin
                          ToCSV.Transfer(path + edtYear.Text + '年' +
                            fillWord(edtMonth.Text,
                            2) +
                            '月' + '建设银行（有组）补发数据.txt');
                          mmoMain.Lines.Add('已生成文件' + path + edtYear.Text + '年' +
                            fillWord(edtMonth.Text, 2) + '月' +
                            '建设银行（有组）补发数据.txt');
                        end;
                        AddLine;
            }
          end;

          if ChkJG_5.Checked then
          begin
            //邮政储蓄
            Close;
            SQL.Clear;
            SQL.Add('select a.xm as 姓名, a.sfzh as 身份证号,');
            SQL.Add('       a.zh as 账号, a.khh as 开户行,');
            //            SQL.Add('       a.hrdd as 汇入地点, a.ffje as 发放金额,');
            SQL.Add('       a.hrdd as 汇入地点, d.ffje as 发放金额, ');
            SQL.Add('       a.yzbm as 邮政编码, a.dz as 地址,');
            SQL.Add('       b.dm as 地区代码, b.mc as 地区名称,');
            SQL.Add('       c.dwdm as 单位代码, c.dwmc as 单位名称,');
            SQL.Add('       a.ryid_ff as 人员标识,to_char(d.ffyf,''yyyymm'') as 所属月份');
            SQL.Add('from tff_ryxx a, tff_rydqxx b, tff_dwxx c, tff_ryfkxx d');
            SQL.Add('where b.ryid_ff (+)= a.ryid_ff and');
            SQL.Add('      d.ffbz=1 and');
            SQL.Add('      a.dwid_ff = a.ssdwid and');
            SQL.Add('      a.ssdwid = c.dwid_ff and');
            SQL.Add('      d.ryid_ff = a.ryid_ff and');
            SQL.Add('      to_char(d.fkrq,''yyyy.mm'')=''' + edtYear2.Text + '.'
              + fillword(edtMonth2.Text, 2) + ''' and');
            SQL.Add('      to_char(d.ffyf,''yyyy.mm'')=''' +
              edtYear.Text + '.' + fillword(edtMonth.Text, 2) + ''' and');
            SQL.Add('      d.ffjgid = ''1000000006'' and');
            //补发数据必须不同于人员数据
            SQL.Add('      (d.xm<>a.xm or d.sfzh<>a.sfzh or d.khh<>a.khh   ');
            SQL.Add('      or d.zh<>a.zh or d.yzbm<>a.yzbm or d.dz<>a.dz) and ');
            //
            SQL.Add('      (a.ffjgid = ''1000000006'' or a.ffjgid = ''1000000007'')');
            SQL.Add('order by b.dm, a.ssdwid, a.ryid_ff');

            mmoMain.Lines.Add(edtYear.Text + '年' +
              fillWord(edtMonth.Text, 2) + '月' +
              '邮政储蓄补发数据正在生成...');
            Open;
            mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) +
              '条记录');
            if RecordCount <> 0 then
            begin
              ToCSV.Transfer(path + edtYear.Text + '年' +
                fillWord(edtMonth.Text,
                2) +
                '月' + '邮政储蓄补发数据.txt');
              mmoMain.Lines.Add('已生成文件' + path + edtYear.Text + '年' +
                fillWord(edtMonth.Text, 2) + '月' +
                '邮政储蓄补发数据.txt');
            end;
            AddLine;

            {            //邮政储蓄（有组）
                        Close;
                        SQL.Clear;

                        SQL.Add('select a.dwjbr as 姓名, a.zh as 帐号,');
                        SQL.Add('       a.khmc as 开户行, a.dwdz as 汇入地点,');
                        SQL.Add('       d.ffje as 发放金额, d.dwdm as 单位代码,');
                        SQL.Add('       a.yzbm as 邮政编码, a.dwdz as 地址,');
                        SQL.Add('       a.dwmc as 单位名称, d.dwid_ff as 组标识,');
                        SQL.Add('       d.zrs as 人数,to_char(d.ffyf,''yyyymm'') as 所属月份');
                        SQL.Add('from tff_dwxx a, tff_zfkxx d');
                        SQL.Add('where a.dwid_ff = d.dwid_ff and');
                        SQL.Add('      to_char(d.fkrq,''yyyy.mm'')=''' + edtYear2.Text + '.'
                          + fillword(edtMonth2.Text, 2) + ''' and');
                        SQL.Add('      d.ffjgid = ''1000000006'' and');
                        SQL.Add('      to_char(d.ffyf,''yyyy.mm'')=''' +
                          edtYear.Text + '.' + fillword(edtMonth.Text, 2) + ''' and');
                        SQL.Add('      (a.ffjgid <> ''1000000006'' or a.ffjgid <> ''1000000007'')');
                        SQL.Add('order by d.dwdm, d.dwid_ff');

                        mmoMain.Lines.Add(edtYear.Text + '年' +
                          fillWord(edtMonth.Text, 2) + '月' +
                          '邮政储蓄（有组）补发数据正在生成...');
                        Open;
                        mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) +
                          '条记录');
                        if RecordCount <> 0 then
                        begin
                          ToCSV.Transfer(path + edtYear.Text + '年' +
                            fillWord(edtMonth.Text,
                            2) +
                            '月' + '邮政储蓄（有组）补发数据.txt');
                          mmoMain.Lines.Add('已生成文件' + path + edtYear.Text + '年' +