udataout.~pas

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

              ').....' +
              IntToStr(i) +
              '/' +
              IntToStr(RecordCount));

            begin
              if chkJG_1.Checked then
              begin //工商银行
                mmoMain.Lines.Add(FieldByName('DWMC').AsString +
                  ' 工商银行发放数据生成...');
                qryMain.Close;
                qryMain.SQL.Clear;
                qryMain.SQL.Add('SELECT');
                qryMain.SQL.Add('     ryxx.xm 姓名, ryxx.sfzh 身份证, ryxx.zh 帐号, ');
                qryMain.SQL.Add('     ryxx.khh 开户行, ryxx.hrdd 汇入地点, ');
                qryMain.SQL.Add('     ryxx.ffje 金额, dqxx.dm 行政区划编码, ');
                qryMain.SQL.Add('     dqxx.mc 地区名称, ryxx.ryid_ff 人员标识,');
                qryMain.SQL.Add('     dwxx.dwmc 单位名称');
                qryMain.SQL.Add(' FROM');
                qryMain.SQL.Add('     tff_ryxx ryxx, tff_rydqxx dqxx,tff_dwxx dwxx');
                qryMain.SQL.Add('WHERE');
                qryMain.SQL.Add('     ryxx.ryid_ff = dqxx.ryid_ff and ryxx.ffjgid = '''
                  + '1000000001' + '''');
                qryMain.SQL.Add(' and ryxx.ssdwid=dwxx.dwid_ff ');
                qryMain.SQL.Add('');
                //如果输入了单位代码
                qryMain.SQL.Add(' and dwxx.ssdwid=''' +
                  FieldByName('DWID_FF').AsString + '''');
                qryMain.SQL.Add(' ORDER BY ryxx.dwid_ff, ryxx.ryid_ff');
                qryMain.Open;
                mmoMain.Lines.Add('共生成数据' + IntToStr(qryMain.RecordCount) +
                  '条记录');
                if qryMain.RecordCount <> 0 then
                begin
                  ToCSV.Transfer(Path + FieldByName('dwmc').AsString +
                    '_工商银行.txt');
                  mmoMain.Lines.Add('已生成文件' + Path +
                    FieldByName('dwmc').AsString +
                    '_工商银行.txt');
                end;
                AddLine;
              end;
              if chkJG_2.Checked then //农业银行
              begin
                mmoMain.Lines.Add(FieldByName('dwmc').AsString +
                  ' 农业银行发放数据生成...');
                qryMain.Close;
                qryMain.SQL.Clear;
                qryMain.SQL.Add('SELECT');
                qryMain.SQL.Add('     ryxx.xm 姓名, ryxx.sfzh 身份证, ryxx.zh 帐号, ');
                qryMain.SQL.Add('     ryxx.khh 开户行, ryxx.hrdd 汇入地点, ');
                qryMain.SQL.Add('     ryxx.ffje 金额, dqxx.dm 行政区划编码, ');
                qryMain.SQL.Add('     dqxx.mc 地区名称, ryxx.ryid_ff 人员标识,');
                qryMain.SQL.Add('     dwxx.dwmc 单位名称');
                qryMain.SQL.Add(' FROM');
                qryMain.SQL.Add('     tff_ryxx ryxx, tff_rydqxx dqxx,tff_dwxx dwxx');
                qryMain.SQL.Add('WHERE');
                qryMain.SQL.Add('     ryxx.ryid_ff = dqxx.ryid_ff and ryxx.ffjgid = '''
                  + '1000000002' + '''');
                qryMain.SQL.Add(' and ryxx.ssdwid=dwxx.dwid_ff ');
                //如果输入了单位代码
                qryMain.SQL.Add(' and dwxx.ssdwid=''' +
                  FieldByName('DWID_FF').AsString + '''');
                qryMain.SQL.Add(' ORDER BY ryxx.dwid_ff, ryxx.ryid_ff');
                qryMain.Open;
                mmoMain.Lines.Add('共生成数据' + IntToStr(qryMain.RecordCount) +
                  '条记录');
                if qryMain.RecordCount <> 0 then
                begin
                  ToCSV.Transfer(path + FieldByName('DWMC').AsString +
                    '_农业银行.txt');
                  mmoMain.Lines.Add('已生成文件' + path +
                    FieldByName('DWMC').AsString +
                    '_农业银行.txt');
                end;
                AddLine;
              end;
              if chkJG_3.Checked then //中国银行
              begin
                mmoMain.Lines.Add(FieldByName('DWMC').AsString +
                  ' 中国银行发放数据生成...');
                qryMain.Close;
                qryMain.SQL.Clear;
                qryMain.SQL.Add('SELECT');
                qryMain.SQL.Add('     ryxx.xm 姓名, ryxx.sfzh 身份证, ryxx.zh 帐号, ');
                qryMain.SQL.Add('     ryxx.khh 开户行, ryxx.hrdd 汇入地点, ');
                qryMain.SQL.Add('     ryxx.ffje 金额, dqxx.dm 行政区划编码, ');
                qryMain.SQL.Add('     dqxx.mc 地区名称, ryxx.ryid_ff 人员标识,');
                qryMain.SQL.Add('     dwxx.dwmc 单位名称');
                qryMain.SQL.Add(' FROM');
                qryMain.SQL.Add('     tff_ryxx ryxx, tff_rydqxx dqxx,tff_dwxx dwxx');
                qryMain.SQL.Add('WHERE');
                qryMain.SQL.Add('     ryxx.ryid_ff = dqxx.ryid_ff and ryxx.ffjgid = '''
                  + '1000000003' + '''');
                qryMain.SQL.Add(' and ryxx.ssdwid=dwxx.dwid_ff ');
                qryMain.SQL.Add(' and dwxx.ssdwid=''' +
                  FieldByName('DWID_FF').AsString + '''');
                qryMain.SQL.Add(' ORDER BY ryxx.dwid_ff, ryxx.ryid_ff');
                qryMain.Open;
                mmoMain.Lines.Add('共生成数据' + IntToStr(qryMain.RecordCount) +
                  '条记录');
                if qryMain.RecordCount <> 0 then
                begin
                  ToCSV.Transfer(path + FieldByName('DWMC').AsString +
                    '_中国银行.txt');
                  mmoMain.Lines.Add('已生成文件' + path +
                    FieldByName('DWMC').AsString +
                    '_中国银行.txt');
                end;
                AddLine;
              end;
              if chkJG_4.Checked then //建设银行
              begin
                mmoMain.Lines.Add(FieldByName('DWMC').AsString +
                  ' 建设银行发放数据生成...');
                qryMain.Close;
                qryMain.SQL.Clear;
                qryMain.SQL.Add('SELECT');
                qryMain.SQL.Add('     ryxx.xm 姓名, ryxx.sfzh 身份证, ryxx.zh 帐号, ');
                qryMain.SQL.Add('     ryxx.khh 开户行, ryxx.hrdd 汇入地点, ');
                qryMain.SQL.Add('     ryxx.ffje 金额, dqxx.dm 行政区划编码, ');
                qryMain.SQL.Add('     dqxx.mc 地区名称, ryxx.ryid_ff 人员标识,');
                qryMain.SQL.Add('     dwxx.dwmc 单位名称');
                qryMain.SQL.Add(' FROM');
                qryMain.SQL.Add('     tff_ryxx ryxx, tff_rydqxx dqxx,tff_dwxx dwxx');
                qryMain.SQL.Add('WHERE');
                qryMain.SQL.Add('     ryxx.ryid_ff = dqxx.ryid_ff and ryxx.ffjgid = '''
                  + '1000000004' + '''');
                qryMain.SQL.Add(' and ryxx.ssdwid=dwxx.dwid_ff ');
                qryMain.SQL.Add(' and dwxx.ssdwid=''' +
                  FieldByName('DWID_FF').AsString + '''');
                qryMain.SQL.Add(' ORDER BY ryxx.dwid_ff, ryxx.ryid_ff');
                qryMain.Open;
                mmoMain.Lines.Add('共生成数据' + IntToStr(qryMain.RecordCount) +
                  '条记录');
                if qryMain.RecordCount <> 0 then
                begin
                  ToCSV.Transfer(path + FieldByName('DWMC').AsString +
                    '_建设银行.txt');
                  mmoMain.Lines.Add('已生成文件' + path +
                    FieldByName('DWMC').AsString +
                    '_建设银行.txt');
                end;
                AddLine;
              end;
              if chkJG_5.Checked then //邮政储蓄
              begin
                mmoMain.Lines.Add(FieldByName('DWMC').AsString +
                  ' 邮政储蓄发放数据生成...');
                qryMain.Close;
                qryMain.SQL.Clear;
                qryMain.SQL.Add('SELECT   ');
                qryMain.SQL.Add(' ryxx.xm 姓名, ryxx.sfzh 身份证, ryxx.zh 帐号, ryxx.khh 开户行, ');
                qryMain.SQL.Add(' ryxx.hrdd 汇入地点,  ryxx.ffje 金额, ryxx.ryid_ff 人员标识,');
                qryMain.SQL.Add(' dwxx.dwmc 单位名称');
                qryMain.SQL.Add('FROM     tff_ryxx ryxx,tff_dwxx dwxx');
                qryMain.SQL.Add('WHERE    dwxx.dwid_ff = ryxx.ssdwid and ryxx.ffjgid = ''1000000006''');
                qryMain.SQL.Add(' and ryxx.ssdwid=dwxx.ssdwid ');
                qryMain.SQL.Add(' and dwxx.ssdwid=''' +
                  FieldByName('DWID_FF').AsString + '''');
                qryMain.SQL.Add('ORDER BY ryxx.dwid_ff, ryxx.ryid_ff');
                qryMain.Open;
                mmoMain.Lines.Add('共生成数据' + IntToStr(qryMain.RecordCount) +
                  '条记录');
                if qryMain.RecordCount <> 0 then
                begin
                  ToCSV.Transfer(path + FieldByName('DWMC').AsString +
                    '_邮政储蓄.txt');
                  mmoMain.Lines.Add('已生成文件' + path +
                    FieldByName('DWMC').AsString +
                    '_邮政储蓄.txt');
                end;
                AddLine;
              end;
              if chkJG_6.Checked then //邮政汇款
              begin
                mmoMain.Lines.Add(FieldByName('DWMC').AsString +
                  ' 邮政汇款发放数据生成...');
                qryMain.Close;
                qryMain.SQL.Clear;
                qryMain.SQL.Add('select ryxx.xm 姓名, ryxx.sfzh 身份证,ryxx.yzbm 邮政编码,');
                qryMain.SQL.Add('ryxx.dz 地址,ryxx.ffje 金额, ryxx.ryid_ff 人员标识,');
                qryMain.SQL.Add('dwxx.dwmc 单位名称');
                qryMain.SQL.Add('from tff_ryxx ryxx,tff_dwxx dwxx');
                qryMain.SQL.Add('where dwxx.dwid_ff = ryxx.ssdwid and ryxx.ffjgid=''1000000007''');
                qryMain.SQL.Add(' and ryxx.ssdwid=dwxx.ssdwid ');
                qryMain.SQL.Add(' and dwxx.ssdwid=''' +
                  FieldByName('DWID_FF').AsString + '''');
                qryMain.SQL.Add('order by ryxx.dwid_ff,ryxx.ryid_ff');
                qryMain.Open;
                mmoMain.Lines.Add('共生成数据' + IntToStr(qryMain.RecordCount) +
                  '条记录');
                if qryMain.RecordCount <> 0 then
                begin
                  ToCSV.Transfer(path + FieldByName('DWMC').AsString +
                    '_邮政汇款.txt');
                  mmoMain.Lines.Add('已生成文件' + path +
                    FieldByName('DWMC').AsString +
                    '_邮政汇款.txt');
                end;
                AddLine;
              end;
              if chkJG_7.Checked then //其他
              begin
                mmoMain.Lines.Add(FieldByName('DWMC').AsString +
                  ' 其他机构发放数据生成...');
                qryMain.Close;
                qryMain.SQL.Clear;
                qryMain.SQL.Add('SELECT');
                qryMain.SQL.Add('     ryxx.xm 姓名, ryxx.sfzh 身份证, ryxx.zh 帐号, ');
                qryMain.SQL.Add('     ryxx.khh 开户行, ryxx.hrdd 汇入地点, ');
                qryMain.SQL.Add('     ryxx.ffje 金额, dqxx.dm 行政区划编码, ');
                qryMain.SQL.Add('     dqxx.mc 地区名称, ryxx.ryid_ff 人员标识,');
                qryMain.SQL.Add('     dwxx.dwmc 单位名称');
                qryMain.SQL.Add(' FROM');
                qryMain.SQL.Add('     tff_ryxx ryxx, tff_rydqxx dqxx,tff_dwxx dwxx');
                qryMain.SQL.Add('WHERE');
                qryMain.SQL.Add('     dwxx.dwid_ff = ryxx.ssdwid and ryxx.ryid_ff = dqxx.ryid_ff and (ryxx.ffjgid = '''
                  +
                  '1000000005' + ''' or ryxx.ffjgid = ''' + '1000000009' +
                  ''')');
                qryMain.SQL.Add(' and ryxx.ssdwid=dwxx.ssdwid ');
                qryMain.SQL.Add(' and dwxx.ssdwid=''' +
                  FieldByName('DWID_FF').AsString + '''');
                qryMain.SQL.Add(' ORDER BY ryxx.dwid_ff, ryxx.ryid_ff');
                qryMain.Open;
                mmoMain.Lines.Add('共生成数据' + IntToStr(qryMain.RecordCount) +
                  '条记录');
                if qryMain.RecordCount <> 0 then
                begin
                  ToCSV.Transfer(path + FieldByName('DWMC').AsString +
                    '_其他机构.txt');
                  mmoMain.Lines.Add('已生成文件' + path +
                    FieldByName('DWMC').AsString +
                    '_其他机构.txt');
                end; AddLine;
              end;
            end;


            Next;
            i := i + 1;
          end;
        finally
          Free;
        end;


        mmoMain.Lines.Add('单位汇总表已经生成。');
      end;
    1: //发放名册
      begin
        mmoMain.Lines.Add('发放机构数据正在生成...');
        mmoMain.Lines.Add('');
        with qryMain do
        begin
          if chkJG_1.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');