jgyhsearch.pas

ProviceSystem-公积金监管系统中心端

    end;
  end;
  j:=0;
  for i:=0 to ClbZh.Count-1 do
  begin
    if ClbZh.Checked[i] then
    begin
      inc(j);
      setlength(JGYhYe.aZh,j);
      setlength(JGYhYe.aAccount,j);
      npos := pos('..',ClbZh.Items.Strings[i])-1;
      JGYhYe.aZh[j-1]:= trim(copy(ClbZh.Items.Strings[i],npos+3,60));
      JGYhYe.aAccount[j-1] := trim(copy(ClbZh.Items.Strings[i],1,npos));
    end;
  end;
  j:=0;
  for i:=0 to ClbGjd.Count-1 do
  begin
    if ClbGjd.Checked[i] then
    begin
      inc(j);
      setlength(JGYhYe.aGjd,j);
      setlength(JGYhYe.aSumUp,j);
      npos := pos('..',ClbGjd.Items.Strings[i])-1;
      JGYhYe.aGjd[j-1]:= trim(copy(ClbGjd.Items.Strings[i],nPos+3,60));
      JGYhYe.aSumUp[j-1] := trim(copy(ClbGjd.Items.Strings[i],1,npos));
    end;
  end;
  j:=0;
  for i:=0 to ClbCbwd.Count-1 do
  begin
    if ClbCbwd.Checked[i] then
    begin
      inc(j);
      setlength(JGYhYe.aCbwd,j);
      setlength(JGYhYe.aBankOffice,j);
      npos := pos('..',ClbCbwd.Items.Strings[i])-1;
      JGYhYe.aCbwd[j-1]:= trim(copy(ClbCbwd.Items.Strings[i],nPos+3,60));
      JGYhYe.aBankOffice[j-1] := trim(copy(ClbCbwd.Items.Strings[i],1,npos));
    end;
  end;
  j:=0;
  for i:=0 to ClbYhZh.Count-1 do
  begin
    if ClbYhZh.Checked[i] then
    begin
      inc(j);
      setlength(JGYhYe.aYhZh,j);
      setlength(JGYhYe.aSubBank,j);
      npos := pos('..',ClbYhZh.Items.Strings[i])-1;
      JGYhYe.aYhZh[j-1]:= trim(copy(ClbYhZh.Items.Strings[i],nPos+3,60));
      JGYhYe.aSubBank[j-1] := trim(copy(ClbYhZh.Items.Strings[i],1,npos));
    end;
  end;

  with JGYhYe do
  begin
    case CboFs.ItemIndex of
      0: begin
           if high(aDs)<0 then
           begin
             Free;
             application.MessageBox('请先选择地市信息！',PMsgCaption,48);
             CLbDs.SetFocus;
             exit;
           end;
           BankSearch0(sComDataBase,aCity,aYd,aData);
//           BankSearch0(aDs,aYd,aData);
//           SetLength(aData,(high(aDs)+1)*(high(aYd)+1));
//           Dm.P_YhSearch0(aDs,aYd,aData);
           if (high(aDs)+1)*(high(aYd)+1)>=1 then
             SgYe.RowCount := (high(aDs)+1)*(high(aYd)+1)+1;
           SgYe.Cells[0,0] := '月份';
           SgYe.Cells[1,0] := '地市';
           SgYe.Cells[2,0] := '余额';
           for i:=0 to high(aYd) do
             for j:=0 to high(aDs) do
             begin
               l:=i*(high(aDs)+1)+j;
               SgYe.Cells[0,l+1] := aYd[i];
               SgYe.Cells[1,l+1] := aDs[j];
               SgYe.Cells[2,l+1] := FToS(aData[l],16,2);
             end;
           StatusBar1.Panels[0].Text := '所选地市各月份的余额表';
         end;
      1: begin
           if high(aDs)<0 then
           begin
             Free;
             application.MessageBox('请先选择地市信息！',pMsgCaption,48);
             CLbDs.SetFocus;
             exit;
           end;
           if high(aYh)<0 then
           begin
             Free;
             application.MessageBox('请先选择银行信息！',pMsgCaption,48);
             CLbYh.SetFocus;
             exit;
           end;
