bookqueryu.dfm

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

object BookQueryF: TBookQueryF
  Left = 308
  Top = 226
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'BookQueryF'
  ClientHeight = 375
  ClientWidth = 541
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Times New Roman'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object PageControl1: TPageControl
    Left = 6
    Top = 6
    Width = 529
    Height = 336
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #22270#20070#26597#35810
      object GroupBox1: TGroupBox
        Left = 8
        Top = 0
        Width = 505
        Height = 39
        Caption = #26597#35810
        TabOrder = 0
        object RadioButton1: TRadioButton
          Left = 22
          Top = 14
          Width = 65
          Height = 17
          Caption = #20070#21495
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = RadioButton1Click
        end
        object RadioButton2: TRadioButton
          Left = 94
          Top = 14
          Width = 57
          Height = 17
          Caption = #20070#21517
          TabOrder = 1
          OnClick = RadioButton2Click
        end
        object RadioButton3: TRadioButton
          Left = 182
          Top = 14
          Width = 49
          Height = 17
          Caption = #20316#32773
          TabOrder = 2
          OnClick = RadioButton3Click
        end
        object RadioButton4: TRadioButton
          Left = 262
          Top = 14
          Width = 57
          Height = 17
          Caption = #20986#29256#21830
          TabOrder = 3
          OnClick = RadioButton4Click
        end
        object RadioButton5: TRadioButton
          Left = 342
          Top = 14
          Width = 57
          Height = 17
          Caption = #31867#21035
          TabOrder = 4
          OnClick = RadioButton5Click
        end
        object RadioButton7: TRadioButton
          Left = 398
          Top = 14
          Width = 57
          Height = 17
          Caption = #22791#27880
          TabOrder = 5
          OnClick = RadioButton7Click
        end
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 39
        Width = 505
        Height = 41
        Caption = #36755#20837
        TabOrder = 1
        object StaticText1: TStaticText
          Left = 8
          Top = 16
          Width = 124
          Height = 19
          Caption = #36755#20837#35201#26597#35810#30340#20851#38190#23383#65306
          TabOrder = 0
        end
        object Edit1: TEdit
          Left = 136
          Top = 14
          Width = 169
          Height = 21
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          TabOrder = 1
          OnKeyDown = Edit1KeyDown
        end
        object BitBtn1: TBitBtn
          Left = 408
          Top = 11
          Width = 89
          Height = 25
          Caption = #26597'  '#35810
          TabOrder = 2
          OnClick = BitBtn1Click
        end
        object CheckBox1: TCheckBox
          Left = 320
          Top = 16
          Width = 73
          Height = 17
          Caption = #27169#31946#26597#35810
          Checked = True
          State = cbChecked
          TabOrder = 3
        end
      end
      object GroupBox3: TGroupBox
        Left = 8
        Top = 80
        Width = 505
        Height = 225
        Caption = #32467#26524
        TabOrder = 2
        object ListView1: TListView
          Left = 8
          Top = 16
          Width = 489
          Height = 201
          BevelInner = bvLowered
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          Columns = <
            item
              Caption = #20070#21495
              Width = 80
            end
            item
              Caption = #20070#21517
              Width = 80
            end
            item
              Caption = #20316#32773
            end
            item
              Caption = #20986#29256#21830
              Width = 100
            end
            item
              Caption = #31867#21035
              Width = 70
            end
            item
              Caption = #20215#26684
            end
            item
              Caption = #22791#27880
              Width = 100
            end>
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          GridLines = True
          ReadOnly = True
          RowSelect = True
          ParentFont = False
          TabOrder = 0
          ViewStyle = vsReport
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #24211#23384#26597#35810
      ImageIndex = 20
      object GroupBox4: TGroupBox
        Left = 8
        Top = 8
        Width = 503
        Height = 76
        Caption = #24211#23384#26597#35810
        TabOrder = 0
        object StaticText3: TStaticText
          Left = 9
          Top = 21
          Width = 40
          Height = 19
          Caption = #20070#21517#65306
          TabOrder = 3
        end
        object StaticText2: TStaticText
          Left = 203
          Top = 22
          Width = 64
          Height = 19
          Caption = #26597#35810#26085#26399#65306
          TabOrder = 1
        end
        object ComboBox1: TComboBox
          Left = 270
          Top = 20
          Width = 129
          Height = 23
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          ItemHeight = 15
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 48
          Top = 20
          Width = 137
          Height = 21
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          TabOrder = 2
        end
        object BitBtn5: TBitBtn
          Left = 408
          Top = 17
          Width = 75
          Height = 25
          Caption = #26597'  '#35810
          TabOrder = 4
          OnClick = BitBtn5Click
        end
      end
      object GroupBox5: TGroupBox
        Left = 8
        Top = 84
        Width = 505
        Height = 222
        Caption = #32467#26524
        TabOrder = 1
        object ListView2: TListView
          Left = 8
          Top = 15
          Width = 489
          Height = 200
          BevelInner = bvLowered
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          Columns = <
            item
              Caption = #20070#21517
              Width = 80
            end
            item
              Caption = #24211#23384#25968#37327
              Width = 60
            end
            item
              Caption = #20837#24211#26085#26399
              Width = 140
            end
            item
              Caption = #20986#24211#25968#37327
              Width = 60
            end
            item
              Caption = #20986#24211#26085#26399
              Width = 140
            end>
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          GridLines = True
          ReadOnly = True
          RowSelect = True
          ParentFont = False
          TabOrder = 0
          ViewStyle = vsReport
        end
      end
    end
  end
  object BitBtn4: TBitBtn
    Left = 456
    Top = 345
    Width = 75
    Height = 25
    Caption = #20851'  '#38381
    TabOrder = 1
    OnClick = BitBtn4Click
  end
end