bookeditqueryu.dfm

包含详细的代码设计,实现图书管理系统功能.是一个很好的实例

object BookEditQueryF: TBookEditQueryF
  Left = 395
  Top = 324
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #22270#20070#26597#35810
  ClientHeight = 134
  ClientWidth = 371
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Edit1: TEdit
    Left = 9
    Top = 85
    Width = 152
    Height = 24
    BevelInner = bvNone
    BevelKind = bkTile
    BevelOuter = bvSpace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnKeyPress = Edit1KeyPress
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 29
    Width = 153
    Height = 24
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsItalic]
    ItemHeight = 16
    ParentFont = False
    TabOrder = 1
    Items.Strings = (
      #22270#20070#32534#21495
      #22270#20070#21517
      #22270#20070#20316#32773
      #22270#20070#20986#29256#21830
      #22270#20070#31867#21035)
  end
  object CheckBox1: TCheckBox
    Left = 177
    Top = 33
    Width = 97
    Height = 17
    Caption = #27169#31946#26597#25214
    Checked = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    State = cbChecked
    TabOrder = 2
  end
  object BtnSearch: TBitBtn
    Left = 287
    Top = 29
    Width = 75
    Height = 25
    Caption = #26597#25214
    TabOrder = 3
    OnClick = BtnSearchClick
    Kind = bkOK
  end
  object StaticText2: TStaticText
    Left = 6
    Top = 9
    Width = 161
    Height = 17
    AutoSize = False
    Caption = '('#36873#25321#35201#26597#25214#30340#23383#27573')'
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold, fsItalic]
    ParentColor = False
    ParentFont = False
    TabOrder = 4
  end
  object StaticText3: TStaticText
    Left = 9
    Top = 65
    Width = 161
    Height = 16
    AutoSize = False
    Caption = '('#36755#20837#35201#26597#25214#30340#20869#23481')'
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold, fsItalic]
    ParentColor = False
    ParentFont = False
    TabOrder = 5
  end
  object BitBtn1: TBitBtn
    Left = 288
    Top = 80
    Width = 75
    Height = 25
    TabOrder = 6
    OnClick = BitBtn1Click
    Kind = bkCancel
  end
  object StaticText1: TStaticText
    Left = 7
    Top = 112
    Width = 361
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsItalic]
    ParentFont = False
    TabOrder = 7
  end
end