udataout.~pas

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

            SQL.Add('      a.ssdwid = c.dwid_ff and');
            SQL.Add('      a.ryzt = 1 and');
            SQL.Add('      a.ffjgid = ''1000000001''');
            SQL.Add('ORDER BY b.dm, a.ssdwid, a.ryid_ff');

            mmoMain.Lines.Add('工商银行正在生成...');
            Open;
            mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) + '条记录');
            ToCSV.Transfer(path + '发放机构_工商银行.txt');
            mmoMain.Lines.Add('已生成文件' + path +
              '发放机构_工商银行.txt');
            AddLine;

            {            //有组
                        Close;
                        SQL.Clear;
                        SQL.Add('SELECT a.dwjbr as 姓名, a.zh as 帐号, ');
                        SQL.Add('       a.khmc as 开户行, a.dwdz as 汇入地点,');
                        SQL.Add('       c.je_gh as 发放金额, b.dwdm as 单位代码,');
                        SQL.Add('       b.dwmc as 单位名称, a.dwid_ff as 组标示, c.rs_gh as 人数,'''
                          + edtYear.Text
                          + FillWord(edtMonth.Text, 2)
                          + ''' AS 所属年月');
                        SQL.Add('FROM tff_dwxx a, tff_dwhzxx c, tff_dwxx b');
                        SQL.Add('WHERE a.dwid_ff <> a.ssdwid and');
                        SQL.Add('      a.ssdwid = b.dwid_ff and');
                        SQL.Add('      a.dwid_ff = c.dwid_ff and');
                        SQL.Add('      nvl(c.rs_gh,0) > 0 and ');
                        SQL.Add('      c.ffyf = to_Date(''' + edtYear.Text +
                          edtMonth.Text + ''',''yyyymm'')');
                        SQL.Add('ORDER BY b.dwdm, a.dwid_ff ');

                        mmoMain.Lines.Add('工商银行（有组）正在生成...');
                        Open;
                        mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) + '条记录');
                        ToCSV.Transfer(path + '发放机构_工商银行（有组）.txt');
                        mmoMain.Lines.Add('已生成文件' + path +
                          '发放机构_工商银行（有组）.txt');
                        AddLine;
            }
          end;

          if chkJG_2.Checked then
          begin
            Close;
            SQL.Clear;
            SQL.Add('SELECT a.xm as 姓名, a.sfzh as 身份证号,');
            SQL.Add('       a.zh as 帐号, a.khh as 开户行, a.hrdd as 汇入地点, a.ffje as 发放金额,');
            SQL.Add('       b.dm as 地区代码, b.mc as 地区名称, c.dwdm as 单位代码, c.dwmc as 单位名称,');
            SQL.Add('       a.ryid_ff as 人员标示,''' + edtYear.Text +
              FillWord(edtMonth.Text, 2)
              + '''  AS 所属年月');
            SQL.Add('FROM tff_ryxx a, tff_rydqxx b, tff_dwxx c');
            SQL.Add('WHERE b.ryid_ff (+)= a.ryid_ff and');
            SQL.Add('      a.dwid_ff = a.ssdwid and');
            SQL.Add('      a.ssdwid = c.dwid_ff and');
            SQL.Add('      a.ryzt = 1 and');
            SQL.Add('      a.ffjgid = ''1000000002''');
            SQL.Add('ORDER BY b.dm, a.ssdwid, a.ryid_ff');
            mmoMain.Lines.Add('农业银行正在生成...');
            Open;
            mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) + '条记录');
            ToCSV.Transfer(path + '发放机构_农业银行.txt');
            mmoMain.Lines.Add('已生成文件' + path +
              '发放机构_农业银行.txt');
            AddLine;

            {            //有组
                        Close;
                        SQL.Clear;
                        SQL.Add('SELECT a.dwjbr as 姓名, a.zh as 帐号, ');
                        SQL.Add('       a.khmc as 开户行, a.dwdz as 汇入地点,');
                        SQL.Add('       c.je_nh as 发放金额, b.dwdm as 单位代码,');
                        SQL.Add('       b.dwmc as 单位名称, a.dwid_ff as 组标示, c.rs_nh as 人数,'''
                          + edtYear.Text
                          + FillWord(edtMonth.Text, 2)
                          + ''' AS 所属年月');
                        SQL.Add('FROM tff_dwxx a, tff_dwhzxx c, tff_dwxx b');
                        SQL.Add('WHERE a.dwid_ff <> a.ssdwid and');
                        SQL.Add('      a.ssdwid = b.dwid_ff and');
                        SQL.Add('      a.dwid_ff = c.dwid_ff and');
                        SQL.Add('      nvl(c.rs_nh,0) > 0 and ');
                        SQL.Add('      c.ffyf = to_Date(''' + edtYear.Text +
                          edtMonth.Text + ''',''yyyymm'')');
                        SQL.Add('ORDER BY b.dwdm, a.dwid_ff ');

                        mmoMain.Lines.Add('农业银行（有组）正在生成...');
                        Open;
                        mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) + '条记录');
                        ToCSV.Transfer(path + '发放机构_农业银行（有组）.txt');
                        mmoMain.Lines.Add('已生成文件' + path +
                          '发放机构_农业银行（有组）.txt');
                        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 开户行, a.hrdd as 汇入地点, a.ffje as 发放金额,');
            SQL.Add('       b.dm as 地区代码, b.mc as 地区名称, c.dwdm as 单位代码, c.dwmc as 单位名称,');
            SQL.Add('       a.ryid_ff as 人员标示,''' + edtYear.Text +
              FillWord(edtMonth.Text, 2)
              + '''  AS 所属年月');
            SQL.Add('FROM tff_ryxx a, tff_rydqxx b, tff_dwxx c');
            SQL.Add('WHERE b.ryid_ff (+)= a.ryid_ff and');
            SQL.Add('      a.dwid_ff = a.ssdwid and');
            SQL.Add('      a.ssdwid = c.dwid_ff and');
            SQL.Add('      a.ryzt = 1 and');
            SQL.Add('      a.ffjgid = ''1000000003''');
            SQL.Add('ORDER BY b.dm, a.ssdwid, a.ryid_ff');
            mmoMain.Lines.Add('中国银行正在生成...');
            Open;
            mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) + '条记录');
            ToCSV.Transfer(path + '发放机构_中国银行.txt');
            mmoMain.Lines.Add('已生成文件' + path +
              '发放机构_中国银行.txt');
            AddLine;

            {            //有组
                        Close;
                        SQL.Clear;

                        SQL.Add('SELECT a.dwjbr as 姓名, a.zh as 帐号, ');
                        SQL.Add('       a.khmc as 开户行, a.dwdz as 汇入地点,');
                        SQL.Add('       c.je_zh as 发放金额, b.dwdm as 单位代码,');
                        SQL.Add('       b.dwmc as 单位名称, a.dwid_ff as 组标示, c.rs_zh as 人数,'''
                          + edtYear.Text
                          + FillWord(edtMonth.Text, 2)
                          + ''' AS 所属年月');
                        SQL.Add('FROM tff_dwxx a, tff_dwhzxx c, tff_dwxx b');
                        SQL.Add('WHERE a.dwid_ff <> a.ssdwid and');
                        SQL.Add('      a.ssdwid = b.dwid_ff and');
                        SQL.Add('      a.dwid_ff = c.dwid_ff and');
                        SQL.Add('      nvl(c.rs_zh,0) > 0 and ');
                        SQL.Add('      c.ffyf = to_Date(''' + edtYear.Text +
                          edtMonth.Text + ''',''yyyymm'')');
                        SQL.Add('ORDER BY b.dwdm, a.dwid_ff ');

                        mmoMain.Lines.Add('中国银行（有组）正在生成...');
                        Open;
                        mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) + '条记录');
                        ToCSV.Transfer(path + '发放机构_中国银行（有组）.txt');
                        mmoMain.Lines.Add('已生成文件' + path +
                          '发放机构_中国银行（有组）.txt');
                        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 开户行, a.hrdd as 汇入地点, a.ffje as 发放金额,');
            SQL.Add('       b.dm as 地区代码, b.mc as 地区名称, c.dwdm as 单位代码, c.dwmc as 单位名称,');
            SQL.Add('       a.ryid_ff as 人员标示,''' + edtYear.Text +
              FillWord(edtMonth.Text, 2)
              + '''  AS 所属年月');
            SQL.Add('FROM tff_ryxx a, tff_rydqxx b, tff_dwxx c');
            SQL.Add('WHERE b.ryid_ff (+)= a.ryid_ff and');
            SQL.Add('      a.dwid_ff = a.ssdwid and');
            SQL.Add('      a.ssdwid = c.dwid_ff and');
            SQL.Add('      a.ryzt = 1 and');
            SQL.Add('      a.ffjgid = ''1000000004''');
            SQL.Add('ORDER BY b.dm, a.ssdwid, a.ryid_ff');
            mmoMain.Lines.Add('建设银行正在生成...');
            Open;
            mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) + '条记录');
            ToCSV.Transfer(path + '发放机构_建设银行.txt');
            mmoMain.Lines.Add('已生成文件' + path +
              '发放机构_建设银行.txt');
            AddLine;

            {            //有组
                        Close;
                        SQL.Clear;
                        SQL.Add('SELECT a.dwjbr as 姓名, a.zh as 帐号, ');
                        SQL.Add('       a.khmc as 开户行, a.dwdz as 汇入地点,');
                        SQL.Add('       c.je_jh as 发放金额, b.dwdm as 单位代码,');
                        SQL.Add('       b.dwmc as 单位名称, a.dwid_ff as 组标示, c.rs_jh as 人数,'''
                          + edtYear.Text
                          + FillWord(edtMonth.Text, 2)
                          + ''' AS 所属年月');
                        SQL.Add('FROM tff_dwxx a, tff_dwhzxx c, tff_dwxx b');
                        SQL.Add('WHERE a.dwid_ff <> a.ssdwid and');
                        SQL.Add('      a.ssdwid = b.dwid_ff and');
                        SQL.Add('      a.dwid_ff = c.dwid_ff and');
                        SQL.Add('      nvl(c.rs_jh,0) > 0 and ');
                        SQL.Add('      c.ffyf = to_Date(''' + edtYear.Text +
                          edtMonth.Text + ''',''yyyymm'')');
                        SQL.Add('ORDER BY b.dwdm, a.dwid_ff ');

                        mmoMain.Lines.Add('建设银行（有组）正在生成...');
                        Open;
                        mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) + '条记录');
                        ToCSV.Transfer(path + '发放机构_建设银行（有组）.txt');
                        mmoMain.Lines.Add('已生成文件' + path +
                          '发放机构_建设银行（有组）.txt');
                        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 开户行, a.hrdd as 汇入地点, a.ffje as 发放金额,');
            SQL.Add('       b.dm as 地区代码, b.mc as 地区名称, c.dwdm as 单位代码, c.dwmc as 单位名称,');
            SQL.Add('       a.ryid_ff as 人员标示,''' + edtYear.Text +
              FillWord(edtMonth.Text, 2)
              + '''  AS 所属年月');
            SQL.Add('FROM tff_ryxx a, tff_rydqxx b, tff_dwxx c');
            SQL.Add('WHERE b.ryid_ff (+)= a.ryid_ff and');
            SQL.Add('      a.dwid_ff = a.ssdwid and');
            SQL.Add('      a.ssdwid = c.dwid_ff and');
            SQL.Add('      a.ryzt = 1 and');
            SQL.Add('      a.ffjgid = ''1000000006''');
            SQL.Add('ORDER BY b.dm, a.ssdwid, a.ryid_ff');

            mmoMain.Lines.Add('邮政储蓄正在生成...');
            Open;
            mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) + '条记录');
            ToCSV.Transfer(path + '发放机构_邮政储蓄.txt');
            mmoMain.Lines.Add('已生成文件' + path +
              '发放机构_邮政储蓄.txt');
            AddLine;

            {            //有组
                        Close;
                        SQL.Clear;

                        SQL.Add('SELECT a.dwjbr as 姓名, a.zh as 帐号, ');
                        SQL.Add('       a.khmc as 开户行, a.dwdz as 汇入地点,');
                        SQL.Add('       c.je_yz as 发放金额, b.dwdm as 单位代码,');
                        SQL.Add('       b.dwmc as 单位名称, a.dwid_ff as 组标示, c.rs_yz as 人数,'''
                          + edtYear.Text
                          + FillWord(edtMonth.Text, 2)
                          + ''' AS 所属年月');
                        SQL.Add('FROM tff_dwxx a, tff_dwhzxx c, tff_dwxx b');
                        SQL.Add('WHERE a.dwid_ff <> a.ssdwid and');
                        SQL.Add('      a.ssdwid = b.dwid_ff and');
                        SQL.Add('      a.dwid_ff = c.dwid_ff and');
                        SQL.Add('      nvl(c.rs_yz,0) > 0 and ');
                        SQL.Add('      c.ffyf = to_Date(''' + edtYear.Text +
                          edtMonth.Text + ''',''yyyymm'')');
                        SQL.Add('ORDER BY b.dwdm, a.dwid_ff ');

                        mmoMain.Lines.Add('邮政储蓄（有组）正在生成...');
                        Open;
                        mmoMain.Lines.Add('共生成数据' + IntToStr(RecordCount) + '条记录');
                        ToCSV.Transfer(path + '发放机构_邮政储蓄（有组）.txt');
                        mmoMain.Lines.Add('已生成文件' + path +
                          '发放机构_邮政储蓄（有组）.txt');
                        AddLine;
          }end;

          if chkJG_6.Checked then
          begin
            Close;
            SQL.Clear;
            SQL.Add('SELECT nvl(a.skr,a.xm) as 姓名, a.sfzh as 身份证号,');
            SQL.Add('       a.yzbm as 邮政编码, a.dz as 地址, a.ffje as 发放金额,');
            SQL.Add('       b.dm as 地区代码, b.mc as 地区名称, c.dwdm as 单位代码, c.dwmc as 单位名称,');
            SQL.Add('       a.ryid_ff as 人员标示,''' + edtYear.Text +
              FillWord(edtMonth.Text, 2)
              + '''  AS 所属年月');
            SQL.Add('FROM tff_ryxx a, tff_rydqxx b, tff_dwxx c');