bore.~dfm

这是《Delphi程序设计基础》由李文池写的书的示例代码

          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object DBText9: TDBText
          Left = 320
          Top = 72
          Width = 41
          Height = 17
          Color = clCaptionText
          DataField = 'booking_num'
          DataSource = DataSource2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object DBText10: TDBText
          Left = 456
          Top = 72
          Width = 97
          Height = 17
          Color = clCaptionText
          DataField = 'locality'
          DataSource = DataSource2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
      end
      object GroupBox2: TGroupBox
        Left = 40
        Top = 16
        Width = 577
        Height = 169
        Caption = #20511#20070#35760#24405
        TabOrder = 1
        object Label7: TLabel
          Left = 392
          Top = 89
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #36824#20070#26085#26399
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 16
          Top = 89
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #20511#20070#26085#26399
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 16
          Top = 25
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #20511#20070#35777#21495
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBText1: TDBText
          Left = 88
          Top = 24
          Width = 81
          Height = 17
          Color = clCaptionText
          DataField = 'libcard_id'
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label3: TLabel
          Left = 200
          Top = 25
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #35835#32773#22995#21517
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBText2: TDBText
          Left = 272
          Top = 24
          Width = 81
          Height = 17
          Color = clCaptionText
          DataField = 'reader_name'
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label8: TLabel
          Left = 16
          Top = 56
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #22270#20070#32534#21495
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBText11: TDBText
          Left = 88
          Top = 56
          Width = 81
          Height = 17
          Color = clCaptionText
          DataField = 'book_id'
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object DBText12: TDBText
          Left = 88
          Top = 88
          Width = 81
          Height = 17
          Color = clCaptionText
          DataField = 'borrow_date'
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object DBText13: TDBText
          Left = 464
          Top = 88
          Width = 81
          Height = 17
          Color = clCaptionText
          DataField = 'return_date'
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label15: TLabel
          Left = 200
          Top = 56
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #22270#20070#21517#31216
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBText14: TDBText
          Left = 272
          Top = 56
          Width = 273
          Height = 17
          Color = clCaptionText
          DataField = 'book_name'
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label16: TLabel
          Left = 200
          Top = 89
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #32493#20511#26085#26399
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBText15: TDBText
          Left = 272
          Top = 88
          Width = 81
          Height = 17
          Color = clCaptionText
          DataField = 'conBorrow_date'
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label17: TLabel
          Left = 392
          Top = 25
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #20511#38405#29366#24577
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBText16: TDBText
          Left = 464
          Top = 24
          Width = 81
          Height = 17
          Color = clCaptionText
          DataField = 'status'
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object DBNavigator1: TDBNavigator
          Left = 24
          Top = 128
          Width = 504
          Height = 25
          DataSource = DataSource1
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
          TabOrder = 0
          OnClick = DBNavigator1Click
        end
      end
      object GroupBox3: TGroupBox
        Left = 40
        Top = 344
        Width = 577
        Height = 41
        Caption = #31649#29702#29702#21592#25805#20316
        TabOrder = 2
        object ComboBox1: TComboBox
          Left = 192
          Top = 12
          Width = 81
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          OnChange = ComboBox1Change
          Items.Strings = (
            #20511#20070
            #32493#20511
            #36824#20070)
        end
        object Button2: TButton
          Left = 288
          Top = 10
          Width = 75
          Height = 25
          Caption = #30830#35748
          TabOrder = 1
          OnClick = Button2Click
        end
      end
    end
  end
  object ADOQuery1: TADOQuery
    Connection = frmAdmin.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from records')
    Left = 432
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 472
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Connection = frmAdmin.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from booksinf')
    Left = 528
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 560
    Top = 8
  end
end