ujgyhxxsz.pas

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

             break;
           end;
         end;
         for i:=0 to ComboBox12.Items.Count -1 do
         begin
           l := Pos(' ', ComboBox12.Items.Strings[i])-1;
           if sBank = trim(copy(ComboBox12.Items.Strings[i],1,l)) then
           begin
             ComboBox12.ItemIndex := i;
             break;
           end;
         end;
         Edit11.Text := sSubBankNum;
         Edit12.Text := sSubBank;
         DBGrid1.Enabled := False;
       end;
    1: begin
         edit22.Enabled:=true;
         BankOfficeRec(sCity,sBank,sSubBankNum,sBankOfficeNum,sBankOffice);
         for i:=0 to ComboBox21.Items.Count -1 do
         begin
           l := Pos(' ', ComboBox21.Items.Strings[i])-1;
           if sCity = trim(copy(ComboBox21.Items.Strings[i],1,l)) then
           begin
             ComboBox21.ItemIndex := i;
             break;
           end;
         end;
         for i:=0 to ComboBox22.Items.Count -1 do
         begin
           l := Pos(' ', ComboBox22.Items.Strings[i])-1;
           if sBank = trim(copy(ComboBox22.Items.Strings[i],1,l)) then
           begin
             ComboBox22.ItemIndex := i;
             break;
           end;
         end;
         ComboBox21.OnChange(sender);
         for i:=0 to ComboBox23.Items.Count -1 do
         begin
           l := Pos(' ', ComboBox23.Items.Strings[i])-1;
           if sSubBankNum = trim(copy(ComboBox23.Items.Strings[i],1,l)) then
           begin
             ComboBox23.ItemIndex := i;
             break;
           end;
         end;
         Edit21.Text := sBankOfficeNum;
         Edit22.Text := sBankOffice;
         DBGrid2.Enabled := False;
       end;
    2: begin
         edit32.Enabled:=true;
         SumUpRec(sCity,sSumUpNum,sSumUp);
         for i:=0 to ComboBox31.Items.Count -1 do
         begin
           l := Pos(' ', ComboBox31.Items.Strings[i])-1;
           if sCity = trim(copy(ComboBox31.Items.Strings[i],1,l)) then
           begin
             ComboBox31.ItemIndex := i;
             break;
           end;
         end;
         Edit31.Text := sSumUpNum;
         Edit32.Text := sSumUp;
         DBGrid3.Enabled := False;
       end;
    3: begin
         edit42.Enabled:=true;
         BankAccountRec(sAccountNum,sAccount);
         Edit41.Text := sAccountNum;
         Edit42.Text := sAccount;
         DBGrid4.Enabled := False;
       end;
    4: begin
         edit52.Enabled:=true;
         DateTimePicker1.Enabled := true;
         OpenAccountRec(sCity,sBank,sSubBankNum,sBankOfficeNum,
           sAccountNum,sSumUpNum,sOpenAccount,dBalance,dtDate);
         for i:=0 to ComboBox51.Items.Count -1 do
         begin
           l := Pos(' ', ComboBox51.Items.Strings[i])-1;
           if sCity = trim(copy(ComboBox51.Items.Strings[i],1,l)) then
           begin
             ComboBox51.ItemIndex := i;
             break;
           end;
         end;
         for i:=0 to ComboBox52.Items.Count -1 do
         begin
           l := Pos(' ', ComboBox52.Items.Strings[i])-1;
           if sBank = trim(copy(ComboBox52.Items.Strings[i],1,l)) then
           begin
             ComboBox52.ItemIndex := i;
             break;
           end;
         end;
         ComboBox51.OnChange(sender);
         for i:=0 to ComboBox53.Items.Count -1 do
         begin
           l := Pos(' ', ComboBox53.Items.Strings[i])-1;
           if sSubBankNum = trim(copy(ComboBox53.Items.Strings[i],1,l)) then
           begin
             ComboBox53.ItemIndex := i;
             break;
           end;
         end;
         for i:=0 to ComboBox56.Items.Count -1 do
         begin
           l := Pos(' ', ComboBox56.Items.Strings[i])-1;
           if sSumUpNum = trim(copy(ComboBox56.Items.Strings[i],1,l)) then
           begin
             ComboBox56.ItemIndex := i;
             break;
           end;
         end;
         ComboBox53.OnChange(sender);
         for i:=0 to ComboBox54.Items.Count -1 do
         begin
           l := Pos(' ', ComboBox54.Items.Strings[i])-1;
           if sBankOfficeNum = trim(copy(ComboBox54.Items.Strings[i],1,l)) then
           begin
             ComboBox54.ItemIndex := i;
             break;
           end;
         end;
         for i:=0 to ComboBox55.Items.Count -1 do
         begin
           l := Pos(' ', ComboBox55.Items.Strings[i])-1;
           if sAccountNum = trim(copy(ComboBox55.Items.Strings[i],1,l)) then
           begin
             ComboBox55.ItemIndex := i;
             break;
           end;
         end;
         Edit51.Text := sOpenAccount;
         Edit52.Text := Ftos(dBalance,16,2);
         DateTimePicker1.Date := dtDate;
         DBGrid5.Enabled := False;
       end;
  end;
