beforeregister.~pas

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

      Flatcombobox4.Items.Clear ; //记录职工身份证号
      while not eof do
        begin
          Flatcombobox4.Items.Add(Fieldbyname('iscode').AsString); 
          FlatCombobox2.Items.Add(Fieldbyname('psseno').AsString);
          Flatcombobox1.Items.Add(Fieldbyname('psname').AsString);
          next;
        end;
      close;
    end;}
  flatbutton1.Enabled :=false;
  flatbutton2.Enabled :=false;
end;

procedure TBeforeRegister_frm.FlatComboBox1Change(Sender: TObject);
begin
   if whetherchanged then
     if  application.MessageBox('固定工数据已改动,是否保存?','恩普软件',mb_iconquestion+mb_okcancel)=id_ok then  savedatav1;
  //self.Cursor:=crhourglass;
  { if (RMD.State=dsEdit) then //固定工不用结息
    begin
      RMD.First ;
      DataShare_frm.Query2.First ;
      with  DataShare_frm.Query2 do
        begin
        while (formatfloat('0.00',RMD.Fields[4].AsFloat)=formatfloat('0.00',Fields[1].asfloat)) and (RMD.Fields[5].AsInteger=Fields[2].AsInteger) do
          begin
            RMD.Next ;
            next;
          end;
          if eof then exit;
          if  application.MessageBox('固定工数据已改动,是否保存?','恩普软件',mb_iconquestion+mb_okcancel)=id_cancel then  exit;
          with DataShare_frm.Common_Query do
            begin
              close;
              sql.Clear ;
              sql.Add('update  sbdu_pswgcase set TTWAGE=:param1,MONTHS=:param2 where PSSENO=:param3 and yearno=:param4');
            end;
          try
          DataShare_frm.Dbs.StartTransaction ;

          DataShare_frm.Common_Query.ParamByName('param1').AsFloat :=RMD.Fields[4].AsFloat ;     //本年缴费总额
          DataShare_frm.Common_Query.ParamByName('param2').AsInteger :=RMD.Fields[5].AsInteger ; //缴费月数
          DataShare_frm.Common_Query.ParamByName('param3').AsInteger :=RMD.Fields[2].AsInteger ; //人员编号
          DataShare_frm.Common_Query.ParamByName('param4').AsInteger :=Rmd.Fields[3].AsInteger ; //年份
          DataShare_frm.Common_Query.Prepare ;
          DataShare_frm.Common_Query.ExecSQL ;

          DataShare_frm.Query3.Close ;  //清除上传表sbdz_pswgcase的相应记录
          DataShare_frm.Query3.SQL.Clear ;
          DataShare_frm.Query3.SQL.Add('delete from sbdz_pswgcase where PSSENO=:param' );
          DataShare_frm.Query3.ParamByName('param').AsString :=RMD.Fields[2].AsString ;
          DataShare_frm.Query3.Prepare ;
          DataShare_frm.Query3.ExecSQL ;

          DataShare_frm.Query4.Close ;  //写入上传表sbdz_pswgcase记录
          DataShare_frm.Query4.SQL.Clear ;
          DataShare_frm.Query4.SQL.Add('insert into sbdz_pswgcase(psseno,psname,iscode,yearno,months,rewage,ttwage,upflag)');
          DataShare_frm.Query4.SQL.Add('values(:param1,:param2,:param3,:param4,:param5,:param6,:param7,:param8)');
          DataShare_frm.Query4.ParamByName('param1').AsString :=RMD.Fields[2].AsString ;  // /*人员内码*/
          DataShare_frm.Query4.ParamByName('param2').AsString :=RMD.Fields[1].AsString ;  // /*姓名*/
          DataShare_frm.Query4.ParamByName('param3').AsString :=RMD.Fields[0].AsString ;  // /*社会保障号*/
          DataShare_frm.Query4.ParamByName('param4').AsString :=RMD.Fields[3].AsString ;  // /*年份*/
          DataShare_frm.Query4.ParamByName('param5').AsString :=RMD.Fields[5].AsString ;  //   /*缴费月数 */
          DataShare_frm.Query4.ParamByName('param6').AsString :=formatfloat('0.00',RMD.Fields[4].AsFloat/RMD.Fields[5].AsInteger);//   /*月缴费工资*/
          DataShare_frm.Query4.ParamByName('param7').AsString :=RMD.Fields[6].AsString ; //  /*年缴费工资*/
          DataShare_frm.Query4.ParamByName('param8').AsString :='2'; //  /*上传标志，1个人帐户数据整理，2固定职工和合同制职工缴费后建帐前数据，3原异地转入人员数据未处理，4原异地转入人员数据已处理*/
          DataShare_frm.Query4.Prepare ;
          DataShare_frm.Query4.ExecSQL ;

          //psagacct_all(RMD.Fields[2].AsInteger,RMD.Fields[3].AsInteger,DataShare_frm.Dbs);  //结息
          next; RMD.Next ;
          while not eof do
            begin
              DataShare_frm.Common_Query.ParamByName('param1').AsFloat :=RMD.Fields[4].AsFloat ;
              DataShare_frm.Common_Query.ParamByName('param2').AsInteger :=RMD.Fields[5].AsInteger ;
              DataShare_frm.Common_Query.ParamByName('param3').AsInteger :=RMD.Fields[2].AsInteger ;
              DataShare_frm.Common_Query.ParamByName('param4').AsInteger :=Rmd.Fields[3].AsInteger ;
              DataShare_frm.Common_Query.Prepare ;
              DataShare_frm.Common_Query.ExecSQL ;

              DataShare_frm.Query4.ParamByName('param1').AsString :=RMD.Fields[2].AsString ;  // /*人员内码*/
              DataShare_frm.Query4.ParamByName('param2').AsString :=RMD.Fields[1].AsString ;  // /*姓名*/
              DataShare_frm.Query4.ParamByName('param3').AsString :=RMD.Fields[0].AsString ;  // /*社会保障号*/
              DataShare_frm.Query4.ParamByName('param4').AsString :=RMD.Fields[3].AsString ;  // /*年份*/
              DataShare_frm.Query4.ParamByName('param5').AsString :=RMD.Fields[5].AsString ;  //   /*缴费月数 */
              DataShare_frm.Query4.ParamByName('param6').AsString :=formatfloat('0.00',RMD.Fields[4].AsFloat/RMD.Fields[5].AsInteger);//   /*月缴费工资*/
              DataShare_frm.Query4.ParamByName('param7').AsString :=RMD.Fields[6].AsString ; //  /*年缴费工资*/
              DataShare_frm.Query4.ParamByName('param8').AsString :='2'; //  /*上传标志，1个人帐户数据整理，2固定职工和合同制职工缴费后建帐前数据，3原异地转入人员数据未处理，4原异地转入人员数据已处理*/
              DataShare_frm.Query4.Prepare ;
              DataShare_frm.Query4.ExecSQL ;

              //psagacct_all(RMD.Fields[2].AsInteger,RMD.Fields[3].AsInteger,DataShare_frm.Dbs);  //结息
              next; RMD.Next ;   
            end;               }
          {DataShare_frm.Query3.Close ;  //清除上传表sbdz_psagacct的相应记录
          DataShare_frm.Query3.SQL.Clear ;
          DataShare_frm.Query3.SQL.Add('delete from sbdz_psagacct where PSSENO=:param' );
          DataShare_frm.Query3.ParamByName('param').AsString :=RMD.Fields[2].AsString ;
          DataShare_frm.Query3.Prepare ;
          DataShare_frm.Query3.ExecSQL ;

          DataShare_frm.PersonalAccount_Query.Close ;  //写入上传表sbdz_psagacct记录
          Datashare_frm.PersonalAccount_Query.SQL.Clear ;
          DataShare_frm.PersonalAccount_Query.SQL.Add('insert into sbdz_psagacct select * from sbda_psagacct where PSSENO=:param' );
          DataShare_frm.PersonalAccount_Query.ParamByName('param').AsString  :=RMD.Fields[2].AsString ;
          DataShare_frm.PersonalAccount_Query.Prepare ;
          DataShare_frm.PersonalAccount_Query.ExecSQL ; }
          {DataShare_frm.Dbs.Commit ;
          except
            DataShare_frm.Dbs.Rollback ;
            application.MessageBox('数据更新异常!','恩普软件',mb_iconerror+mb_ok);
          end;
        end;
    end;}
    if (changed) and (DataShare_frm.Query1.Active) then
    begin
    with  DataShare_frm.Query1 do
    //------------------20040610---------------
      //if (Fields[3].AsDateTime<>Dateedit1.Date) or (Fields[5].AsDateTime<>Dateedit2.Date) or (trim(Flatedit5.Text)<>trim(Fields[4].AsString))  then
      if (FlatComboBox1.ItemIndex>0) and ((Fields[3].AsDateTime<>Dateedit1.Date) or (trim(Fields[5].AsString)<>trim(flatedit4.Text)) or (trim(Flatedit5.Text)<>trim(Fields[4].AsString))) then
    //--------------------20040610-----------------
        if  application.MessageBox('合同工数据已改动,是否保存?','恩普软件',mb_iconquestion+mb_okcancel)=id_ok then  savedatav2 ;
    {try
    DataShare_frm.Dbs.StartTransaction ;
    with DataShare_frm.Query5 do
      begin
        close;
        sql.Clear ;
        sql.Add('update sbdb_psarch set bgjfdate=:param1,months=:param2,psdate=:param3 where psseno=:param4');
        parambyname('param1').AsDate:=Dateedit1.Date ;
        parambyname('param2').AsString :=Flatedit5.Text;
        parambyname('param3').AsDate:=Dateedit2.Date ;
        parambyname('param4').AsString :=DataShare_frm.Query1.fieldbyname('psseno').AsString ;
        prepare;
        execsql;
      end;
    with DataShare_frm.Query6 do
      begin
        close;
        sql.Clear ;
        sql.Add('delete from sbdz_htarch where psseno=:param');
        parambyname('param').AsString :=DataShare_frm.Query1.fieldbyname('psseno').AsString ;
        prepare;
        execsql;
        close;
        sql.Clear ;
        sql.Add('insert into sbdz_htarch(psseno,psname,iscode,bgjfdate,months,psdate) values(:param1,:param2,:param3,:param4,:param5,:param6)');//操作人员,操作日期没有写入
        parambyname('param1').AsString :=DataShare_frm.Query1.fieldbyname('psseno').AsString ;
        parambyname('param2').AsString :=DataShare_frm.Query1.fieldbyname('psname').AsString ;
        parambyname('param3').AsString :=DataShare_frm.Query1.fieldbyname('iscode').AsString ;
        parambyname('param4').AsDate:=Dateedit1.Date ;
        parambyname('param5').AsString :=Flatedit5.Text;
        parambyname('param6').AsDate:=Dateedit2.Date ;
        prepare;
        execsql;
       end;
     DataShare_frm.Dbs.Commit ;
     except
       DataShare_frm.Dbs.Rollback ;
       application.MessageBox('数据更新异常!','恩普软件',mb_iconerror+mb_ok);
     end;}
    end;
   init; 
   showdata;
   self.Update ;
   self.Refresh ;
   changed:=false;
   flatbutton1.Enabled :=true;
   flatbutton2.Enabled :=true;
  // self.Cursor :=crdefault;
