unit_shenfen.pas

图书管理系统。可以实现简单的图书管理

unit Unit_shenfen;

interface

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

type
  Tshenfen1 = class(TForm)
    TreeView1: TTreeView;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter2: TSplitter;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  shenfen1: Tshenfen1;

implementation

{$R *.dfm}

procedure Tshenfen1.BitBtn1Click(Sender: TObject);
begin
  with datamodule1.adotable3 do
      begin
       append;
       edit;
       fieldbyname('级别').asstring:=trim(treeview1.selected.text) ;
       fieldbyname('可借书数').asinteger:=strtoint(trim(edit1.text)) ;
       fieldbyname('可借天数').asinteger:=strtoint(trim(edit2.text)) ;
       fieldbyname('超期罚金').asfloat:=strtofloat(trim(edit3.text)) ;
       post;
    end;
    BitBtn1.Enabled:=false;
end;    

procedure Tshenfen1.FormShow(Sender: TObject);
begin
  BitBtn1.Enabled:=false;
end;

procedure Tshenfen1.TreeView1Click(Sender: TObject);
begin
   BitBtn1.Enabled:=true;
end;

procedure Tshenfen1.N1Click(Sender: TObject);
var s:string;
begin
s:=inputbox('新身份','请输入读者的新身份','' );
treeview1.Items.addchild(treeview1.Selected,s);
 end;
procedure Tshenfen1.N2Click(Sender: TObject);
begin
 treeview1.Items.delete(treeview1.Selected);

end;

end.