//           SetLength(aData,(high(aDs)+1)*(high(aYd)+1));
//           Dm.P_YhSearch1(aDs,aYd,copy(aYh[0],1,2),aData);
//           BankSearch1(aDs,aYd,aYh[0],aData);
           BankSearch1(sComDataBase,aCity,aYd,aBank[0],aData);
           if (high(aDs)+1)*(high(aYd)+1)>=1 then
             SgYe.RowCount := (high(aDs)+1)*(high(aYd)+1)+1;
           SgYe.Cells[0,0] := '月份';
           SgYe.Cells[1,0] := '地市';
           SgYe.Cells[2,0] := '余额';
           for i:=0 to high(aYd) do
             for j:=0 to high(aDs) do
             begin
               l:=i*(high(aDs)+1)+j;
               SgYe.Cells[0,l+1] := aYd[i];
               SgYe.Cells[1,l+1] := aDs[j];
               SgYe.Cells[2,l+1] := FToS(aData[l],16,2);
             end;
           StatusBar1.Panels[0].Text := '所选地市中'+trim(copy(aYh[0],5,30))+'的各月份的余额表';
         end;
      2: begin
           if high(aDs)<0 then
           begin
             Free;
             application.MessageBox('请先选择地市信息！',pMsgCaption,48);
             CLbDs.SetFocus;
             exit;
           end;
           if high(aYh)<0 then
           begin
             Free;
             application.MessageBox('请先选择银行信息！',pMsgCaption,48);
             CLbYh.SetFocus;
             exit;
           end;
           BankSearch2(sComDataBase,aCity,aBank,aYd[0],aData);
//           BankSearch2(aDs,aYh,aYd[0],aData);
//           SetLength(aData,(high(aDs)+1)*(high(aYh)+1));
//           Dm.P_YhSearch2(aDs,aYh,aYd[0],aData);
           if (high(aDs)+1)*(high(aYh)+1)>=1 then
             SgYe.RowCount := (high(aDs)+1)*(high(aYh)+1)+1;
           SgYe.Cells[0,0] := '银行';
           SgYe.Cells[1,0] := '地市';
           SgYe.Cells[2,0] := '余额';
           for i:=0 to high(aYh) do
             for j:=0 to high(aDs) do
             begin
               l:=i*(high(aDs)+1)+j;
               JGYhYe.SgYe.Cells[0,l+1] := aYh[i];
               JGYhYe.SgYe.Cells[1,l+1] := aDs[j];
               JGYhYe.SgYe.Cells[2,l+1] := FToS(aData[l],16,2);
             end;
           StatusBar1.Panels[0].Text := '所选地市中所选银行'+aYd[0]+'月份的余额表';
         end;
      3: begin
           if high(aDs)<0 then
           begin
             Free;
             application.MessageBox('请先选择地市信息！',pMsgCaption,48);
             CLbDs.SetFocus;
             exit;
           end;
           if high(aZh)<0 then
           begin
             Free;
             application.MessageBox('请先选择帐户信息！',pMsgCaption,48);
             CLbZh.SetFocus;
             exit;
           end;
           BankSearch3(sComDataBase,aCity,aAccount,aYd[0],aData);
