ushowbookf.pas

delphi+sql2000实现的图书管理系统软件

unit uShowBookF;

interface

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

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 : TFlatEdit;
    procedure RefreshBook;
    procedure Show(var Text:TFlatEdit);virtual;
    constructor Create(AOwner : TComponent);override;
  end;

var
  ShowBookF : TShowBookF;

implementation

uses
  Share_Unit;

{$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
   HSXX_Q:TADOQuery;
begin
   HSXX_Q:=TADOQuery.Create(nil);
   HSXX_Q.Connection:=Connect;
   HSXX_Q.SQL.Add('select 图书编号,书名,类名 from 图书信息,图书类别');
   HSXX_Q.SQL.Add('where 图书信息.类别 = 图书类别.类别');
   HSXX_Q.Open;
   ListView1.Items.Clear;
   while not HSXX_Q.Eof do
   begin
     with ListView1.Items.Add do
       begin
         Caption := HSXX_Q.FieldByName('图书编号').AsString;
         SubItems.Add(HSXX_Q.FieldByName('书名').AsString);
         SubItems.Add(HSXX_Q.FieldByName('类名').AsString);
       end;
       HSXX_Q.Next;
   end;
   FreeAndNil(HSXX_Q);
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:TFlatEdit);
begin
  inherited Show;
  Edit := Text;
end;

end.