book.dfm

这是一个DELPHI7应用案例开发篇有配套程序种子光盘

object frmBook: TfrmBook
  Left = 262
  Top = 139
  Width = 615
  Height = 415
  Caption = #20070#31821#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 15
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 0
    Width = 607
    Height = 25
    DataSource = DataModule1.dsBook
    Align = alTop
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 345
    Width = 607
    Height = 43
    Align = alBottom
    TabOrder = 1
    object Button1: TButton
      Left = 33
      Top = 8
      Width = 75
      Height = 25
      Caption = #25552#20132#20462#25913
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 25
    Width = 607
    Height = 320
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 473
      Top = 37
      Height = 190
      Align = alRight
    end
    object Splitter2: TSplitter
      Left = 1
      Top = 227
      Width = 605
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object Image1: TImage
      Left = 476
      Top = 37
      Width = 130
      Height = 190
      Align = alRight
      PopupMenu = pmImage
      OnClick = Image1Click
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 37
      Width = 472
      Height = 190
      Align = alClient
      DataSource = DataModule1.dsBook
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -15
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      OnColEnter = DBGrid1ColEnter
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 605
      Height = 36
      Align = alTop
      TabOrder = 1
      object Label1: TLabel
        Left = 16
        Top = 12
        Width = 90
        Height = 15
        Caption = #20070#21517#20851#38190#23383#65306
      end
      object edNameFilter: TEdit
        Left = 108
        Top = 8
        Width = 121
        Height = 23
        TabOrder = 0
        OnExit = edNameFilterExit
      end
    end
    object DBMemo1: TDBMemo
      Left = 1
      Top = 230
      Width = 605
      Height = 89
      Align = alBottom
      DataSource = DataModule1.dsBook
      TabOrder = 2
    end
  end
  object pmImage: TPopupMenu
    Left = 500
    Top = 173
    object miLoadFromFile: TMenuItem
      Caption = #20174#25991#20214#36733#20837
      OnClick = miLoadFromFileClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object miCutImage: TMenuItem
      Caption = #28165#38500
      OnClick = miCutImageClick
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'jpg'
    Filter = 'JPEG Files|*.jpg'
    Left = 504
    Top = 221
  end
end