//           BankSearch3(aDs,aZh,aYd[0],aData);
//           SetLength(aData,(high(aDs)+1)*(high(aZh)+1));
//           Dm.P_YhSearch3(aDs,aZh,aYd[0],aData);
           if (high(aDs)+1)*(high(aZh)+1)>=1 then
             SgYe.RowCount := (high(aDs)+1)*(high(aZh)+1)+1;
           SgYe.Cells[0,0] := '帐户';
           SgYe.Cells[1,0] := '地市';
           SgYe.Cells[2,0] := '余额';
           for i:=0 to high(aZh) do
             for j:=0 to high(aDs) do
             begin
               l:=i*(high(aDs)+1)+j;
               JGYhYe.SgYe.Cells[0,l+1] := aZh[i];
               JGYhYe.SgYe.Cells[1,l+1] := aDs[j];
               JGYhYe.SgYe.Cells[2,l+1] := FToS(aData[l],16,2);
             end;
           StatusBar1.Panels[0].Text := '所选地市各帐户的'+aYd[0]+'月份的余额表';
         end;
      4: begin
           if high(aDs)<0 then
           begin
             Free;
             application.MessageBox('请先选择地市信息！',pMsgCaption,48);
             CLbDs.SetFocus;
             exit;
           end;
           if high(aZh)<0 then
           begin
             Free;
             application.MessageBox('请先选择帐户信息！',pMsgCaption,48);
             CLbZh.SetFocus;
             exit;
           end;
           BankSearch4(sComDataBase,aCity,aYd,aAccount[0],aData);
//           BankSearch4(aDs,aYd,aZh[0],aData);
//           SetLength(aData,(high(aDs)+1)*(high(aYd)+1));
//           Dm.P_YhSearch4(aDs,aYd,aZh[0],aData);
           if (high(aDs)+1)*(high(aYd)+1)>=1 then
             SgYe.RowCount := (high(aDs)+1)*(high(aYd)+1)+1;
           SgYe.Cells[0,0] := '月份';
           SgYe.Cells[1,0] := '地市';
           SgYe.Cells[2,0] := '余额';
           for i:=0 to high(aYd) do
             for j:=0 to high(aDs) do
             begin
               l:=i*(high(aDs)+1)+j;
               SgYe.Cells[0,l+1] := aYd[i];
               SgYe.Cells[1,l+1] := aDs[j];
               SgYe.Cells[2,l+1] := FToS(aData[l],16,2);
             end;
           StatusBar1.Panels[0].Text := '所选地市中'+trim(copy(aZh[0],5,30))+'的各月份的余额表';
         end;
      5: begin
           if high(aDs)<0 then
           begin
             Free;
             application.MessageBox('请先选择地市信息！',pMsgCaption,48);
             CLbDs.SetFocus;
             exit;
           end;
           if high(aGjd)<0 then
           begin
             Free;
             application.MessageBox('请先选择归集点信息！',pMsgCaption,48);
             CLbGjd.SetFocus;
             exit;
           end;
           BankSearch5(sComDataBase,aCity[0],aSumUp,aYd,aData);
//           BankSearch5(aDs[0],aGjd,aYd,aData);
//           SetLength(aData,(high(aGjd)+1)*(high(aYd)+1));
//           Dm.P_YhSearch5(copy(aDs[0],1,4),aGjd,aYd,aData);
           if (high(aGjd)+1)*(high(aYd)+1)>=1 then
             SgYe.RowCount := (high(aGjd)+1)*(high(aYd)+1)+1;
           SgYe.Cells[0,0] := '月份';
           SgYe.Cells[1,0] := '归集点';
           SgYe.Cells[2,0] := '余额';
           for i:=0 to high(aYd) do
             for j:=0 to high(aGjd) do
             begin
               l:=i*(high(aGjd)+1)+j;
               SgYe.Cells[0,l+1] := aYd[i];
               SgYe.Cells[1,l+1] := aGjd[j];
               SgYe.Cells[2,l+1] := FToS(aData[l],16,2);
             end;
           StatusBar1.Panels[0].Text := trim(copy(aDs[0],7,30))+'各归集点的各月份的余额表';
         end;
      6: begin
           if high(aDs)<0 then
           begin
             Free;
             application.MessageBox('请先选择地市信息！',pMsgCaption,48);
             CLbDs.SetFocus;
             exit;
           end;
           if high(aYh)<0 then
           begin
             Free;
             application.MessageBox('请先选择银行信息！',pMsgCaption,48);
             CLbYh.SetFocus;
             exit;
           end;
           BankSearch6(sComDataBase,aCity[0],aBank,aYd,aData);
