zcsyqkgl.pas

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

unit zcsyqkgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DataSource1: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(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 Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation
  uses Dataz;
{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
  if Trim(Edit1.Text)<>'' then
  begin
    Try
    with Daz.ADOQuery2 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Insert 固定资产使用状况表 values(:a)');
      Parameters.ParamByName('a').Value := Trim(Edit1.Text);
      ExecSQL;
    end;
    Self.OnShow(Sender);
    Application.MessageBox('添加成功。','提示',64);
    Edit1.SetFocus;
    Except
      Application.MessageBox('操作失败。','提示',64);
      Close;
    end;
  end;
end;

procedure TForm5.BitBtn2Click(Sender: TObject);
begin
  if Application.MessageBox('确实要删除当前记录吗？','提示',MB_YesNo)= ID_Yes then
    Daz.ADOQuery1.Delete;
end;

procedure TForm5.FormShow(Sender: TObject);
begin
  Edit1.Clear;
  with Daz.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 固定资产使用状况表');
    Open
  end;
  DataSource1.DataSet := Daz.ADOQuery1;
end;

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

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

procedure TForm5.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_ReTurn)and(Trim(Edit1.Text)<>'') then
    BitBtn1.SetFocus;
end;

end.