personalaccount.pas

来自「企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载」· PAS 代码 · 共 1,338 行 · 第 1/5 页

//实现职工数据整理与传

unit PersonalAccount;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BASEWIN, XPMenu, Menus, ActnList, ImgList, ToolWin, ComCtrls,
  ExtCtrls, TFlatTabControlUnit, TFlatButtonUnit, Grids, DBGrids,
  TFlatCheckBoxUnit, StdCtrls, TFlatEditUnit, TFlatSpeedButtonUnit,
  TFlatComboBoxUnit, TFlatPanelUnit, DB, DBTables, RxQuery, RxMemDS,typinfo,
  TFlatGroupBoxUnit, Mask, ToolEdit;
const screenwidth=1024;
const screenheight=768;
type
  TPersonalAccount_frm = class(Tbasewin_frm)
    Panel2: TPanel;
    Panel3: TPanel;
    FlatButton1: TFlatButton;
    Panel4: TPanel;
    Label31: TLabel;
    FlatComboBox1: TFlatComboBox;
    Label32: TLabel;
    FlatEdit30: TFlatEdit;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatComboBox2: TFlatComboBox;
    FlatComboBox4: TFlatComboBox;
    RMD0: TRxMemoryData;
    RMD0yearno: TIntegerField;
    RMD0cypj: TFloatField;
    RMD0cyints: TFloatField;
    RMD0lyrewg: TFloatField;
    RMD0lyints: TFloatField;
    RMD0iscode: TStringField;
    RMD0psname: TStringField;
    RMD0psseno: TIntegerField;
    DataSource1: TDataSource;
    RMD0prseno: TStringField;
    RMD0lycpprin: TFloatField;
    RMD0lypsprin: TFloatField;
    RMD0lycpints: TFloatField;
    RMD0lypsints: TFloatField;
    RMD0cyrewg2: TFloatField;
    RMD0months: TIntegerField;
    RMD0cymonths: TIntegerField;
    RMD0payidx: TFloatField;
    RMD0lymonths: TIntegerField;
    RMD0lyremonths: TIntegerField;
    RMD0cyarcpfd: TFloatField;
    RMD0cyrelycpfd: TFloatField;
    RMD0cyarpsfd: TFloatField;
    RMD0cyrelypsfd: TFloatField;
    RMD0cyftcpfd: TFloatField;
    RMD0cyrelycpac: TFloatField;
    RMD0splycpfd: TFloatField;
    RMD0cycpacmons: TFloatField;
    RMD0cypsarac: TFloatField;
    RMD0cyrelypsarac: TFloatField;
    RMD0cyrelypsac: TFloatField;
    RMD0cypsacmons: TFloatField;
    RMD0cpcpints: TFloatField;
    RMD0cypsints: TFloatField;
    RMD0accpinup: TFloatField;
    RMD0accpinupints: TFloatField;
    RMD0acpswginupints: TFloatField;
    RMD0wgmonup: TFloatField;
    RMD0dbcpfd: TFloatField;
    RMD0dbpsfd: TFloatField;
    RMD0cydate: TDateField;
    RMD0pflag: TStringField;
    RMD0dbfd: TFloatField;
    RMD0wgnotes: TStringField;
    RMD0ftnotes: TStringField;
    RMD0totfd: TFloatField;
    RMD0totpsfd: TFloatField;
    RMD0lycycpints: TFloatField;
    RMD0lycypsints: TFloatField;
    RMD0notes: TStringField;
    RMD0cyacmons: TIntegerField;
    RMD0psrate: TFloatField;
    RMD0cprate: TFloatField;
    RMD0siinter: TFloatField;
    RMD: TRxMemoryData;
    RMDiscode: TStringField;
    RMDpsname: TStringField;
    RMDpsseno: TIntegerField;
    RMDyearno: TIntegerField;
    RMDcpsum: TFloatField;
    RMDcymonths: TIntegerField;
    RMDcypj: TFloatField;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    FlatGroupBox1: TFlatGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    Label13: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label35: TLabel;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatEdit3: TFlatEdit;
    FlatEdit5: TFlatEdit;
    FlatEdit6: TFlatEdit;
    FlatEdit12: TFlatEdit;
    FlatEdit7: TFlatEdit;
    FlatEdit8: TFlatEdit;
    FlatEdit13: TFlatEdit;
    FlatEdit10: TFlatEdit;
    FlatEdit9: TFlatEdit;
    FlatEdit11: TFlatEdit;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    FlatComboBox5: TFlatComboBox;
    FlatComboBox3: TFlatComboBox;
    RMD000: TRxMemoryData;
    RMD000iscode: TStringField;
    RMD000psname: TStringField;
    RMD000psseno: TIntegerField;
    RMD000yearno: TIntegerField;
    RMD000cpsum: TFloatField;
    RMD000cymonths: TIntegerField;
    RMD000cypj: TFloatField;
    RMD000cyints: TFloatField;
    RMD000lysum: TFloatField;
    RMD000lyints: TFloatField;
    RMD00: TRxMemoryData;
    StringField1: TStringField;
    StringField2: TStringField;
    IntegerField1: TIntegerField;
    IntegerField2: TIntegerField;
    FloatField1: TFloatField;
    IntegerField3: TIntegerField;
    FloatField2: TFloatField;
    FloatField3: TFloatField;
    FloatField4: TFloatField;
    FloatField5: TFloatField;
    FloatField6: TFloatField;
    FloatField7: TFloatField;
    FloatField8: TFloatField;
    FloatField9: TFloatField;
    FloatField10: TFloatField;
    FloatField11: TFloatField;
    FloatField12: TFloatField;
    FloatField13: TFloatField;
    FloatField14: TFloatField;
    FloatField15: TFloatField;
    FloatField16: TFloatField;
    FloatField17: TFloatField;
    FloatField18: TFloatField;
    FloatField19: TFloatField;
    FloatField20: TFloatField;
    FlatComboBox6: TFlatComboBox;
    FlatButton2: TFlatButton;
    FlatButton5: TFlatButton;
    FlatButton6: TFlatButton;
    Label10: TLabel;
    FlatButton7: TFlatButton;
    DateEdit1: TDateEdit;
    DateEdit2: TDateEdit;
    ADD_Record: TRxMemoryData;
    StringField3: TStringField;
    StringField4: TStringField;
    IntegerField4: TIntegerField;
    IntegerField5: TIntegerField;
    FloatField21: TFloatField;
    IntegerField6: TIntegerField;
    FloatField22: TFloatField;
    Del_Record: TFlatComboBox;
    Label8: TLabel;
    FlatEdit4: TFlatEdit;
    RMDnextyearjs: TFloatField;
    RMDindustry: TIntegerField;
    procedure FlatEdit30KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FlatComboBox1Change(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure RMD0AfterEdit(DataSet: TDataSet);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatComboBox3Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FlatButton5Click(Sender: TObject);
    procedure FlatButton6Click(Sender: TObject);
    procedure FlatButton7Click(Sender: TObject);
    procedure DateEdit1Change(Sender: TObject);
  private
    { Private declarations }
    index:integer;
    index2:integer;//职工itemindex
    RMD_Record_Count:integer;
    Add_Delete:boolean;  //增加删除操作
    Date_change:boolean;
    procedure ShowData;
    procedure SaveData;
    function  WhetherChanged:boolean;
    procedure init;
    procedure   Save_sbdb_psarch;
  public
    { Public declarations }
  end;

var
  PersonalAccount_frm: TPersonalAccount_frm;

implementation

uses datashare, sbp_psagacct_all, Main, ChectCount, AddRecord;

{$R *.dfm}
procedure TPersonalAccount_frm.init ;
begin
    FlatEdit1.Text :='';
    FlatEdit2.Text :='';
    FlatEdit3.Text :='';
    FlatEdit4.Text :='';
    FlatEdit5.Text :='';
    FlatEdit6.Text :='';
    FlatEdit12.Text :='';
    FlatEdit7.Text :='';
    FlatEdit8.Text :='';
    FlatEdit13.Text:='';
    FlatEdit10.Text:='';
    FlatEdit9.Text :='';
    FlatEdit11.Text:='';
    //FlatEdit30.Text :='';
    index:=-1;
    index2:=-1;
    RMD_Record_Count:=0;
    Dateedit1.Date :=0;
    Dateedit2.Date :=0;
    Add_Delete:=false;
    Date_change:=false;
    RMD.Close ;

end;

procedure TPersonalAccount_frm.Save_sbdb_psarch ;
begin
 try
 DataShare_frm.Dbs.StartTransaction ;
  with DataShare_frm.Query10 do
    begin
      close;
      sql.Clear ;
      sql.Add('update  sbdb_psarch set wkdate=:param1,joindate=:param2');
      sql.Add(' where psseno=:param3') ;
      ParamByName('param3').AsString:=Flatcombobox2.Items[index2];
      paramByname('param1').AsDateTime :=Dateedit1.Date ;
      parambyname('param2').AsDateTime :=Dateedit2.Date ;
      prepare;
      execsql;
    end;
  DataShare_frm.Dbs.Commit ;
  except
    DataShare_frm.Dbs.Rollback ;
    application.MessageBox('更新职工基本信息异常!','恩普软件',mb_iconerror+mb_ok);
  end;
end;