sjhy.pas

用delphi编写的固定资产管理系统

unit sjhy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg, TeeProcs, TeEngine,
  Chart, Grids, DBGrids, DB, ComCtrls;

type
  TFormH = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Chart1: TChart;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel3: TPanel;
    Memo2: TMemo;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormH: TFormH;
  Filepostion: integer = 0;
implementation
   uses Dataz,bfsb;
{$R *.dfm}

procedure TFormH.BitBtn1Click(Sender: TObject);
var
  timeNow, TimeTo: String;
begin
  Try
  if FileExists('C:\gdzcBack.Bak') then
  begin
    TimeNow := FormatDatetime('yyyy-mm-dd',DateTimePicker1.Date);
    TimeTo := FormatDatetime('yyyy-mm-dd',DateTimePicker1.Date+1);
    with Daz.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Restore Headeronly from  disk = ''c:\gdzcback.bak''');
      Open;
    end;
    Daz.ADOQuery1.Filter := 'BackupFinishDate ' + '>= ' + TimeNow + ' and '+' BackupFinishDate ' +' < '+ TimeTo;
    Daz.ADOQuery1.Filtered := True;
    if Daz.ADOQuery1.RecordCount>0 then
    begin
      if Daz.ADOQuery1.RecordCount>1 then
      begin
        Application.CreateForm(TForm12,Form12);
        Form12.DataSource1.DataSet:=Daz.ADOQuery1;
        Form12.ShowModal;
        Form12.Free;
      end;
      Daz.ADOQuery1.Filtered := False;
    end
    else
    begin
      Application.MessageBox('该天没有备份数据.','提示',64);
      Daz.ADOQuery1.Filtered := False;
      Exit;
    end;
    with Daz.ADOQuery3 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(' use Master Restore DataBase 固定资产管理系统 From Disk = ''C:\gdzcback.bak'' with File  = :a' );
      Parameters.ParamByName('a').Value := Filepostion;
      ExecSQL;
    end;
    with Daz.ADOQuery3 do
    begin
      Close;
      SQL.Clear;
      SQL.Add(' use 固定资产管理系统' );
      ExecSQL;
    end;
    Application.MessageBox('还原成功。','提示',0+64);
  end
  else
    Application.MessageBox('数据库没有备份，请先备份数据库。','提示',64);
  Except
    Application.MessageBox('系统出错。','提示',0+64);
    Close;
  end;

end;

procedure TFormH.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure TFormH.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clBlue;
end;

procedure TFormH.FormCreate(Sender: TObject);
begin
  DateTimePicker1.DateTime := Now();
end;

end.