?? ushowbookf.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -