backupdata.~pas

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

    sql.Clear;
    sql.Add('select * from psupcase');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into psupcase(iscode,opseno,uptype,upreason,cgdate,oristatus,opcode,opdate,procflg,notes,manid';
      ls_sql:=ls_sql+',opid,psseno,cpseno,organid,oricpseno,oriorganid,itcode,lockflg,psname,agcardno,opname ) ';
      ls_sql:=ls_sql+' values('+chr(39)+fieldbyname('iscode').AsString+chr(39)+','+ifthen(fieldbyname('opseno').AsString='','null',fieldbyname('opseno').AsString)+','+chr(39)+fieldbyname('uptype').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('upreason').AsString+chr(39)+','+ifthen(fieldbyname('cgdate').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('cgdate').AsDateTime)+chr(39)+')')+','+ifthen(fieldbyname('oristatus').AsString='','null',chr(39)+fieldbyname('oristatus').AsString+chr(39));
      ls_sql:=ls_sql+','+ifthen(fieldbyname('opcode').AsString='','null',fieldbyname('opcode').AsString)+','+ifthen(fieldbyname('opdate').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('opdate').AsDateTime)+chr(39)+')')+','+chr(39)+fieldbyname('procflg').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('notes').AsString+chr(39)+','+fieldbyname('manid').AsString+','+fieldbyname('opid').AsString;
      ls_sql:=ls_sql+','+fieldbyname('psseno').AsString+','+fieldbyname('cpseno').AsString+','+ifthen(fieldbyname('organid').AsString='','null',fieldbyname('organid').AsString);
      ls_sql:=ls_sql+','+ifthen(fieldbyname('oricpseno').AsString='','null',fieldbyname('oricpseno').AsString)+','+ifthen(fieldbyname('oriorganid').AsString='','null',fieldbyname('organid').AsString)+','+ifthen(fieldbyname('itcode').AsString='','null',fieldbyname('itcode').AsString);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('lockflg').AsString+chr(39)+','+chr(39)+fieldbyname('psname').AsString+chr(39)+','+chr(39)+fieldbyname('agcardno').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('opname').AsString+chr(39)+')';
      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(ls_sql);
      query1.ExecSQL;
      next;
    end;
  end;
  M_info.Lines.Delete(i);
  m_info.Lines.Add('正在备份职工变动信息表...已备份！');
  ProgressBar1.Position:=PB_pos;
  FlatGauge1.Progress:=PB_pos;
end;

procedure Tbackupdata_form.PswgcaseBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份缴费工资信息表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE pswgcase (opseno numeric(8,0),manid integer NOT NULL,psseno numeric(8,0),year integer,ttwage numeric(8,2),';
    ls_sql:=ls_sql+'months integer,rewage numeric(8,2),opcode integer,opdate date,procflg char(1),opid numeric(8,0) NOT NULL,';
    ls_sql:=ls_sql+'cpseno numeric(6,0),lockflg char(1))';
    close;
    sql.Clear;
    sql.Add(ls_sql);
    ExecSql;
  end;

  with query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from pswgcase');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into pswgcase(opseno,manid,psseno,year,ttwage,months,rewage,opcode,opdate,procflg,opid,cpseno,lockflg) ';
      ls_sql:=ls_sql+' values('+ifthen(fieldbyname('opseno').AsString='','null',fieldbyname('opseno').AsString)+','+fieldbyname('manid').AsString+','+fieldbyname('psseno').AsString;
      ls_sql:=ls_sql+','+fieldbyname('year').AsString+','+fieldbyname('ttwage').AsString+','+fieldbyname('months').AsString;
      ls_sql:=ls_sql+','+fieldbyname('rewage').AsString+','+ifthen(fieldbyname('opcode').AsString='','null',fieldbyname('opcode').AsString)+','+ifthen(fieldbyname('opdate').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('opdate').AsDateTime)+chr(39)+')');
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('procflg').AsString+chr(39)+','+fieldbyname('opid').AsString+','+fieldbyname('cpseno').AsString;
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('lockflg').AsString+chr(39)+')';
      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(ls_sql);
      query1.ExecSQL;
      next;
    end;
  end;
  M_info.Lines.Delete(i);
  m_info.Lines.Add('正在备份缴费工资信息表...已备份！');
  ProgressBar1.Position:=PB_pos;
  FlatGauge1.Progress:=PB_pos;
end;

