📄 beforeregister.~pas
字号:
with DataShare_frm.Query1 do
begin
close;
sql.Clear ;
sql.Add('select iscode,psname,psseno,bgjfdate,months,psdate from sbdb_psarch where psseno=:param');
parambyname('param').AsString := Flatcombobox2.Items[Flatcombobox1.itemindex];
prepare;
open;
//RMD2.Open ; //RMD多余控件
if recordcount>0 then
begin
//RMD2.AppendRecord([Fields[0].asstring,Fields[1].asstring,Fields[2].asstring,Fields[3].asstring,Fields[4].asstring,Fields[5].asstring]);
if (not Fields[3].IsNull ) or (trim(Fields[3].AsString)<>'') then
DateEdit1.Date :=Fields[3].AsDateTime ;
//-------------------20040610----------------------------------------
//if (not Fields[5].IsNull ) or (trim(Fields[5].AsString)<>'') then
// Dateedit2.Date :=Fields[5].AsDateTime ;
Flatedit4.Text :=Fields[5].AsString ;
//--------------------20040610----------------------------------------
Flatedit1.Text :=Fields[0].asstring;
Flatedit2.Text :=Fields[1].asstring;
Flatedit3.Text :=Fields[2].asstring;
Flatedit5.Text :=Fields[4].asstring;
end;
end;
end;
function TBeforeRegister_frm.WhetherChanged ;
begin
Result:=false;
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 not eof then Result:=true;
end;
end;
end;
procedure TBeforeRegister_frm.SaveDataV1 ;
begin
{ 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,opcode,opdate,PROCFLG)');
DataShare_frm.Query4.SQL.Add('values(:param1,:param2,:param3,:param4,:param5,:param6,:param7,:param8,:param9,:param10,:param11)');
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[4].AsString ; // /*年缴费工资*/
DataShare_frm.Query4.ParamByName('param8').AsString :='5'; // /*上传标志，1个人帐户数据整理，2固定职工和合同制职工缴费后建帐前数据，3原异地转入人员数据未处理，4原异地转入人员数据已处理*/
DataShare_frm.Query4.ParamByName('param9').AsString :=main_frm.user.OPNAME ;
//DataShare_frm.Query4.ParamByName('param10').AsDateTime:=now;
DataShare_frm.Query4.ParamByName('param10').AsString:=datetimetostr(now);
DataShare_frm.Query4.ParamByName('param11').AsString :='1';//审核标志 1待审报，2已申报 4 申报通过 6不通过
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[4].AsString ; // /*年缴费工资*/
DataShare_frm.Query4.ParamByName('param8').AsString :='2'; // /*上传标志，1个人帐户数据整理，2固定职工和合同制职工缴费后建帐前数据，3原异地转入人员数据未处理，4原异地转入人员数据已处理*/
DataShare_frm.Query4.ParamByName('param9').AsString :=main_frm.user.OPNAME ;
//DataShare_frm.Query4.ParamByName('param10').AsDateTime:=now;
DataShare_frm.Query4.ParamByName('param10').AsString:=datetimetostr(now);
DataShare_frm.Query4.ParamByName('param11').AsString :='1';//审核标志 1待审报，2已申报 4 申报通过 6不通过
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;
procedure TBeforeRegister_frm.SaveDataV2 ;
begin
if (Dateedit1.Date=0) or (trim(flatedit5.Text)='') or (trim(flatedit4.Text)='') then
begin
application.MessageBox('没有填完整相应的信息!','恩普软件',mb_iconerror+mb_ok);
exit;
end;
try
DataShare_frm.Dbs.StartTransaction ;
//------------------------20041101--------------------------------------
with DataShare_frm.Query12 do
begin
close;
sql.Clear ;
sql.Add('delete from sbdz_htarch where psseno=:p1 and PROCFLG=:p2');
parambyname('p1').AsString :=DataShare_frm.Query1.fieldbyname('psseno').AsString ;
parambyname('p2').AsString :='1';
prepare;
execsql;
end;
//------------------------20041101--------------------------------------
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').AsDateTime :=Dateedit1.Date ;
parambyname('param2').AsString :=Flatedit5.Text;
//----------------------20040610----------------
//parambyname('param3').AsDate:=Dateedit2.Date ;
parambyname('param3').AsString :=Flatedit4.Text ;
//----------------20040610----------------------
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,OPCODE,OPDATE,PROCFLG) values(:param1,:param2,:param3,:param4,:param5,:param6,:param7,:param8,:param9)');//操作人员,操作日期没有写入
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').AsDateTime :=Dateedit1.Date ;
parambyname('param5').AsString :=Flatedit5.Text;
//-----------------20040610------------------------
//parambyname('param6').AsDateTime :=Dateedit2.Date ;
parambyname('param6').AsString :=flatedit4.Text ;
//----------------20040610-------------------------
parambyname('param7').AsString :=main_frm.user.OPNAME ;
parambyname('param8').AsString :=datetimetostr(now);
parambyname('param9').AsString :='1'; //待申报
prepare;
execsql;
end;
DataShare_frm.Dbs.Commit ;
except
DataShare_frm.Dbs.Rollback ;
application.MessageBox('数据更新异常!','恩普软件',mb_iconerror+mb_ok);
end;
end;
procedure TBeforeRegister_frm.FormCreate(Sender: TObject);
var
i:integer;
begin
inherited;
SetWindowLong(Flatedit.Handle, GWL_STYLE, GetWindowLong(FlatEdit.Handle, GWL_STYLE) or ES_NUMBER);
SetWindowLong(Flatedit5.Handle, GWL_STYLE, GetWindowLong(FlatEdit5.Handle, GWL_STYLE) or ES_NUMBER);
init;
with DataShare_frm.BeforRegister_Query do
begin
close;
sql.clear;
sql.Add('select cpseno,cpname from sbdb_cparch');
prepare;
open;
Flatcombobox3.Items.Clear ; //记录单位名称
FlatCombobox5.Items.Clear ; //记录单位编号
while not eof do
begin
Flatcombobox3.Items.Add(Fieldbyname('cpname').AsString);
Flatcombobox5.Items.Add(Fieldbyname('cpseno').AsString);
next;
end;
close;
end;
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;}
for i:=0 to self.ControlCount-1 do
begin
controls[i].Width:=longint(controls[i].Width)*longint(screen.width) div screenwidth;
controls[i].Height:=longint(controls[i].Height)*longint(screen.height) div screenheight;
end;
end;
{with DataShare_frm.PersonalAccount_Query do
begin
sql.Add('select psseno,psname,iscode from sbdb_psarch');
prepare;
open ;
Flatcombobox1.Items.Clear ; //记录职工姓名
Flatcombobox2.Items.Clear ; //记录职工内码
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -