ywwizard.~pas

企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务

    begin
      shape:=TShape.Create(self);
      shape.Parent:=(components[i] as TMemo).Parent;
      shape.Shape:=stRectangle;
      shape.Pen.Color:=color;
      shape.Width:=(components[i] as TMemo).Width+2;
      shape.Height:=(components[i] as TMemo).Height+2;
      shape.Left:=(components[i] as TMemo).Left-1;
      shape.Top:=(components[i] as TMemo).Top-1;
      shape.Show;
      shape.SendToBack;
    end;
  end;

  uptype:='';
  FB_previous.Enabled:=false;
  FB_next.Enabled:=true;

  ls_sql:='select trim(iscode) iscode from psarch a,unitright b where a.organid=b.organid and b.operid='+inttostr(main_form.user.OPERID)+' order by iscode';
  with datashare_form.Query1 do
  begin
    close;
    sql.Clear;
    sql.Add(ls_sql);
    prepare;
    open;
    while not eof do
    begin
      FCB_iscode.Items.Add(fieldbyname('iscode').AsString);
      next;
    end;

    close;
    sql.Clear;
    sql.Add('select topvalue,butvalue from scoiparasetup');
    prepare;
    open;
    minrewage:=fieldbyname('butvalue').AsFloat;
    maxrewage:=fieldbyname('topvalue').AsFloat;
    close;
  end;
  FCB_iscode.Text:=joinsoci_form.Query1iscode.AsString;
  pagecontrol1.ActivePageIndex:=0;
end;

procedure Tywwizard_form.FB_nextClick(Sender: TObject);
var
  ls_sql,ls_status,ls_agcardno,ls_psname,ls_sex,ls_upreason,ls_cgdate:string;
  ls_upreasonname,ls_notes,ls_oriuptype:string;
  li_manid,li_organid,li_itcode,li_cpseno,li_oricpseno,li_oriorganid:integer;
  ls_bdate,ls_identity,ls_household,ls_wkdate,ls_wkattr,ls_joindate:string;
  lr_rewage,lr_bfidyears:real;
  li_opid,li_psseno:integer;
