unit10.pas

可以显示数据库中图书的信息以及读者的信息

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, OleCtrls, SHDocVw, Menus, ExtCtrls, ComCtrls,
  ToolWin;

type
  TForm10 = class(TForm)
    WebBrowser1: TWebBrowser;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    Panel1: TPanel;
    Label1: TLabel;
    URLS: TComboBox;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    N1: TMenuItem;
    BackBtn: TToolButton;
    ForwardBtn: TToolButton;
    StopBtn: TToolButton;
    RefreshBtn: TToolButton;
    HomeBtn: TToolButton;
    SearchBtn: TToolButton;
    OpenDialog1: TOpenDialog;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    Internet1: TMenuItem;
    procedure Formclose(Sender: TObject; var Action: TCloseAction);
    procedure Onkeydown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    SysDir:array[0..256] of char;
  end;

var
  Form10: TForm10;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm10.Formclose(Sender: TObject; var Action: TCloseAction);
begin
   Form2.show;
   Form10.hide;
end;

procedure TForm10.Onkeydown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
     WebBrowser1.Navigate(URLS.Text);
     URLS.Items.Add(URLS.Text);
   end;
end;

procedure TForm10.FormCreate(Sender: TObject);
begin
  // GetSystemDiretory(SysDir,Sizeof(SysDir)-1);
  // WebBrowser1.Navigate('c:\');
end;

end.