xtcsh.pas

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

unit xtcsh;

interface

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

type
  TForm69 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Panel3: TPanel;
    SpeedButton1: TSpeedButton;
    Panel4: TPanel;
    Image1: TImage;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form69: TForm69;

implementation
  uses Dataz;
{$R *.dfm}

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

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

procedure TForm69.SpeedButton1Click(Sender: TObject);
begin
  if Application.MessageBox('确实要删除全部数据吗？','提示',MB_YesNo)= ID_yes then
  begin
    Try
      if FileExists('C:\gdzcBack.Bak') then
      begin
        with Daz.ADOQuery1 do
        begin
          Close;
          SQL.Clear;
          //DeleteTable 是预先创建的存储过程
          SQL.Add('exec DeleteTable');
          ExecSQL;
        end;
        Application.MessageBox('系统初始化成功。','提示',0+64);
      end
      else
        Application.MessageBox('数据库没有备份，不能初始化数据，请先备份数据库。','提示',64);
    Except
      Application.MessageBox('系统出错。','提示',0+64);
      Close;
    end;
  end;
end;
procedure TForm69.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

end.