addrecord.~pas

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

unit AddRecord;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, basedialog, DB, RxMemDS, TFlatButtonUnit, Grids, DBGrids,
  ExtCtrls, StdCtrls, TFlatComboBoxUnit;

type
  TAddRecord_frm = class(Tbasedialog_form)
    DBGrid1: TDBGrid;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    RMD: TRxMemoryData;
    RMDiscode: TStringField;
    RMDpsname: TStringField;
    RMDpsseno: TIntegerField;
    RMDyearno: TIntegerField;
    RMDcpsum: TFloatField;
    RMDcymonths: TIntegerField;
    RMDcypj: TFloatField;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    FlatButton3: TFlatButton;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure RMDNewRecord(DataSet: TDataSet);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    iscode:string;
    psname:string;
    psseno:string;
    cpseno:string;
    //yearlist:Tstrings;
    { Public declarations }
  end;

var
  AddRecord_frm: TAddRecord_frm;

implementation

uses datashare, Main;

{$R *.dfm}

procedure TAddRecord_frm.FormCreate(Sender: TObject);
begin
  inherited;
  //yearlist:=Tstringlist.Create ;
  RMD.Close ;
  RMD.Open ;
  Scaled:=true;
   if screen.Width<>screenwidth then
   begin
     height:=longint(height)*longint(screen.height) div screenheight;
     width:=longint(width)*longint(screen.width) div screenwidth;
     scaleby(screen.Width,screenwidth);
     {for i:=0 to componentcount-1 do
     with components[i] do
     begin
       if GetPropInfo(ClassInfo, 'font') <> nil  then
        font.size := (screen.Width  DIV screenWidth) * font.size;
     end;}
   end;
end;

procedure TAddRecord_frm.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=chr(vk_return) then RMD.Append ;
end;

procedure TAddRecord_frm.RMDNewRecord(DataSet: TDataSet);
begin
  inherited;
  RMD.FieldByName('psname').AsString :=psname;
  RMD.FieldByName('iscode').AsString :=iscode;
  RMd.FieldByName('psseno').AsString :=psseno;
end;