end;

procedure TfrmJGYhXxSz.PageControl1Change(Sender: TObject);
var
  i: integer;
  aBAccount: TBankAccountDynArray;
begin
{  case oldIndex of
    0: vSubBank := CurrentRecordSet;
    1: vBankOffice := CurrentRecordSet;
    2: vSumUp := CurrentRecordSet;
    3: vAccount := CurrentRecordSet;
    4: vOpenAccount := CurrentRecordSet;
  end;
}
  case PageControl1.ActivePageIndex of
    0: SubBankInfo('','',DBGrid1);
    1: BankOfficeInfo('','','',DBGrid2);
    2: SumUpInfo('',DBGrid3);
    3: BankAccountInfo(DBGrid4);
    4: begin
         ComBobox55.Clear;
         BankAccountInfo(aBAccount);
         for i:=0 to high(aBAccount) do
           ComboBox55.Items.Add(aBAccount[i].bh +' '+aBAccount[i].mc);
         OpenAccountInfo('','','','','','',DBGrid5);
       end;
  end;
//  oldIndex := PageControl1.ActivePageIndex;
end;

procedure TfrmJGYhXxSz.ToolButton9Click(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
    0: SaveSubBankInfo;
    1: SaveBankOfficeInfo;
    2: SaveSumUpInfo;
    3: SaveBankAccountInfo;
    4: SaveOpenAccountInfo;
  end;
(*  case pagecontrol1.ActivePageIndex of
    0: begin
         if trim(combobox11.Text)='' then
         begin
           application.MessageBox('地市不能为空，请选择！',PMsgCaption,64);
           ComBoBox11.SetFocus;
           exit;
         end
         else
           dsbh1:=copy(combobox11.Text,1,4);
         if trim(combobox12.Text)='' then
           begin
             showmessage('银行编号不能为空，请选择！');
             exit;
           end
         else
           yhbh1:=copy(combobox12.Text,1,2);
         if trim(edit11.Text)='' then
           begin
             showmessage('支行编号不能为空，请录入！');
             exit;
           end
         else
           zhbh1:=trim(edit11.Text);
         zhmc1:=trim(edit12.Text);

         ret:=DM.F_YhSave(dsbh1,yhbh1,zhbh1,zhmc1);
         if ret= 0 then
           begin
             DMTag[0,0]:=1;
             refreshpage(0);
             showmessage('存盘成功！');
           end
         else
           showmessage('存盘失败！');
       end;
    1: begin
{         if trim(combobox21.Text)='' then
           begin
             showmessage('地市编号不能为空，请选择！');
             exit;
           end
         else
           dsbh2:=copy(combobox21.Text,1,4);
         if trim(combobox22.Text)='' then
           begin
             showmessage('银行编号不能为空，请选择！');
             exit;
           end
         else
           yhbh2:=copy(combobox22.Text,1,2);
         if trim(combobox23.Text)='' then
           begin
             showmessage('支行编号不能为空，请选择！');
             exit;
           end
         else
           zhbh2:=copy(combobox23.Text,1,2);
         if trim(edit21.Text)='' then
           begin
             showmessage('分理处编号不能为空，请录入！');
             exit;
           end
         else
           flcbh2:=trim(edit21.Text);
         flcmc2:=trim(edit22.Text);
         ret:=DM.F_flSave(dsbh2,yhbh2,zhbh2,flcbh2,flcmc2);
         if ret= 0 then
           begin
             DMTag[0,1]:=1;
             refreshpage(1);
             showmessage('存盘成功！');
           end
         else
           showmessage('存盘失败！');
       end;
    2: begin
         if trim(combobox31.Text)='' then
           begin
             showmessage('地市编号不能为空，请选择！');
             exit;
           end
         else
           dsbh3:=copy(combobox31.Text,1,4);
         if trim(edit31.Text)='' then
           begin
             showmessage('归集点编号不能为空，请录入！');
             exit;
           end
         else
           gjdbh3:= trim(edit31.Text);
         gjdmc3:= trim(edit32.Text);
         ret:=DM.F_gjdSave(dsbh3,gjdbh3,gjdmc3);
         if ret= 0 then
           begin
             DMTag[0,2]:=1;
             refreshpage(2);
             showmessage('存盘成功！');
           end
         else
           showmessage('存盘失败！');
       end;
    3: begin
         if trim(edit41.Text)='' then
           begin
             showmessage('帐户编号不能为空，请录入！');
             exit;
           end
         else
           zhbh4:= trim(edit41.Text);
         zhmc4:= trim(edit42.Text);
         ret:=DM.F_ZhSave(zhbh4,zhmc4);
         if ret= 0 then
           begin
             DMTag[0,3]:=1;
             refreshpage(3);
             showmessage('存盘成功！');
           end
         else
           showmessage('存盘失败！');
       end;
    4: begin
         if trim(combobox51.Text)='' then
           begin
             showmessage('地市编号不能为空，请选择！');
             exit;
           end
         else
           dsbh5:=copy(combobox51.Text,1,4);
         if trim(combobox52.Text)='' then
           begin
             showmessage('银行编号不能为空，请选择！');
             exit;
           end
         else
           yhbh5:=copy(combobox52.Text,1,2);
         if trim(combobox53.Text)='' then
           zhbh5:=''
         else
           zhbh5:=copy(combobox53.Text,1,2);
         if trim(combobox54.Text)='' then
           flcbh5:=''
         else
           flcbh5:=copy(combobox54.Text,1,2);
         if trim(combobox55.Text)='' then
           begin
             showmessage('帐户编号不能为空，请选择！');
             exit;
           end
         else
           zhbh51:=copy(combobox55.Text,1,2);
         if trim(combobox56.Text)='' then
           begin
             showmessage('帐户编号不能为空，请选择！');
             exit;
           end
         else
           gjdbh5:=copy(combobox56.Text,1,2);
         if trim(edit51.Text)='' then
           begin
             showmessage('银行开户帐号不能为空，请输入！');
             exit;
           end
         else
           yhkhzh5:= trim(edit51.Text);
         if trim(edit52.Text)='' then
           begin
             showmessage('银行帐户余额不能为空，请输入！');
             exit;
           end
         else
           ye:= strtofloat(trim(edit52.Text));
         rq:=DateTimePicker1.Date;
         ret:= DM.F_KhSave(yhkhzh5,dsbh5,yhbh5,zhbh5,flcbh5,zhbh51,gjdbh5,ye,rq);
         if ret= 0 then
           begin
             DMTag[0,4]:=1;
             refreshpage(4);
             showmessage('存盘成功！');
           end
         else
           showmessage('存盘失败！');
       end;
}
    end;
  toolbutton9.Enabled:= false;
*)
end;

(*procedure TfrmJGYhXxSz.ComboBox22Change(Sender: TObject);
begin
{  combobox23.Items.Clear;
  if trim(combobox21.Text)='' then
    dsbh2:=''
  else
    dsbh2:=copy(combobox21.Text,1,4);
  if trim(combobox22.Text)='' then
    yhbh2:=''
  else
    yhbh2:=copy(combobox22.Text,1,2);

  DM.P_YhInfo(dsbh2,yhbh2);
  DM.Qry_Yh.First;
  while not DM.Qry_Yh.Eof do
  begin
    combobox23.Items.Add(DM.Qry_Yh.fieldbyname('zhbh').AsString+' '+
                         DM.Qry_Yh.fieldbyname('zhmc').AsString);
    DM.Qry_Yh.Next;
  end;    }
end;
*)
procedure TfrmJGYhXxSz.ComboBox21Change(Sender: TObject);
var
  aSubBank: TSubBankDynArray;
  vBankOffice: Variant;
  l: smallint;
  sCity, sBank: String;
begin
  l:= Pos(' ',ComboBox21.Text)-1;
  sCity := trim(copy(ComboBox21.Text,1,l));
  l:= Pos(' ',ComboBox22.Text)-1;
  sBank := trim(copy(ComboBox22.Text,1,l));
  if (sCity <> '') and (sBank<>'') then
  begin
    vBankOffice := CurrentRecordSet;
    SubBankInfo(sCity,sBank,aSubBank);
    ComboBox23.Items.Clear;
    for l:=0 to high(aSubBank) do
      ComboBox23.Items.Add(aSubBank[l].bh +' '+ aSubBank[l].mc);
    CurrentRecordSet(vBankOffice);
  end;
end;

procedure TfrmJGYhXxSz.ComboBox51Change(Sender: TObject);
var
  aSubBank: TSubBankDynArray;
  aSumUp: TSumUpDynArray;
  vOpenAccount: Variant;
  l: smallint;
  sCity, sBank: String;
begin
  l:= Pos(' ',ComboBox51.Text)-1;
  sCity := trim(copy(ComboBox51.Text,1,l));
  l:= Pos(' ',ComboBox52.Text)-1;
  sBank := trim(copy(ComboBox52.Text,1,l));
  if (sCity <> '') and (sBank<>'') then
  begin
    vOpenAccount := CurrentRecordSet;
    SubBankInfo(sCity,sBank,aSubBank);
    ComboBox53.Items.Clear;
    for l:=0 to high(aSubBank) do
      ComboBox53.Items.Add(aSubBank[l].bh +' '+ aSubBank[l].mc);

    SumUpInfo(sCity,aSumUp);
    ComboBox56.Items.Clear;
    for l:=0 to high(aSumUp) do
      ComboBox56.Items.Add(aSumUp[l].bh +' '+ aSumUp[l].mc);
    CurrentRecordSet(vOpenAccount);
  end;
end;

procedure TfrmJGYhXxSz.ComboBox53Change(Sender: TObject);
var
  aBankOffice: TBankOfficeDynArray;
  vOpenAccount: Variant;
  l: smallint;
  sCity, sBank, sSubBank: String;
begin
  l:= Pos(' ',ComboBox51.Text)-1;
  sCity := trim(copy(ComboBox51.Text,1,l));
  l:= Pos(' ',ComboBox52.Text)-1;
  sBank := trim(copy(ComboBox52.Text,1,l));
  l:= Pos(' ',ComboBox53.Text)-1;
  sSubBank := trim(copy(ComboBox53.Text,1,l));
  if (sCity <> '') and (sBank<>'') and (sSubBank<>'') then
  begin
    vOpenAccount := CurrentRecordSet;
    BankOfficeInfo(sCity,sBank,sSubBank,aBankOffice);
    ComboBox54.Items.Clear;
    for l:=0 to high(aBankOffice) do
      ComboBox54.Items.Add(aBankOffice[l].bh +' '+ aBankOffice[l].mc);
    CurrentRecordSet(vOpenAccount);
  end;