backupdata.~pas

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

  with query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from organmap');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into organmap(parentid,id,name,disptype,describe,cpseno,groupid)';
      ls_sql:=ls_sql+' values('+fieldbyname('parentid').AsString+','+fieldbyname('id').AsString+','+chr(39)+fieldbyname('name').AsString+chr(39);
      ls_sql:=ls_sql+','+fieldbyname('disptype').AsString+','+chr(39)+fieldbyname('describe').AsString+chr(39)+','+fieldbyname('cpseno').AsString;
      ls_sql:=ls_sql+','+fieldbyname('groupid').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.PsarchBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份人员基本信息表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE psarch (psseno numeric(8,0) NOT NULL,cpseno numeric(6,0) NOT NULL,iscode char(18),agcardno char(8),psname char(10),';
    ls_sql:=ls_sql+'sex char(1),bdate date,household char(1),wkattr char(2),identity char(1),pflg char(1),wkdate date,joindate date,';
    ls_sql:=ls_sql+'status char(1),rewage numeric(8,2),topwage numeric(8,2),bfidyears numeric(4,2),folk char(8),spwktype char(1),';
    ls_sql:=ls_sql+'spwkyears numeric(4,2),workno char(8),marry char(1),govis char(16),cover char(16),healstat char(8),relatel char(12),';
    ls_sql:=ls_sql+'address char(50),indvid char(10),cultdegr char(2),degree char(3),special char(6),entetime date,organid integer,';
    ls_sql:=ls_sql+'wordsort char(6),dutyname char(7),cadrlevl char(4),prosduty char(3),wordid char(15),dbad char(16),chgstat char(16),';
    ls_sql:=ls_sql+'chantime date,otherinfo char(100),ifdel char(1),chaninfo char(30),manid numeric(8,0),chgreason char(3),';
    ls_sql:=ls_sql+'ifmodify char(1),opcode integer,opdate date,itcode numeric(4,0),lockflg char(1))';
    close;
    sql.Clear;
    sql.Add(ls_sql);
    ExecSql;
  end;

  with query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from psarch');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into psarch(psseno,cpseno,iscode,agcardno,psname,sex,bdate,household,wkattr,identity,pflg,wkdate,joindate,status,rewage,topwage';
      ls_sql:=ls_sql+',bfidyears,folk,spwktype,spwkyears,workno,marry,govis,cover,healstat,relatel,address,indvid,cultdegr,degree,special';
      ls_sql:=ls_sql+',entetime,organid,wordsort,dutyname,cadrlevl,prosduty,wordid,dbad,chgstat,chantime,otherinfo,ifdel,chaninfo,manid';
      ls_sql:=ls_sql+',chgreason,ifmodify,opcode,opdate,itcode,lockflg) ';
      ls_sql:=ls_sql+' values('+fieldbyname('psseno').AsString+','+fieldbyname('cpseno').AsString+','+chr(39)+fieldbyname('iscode').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('agcardno').AsString+chr(39)+','+chr(39)+fieldbyname('psname').AsString+chr(39)+','+chr(39)+fieldbyname('sex').AsString+chr(39);
      ls_sql:=ls_sql+','+ifthen(fieldbyname('bdate').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('bdate').AsDateTime)+chr(39)+')')+','+chr(39)+fieldbyname('household').AsString+chr(39)+','+chr(39)+fieldbyname('wkattr').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('identity').AsString+chr(39)+','+chr(39)+fieldbyname('pflg').AsString+chr(39)+','+ifthen(fieldbyname('wkdate').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('wkdate').AsDateTime)+chr(39)+')');
      ls_sql:=ls_sql+','+ifthen(fieldbyname('joindate').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('joindate').AsDateTime)+chr(39)+')')+','+chr(39)+fieldbyname('status').AsString+chr(39)+','+ifthen(fieldbyname('rewage').AsString='','null',fieldbyname('rewage').AsString);
      ls_sql:=ls_sql+','+ifthen(fieldbyname('topwage').AsString='','null',fieldbyname('topwage').AsString)+','+ifthen(fieldbyname('bfidyears').AsString='','null',fieldbyname('bfidyears').AsString)+','+chr(39)+fieldbyname('folk').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('spwktype').AsString+chr(39)+','+ifthen(fieldbyname('spwkyears').AsString='','null',fieldbyname('spwkyears').AsString)+','+chr(39)+fieldbyname('workno').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('marry').AsString+chr(39)+','+chr(39)+fieldbyname('govis').AsString+chr(39)+','+chr(39)+fieldbyname('cover').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('healstat').AsString+chr(39)+','+chr(39)+fieldbyname('relatel').AsString+chr(39)+','+chr(39)+fieldbyname('address').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('indvid').AsString+chr(39)+','+chr(39)+fieldbyname('cultdegr').AsString+chr(39)+','+chr(39)+fieldbyname('degree').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('special').AsString+chr(39)+','+ifthen(fieldbyname('entetime').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('entetime').AsDateTime)+chr(39)+')')+','+fieldbyname('organid').AsString;
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('wordsort').AsString+chr(39)+','+chr(39)+fieldbyname('dutyname').AsString+chr(39)+','+chr(39)+fieldbyname('cadrlevl').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('prosduty').AsString+chr(39)+','+chr(39)+fieldbyname('wordid').AsString+chr(39)+','+chr(39)+fieldbyname('dbad').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('chgstat').AsString+chr(39)+','+ifthen(fieldbyname('chantime').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('chantime').AsDateTime)+chr(39)+')')+','+chr(39)+fieldbyname('otherinfo').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('ifdel').AsString+chr(39)+','+chr(39)+fieldbyname('chaninfo').AsString+chr(39)+','+fieldbyname('manid').AsString;
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('chgreason').AsString+chr(39)+','+chr(39)+fieldbyname('ifmodify').AsString+chr(39)+','+ifthen(fieldbyname('opcode').AsString='','null',fieldbyname('opcode').AsString);
      ls_sql:=ls_sql+','+ifthen(fieldbyname('opdate').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('opdate').AsDateTime)+chr(39)+')')+','+ifthen(fieldbyname('itcode').AsString='','null',fieldbyname('itcode').AsString)+','+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.HomeinfoBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份家庭情况信息表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE homeinfo (id numeric(8,0) not null,appe char(10) NOT NULL,compe char(10) NOT NULL,bornym date,workunit char(50),govis char(16),manid 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 homeinfo');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into homeinfo(id,appe,compe,bornym,workunit,govis,manid) ';
      ls_sql:=ls_sql+' values('+fieldbyname('id').AsString+','+chr(39)+fieldbyname('appe').AsString+chr(39)+','+chr(39)+fieldbyname('compe').AsString+chr(39);
      ls_sql:=ls_sql+','+ifthen(fieldbyname('bornym').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('bornym').AsDateTime)+chr(39)+')');
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('workunit').AsString+chr(39)+','+ chr(39)+fieldbyname('govis').AsString+chr(39)+','+fieldbyname('manid').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.PactinfoBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份合同情况信息表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE pactinfo (id numeric(8,0) not null,begintime date NOT NULL,pactnum numeric(4,2),pactno char(10) NOT NULL ,';
    ls_sql:=ls_sql+'archid char(20),endtime date, pacttime char(2) NOT NULL,pacttype char(10) NOT NULL,manid 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 pactinfo');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into pactinfo(id,begintime,pactnum,pactno,archid,endtime, pacttime,pacttype,manid) ';
      ls_sql:=ls_sql+' values('+fieldbyname('id').AsString+','+ifthen(fieldbyname('begintime').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('begintime').AsDateTime)+chr(39)+')');
      ls_sql:=ls_sql+','+fieldbyname('pactnum').AsString+','+chr(39)+fieldbyname('pactno').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('archid').AsString+chr(39)+','+ifthen(fieldbyname('endtime').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('endtime').AsDateTime)+chr(39)+')');
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('pacttime').AsString+chr(39)+','+chr(39)+fieldbyname('pacttype').AsString+chr(39)+','+fieldbyname('manid').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.StudyinfoBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份学习情况信息表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE studyinfo (id numeric(8,0) NOT NULL,study char(10) NOT NULL,special char(6),jointime date NOT NULL,';
    ls_sql:=ls_sql+'studform char(2) NOT NULL,educsyst char(6) NOT NULL,gradtime date,gradtype char(1),school char(3),';
    ls_sql:=ls_sql+'givecoun char(20),givetime date,giveunit char(50),manid numeric(8,0) NOT NULL,gradscho char(50))';
    close;
    sql.Clear;
    sql.Add(ls_sql);
    ExecSql;
  end;

  with query2 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from studyinfo');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into studyinfo(id,study,special,jointime,studform,educsyst,gradtime,gradtype,school,givecoun,givetime,giveunit,manid,gradscho) ';
      ls_sql:=ls_sql+' values('+fieldbyname('id').AsString+','+chr(39)+fieldbyname('study').AsString+chr(39)+','+chr(39)+fieldbyname('special').AsString+chr(39);
      ls_sql:=ls_sql+','+ifthen(fieldbyname('jointime').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('jointime').AsDateTime)+chr(39)+')')+','+chr(39)+fieldbyname('studfrom').AsString+chr(39)+','+chr(39)+fieldbyname('educsyst').AsString+chr(39);
      ls_sql:=ls_sql+','+ifthen(fieldbyname('gradtime').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('gradtime').AsDateTime)+chr(39)+')')+','+chr(39)+fieldbyname('gradtype').AsString+chr(39)+','+chr(39)+fieldbyname('school').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('givecoun').AsString+chr(39)+','+ifthen(fieldbyname('givetime').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('givetime').AsDateTime)+chr(39)+')')+','+chr(39)+fieldbyname('giveunit').AsString+chr(39);
      ls_sql:=ls_sql+','+fieldbyname('manid').AsString+','+chr(39)+fieldbyname('gradscho').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.TraiinfoBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份培训情况信息表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE traiinfo (id numeric(8,0) NOT NULL,begintime date NOT NULL,traicont char(1) NOT NULL,endtime date,';
    ls_sql:=ls_sql+'traitype char(2) NOT NULL,traimeth char(2) NOT NULL,trairesu char(1) NOT NULL,';
    ls_sql:=ls_sql+'traiunit char(50) NOT NULL,unittype char(1),manid 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 traiinfo');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into traiinfo(id,begintime,traicont,endtime,traitype,traimeth,trairesu,traiunit,unittype,manid) ';
      ls_sql:=ls_sql+' values('+fieldbyname('id').AsString+','+ifthen(fieldbyname('begintime').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('begintime').AsDateTime)+chr(39)+')')+','+chr(39)+fieldbyname('traicont').AsString+chr(39);
      ls_sql:=ls_sql+','+ifthen(fieldbyname('endtime').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('endtime').AsDateTime)+chr(39)+')')+','+chr(39)+fieldbyname('traitype').AsString+chr(39)+','+chr(39)+fieldbyname('traimeth').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('trairesu').AsString+chr(39)+','+chr(39)+fieldbyname('traiunit').AsString+chr(39)+','+chr(39)+fieldbyname('unittype').AsString+chr(39);
      ls_sql:=ls_sql+','+fieldbyname('manid').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.WorkinfoBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份工作情况信息表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE workinfo (id numeric NOT NULL,locaunit char(50) NOT NULL,begintime date NOT NULL,endtime date,';
    ls_sql:=ls_sql+'workunit char(20) NOT NULL,cadrlevl char(4),prosduty char(3),proveman char(8),manid 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 workinfo');
    prepare;
    open;
    while not eof do
    begin
      ls_sql:='insert into workinfo(id,locaunit,begintime,endtime,workunit,cadrlevl,prosduty,proveman,manid) ';
      ls_sql:=ls_sql+' values('+fieldbyname('id').AsString+','+chr(39)+fieldbyname('locaunit').AsString+chr(39)+','+ifthen(fieldbyname('begintime').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('begintime').AsDateTime)+chr(39)+')');
      ls_sql:=ls_sql+','+ifthen(fieldbyname('endtime').AsString='','null','ctod('+chr(39)+FormatDateTime('mm/dd/yyyy',fieldbyname('endtime').AsDateTime)+chr(39)+')')+','+chr(39)+fieldbyname('workunit').AsString+chr(39)+','+chr(39)+fieldbyname('cadrlevl').AsString+chr(39);
      ls_sql:=ls_sql+','+chr(39)+fieldbyname('prosduty').AsString+chr(39)+','+chr(39)+fieldbyname('proveman').AsString+chr(39)+','+fieldbyname('manid').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.PsupcaseBackup();
var
  ls_sql:string;
  i:integer;
begin
  i:=M_info.Lines.Add('正在备份职工变动信息表...');
  with query1 do
  begin
    ls_sql:='CREATE TABLE psupcase (iscode char(18) NOT NULL,opseno numeric(6,0),uptype char(2) NOT NULL,upreason char(3) NOT NULL,';
    ls_sql:=ls_sql+'cgdate date NOT NULL,oristatus char(1) NOT NULL,opcode integer,opdate date NOT NULL,procflg char(1) NOT NULL,';
    ls_sql:=ls_sql+'notes char(200),manid integer,opid numeric(8,0) NOT NULL,psseno numeric(8,0),cpseno numeric(6,0),';
    ls_sql:=ls_sql+'organid integer,oricpseno numeric(6,0),oriorganid integer,itcode numeric(4,0),lockflg char(1),';
    ls_sql:=ls_sql+'psname char(10),agcardno char(8),opname char(10))';
    close;
    sql.Clear;
    sql.Add(ls_sql);
    ExecSql;
  end;

  with query2 do
  begin
    close;