sjbf.pas

来自「一个比较实用的资产管理系统,Delphi+SQL开发」· PAS 代码 · 共 65 行

unit sjbf;

interface

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

type
  TFormF = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Memo1: TMemo;
    Chart1: TChart;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormF: TFormF;

implementation
  uses dataz;
{$R *.dfm}

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

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

procedure TFormF.BitBtn1Click(Sender: TObject);
begin
  Try
  with Daz.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Backup database 固定资产管理系统 to Disk = ''C:\gdzcback.bak'' ');
    ExecSQL;
  end;
    Application.MessageBox('数据备份成功。','提示',0+64);
  Except
    Application.MessageBox('系统出错。','提示',0+64);
    Close;
  end;
end;

end.