procedure TAddRecord_frm.FlatButton1Click(Sender: TObject);
begin
  inherited;
  if DataSource1.State in [dsEdit, dsInsert]
         then  RMD.Post ;
  if    (RMD.Active) and (RMD.RecordCount>0) then
    begin
      RMD.First ;
      while not RMD.Eof do
      begin
        if (trim(RMd.FieldByName('yearno').AsString)='') and (trim(RMD.fieldbyname('cymonths').AsString)='')
          and (trim(RMD.fieldbyname('cpsum').AsString)='') then
          begin
            RMD.Edit ;
            RMD.Delete ;
            if RMD.Eof then RMD.Post ;
          end;
        RMD.Next ;
      end;
      RMD.First ;
      while not RMD.Eof do
      begin
      if trim(RMD.FieldByName('yearno').AsString)='' then
        begin
          application.MessageBox('年份不能为空,输入非法!','恩普软件',mb_iconerror+mb_ok);
          exit;
        end;
      if trim(RMD.fieldbyname('cpsum').AsString)='' then
        begin
          application.MessageBox('缴费总额不能为空,输入非法!','恩普软件',mb_iconerror+mb_ok);
          exit;
        end;
      if trim(RMD.fieldbyname('cymonths').AsString)='' then
        begin
          application.MessageBox('本年缴费总月数不能为空,输入非法!','恩普软件',mb_iconerror+mb_ok);
          exit; 
        end;
      if ComboBox1.Items.IndexOf(trim(RMd.fieldbyname('yearno').AsString))>=0 then
        begin
          application.MessageBox(pchar(RMd.fieldbyname('yearno').AsString+'年的缴费记录已有!'),'恩普软件',mb_iconerror+mb_ok);
          exit;
        end;
      if RMD.FieldByName('yearno').AsInteger>2001 then
        begin
          application.MessageBox('增加2002年以后的缴费记录,请到浙江省社会保险事业管理中心申请!','恩普软件',mb_iconinformation+mb_ok);
          exit;
        end;
      if (RMD.FieldByName('cymonths').AsInteger>12) or (RMD.FieldByName('cymonths').AsInteger<0) then
        begin
          application.MessageBox('输入了非法的缴费总月数!','恩普软件',mb_iconerror+mb_ok);
          exit;
        end;
        RMD.next;
      end;
      
      if RMD.RecordCount>0 then
      begin
        //RMD.First ;
        //while not RMD.Eof do
        //begin
         {//----------20040803
        with DataShare_frm.Query9 do
          begin
            close;
            sql.Clear ;
            sql.Add('insert into sbdu_pswgcase(cpseno,psseno,yearno,ttwage,months,rewage,opdate,opcode)');
            sql.Add('values(:param1,:param2,:param3,:param4,:param5,:param6,:param7,:param8)');
            parambyname('param1').AsString:=cpseno;
            parambyname('param2').AsString:=psseno;
            parambyname('param3').AsString:=RMD.fieldbyname('yearno').AsString ;
            parambyname('param4').AsString:=formatfloat('0.00',RMD.fieldbyname('cpsum').AsFloat);
            parambyname('param5').AsString:=RMD.fieldbyname('cymonths').AsString ;
            if RMD.FieldByName('cymonths').AsInteger=0 then
            parambyname('param6').AsInteger:=0 else
            parambyname('param6').AsString:=formatfloat('0.00',RMD.fieldbyname('cpsum').AsFloat/RMD.fieldbyname('cymonths').AsInteger);
            parambyname('param7').AsString:=datetimetostr(now);
            parambyname('param8').AsString:=main_frm.user.OPNAME;
            prepare;
            execsql;
          end;
          }
       { //------------------20040611-------------------
        with DataShare_frm.Query10 do
        begin
          Close ;  //写入上传表sbdz_pswgcase记录
          SQL.Clear ;
          SQL.Add('insert into sbdz_pswgcase(psseno,psname,iscode,yearno,months,rewage,ttwage,upflag,opcode,opdate,PROCFLG)');
          SQL.Add('values(:param1,:param2,:param3,:param4,:param5,:param6,:param7,:param8,:param9,:param10,:param11)');
          ParamByName('param1').AsString :=psseno;  // /*人员内码*/
          ParamByName('param2').AsString :=psname;  // /*姓名*/
          ParamByName('param3').AsString :=iscode;  // /*社会保障号*/
          ParamByName('param4').AsString :=RMD.fieldbyname('yearno').AsString ;  // /*年份*/
          ParamByName('param5').AsString :=RMD.fieldbyname('cymonths').AsString ;  //   /*缴费月数 */
          ParamByName('param6').AsString :=formatfloat('0.00',RMD.fieldbyname('cpsum').AsFloat/RMD.fieldbyname('cymonths').AsInteger);//   /*月缴费工资*/
          ParamByName('param7').AsString :=formatfloat('0.00',RMD.fieldbyname('cpsum').AsFloat); //  /*年缴费工资*/
          ParamByName('param8').AsString :='1'; //  /*上传标志，1个人帐户数据整理，2固定职工和合同制职工缴费后建帐前数据，3原异地转入人员数据未处理，4原异地转入人员数据已处理*/
          ParamByName('param9').AsString :=main_frm.user.OPNAME ;
          ParamByName('param10').AsString :=datetimetostr(now);
          ParamByName('param11').AsString :='1';//审核标志 1待审报，2已申报 4 申报通过 6不通过
          Prepare ;
          ExecSQL ;
        end;  }
         // RMD.Next ;
        //end;
        modalresult:=mrok
      end else modalresult:=mrcancel;
    end else modalresult:=mrcancel;
end;

procedure TAddRecord_frm.FlatButton2Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TAddRecord_frm.FlatButton3Click(Sender: TObject);
begin
  inherited;
  if RMD.Active then  RMD.Delete ;
end;

end.