u_saveorrestore.pas

设备巡检操作系统 本程序是专门为某电厂开发的设备巡检系统

      badoq.FieldByName('MsrNo').AsInteger:=FieldByName('MsrNo').AsInteger;
      badoq.FieldByName('Msritem').AsString:=FieldByName('Msritem').AsString;
      badoq.FieldByName('Dwv').AsInteger:=FieldByName('Dwv').AsInteger;
      badoq.FieldByName('Uwv').AsInteger:=FieldByName('Uwv').AsInteger;
      badoq.FieldByName('Ib').AsString:=FieldByName('Ib').AsString;
      badoq.FieldByName('Pcdate').AsDateTime:=FieldByName('Pcdate').AsDateTime;
      badoq.FieldByName('PcLine').AsInteger:=FieldByName('PcLine').AsInteger;
      badoq.FieldByName('MsrName').AsString:=FieldByName('MsrName').AsString;
      badoq.UpdateRecord;
      next;
    end;
    badoq.Refresh;
    end;
    adcon.CommitTrans;
  finally   Screen.Cursor:=crDefault;
    bAdoQ.Free;
    if adcon.InTransaction then
      adcon.RollbackTrans;
  end;
end;

procedure TFrm_SaveOrRestore.backup6(adcon: TADOConnection);
var
  bAdoQ:TADOQuery;
begin
  bAdoQ:=TADOQuery.Create(Self);
  bAdoQ.Connection:=adcon;
  bAdoQ.SQL.Clear;
  bAdoQ.SQL.Text:='delete from T_BDATA';
  bAdoQ.ExecSQL;
  badoq.SQL.Text:='select * from T_BDATA';
  bAdoQ.Open;
  try     Screen.Cursor:=crHourGlass;
    adcon.BeginTrans;
    with dm.AdoQback do
    begin
    SQL.Text:='select * from T_BDATA' ;
    Prepared:=True;
    Open;
    while not Eof  do begin
    application.ProcessMessages;
      bAdoQ.Append;
      badoq.FieldByName('MsrNo').AsInteger:=FieldByName('MsrNo').AsInteger;
      badoq.FieldByName('Msrvalue').AsString:=FieldByName('Msrvalue').AsString;
      badoq.FieldByName('Udate').AsDateTime:=FieldByName('Udate').AsDateTime;
      badoq.FieldByName('Cdate').AsDateTime:=FieldByName('Cdate').AsDateTime;
      badoq.FieldByName('Cbz').AsString:=FieldByName('Cbz').AsString;
      badoq.FieldByName('PerNo').AsString:=FieldByName('PerNo').AsString;
      badoq.UpdateRecord;
      next;
    end;
    badoq.Refresh;
    end;
    adcon.CommitTrans;
  finally     Screen.Cursor:=crDefault;
    bAdoQ.Free;
    if adcon.InTransaction then
      adcon.RollbackTrans;
  end;
end;

procedure TFrm_SaveOrRestore.backup7(adcon: TADOConnection);
var
  bAdoQ:TADOQuery;
begin
  bAdoQ:=TADOQuery.Create(Self);
  bAdoQ.Connection:=adcon;
  bAdoQ.SQL.Clear;
  bAdoQ.SQL.Text:='delete from T_PERPLAN';
  bAdoQ.ExecSQL;
  badoq.SQL.Text:='select * from T_PERPLAN';
  bAdoQ.Open;
  try     Screen.Cursor:=crHourGlass;
    adcon.BeginTrans;
    with dm.AdoQback do
    begin
    SQL.Text:='select * from T_PERPLAN' ;
    Prepared:=True;
    Open;
    while not Eof  do begin
    application.ProcessMessages;
      bAdoQ.Append;
      badoq.FieldByName('specialty').AsString:=FieldByName('specialty').AsString;
      badoq.FieldByName('MsrNo').AsInteger:=FieldByName('MsrNo').AsInteger;
      badoq.FieldByName('PlanNo').AsString:=FieldByName('PlanNo').AsString;
      badoq.FieldByName('Plansortid').AsString:=FieldByName('Plansortid').AsString;
      badoq.FieldByName('PerDate').AsDateTime:=FieldByName('PerDate').AsDateTime;
      badoq.UpdateRecord;
      next;
    end;
    badoq.Refresh;
    end;
    adcon.CommitTrans;
  finally    Screen.Cursor:=crDefault;
    bAdoQ.Free;
    if adcon.InTransaction then
      adcon.RollbackTrans;
  end;