procedure Tbackupdata_form.InfoctorBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份列表显示维护表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE infoctor (fielname char(16) NOT NULL,descname char(16) NOT NULL,ordid numeric(2,0) NOT NULL,';
    ls_sql:=ls_sql+'ifsel char(1) NOT NULL,ifdel char(1) NOT NULL,dispwidth integer NOT NULL)';
    close;
    sql.Clear;
    sql.Add(ls_sql);
    ExecSql;
  end;

  with query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from infoctor');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into infoctor(fielname,descname,ordid,ifsel,ifdel,dispwidth) ';
      ls_sql:=ls_sql+' values('+chr(39)+fieldbyname('fielname').AsString+chr(39)+','+chr(39)+fieldbyname('descname').AsString+chr(39)+','+fieldbyname('ordid').AsString;
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('ifsel').AsString+chr(39)+','+chr(39)+fieldbyname('ifdel').AsString+chr(39)+','+fieldbyname('dispwidth').AsString+')';
      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(ls_sql);
      query1.ExecSQL;
      next;
    end;
  end;
  M_info.Lines.Delete(i);
  m_info.Lines.Add('正在备份列表显示维护表...已备份！');
  ProgressBar1.Position:=PB_pos;
  FlatGauge1.Progress:=PB_pos;
end;

procedure Tbackupdata_form.ManpayBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份职工工资信息表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE manpay (manid numeric(8,0) NOT NULL,paycode char(2) NOT NULL,payval numeric(6,2) NOT NULL,pyear char(4) NOT NULL,';
    ls_sql:=ls_sql+'pmonth char(2) NOT NULL,groupid numeric(8,0) NOT NULL,pycpid numeric(8,0) NOT NULL,organid integer NOT NULL)';
    close;
    sql.Clear;
    sql.Add(ls_sql);
    ExecSql;
  end;

  with query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from manpay');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into manpay(manid,paycode,payval,pyear,pmonth,groupid,pycpid,organid) ';
      ls_sql:=ls_sql+' values('+fieldbyname('manid').AsString+','+chr(39)+fieldbyname('paycode').AsString+chr(39)+','+fieldbyname('payval').AsString;
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('pyear').AsString+chr(39)+','+chr(39)+fieldbyname('pmonth').AsString+chr(39)+','+fieldbyname('groupid').AsString;
      ls_sql:=ls_sql+','+fieldbyname('pycpid').AsString+','+fieldbyname('organid').AsString+')';

      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(ls_sql);
      query1.ExecSQL;
      next;
    end;
  end;
  M_info.Lines.Delete(i);
  m_info.Lines.Add('正在备份职工工资信息表...已备份！');
  ProgressBar1.Position:=PB_pos;
  FlatGauge1.Progress:=PB_pos;
end;

procedure Tbackupdata_form.PycpmainBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份工资模块维护表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE pycpmain (pycpid numeric(8,0) NOT NULL,pycpname char(30) NOT NULL)';
    close;
    sql.Clear;
    sql.Add(ls_sql);
    ExecSql;
  end;

  with query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from pycpmain');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into pycpmain(pycpid,pycpname) ';
      ls_sql:=ls_sql+' values('+fieldbyname('pycpid').AsString+','+chr(39)+fieldbyname('pycpname').AsString+chr(39)+')';

      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(ls_sql);
      query1.ExecSQL;
      next;
    end;
  end;
  M_info.Lines.Delete(i);
  m_info.Lines.Add('正在备份工资模块维护表...已备份！');
  ProgressBar1.Position:=PB_pos;
  FlatGauge1.Progress:=PB_pos;
end;

procedure Tbackupdata_form.PycpselBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份工资选择信息表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE pycpsel (pycode char(2) NOT NULL,acfmlcn char(100),acfml char(50),orderid numeric(8,0) NOT NULL,pycpid numeric(8,0) NOT NULL)';
    close;
    sql.Clear;
    sql.Add(ls_sql);
    ExecSql;
  end;

  with query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from pycpsel');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into pycpsel(pycode,acfmlcn,acfml,orderid,pycpid) ';
      ls_sql:=ls_sql+' values('+chr(39)+fieldbyname('pycode').AsString+chr(39)+','+chr(39)+fieldbyname('acfmlcn').AsString+chr(39)+','+chr(39)+fieldbyname('acfml').AsString+chr(39);
      ls_sql:=ls_sql+','+fieldbyname('orderid').AsString+','+fieldbyname('pycpid').AsString+')';

      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(ls_sql);
      query1.ExecSQL;
      next;
    end;
  end;
  M_info.Lines.Delete(i);
  m_info.Lines.Add('正在备份工资选择信息表...已备份！');
  ProgressBar1.Position:=PB_pos;
  FlatGauge1.Progress:=PB_pos;
end;

procedure Tbackupdata_form.PystpBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份工资项目信息表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE pystp (pycode char(2) NOT NULL,pyname char(50) NOT NULL,pytype char(1) NOT NULL,pymtd char(1) NOT NULL)';
    close;
    sql.Clear;
    sql.Add(ls_sql);
    ExecSql;
  end;

  with query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from pystp');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into pystp(pycode,pyname,pytype,pymtd) ';
      ls_sql:=ls_sql+' values('+chr(39)+fieldbyname('pycode').AsString+chr(39)+','+chr(39)+fieldbyname('pyname').AsString+chr(39)+','+chr(39)+fieldbyname('pytype').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('pymtd').AsString+chr(39)+')';

      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(ls_sql);
      query1.ExecSQL;
      next;
    end;
  end;
  M_info.Lines.Delete(i);
  m_info.Lines.Add('正在备份工资项目信息表...已备份！');
  ProgressBar1.Position:=PB_pos;
  FlatGauge1.Progress:=PB_pos;
end;

procedure Tbackupdata_form.RefetabBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份工资表、工资模块对照表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE refetab (groupid numeric(8,0) NOT NULL,pycpid numeric(8,0) NOT NULL,pyear char(4) NOT NULL,pmonth char(2) NOT NULL)';
    close;
    sql.Clear;
    sql.Add(ls_sql);
    ExecSql;
  end;

  with query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from refetab');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into refetab(groupid,pycpid,pyear,pmonth) ';
      ls_sql:=ls_sql+' values('+fieldbyname('groupid').AsString+','+fieldbyname('pycpid').AsString+','+chr(39)+fieldbyname('pyear').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('pmonth').AsString+chr(39)+')';

      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add(ls_sql);
      query1.ExecSQL;
      next;
    end;
  end;
  M_info.Lines.Delete(i);
  m_info.Lines.Add('正在备份工资表、工资模块对照表...已备份！');
  ProgressBar1.Position:=PB_pos;
  FlatGauge1.Progress:=PB_pos;
end;

procedure Tbackupdata_form.PytbmtBackup(var ls_file:string);
var
  ls_sql,ls_field:string;
  i,j:integer;
begin
  i:=M_info.Lines.Add('正在备份工资表维护表...');
  with query1 do
  begin