restore.pas

本系统为演示Delphi的功能而开发设计

unit Restore;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Db, Dbgrids, DBTables, Grids, Menus,
  ComCtrls, Provider;

type
  TRestoreForm = class(TForm)
    ButtonZuChe: TButton;
    OpenDialoghuifu: TOpenDialog;
    ButtonClose: TButton;
    ButtonShuaKa: TButton;
    procedure ButtonZuCheClick(Sender: TObject);
    procedure ButtonShuaKaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RestoreForm: TRestoreForm;

implementation
uses huaxia, ErrorHit,Login;
{$R *.DFM}

procedure TRestoreForm.ButtonZuCheClick(Sender: TObject);
{Var Filehei:TextFile;}
begin
Try
if OpenDialogHuifu.Execute then
Begin
   HuaXiaData.BackUpData.LoadFromFile(OpenDialogHuiFu.FileName);
   With HuaXiaData.QueryLeaseCar Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From lease_car_info where comp_code=:code');
     End;
     RequestLive:=True;
     ParamByName('code').AsString:='0000';
     prepare;
     Open;
     End;
   HuaXiaData.BackUpData.First;
   While Not HuaXiaData.BackUpData.Eof Do
   Begin
     HuaXiaData.QueryLeaseCar.Append;
     {HuaXiaData.QueryLeaseCar.FieldByName('record_number').Value:=HuaXiaData.BackUpData.FieldByName('record_number').Value;}
     HuaXiaData.QueryLeaseCar.FieldByName('comp_code').Value:=HuaXiaData.BackUpData.FieldByName('comp_code').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('site_code').Value:=HuaXiaData.BackUpData.FieldByName('site_code').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('id_number').Value:=HuaXiaData.BackUpData.FieldByName('id_number').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('lease_comp_code').Value:=HuaXiaData.BackUpData.FieldByName('lease_comp_code').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('car_card_number').Value:=HuaXiaData.BackUpData.FieldByName('car_card_number').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('car_type').Value:=HuaXiaData.BackUpData.FieldByName('car_type').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('engine_number').Value:=HuaXiaData.BackUpData.FieldByName('engine_number').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('car_number').Value:=HuaXiaData.BackUpData.FieldByName('car_number').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('car_color').Value:=HuaXiaData.BackUpData.FieldByName('car_color').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('lease_way').Value:=HuaXiaData.BackUpData.FieldByName('lease_way').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('bad_record_tag').Value:=HuaXiaData.BackUpData.FieldByName('bad_record_tag').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('begin_date').Value:=HuaXiaData.BackUpData.FieldByName('begin_date').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('return_date').Value:=HuaXiaData.BackUpData.FieldByName('return_date').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('real_return_date').Value:=HuaXiaData.BackUpData.FieldByName('real_return_date').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('continue_date').Value:=HuaXiaData.BackUpData.FieldByName('continue_date').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('continue_days').Value:=HuaXiaData.BackUpData.FieldByName('continue_days').Value;
     HuaXiaData.QueryLeaseCar.FieldByName('note').Value:=HuaXiaData.BackUpData.FieldByName('note').Value;
     HuaXiaData.QueryLeaseCar.Post;
     HuaXiaData.BackUpData.Next;
   End;
End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TRestoreForm.ButtonShuaKaClick(Sender: TObject);
begin
Try
if OpenDialogHuiFu.Execute then
Begin
   HuaXiaData.BackUpData.LoadFromFile(OpenDialogHuiFu.FileName);
   With HuaXiaData.QueryBrush Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From ic_brush_info');
     End;
     RequestLive:=True;
     prepare;
     Open;
     End;
   HuaXiaData.BackUpData.First;
   While Not HuaXiaData.BackUpData.Eof Do
   Begin
     HuaXiaData.QueryBrush.Append;
     HuaXiaData.QueryBrush.FieldByName('login_name').Value:=HuaXiaData.BackUpData.FieldByName('login_name').Value;
     HuaXiaData.QueryBrush.FieldByName('brush_date').Value:=HuaXiaData.BackUpData.FieldByName('brush_date').Value;
     HuaXiaData.QueryBrush.FieldByName('comp_code').Value:=HuaXiaData.BackUpData.FieldByName('comp_code').Value;
     HuaXiaData.QueryBrush.FieldByName('site_code').Value:=HuaXiaData.BackUpData.FieldByName('site_code').Value;
     HuaXiaData.QueryBrush.FieldByName('brush_mach_no').Value:=HuaXiaData.BackUpData.FieldByName('brush_mach_no').Value;
     HuaXiaData.QueryBrush.Post;
     HuaXiaData.BackUpData.Next;
   End;
End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;

end;


end.