end;

procedure TFrm_SaveOrRestore.Restore1(adcon: TADOConnection);
var
  bAdoQ:TADOQuery;
begin
  bAdoQ:=TADOQuery.Create(Self);
  bAdoQ.Connection:=adcon;
  bAdoQ.SQL.Clear;
  badoq.SQL.Text:='select * from T_employee where No<>''0001''';
  bAdoQ.Open;
  DM.AdoQback.Connection:=adRconn;
  try
    Screen.Cursor:=crHourGlass;
    adRconn.BeginTrans;
    with dm.AdoQback do
    begin
    SQL.Text:='delete from T_employee where no<>''0001''';
    ExecSQL;
    SQL.Text:='select * from T_employee' ;
    Prepared:=True;
    Open;
    while not badoq.Recordset.EOF  do begin
      if badoq.FieldByName('no').AsString='0001' then
      begin
        badoq.Next;Continue;
      end;
      application.ProcessMessages;
      Append;
      FieldByName('No').AsString:=badoq.FieldByName('No').AsString;
      FieldByName('UserName').AsString:=badoq.FieldByName('UserName').AsString;
      FieldByName('Password').AsString:=badoq.FieldByName('Password').AsString;
      FieldByName('Purview').AsInteger:=badoq.FieldByName('Purview').AsInteger;
      FieldByName('Purview2').AsString:=badoq.FieldByName('Purview2').AsString;
      FieldByName('deptNo').AsString:=badoq.FieldByName('deptNo').AsString;
      FieldByName('Prefession').AsString:=badoq.FieldByName('Prefession').AsString;
      FieldByName('ReMark').AsString:=badoq.FieldByName('ReMark').AsString;
      FieldByName('PlanNo').AsString:=badoq.FieldByName('PlanNo').AsString;
      UpdateRecord;
      badoq.next;
    end;
    Refresh;
    end;
    adRconn.CommitTrans;
  finally
  Screen.Cursor:=crDefault;
    bAdoQ.Free;
    if adRconn.InTransaction then
      adRconn.RollbackTrans;
  end;
end;

procedure TFrm_SaveOrRestore.Restore2(adcon: TADOConnection);
var
  bAdoQ:TADOQuery;
begin
  bAdoQ:=TADOQuery.Create(Self);
  bAdoQ.Connection:=adcon;
  bAdoQ.SQL.Clear;
  badoq.SQL.Text:='select * from T_DEPT';
  bAdoQ.Open;
  DM.AdoQback.Connection:=adRconn;
  try        Screen.Cursor:=crHourGlass;
    adRconn.BeginTrans;
    with dm.AdoQback do
    begin
    SQL.Text:='delete from T_DEPT';
    ExecSQL;
    SQL.Text:='select * from T_DEPT' ;
    Prepared:=True;
    Open;
    while not badoq.Recordset.EOF  do begin
      Append;
      FieldByName('deptno').AsString:=badoq.FieldByName('deptno').AsString;
      FieldByName('deptname').AsString:=badoq.FieldByName('deptname').AsString;
      UpdateRecord;
      badoq.next;
    end;
    Refresh;
    end;
    adRconn.CommitTrans;
  finally    Screen.Cursor:=crDefault;
    bAdoQ.Free;
    if adRconn.InTransaction then
      adRconn.RollbackTrans;
  end;
end;

procedure TFrm_SaveOrRestore.Restore3(adcon: TADOConnection);
var
  bAdoQ:TADOQuery;
