ufrmusermanage.pas

delphi的一个图书管理系统..结合数据库的.不错

unit ufrmUserManage;

interface

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

type
  TfrmReaderManage = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Label1: TLabel;
    btnNewReader: TButton;
    btnModifyReader: TButton;
    btnDeleteReader: TButton;
    btnQuit: TButton;
    dsReader: TDataSource;
    DBGrid1: TDBGrid;
    tblReader: TADOTable;
    edReaderID: TDBEdit;
    edName: TDBEdit;
    edGender: TDBEdit;
    edBirthday: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    radioStatus: TDBRadioGroup;
    btnOK: TButton;
    btnCancel: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnQuitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnNewReaderClick(Sender: TObject);
    procedure btnModifyReaderClick(Sender: TObject);
    procedure btnDeleteReaderClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
    procedure  Change(value:integer);
  public
    { Public declarations }
  end;

var
  frmReaderManage: TfrmReaderManage;

procedure WorkfrmReaderManage;

implementation

uses udmData;

{$R *.dfm}

procedure WorkfrmReaderManage;
begin
  Application.CreateForm(TfrmReaderManage,frmReaderManage);
  frmReaderManage.ShowModal;
end;

procedure  TfrmReaderManage.Change(value:integer);
begin
  if value = 1 then
    begin
      dbGrid1.Enabled  := true;
      edReaderID.ReadOnly := true;
      edName.ReadOnly := true;
      edGender.ReadOnly := true;
      edBirthday.ReadOnly := true;
      radioStatus.ReadOnly := true;
      btnOK.Enabled := false;
      btnCancel.Enabled := false;
      btnNewReader.Enabled := true;
      btnModifyReader.Enabled := true;
      btnDeleteReader.Enabled := true;
    end
  else
    begin
      dbGrid1.Enabled  := false;
      edReaderID.ReadOnly := false;
      edName.ReadOnly := false;
      edGender.ReadOnly := false;
      edBirthday.ReadOnly := false;
      radioStatus.ReadOnly := false;
      btnOK.Enabled := true;
      btnCancel.Enabled := true;
      btnNewReader.Enabled := false;
      btnModifyReader.Enabled := false;
      btnDeleteReader.Enabled := false;

    end;
end;

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

procedure TfrmReaderManage.btnQuitClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmReaderManage.FormCreate(Sender: TObject);
begin
   tblReader.Close;
   tblReader.Open;
   Change(1);
end;

procedure TfrmReaderManage.btnNewReaderClick(Sender: TObject);
begin
  tblReader.Append;
  tblReader.FieldByName('Status').Value := 1;
  Change(2);
end;

procedure TfrmReaderManage.btnModifyReaderClick(Sender: TObject);
begin
  tblReader.Edit;
  Change(2);
end;

procedure TfrmReaderManage.btnDeleteReaderClick(Sender: TObject);
begin
  tblReader.Edit;
  tblReader.FieldByName('Status').Value := 2;
  tblReader.Post;
  Change(1);
end;

procedure TfrmReaderManage.btnOKClick(Sender: TObject);
begin
  tblReader.Post;
  Change(1);
end;

procedure TfrmReaderManage.btnCancelClick(Sender: TObject);
begin
  tblReader.Cancel;
  Change(1);
end;

end.