//           BankSearch6(aDs[0],aYh,aYd,aData);
//           SetLength(aData,(high(aYh)+1)*(high(aYd)+1));
//           Dm.P_YhSearch6(copy(aDs[0],1,4),aYh,aYd,aData);
           if (high(aYh)+1)*(high(aYd)+1)>=1 then
             SgYe.RowCount := (high(aYh)+1)*(high(aYd)+1)+1;
           SgYe.Cells[0,0] := '月份';
           SgYe.Cells[1,0] := '银行';
           SgYe.Cells[2,0] := '余额';
           for i:=0 to high(aYd) do
             for j:=0 to high(aYh) do
             begin
               l:=i*(high(aYh)+1)+j;
               SgYe.Cells[0,l+1] := aYd[i];
               SgYe.Cells[1,l+1] := aYh[j];
               SgYe.Cells[2,l+1] := FToS(aData[l],16,2);
             end;
           StatusBar1.Panels[0].Text := trim(copy(aDs[0],7,30))+'各银行的各月份的余额表';
         end;
      7: begin
           if high(aDs)<0 then
           begin
             Free;
             application.MessageBox('请先选择地市信息！',pMsgCaption,48);
             CLbDs.SetFocus;
             exit;
           end;
           if high(aZh)<0 then
           begin
             Free;
             application.MessageBox('请先选择帐户信息！',pMsgCaption,48);
             CLbZh.SetFocus;
             exit;
           end;
           BankSearch7(sComDataBase,aCity[0],aAccount,aYd,aData);
//           BankSearch7(aDs[0],aZh,aYd,aData);
//           SetLength(aData,(high(aZh)+1)*(high(aYd)+1));
//           Dm.P_YhSearch7(copy(aDs[0],1,4),aZh,aYd,aData);
           if (high(aZh)+1)*(high(aYd)+1)>=1 then
             SgYe.RowCount := (high(aZh)+1)*(high(aYd)+1)+1;
           SgYe.Cells[0,0] := '月份';
           SgYe.Cells[1,0] := '帐户';
           SgYe.Cells[2,0] := '余额';
           for i:=0 to high(aYd) do
             for j:=0 to high(aZh) do
             begin
               l:=i*(high(aZh)+1)+j;
               SgYe.Cells[0,l+1] := aYd[i];
               SgYe.Cells[1,l+1] := aZh[j];
               SgYe.Cells[2,l+1] := FToS(aData[l],16,2);
             end;
           StatusBar1.Panels[0].Text := trim(copy(aDs[0],7,30))+'各帐户的各月份的余额表';
         end;
      8: begin
           if high(aDs)<0 then
           begin
             Free;
             application.MessageBox('请先选择地市信息！',pMsgCaption,48);
             CLbDs.SetFocus;
             exit;
           end;
           if high(aYh)<0 then
           begin
             Free;
             application.MessageBox('请先选择银行信息！',pMsgCaption,48);
             CLbYh.SetFocus;
             exit;
           end;
           if high(aYhZh)<0 then
           begin
             Free;
             application.MessageBox('请先选择银行支行信息！',pMsgCaption,48);
             CLbYhZh.SetFocus;
             exit;
           end;
           BankSearch8(sComDataBase,aCity[0],aBank[0],aSubBank,aYd,aData);