end;

procedure TBeforeRegister_frm.FlatSpeedButton1Click(Sender: TObject);
begin
  if trim(Flatedit.text)<>'' then
    begin
      if Flatcombobox4.Items.IndexOf(Flatedit.Text)<0 then
        begin
          application.MessageBox('没有该职工的相关记录,请检查输入是否有误!','恩普软件',mb_iconinformation+mb_ok);
          exit;
        end;
     Flatcombobox1.ItemIndex:=Flatcombobox4.Items.IndexOf(Flatedit.Text);
     Flatcombobox1.Text :=Flatcombobox1.Items[Flatcombobox4.Items.IndexOf(Flatedit.Text)];
     Flatcombobox1change(nil);
    end else
    application.messagebox('请正确输入职工的身分证号!','恩普软件',mb_iconinformation+mb_ok);
    Flatedit.Text :='';
end;

procedure TBeforeRegister_frm.FlatComboBox3Change(Sender: TObject);
begin
   //--------------------20040610-----------------
   if (changed) and (DataShare_frm.Query1.Active) then
    begin
    with  DataShare_frm.Query1 do
      if (FlatComboBox1.ItemIndex>0) and ((Fields[3].AsDateTime<>Dateedit1.Date) or (trim(Fields[5].AsString)<>trim(flatedit4.Text)) or (trim(Flatedit5.Text)<>trim(Fields[4].AsString))) then
        if  application.MessageBox('合同工数据已改动,是否保存?','恩普软件',mb_iconquestion+mb_okcancel)=id_ok then  savedatav2 ;
    end;
   //----------20040610--------------------
   init;
   with DataShare_frm.BeforRegister_Query do
    begin
      close;
      sql.Clear ;
      sql.Add('select psseno,psname,iscode  from sbdb_psarch where cpseno=:param');
      parambyname('param').AsString :=Flatcombobox5.Items[Flatcombobox3.itemindex];
      prepare;
      open ;
      Flatcombobox1.Text :='';
      Flatcombobox1.Items.Clear ; //记录职工姓名
      Flatcombobox2.Items.Clear ; //记录职工内码
      Flatcombobox4.Items.Clear ; //记录职工身份证号
      while not eof do
        begin
          Flatcombobox4.Items.Add(Fieldbyname('iscode').AsString);
          FlatCombobox2.Items.Add(Fieldbyname('psseno').AsString);
          Flatcombobox1.Items.Add(Fieldbyname('psname').AsString);
          next;
        end;
      close;
    end;
    flatbutton1.Enabled :=false;
    flatbutton2.Enabled :=false;
