backup.pas

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

unit BackUp;

interface

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

type
  TBackUpForm = class(TForm)
    ButtonZuChe: TButton;
    OpenDialogBeiFen: TOpenDialog;
    ButtonClose: TButton;
    DateTimePickerBegin: TDateTimePicker;
    DateTimePickerEnd: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    ButtonShuaKa: TButton;
    DataSetProviderBrush: TDataSetProvider;
    DataSetProviderBack: TDataSetProvider;
    RadioButtonAll: TRadioButton;
    RadioButtonSele: TRadioButton;
    DBComboBoxSele: TDBLookupComboBox;
    SaveDialogBeiFen: TSaveDialog;
    procedure ButtonZuCheClick(Sender: TObject);
    procedure ButtonShuaKaClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DateTimePickerBeginExit(Sender: TObject);
    procedure DateTimePickerEndExit(Sender: TObject);
    procedure RadioButtonAllClick(Sender: TObject);
    procedure RadioButtonSeleClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BackUpForm: TBackUpForm;

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

procedure TBackUpForm.ButtonZuCheClick(Sender: TObject);
{Var Filehei:TextFile;}
begin
Try
if SaveDialogBeiFen.Execute then
Begin
{   AssignFile(Filehei,OpenDialogheimingdan.FileName);
   ReWrite(Filehei);}
   DateTimePickerBegin.Time:=StrToTime('0:00:00');
   DateTimePickerEnd.Time:=StrToTime('23:59:59');
   With HuaXiaData.QueryLeaseCar Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From lease_car_info Where real_return_date>:begindate and real_return_date<:enddate');
     Add(' And real_return_date<=return_date and bad_record_tag=:tag');
     End;
     RequestLive:=True;
     ParamByName('begindate').Value:=DateTimePickerBegin.DateTime;
     ParamByName('enddate').Value:=DateTimePickerEnd.DateTime;
     ParamByName('tag').Value:='00';
     prepare;
     Open;
     End;
   HuaXiaData.BackUpData.Data:=DataSetProviderBack.Data;
   HuaXiaData.BackUpData.SaveToFile(SaveDialogBeiFen.FileName);
   With HuaXiaData.QueryLeaseCar Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Delete lease_car_info Where real_return_date>:begindate and real_return_date<:enddate');
     Add(' And real_return_date<=return_date and bad_record_tag=:tag');
     End;
     RequestLive:=True;
     ParamByName('begindate').Value:=DateTimePickerBegin.DateTime;
     ParamByName('enddate').Value:=DateTimePickerEnd.DateTime;
     ParamByName('tag').Value:='00';
     ExecSQL;
     End;
End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TBackUpForm.ButtonShuaKaClick(Sender: TObject);
begin
Try
if SaveDialogBeiFen.Execute then
Begin
{   AssignFile(Filehei,OpenDialogheimingdan.FileName);
   ReWrite(Filehei);}
   DateTimePickerBegin.Time:=StrToTime('0:00:00');
   DateTimePickerEnd.Time:=StrToTime('23:59:59');
   With HuaXiaData.QueryBrush Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From ic_brush_info Where brush_date>:begindate and brush_date<:enddate');
     End;
     RequestLive:=True;
     ParamByName('begindate').Value:=DateTimePickerBegin.DateTime;
     ParamByName('enddate').Value:=DateTimePickerEnd.DateTime;
     prepare;
     Open;
     End;
   HuaXiaData.BackUpData.Data:=DataSetProviderbrush.Data;
   HuaXiaData.BackUpData.SaveToFile(SaveDialogBeiFen.FileName);
   With HuaXiaData.QueryBrush Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Delete ic_brush_info Where brush_date>:begindate and brush_date<:enddate');
     End;
     RequestLive:=True;
     ParamByName('begindate').Value:=DateTimePickerBegin.DateTime;
     ParamByName('enddate').Value:=DateTimePickerEnd.DateTime;
     ExecSQL;
     End;

End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;

end;

procedure TBackUpForm.FormActivate(Sender: TObject);
begin
DateTimePickerBegin.DateTime:=Now-30;
DateTimePickerEnd.DateTime:=Now;
RadioButtonAll.Checked:=True;
RadioButtonSele.Checked:=False;
DBComboBoxSele.Enabled:=False;
end;

procedure TBackUpForm.DateTimePickerBeginExit(Sender: TObject);
begin
If DateTimePickerBegin.DateTime>DateTimePickerEnd.DateTime Then
   ShowMessage('起始时间迟于终止时间');
end;

procedure TBackUpForm.DateTimePickerEndExit(Sender: TObject);
begin
If DateTimePickerBegin.DateTime>DateTimePickerEnd.DateTime Then
   ShowMessage('起始时间迟于终止时间');
end;

procedure TBackUpForm.RadioButtonAllClick(Sender: TObject);
begin
RadioButtonAll.Checked:=True;
RadioButtonSele.Checked:=False;
DBComboBoxSele.Enabled:=False;
end;

procedure TBackUpForm.RadioButtonSeleClick(Sender: TObject);
begin
RadioButtonAll.Checked:=False;
RadioButtonSele.Checked:=True;
HuaXiaData.TableCompSet.Active:=True;
DBComboBoxSele.Enabled:=True;
end;

end.