ufrmbookmanage.pas

一款不错的图书馆借阅系统

unit ufrmBookManage;

interface

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

type
  TfrmBookManage = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    tblBook: TADOTable;
    dsBook: TDataSource;
    edBookCode: TDBEdit;
    Label2: TLabel;
    edBookName: TDBEdit;
    edAuthor: TDBEdit;
    edPress: TDBEdit;
    edPrice: TDBEdit;
    memoRemark: TDBMemo;
    Label3: TLabel;
    Label4: TLabel;
    btnAppend: TButton;
    btnEdit: TButton;
    btnDelete: TButton;
    btnOK: TButton;
    btnCancel: TButton;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnAppendClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure ChangeButton( nType:integer);
  public
    { Public declarations }
  end;

var
  frmBookManage: TfrmBookManage;

  procedure WorkfrmBookManage;

implementation

uses udmData;
{$R *.dfm}
procedure WorkfrmBookManage;
begin
  Application.CreateForm(TfrmBookManage,frmBookManage);
  frmBookManage.ShowModal;
end;

procedure TfrmBookManage.ChangeButton( nType:integer);
begin
  if nType = 1 then //正在修改或插入
    begin
      DBGrid1.Enabled := false;
      edBookCode.ReadOnly := false;
      edBookName.ReadOnly := false;
      edAuthor.ReadOnly := false;
      edPress.ReadOnly := false;
      edPrice.ReadOnly := false;
      memoRemark.ReadOnly := false;
      btnAppend.Enabled := false;
      btnEdit.Enabled := false;
      btnDelete.Enabled := false;
      btnOK.Enabled   := true;
      btnCancel.Enabled  := true;
    end
  else
    begin
      DBGrid1.Enabled := true;
      edBookCode.ReadOnly := true;
      edBookName.ReadOnly := true;
      edAuthor.ReadOnly := true;
      edPress.ReadOnly := true;
      edPrice.ReadOnly := true;
      memoRemark.ReadOnly := true;
      btnAppend.Enabled := true;
      btnEdit.Enabled := true;
      btnDelete.Enabled := true;
      btnOK.Enabled    := false;
      btnCancel.Enabled  := false;

    end;

end;

procedure TfrmBookManage.FormCreate(Sender: TObject);
begin
  tblBook.Close;
  tblBook.Open;
  ChangeButton(2);
end;

procedure TfrmBookManage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmBookManage.btnAppendClick(Sender: TObject);
begin
  tblBook.Append;
  ChangeButton(1);
end;

procedure TfrmBookManage.btnEditClick(Sender: TObject);
begin
  tblBook.Edit;
  ChangeButton(1);
end;

procedure TfrmBookManage.btnDeleteClick(Sender: TObject);
begin
  tblBook.Delete;
end;

procedure TfrmBookManage.btnOKClick(Sender: TObject);
begin
  tblBook.Post;
  ChangeButton(2);
end;

procedure TfrmBookManage.btnCancelClick(Sender: TObject);
begin
  tblBook.Cancel;
  ChangeButton(2);
end;

procedure TfrmBookManage.Button1Click(Sender: TObject);
begin
  Close;
end;

end.