end;

procedure TBeforeRegister_frm.DateEdit1Change(Sender: TObject);
begin
  changed:=true;
end;

procedure TBeforeRegister_frm.FlatButton1Click(Sender: TObject);
begin
  inherited;
  if whetherchanged then savedatav1;
  if (changed) and (DataShare_frm.Query1.Active)  then
  Savedatav2;
  showdata;
end;

procedure TBeforeRegister_frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 { //-------------------20040823----------------
  if whetherchanged or ((changed) and (DataShare_frm.Query1.Active)) then
    if  application.MessageBox('数据已改动,是否保存?','恩普软件',mb_iconquestion+mb_okcancel)=id_ok then
    begin
      if whetherchanged then savedatav1;
      if (changed) and (DataShare_frm.Query1.Active) then savedatav2;
    end;
  //-------------------20040823----------------}
end;

procedure TBeforeRegister_frm.FlatButton2Click(Sender: TObject);
begin
  inherited; 
  init;
  FlatComboBox1.Items.Clear ;
  FlatComboBox3.ItemIndex :=-1;
  FlatComboBox1.Text :='';
  FlatComboBox3.Text :='';
  //showdata;
end;

procedure TBeforeRegister_frm.FlatEditKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if (key=chr(vk_tab)) or (key=chr(vk_return)) then
    FlatSpeedButton1.Click ;
end;

end.