readerqueryu.dfm

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

object ReaderQueryF: TReaderQueryF
  Left = 262
  Top = 227
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'ReaderQueryF'
  ClientHeight = 399
  ClientWidth = 553
  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 = 9
    Top = 2
    Width = 529
    Height = 363
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #35835#32773#26597#35810
      object GroupBox1: TGroupBox
        Left = 8
        Top = 0
        Width = 505
        Height = 40
        Caption = #26597#35810
        TabOrder = 0
        object RadioButton1: TRadioButton
          Left = 40
          Top = 16
          Width = 65
          Height = 17
          Caption = #21345#21495
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object RadioButton2: TRadioButton
          Left = 104
          Top = 16
          Width = 57
          Height = 17
          Caption = #22995#21517
          TabOrder = 1
        end
        object RadioButton3: TRadioButton
          Left = 168
          Top = 16
          Width = 65
          Height = 17
          Caption = #36523#20221#35777
          TabOrder = 2
        end
        object RadioButton4: TRadioButton
          Left = 248
          Top = 16
          Width = 57
          Height = 17
          Caption = #24615#21035
          TabOrder = 3
        end
        object RadioButton5: TRadioButton
          Left = 320
          Top = 16
          Width = 73
          Height = 17
          Caption = #35835#32773#31867#22411
          TabOrder = 4
        end
        object RadioButton6: TRadioButton
          Left = 400
          Top = 16
          Width = 57
          Height = 17
          Caption = #23398#21382
          TabOrder = 5
        end
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 41
        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 = 185
          Height = 21
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          TabOrder = 1
        end
        object BitBtn1: TBitBtn
          Left = 416
          Top = 11
          Width = 75
          Height = 25
          Caption = #26597'  '#35810
          TabOrder = 2
          OnClick = BitBtn1Click
        end
        object CheckBox1: TCheckBox
          Left = 328
          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 = 82
        Width = 505
        Height = 249
        Caption = #32467#26524
        TabOrder = 2
        object ListView1: TListView
          Left = 8
          Top = 16
          Width = 489
          Height = 225
          BevelInner = bvLowered
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          Columns = <
            item
              Caption = #21345#21495
              Width = 100
            end
            item
              Caption = #22995#21517
              Width = 100
            end
            item
              Caption = #36523#20221#35777
              Width = 100
            end
            item
              Caption = #24615#21035
              Width = 40
            end
            item
              Caption = #35835#32773#31867#22411
              Width = 60
            end
            item
              Caption = #23398#21382
              Width = 60
            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 = #20511#36824#20070#26597#35810
      ImageIndex = 20
      object GroupBox4: TGroupBox
        Left = 8
        Top = 35
        Width = 503
        Height = 48
        Caption = #20511#36824#20070#26597#35810
        TabOrder = 0
        object StaticText3: TStaticText
          Left = 9
          Top = 18
          Width = 40
          Height = 19
          Caption = #21345#21495#65306
          TabOrder = 2
        end
        object StaticText2: TStaticText
          Left = 195
          Top = 18
          Width = 64
          Height = 19
          Caption = #26597#35810#26085#26399#65306
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 48
          Top = 16
          Width = 137
          Height = 21
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          TabOrder = 1
        end
        object BitBtn5: TBitBtn
          Left = 406
          Top = 15
          Width = 75
          Height = 24
          Caption = #26597'  '#35810
          TabOrder = 3
          OnClick = BitBtn5Click
        end
        object DateTimePicker1: TDateTimePicker
          Left = 264
          Top = 16
          Width = 129
          Height = 23
          BevelInner = bvNone
          BevelOuter = bvRaised
          BevelKind = bkFlat
          CalAlignment = dtaLeft
          Date = 37653.0256123611
          Time = 37653.0256123611
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 4
        end
      end
      object GroupBox5: TGroupBox
        Left = 8
        Top = 86
        Width = 505
        Height = 241
        Caption = #32467#26524
        TabOrder = 1
        object ListView2: TListView
          Left = 8
          Top = 16
          Width = 489
          Height = 217
          BevelInner = bvLowered
          BevelOuter = bvRaised
          BevelKind = bkFlat
          BorderStyle = bsNone
          Columns = <
            item
              Caption = #21345#21495
              Width = 80
            end
            item
              Caption = #20070#21495
              Width = 80
            end
            item
              Caption = #20511#20070#26085#26399
              Width = 120
            end
            item
              Caption = #36824#20070#26085#26399
              Width = 120
            end
            item
              Caption = #26159#21542#24402#36824
              Width = 60
            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
      object GroupBox6: TGroupBox
        Left = 8
        Top = 0
        Width = 503
        Height = 33
        TabOrder = 2
        object RadioButton7: TRadioButton
          Left = 80
          Top = 11
          Width = 121
          Height = 17
          Caption = #20511#20070#26597#35810
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object RadioButton8: TRadioButton
          Left = 272
          Top = 11
          Width = 129
          Height = 17
          Caption = #36824#20070#26597#35810
          TabOrder = 1
        end
      end
    end
  end
  object BitBtn4: TBitBtn
    Left = 456
    Top = 370
    Width = 81
    Height = 25
    Caption = #20851'  '#38381
    TabOrder = 1
    OnClick = BitBtn4Click
  end
end