begin
  inherited;
  if pagecontrol1.ActivePageIndex=0 then
  begin
    uptype:=UptypeSelcected();
    iscode:=trim(FCB_iscode.Text);
    if iscode='' then
    begin
      application.MessageBox('请输入社会保障号！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
      exit;
    end;
    try
      strtoint64(iscode);
    except
      application.MessageBox('社会保障号中含有非法字符！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
      exit;
    end;
    if uptype='' then
    begin
      application.MessageBox('请选择变动类型！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
      exit;
    end;
    if not AccessRight(iscode) then
    begin
      application.MessageBox('此人你无权操作！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
      exit;
    end;

    ////////////////////
    if (uptype='01') or (uptype='03') or (uptype='02') then
    begin
      with datashare_form.Query1 do
      begin
        ls_sql:='select manid,organid,psname,bdate,sex,identity,household,wkdate,wkattr,joindate,rewage,bfidyears,status from psarch where trim(iscode)='+#39+iscode+#39;
        close;
        sql.Clear;
        sql.Add(ls_sql);
        prepare;
        open;
        if RecordCount>0 then
        begin
          li_manid:=fieldbyname('manid').AsInteger;
          li_organid:=fieldbyname('organid').AsInteger;
          ls_psname:=fieldbyname('psname').AsString;
          ls_bdate:=fieldbyname('bdate').AsString;
          ls_sex:=fieldbyname('sex').AsString;
          ls_identity:=fieldbyname('identity').AsString;
          ls_household:=fieldbyname('household').AsString;
          ls_wkdate:=fieldbyname('wkdate').AsString;
          ls_wkattr:=fieldbyname('wkattr').AsString;
          ls_joindate:=fieldbyname('joindate').AsString;
          lr_rewage:=fieldbyname('rewage').AsFloat;
          lr_bfidyears:=fieldbyname('bfidyears').AsFloat;
          ls_status:=fieldbyname('status').AsString;

          ls_sql:='select upreason,cgdate,oristatus,itcode,notes,lockflg,uptype from psupcase where manid='+inttostr(li_manid);
          close;
          sql.Clear;
          sql.Add(ls_sql);
          prepare;
          open;
          if RecordCount>0 then
          begin
            if fieldbyname('lockflg').AsString='1' then
            begin
              application.MessageBox('此人已经存在变动业务，而且业务已经被锁定！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
              close;
              exit;
            end;

            ls_status:=fieldbyname('oristatus').AsString;
            ls_upreason:=fieldbyname('upreason').AsString;
            ls_cgdate:=fieldbyname('cgdate').AsString;
            li_itcode:=fieldbyname('itcode').AsInteger;
            ls_notes:=fieldbyname('notes').AsString;
            ls_oriuptype:=fieldbyname('uptype').AsString;
            close;
            if not UptypeCanDo(ls_status,uptype) then
            begin
              application.MessageBox(pchar('此人已经存在变动业务，而且变动前状态为【'+QueryCodeName(ls_status,'status')+'】,不能做【'+QueryCodeName(uptype,'uptype')+'】！'),'恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
              exit;
            end else
            begin
              if ls_oriuptype=uptype then
              begin
                if application.MessageBox(pchar('此人已经存在【'+QueryCodeName(ls_oriuptype,'uptype')+'】业务，是否要修改该业务？'),'恩普软件',MB_YESNO+MB_IconQuestion+MB_DEFBUTTON2+MB_SystemModal)=IDNO then
                  exit;
              end else
              begin
                if application.MessageBox(pchar('此人已经存在【'+QueryCodeName(ls_oriuptype,'uptype')+'】业务，且与当前选择的变动类型不一致，如果继续将删除已存在的变动业务，是否继续？'),'恩普软件',MB_YESNO+MB_IconQuestion+MB_DEFBUTTON2+MB_SystemModal)=IDNO then
                  exit;
              end;

              fcTC_new_upreason.Items.Clear;
              Init_CompReaslist('uptype='+#39+uptype+#39,fcTC_new_upreason);
              fcTC_new_upreason.SetSelectedNode(fcTC_new_upreason.Items.FindNode(QueryName('upname','upreason','upcode='+#39+ls_upreason+#39),true));
              if fcTC_new_upreason.SelectedNode<>nil then
                fcTC_new_upreason.Text:=fcTC_new_upreason.SelectedNode.Text
              else
                fcTC_new_upreason.Text:='';
              dE_new_cgdate.Text:=ls_cgdate;
              M_new_notes.Text:=ls_notes;
              fcTc_new_itcode.Items.Clear;
              Init_Compitlist(fcTC_new_itcode,'');
              fcTC_new_itcode.SetSelectedNode(fcTC_new_itcode.Items.FindNode(QueryName('itname','pycode','itcode='+inttostr(li_itcode)),true));
              if fcTC_new_itcode.SelectedNode<>nil then
                fcTC_new_itcode.Text:=fcTC_new_itcode.SelectedNode.Text
              else
                fcTC_new_itcode.Text:='';
            end;
          end else
          begin
            fcTC_new_upreason.Items.Clear;
            Init_CompReaslist('uptype='+#39+uptype+#39,fcTC_new_upreason);
            fcTC_new_upreason.Text:='';
            dE_new_cgdate.Text:=FormatDateTime('yyyy-mm-dd',today);
            M_new_notes.Text:='';
            fcTc_new_itcode.Items.Clear;
            Init_Compitlist(fcTC_new_itcode,'');
            fcTC_new_itcode.Text:='';
          end;

          if not UptypeCanDo(ls_status,uptype) then
          begin
            application.MessageBox(pchar('此人已经存在变动业务，而且变动前状态为【'+QueryCodeName(ls_status,'status')+'】,不能做【'+QueryCodeName(uptype,'uptype')+'】！'),'恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
            exit;
          end;
          fcTC_new_organ.Items.Clear;
          Init_CompOrgan(fcTC_new_organ);
          fcTC_new_organ.SetSelectedNode(fcTC_new_organ.Items.FindNode(QueryName('name','organization','id='+inttostr(li_organid)),false));
          if fcTC_new_organ.SelectedNode<>nil then
            fcTC_new_organ.Text:=fcTC_new_organ.SelectedNode.Text
          else
            fcTC_new_organ.Text:='';
          E_new_psname.Text:=ls_psname;
          dE_new_bdate.Text:=ls_bdate;
          fcTC_new_sex.Items.Clear;
          Init_Complist('sex',fcTC_new_sex);
          fcTC_new_sex.SetSelectedNode(fcTC_new_sex.Items.FindNode(QueryCodeName(ls_sex,'sex'),true));
          fcTC_new_sex.Text:=fcTC_new_sex.SelectedNode.Text;
          fcTC_new_identity.Items.Clear;
          Init_Complist('identity',fcTC_new_identity);
          fcTC_new_identity.SetSelectedNode(fcTC_new_identity.Items.FindNode(QueryCodeName(ls_identity,'identity'),true));
          fcTC_new_identity.Text:=fcTC_new_identity.SelectedNode.Text;
          fcTC_new_household.Items.Clear;
          Init_Complist('household',fcTC_new_household);
          fcTC_new_household.SetSelectedNode(fcTC_new_household.Items.FindNode(QueryCodeName(ls_household,'household'),true));
          fcTC_new_household.Text:=fcTC_new_household.SelectedNode.Text;
          dE_new_wkdate.Text:=ls_wkdate;
          fcTC_new_wkattr.Items.Clear;
          Init_Complist('wkattr',fcTC_new_wkattr);
          fcTC_new_wkattr.SetSelectedNode(fcTC_new_wkattr.Items.FindNode(QueryCodeName(ls_wkattr,'wkattr'),true));
          fcTC_new_wkattr.Text:=fcTC_new_wkattr.SelectedNode.Text;
          DE_new_joindate.Text:=ls_joindate;
          E_new_rewage.Text:=floattostr(lr_rewage);
          E_new_bfidyears.Text:=floattostr(lr_bfidyears);
        end else
        begin
          if uptype='02' then
          begin
            application.MessageBox(pchar('此人不存在，不能做【'+QueryCodeName(uptype,'uptype')+'】！'),'恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
            exit;
          end;

          fcTC_new_organ.Items.Clear;
          Init_CompOrgan(fcTC_new_organ);
          fcTC_new_organ.Text:='';
          E_new_psname.Text:='';
          DE_new_bdate.Text:='';
          fcTC_new_sex.Items.Clear;
          Init_Complist('sex',fcTC_new_sex);
          fcTC_new_sex.Text:='';
          fcTC_new_identity.Items.Clear;
          Init_Complist('identity',fcTC_new_identity);
          fcTC_new_identity.Text:='';
          fcTC_new_household.Items.Clear;
          Init_Complist('household',fcTC_new_household);
          fcTC_new_household.Text:='';
          DE_new_wkdate.Text:='';
          fcTC_new_wkattr.Items.Clear;
          Init_Complist('wkattr',fcTC_new_wkattr);
          fcTC_new_wkattr.Text:='';
          DE_new_joindate.Text:='';
          E_new_rewage.Text:='';
          E_new_bfidyears.Text:='';

          fcTC_new_upreason.Items.Clear;
          Init_CompReaslist('uptype='+#39+uptype+#39,fcTC_new_upreason);
          fcTC_new_upreason.Text:='';
          DE_new_cgdate.Text:=FormatDateTime('yyyy-mm-dd',today);
          M_new_notes.Text:='';
          fcTc_new_itcode.Items.Clear;
          Init_Compitlist(fcTC_new_itcode,'');
          fcTC_new_itcode.Text:='';
        end;
      end;

      TC_new.Tabs.Strings[0]:=QueryCodeName(uptype,'uptype');
      E_new_iscode.Text:=iscode;
      TC_new.Visible:=true;
      TC_othchg.Visible:=false;
      TC_loctran.Visible:=false;
    ////////////////
    end else
    if (uptype='05') or (uptype='06') or (uptype='07') then
    begin
      with datashare_form.Query1 do
      begin
        ls_sql:='select manid,status,agcardno,psname,sex from psarch where trim(iscode)='+#39+iscode+#39;
        close;
        sql.Clear;
        sql.Add(ls_sql);
        prepare;
        open;
        if RecordCount=0 then
        begin
          application.MessageBox(pchar('此人不存在，不能做【'+QueryCodeName(uptype,'uptype')+'】！'),'恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
          close;
          exit;
        end;
        li_manid:=fieldbyname('manid').AsInteger;
        ls_status:=fieldbyname('status').AsString;
        ls_agcardno:=fieldbyname('agcardno').AsString;
        ls_psname:=fieldbyname('psname').AsString;
        ls_sex:=fieldbyname('sex').AsString;

        ls_sql:='select upreason,cgdate,oristatus,lockflg,notes,uptype from psupcase where manid='+inttostr(li_manid)+' and procflg='+#39+'1'+#39;
        close;
        sql.Clear;
        sql.Add(ls_sql);
        prepare;
        open;
        if RecordCount>0 then
        begin
          if fieldbyname('lockflg').AsString='1' then
          begin
            application.MessageBox('此人已经存在变动业务，而且业务已经被锁定！','恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
            close;
            exit;
          end;

          ls_status:=fieldbyname('oristatus').AsString;
          ls_upreason:=fieldbyname('upreason').AsString;
          ls_cgdate:=fieldbyname('cgdate').AsString;
          ls_notes:=fieldbyname('notes').AsString;
          ls_oriuptype:=fieldbyname('uptype').AsString;
          close;
          ls_upreasonname:=QueryName('upname','upreason','upcode='+#39+ls_upreason+#39);
          if not UptypeCanDo(ls_status,uptype) then
          begin
            application.MessageBox(pchar('此人已经存在变动业务，而且变动前状态为【'+QueryCodeName(ls_status,'status')+'】,不能做【'+QueryCodeName(uptype,'uptype')+'】！'),'恩普软件',MB_OK+MB_IconInformation+MB_SystemModal);
            exit;
          end else
          begin
            if ls_oriuptype=uptype then
            begin
              if application.MessageBox(pchar('此人已经存在【'+QueryCodeName(ls_oriuptype,'uptype')+'】业务，是否要修改该业务？'),'恩普软件',MB_YESNO+MB_IconQuestion+MB_DEFBUTTON2+MB_SystemModal)=IDNO then
                exit;
            end else
            begin
              if application.MessageBox(pchar('此人已经存在【'+QueryCodeName(ls_oriuptype,'uptype')+'】业务，且与当前选择的变动类型不一致，如果继续将删除已存在的变动业务，是否继续？'),'恩普软件',MB_YESNO+MB_IconQuestion+MB_DEFBUTTON2+MB_SystemModal)=IDNO then
                exit;
            end;

            fcTC_othchg_upreason.Items.Clear;
            Init_CompReaslist('uptype='+#39+uptype+#39,fcTC_othchg_upreason);
            //fcTC_othchg_upreason.Text:=ls_upreason;
            //fcTC_othchg_upreason.Text:=ls_upreasonname;
            fcTC_othchg_upreason.SetSelectedNode(fcTC_othchg_upreason.Items.FindNode(ls_upreasonname,true));
            if fcTC_othchg_upreason.SelectedNode<>nil then
              fcTC_othchg_upreason.Text:=fcTC_othchg_upreason.SelectedNode.Text
            else
              fcTC_othchg_upreason.Text:='';
            DE_othchg_cgdate.Text:=ls_cgdate;
            M_othchg_notes.Text:=ls_notes;
          end;
        end else
        begin
          fcTC_othchg_upreason.Items.Clear;
          Init_CompReaslist('uptype='+#39+uptype+#39,fcTC_othchg_upreason);