begin
  bAdoQ:=TADOQuery.Create(Self);
  bAdoQ.Connection:=adcon;
  bAdoQ.SQL.Clear;
  badoq.SQL.Text:='select * from T_EUPET';
  bAdoQ.Open;
  DM.AdoQback.Connection:=adRconn;
  try Screen.Cursor:=crHourGlass;
    adRconn.BeginTrans;
    with dm.AdoQback do
    begin
    SQL.Text:='delete from T_EUPET';
    ExecSQL;
    SQL.Text:='select * from T_EUPET' ;
    Prepared:=True;
    Open;
    while not badoq.Recordset.EOF  do begin
      Append;
      FieldByName('eupetnno').AsString:=badoq.FieldByName('eupetnno').AsString;
      FieldByName('eupetNo').AsString:=badoq.FieldByName('eupetNo').AsString;
      FieldByName('eupetName').AsString:=badoq.FieldByName('eupetName').AsString;
      UpdateRecord;
      badoq.next;
    end;
    Refresh;
    end;
    adRconn.CommitTrans;
  finally   Screen.Cursor:=crDefault;
    bAdoQ.Free;
    if adRconn.InTransaction then
      adRconn.RollbackTrans;
  end;
end;

procedure TFrm_SaveOrRestore.Restore4(adcon: TADOConnection);
var
  bAdoQ:TADOQuery;
begin
  bAdoQ:=TADOQuery.Create(Self);
  bAdoQ.Connection:=adcon;
  bAdoQ.SQL.Clear;
  badoq.SQL.Text:='select * from T_Part';
  bAdoQ.Open;
  DM.AdoQback.Connection:=adRconn;
  try        Screen.Cursor:=crHourGlass;
    adRconn.BeginTrans;
    with dm.AdoQback do
    begin
    SQL.Text:='delete from T_Part';
    ExecSQL;
    SQL.Text:='select * from T_Part' ;
    Prepared:=True;
    Open;
    while not badoq.Recordset.EOF  do begin
      Append;
      FieldByName('NPartNo').AsString:=badoq.FieldByName('NPartNo').AsString;
      FieldByName('PartName').AsString:=badoq.FieldByName('PartName').AsString;
      FieldByName('EupetNno').AsString:=badoq.FieldByName('EupetNno').AsString;
      FieldByName('Ib').AsString:=badoq.FieldByName('Ib').AsString;
      FieldByName('PartNo').AsString:=badoq.FieldByName('PartNo').AsString;
      UpdateRecord;
      badoq.next;
    end;
    Refresh;
    end;
    adRconn.CommitTrans;
  finally      Screen.Cursor:=crDefault;
    bAdoQ.Free;
    if adRconn.InTransaction then
      adRconn.RollbackTrans;
  end;
end;

procedure TFrm_SaveOrRestore.Restore5(adcon: TADOConnection);
var
  bAdoQ:TADOQuery;
begin
  bAdoQ:=TADOQuery.Create(Self);
  bAdoQ.Connection:=adcon;
  bAdoQ.SQL.Clear;
  badoq.SQL.Text:='select * from T_checkpt';
  bAdoQ.Open;
  DM.AdoQback.Connection:=adRconn;
  try        Screen.Cursor:=crHourGlass;
    adRconn.BeginTrans;
    with dm.AdoQback do
    begin
    SQL.Text:='delete from T_checkpt';
    ExecSQL;
    SQL.Text:='select * from T_checkpt' ;
    Prepared:=True;
    Open;
    while not badoq.Recordset.EOF  do begin
      Append;
      Application.ProcessMessages;
      FieldByName('eupetNno').AsString:=badoq.FieldByName('eupetNno').AsString;
      FieldByName('npartNo').AsString:=badoq.FieldByName('npartNo').AsString;
      FieldByName('msrNNo').AsString:=badoq.FieldByName('msrNNo').AsString;
      FieldByName('MsrNo').AsInteger:=badoq.FieldByName('MsrNo').AsInteger;
      FieldByName('Msritem').AsString:=badoq.FieldByName('Msritem').AsString;
      FieldByName('Dwv').AsInteger:=badoq.FieldByName('Dwv').AsInteger;
      FieldByName('Uwv').AsInteger:=badoq.FieldByName('Uwv').AsInteger;
      FieldByName('Ib').AsString:=badoq.FieldByName('Ib').AsString;
      FieldByName('Pcdate').AsDateTime:=badoq.FieldByName('Pcdate').AsDateTime;
      FieldByName('PcLine').AsInteger:=badoq.FieldByName('PcLine').AsInteger;
      FieldByName('MsrName').AsString:=badoq.FieldByName('MsrName').AsString;
      UpdateRecord;
      badoq.next;
    end;
    Refresh;
    end;
    adRconn.CommitTrans;
  finally      Screen.Cursor:=crDefault;
    bAdoQ.Free;
    if adRconn.InTransaction then
      adRconn.RollbackTrans;
  end;