//           BankSearch8(aDs[0],aYh[0],aYhZh,aYd,aData);
//           SetLength(aData,(high(aYhZh)+1)*(high(aYd)+1));
//           Dm.P_YhSearch8(copy(aDs[0],1,4),copy(aYh[0],1,2),aYhZh,aYd,aData);
           if (high(aYhZh)+1)*(high(aYd)+1)>=1 then
             SgYe.RowCount := (high(aYhZh)+1)*(high(aYd)+1)+1;
           SgYe.Cells[0,0] := '月份';
           SgYe.Cells[1,0] := '银行支行';
           SgYe.Cells[2,0] := '余额';
           for i:=0 to high(aYd) do
             for j:=0 to high(aYhZh) do
             begin
               l:=i*(high(aYhZh)+1)+j;
               SgYe.Cells[0,l+1] := aYd[i];
               SgYe.Cells[1,l+1] := aYhZh[j];
               SgYe.Cells[2,l+1] := FToS(aData[l],16,2);
             end;
           StatusBar1.Panels[0].Text := trim(copy(aDs[0],7,30))+'的'+trim(copy(aYh[0],5,30))+'的各支行的各月份的余额表';
         end;
      9: begin
           if high(aDs)<0 then
           begin
             Free;
             application.MessageBox('请先选择地市信息！',pMsgCaption,48);
             CLbDs.SetFocus;
             exit;
           end;
           if high(aYh)<0 then
           begin
             Free;
             application.MessageBox('请先选择银行信息！',pMsgCaption,48);
             CLbYh.SetFocus;
             exit;
           end;
           if high(aCbwd)<0 then
           begin
             Free;
             application.MessageBox('请先选择分理处信息！',pMsgCaption,48);
             CLbCbwd.SetFocus;
             exit;
           end;
           BankSearch9(sComDataBase,aCity[0],aBank[0],aBankOffice,aYd,aData);
//           BankSearch9(aDs[0],aYh[0],aCbwd,aYd,aData);
//           SetLength(aData,(high(aCbwd)+1)*(high(aYd)+1));
//           Dm.P_YhSearch9(copy(aDs[0],1,4),copy(aYh[0],1,2),aCbwd,aYd,aData);
           if (high(aCbwd)+1)*(high(aYd)+1)>=1 then
             SgYe.RowCount := (high(aCbwd)+1)*(high(aYd)+1)+1;
           SgYe.Cells[0,0] := '月份';
           SgYe.Cells[1,0] := '银行分理处';
           SgYe.Cells[2,0] := '余额';
           for i:=0 to high(aYd) do
             for j:=0 to high(aCbwd) do
             begin
               l:=i*(high(aCbwd)+1)+j;
               SgYe.Cells[0,l+1] := aYd[i];
               SgYe.Cells[1,l+1] := aCbwd[j];
               SgYe.Cells[2,l+1] := FToS(aData[l],16,2);
             end;
           StatusBar1.Panels[0].Text := trim(copy(aDs[0],7,30))+'的'+trim(copy(aYh[0],5,30))+'的各承办网点的各月份的余额表';
         end;
      10: begin
            if high(aYh)<0 then
            begin
              Free;
              application.MessageBox('请先选择银行信息！',pMsgCaption,48);
              CLbYh.SetFocus;
              exit;
            end;
            BankSearch10(sComDataBase,aBank,aYd,aData);
//            BankSearch10(aYh,aYd,aData);
//            SetLength(aData,(high(aYh)+1)*(high(aYd)+1));
//            Dm.P_YhSearch10(aYh,aYd,aData);
            if (high(aYh)+1)*(high(aYd)+1)>=1 then
              SgYe.RowCount := (high(aYh)+1)*(high(aYd)+1)+1;
            SgYe.Cells[0,0] := '月份';
            SgYe.Cells[1,0] := '银行';
            SgYe.Cells[2,0] := '余额';
            for i:=0 to high(aYd) do
              for j:=0 to high(aYh) do
              begin
                l:=i*(high(aYh)+1)+j;
                SgYe.Cells[0,l+1] := aYd[i];
                SgYe.Cells[1,l+1] := aYh[j];
                SgYe.Cells[2,l+1] := FToS(aData[l],16,2);
              end;
            StatusBar1.Panels[0].Text := '所选银行的各月份的余额表';
          end;
    end;
  end;
  hide;
  JGYhYe.ShowModal;
  JgYhYe.Free;
  show;
end;

end.