ushowbookf.pas

图书管理系统 用于进行图书的管理

unit uShowBookF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, dbtables, ExtCtrls, ActnList;

type
  TShowBookF = class(TForm)
    ActionList1: TActionList;
    Action1: TAction;
    Panel1: TPanel;
    Panel2: TPanel;
    ListView1: TListView;
    Panel4: TPanel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Edit : TEdit;
    procedure RefreshBook;
    procedure Show(var Text:TEdit);virtual;
    constructor Create(AOwner : TComponent);override;
  end;

var
  ShowBookF : TShowBookF;

implementation

uses
  uGloabVar;

{$R *.DFM}

procedure TShowBookF.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TShowBookF.Button1Click(Sender: TObject);
begin
  if ShowBookF.ListView1.Selected <> nil then
  begin
    Edit.Text := '';
    Edit.Text := ListView1.Selected.Caption;
  end;
  Close;
end;

procedure TShowBookF.RefreshBook;
var
  Query : TQuery;
begin
  Query := TQuery.Create(nil);
  Query.DatabaseName := DBName;
  Query.SQL.Add('select Code ,Name,ClassName from Book,Class '+
                'where Book.Class = Class.ClassID');
  Query.Open;
  ListView1.Items.Clear;
  while not Query.Eof do
  begin
    with ListView1.Items.Add do
    begin
      Caption := Query.FieldByName('Code').AsString;
      SubItems.Add(Query.FieldByName('Name').AsString);
      SubItems.Add(Query.FieldByName('ClassName').AsString);
    end;
    Query.Next;
  end;
  Query.Close;
  Query.Free;
end;

procedure TShowBookF.FormCreate(Sender: TObject);
begin
  Ctl3D := False;
end;

procedure TShowBookF.ListView1DblClick(Sender: TObject);
begin
  if ListView1.Selected <> nil then
    Button1Click(Sender);
end;

procedure TShowBookF.Action1Execute(Sender: TObject);
begin
  Close;
end;

constructor TShowBookF.Create(AOwner: TComponent);
begin
  inherited;

end;

procedure TShowBookF.FormShow(Sender: TObject);
begin
  try
    RefreshBook;
    ListView1.SetFocus;
  except
    ListView1.Items.Clear;
  end;
end;

procedure TShowBookF.Show(var Text:TEdit);
begin
  inherited Show;
  Edit := Text;
end;

end.