end;

procedure TFrm_SaveOrRestore.Restore6(adcon: TADOConnection);
var
  bAdoQ:TADOQuery;
begin
  bAdoQ:=TADOQuery.Create(Self);
  bAdoQ.Connection:=adcon;
  bAdoQ.SQL.Clear;
  badoq.SQL.Text:='select * from T_BDATA';
  bAdoQ.Open;
  DM.AdoQback.Connection:=adRconn;
  try               Screen.Cursor:=crHourGlass;
    adRconn.BeginTrans;
    with dm.AdoQback do
    begin
    SQL.Text:='delete from T_BDATA';
    ExecSQL;
    SQL.Text:='select * from T_BDATA' ;
    Prepared:=True;
    Open;
    while not badoq.Recordset.EOF  do begin
      Append;
      FieldByName('MsrNo').AsInteger:=badoq.FieldByName('MsrNo').AsInteger;
      FieldByName('Msrvalue').AsString:=badoq.FieldByName('Msrvalue').AsString;
      FieldByName('Udate').AsDateTime:=badoq.FieldByName('Udate').AsDateTime;
      FieldByName('Cdate').AsDateTime:=badoq.FieldByName('Cdate').AsDateTime;
      FieldByName('Cbz').AsString:=badoq.FieldByName('Cbz').AsString;
      FieldByName('PerNo').AsString:=badoq.FieldByName('PerNo').AsString;
      UpdateRecord;
      badoq.next;
    end;
    Refresh;
    end;
    adRconn.CommitTrans;
  finally     Screen.Cursor:=crDefault;
    bAdoQ.Free;
    if adRconn.InTransaction then
      adRconn.RollbackTrans;
  end;
end;

procedure TFrm_SaveOrRestore.Restore7(adcon: TADOConnection);
var
  bAdoQ:TADOQuery;
begin
  bAdoQ:=TADOQuery.Create(Self);
  bAdoQ.Connection:=adcon;
  bAdoQ.SQL.Clear;
  badoq.SQL.Text:='select * from T_PERPLAN';
  bAdoQ.Open;
  DM.AdoQback.Connection:=adRconn;
  try      Screen.Cursor:=crHourGlass;
    adRconn.BeginTrans;
    with dm.AdoQback do
    begin
    SQL.Text:='delete from T_PERPLAN';
    ExecSQL;
    SQL.Text:='select * from T_PERPLAN' ;
    Prepared:=True;
    Open;
    while not badoq.Recordset.EOF  do begin
      Append;
      FieldByName('specialty').AsString:=badoq.FieldByName('specialty').AsString;
      FieldByName('MsrNo').AsInteger:=badoq.FieldByName('MsrNo').AsInteger;
      FieldByName('PlanNo').AsString:=badoq.FieldByName('PlanNo').AsString;
      FieldByName('Plansortid').AsString:=badoq.FieldByName('Plansortid').AsString;
      FieldByName('PerDate').AsDateTime:=badoq.FieldByName('PerDate').AsDateTime;
      UpdateRecord;
      badoq.next;
    end;
    Refresh;
    end;
    adRconn.CommitTrans;
  finally
    bAdoQ.Free;    Screen.Cursor:=crDefault;
    if adRconn.InTransaction then
      adRconn.RollbackTrans;
  end;
end;

procedure TFrm_SaveOrRestore.FormDestroy(Sender: TObject);
begin
 adRconn.Free;
end;

end.