bore.dfm

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

object frmbore: Tfrmbore
  Left = 194
  Top = 114
  Width = 696
  Height = 480
  Caption = #20511#20070#36824#20070#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 16
    Width = 673
    Height = 425
    ActivePage = TabSheet2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #20511#20070#35760#24405#34920
      object Label1: TLabel
        Left = 16
        Top = 8
        Width = 65
        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 DBGrid1: TDBGrid
        Left = 0
        Top = 40
        Width = 649
        Height = 361
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'NO'
            Title.Alignment = taCenter
            Title.Caption = #35760#24405#21495
            Width = 66
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'libcard_id'
            Title.Alignment = taCenter
            Title.Caption = #20511#20070#35777#21495
            Width = 73
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'reader_name'
            Title.Alignment = taCenter
            Title.Caption = #35835#32773#22995#21517
            Width = 72
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'book_id'
            Title.Alignment = taCenter
            Title.Caption = #22270#20070#32534#21495
            Width = 82
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'book_name'
            Title.Alignment = taCenter
            Title.Caption = #20070#21517
            Width = 225
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'borrow_date'
            Title.Alignment = taCenter
            Title.Caption = #20511#20070#26085#26399
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'conBorrow_date'
            Title.Alignment = taCenter
            Title.Caption = #32493#20511#26085#26399
            Width = 96
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'return_date'
            Title.Alignment = taCenter
            Title.Caption = #36824#20070#26085#26399
            Width = 92
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'status'
            Title.Alignment = taCenter
            Title.Caption = #20511#38405#29366#24577
            Width = 57
            Visible = True
          end>
      end
      object Edit1: TEdit
        Left = 88
        Top = 8
        Width = 121
        Height = 21
        TabOrder = 1
      end
      object Button1: TButton
        Left = 216
        Top = 8
        Width = 75
        Height = 25
        Caption = #30830#23450
        TabOrder = 2
        OnClick = Button1Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21150#29702#20511#36824#20070#25163#32493
      ImageIndex = 1
      OnShow = TabSheet2Show
      object GroupBox1: TGroupBox
        Left = 40
        Top = 208
        Width = 577
        Height = 97
        Caption = #22270#20070#20449#24687
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label4: TLabel
          Left = 8
          Top = 24
          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 Label5: TLabel
          Left = 176
          Top = 24
          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 DBText3: TDBText
          Left = 80
          Top = 24
          Width = 89
          Height = 17
          Color = clCaptionText
          DataField = 'book_id'
          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 DBText4: TDBText
          Left = 248
          Top = 24
          Width = 313
          Height = 17
          Color = clCaptionText
          DataField = 'book_name'
          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 Label9: TLabel
          Left = 8
          Top = 48
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #20316#32773#22995#21517
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 176
          Top = 48
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #20986'  '#29256'  '#31038
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBText5: TDBText
          Left = 80
          Top = 48
          Width = 89
          Height = 17
          Color = clCaptionText
          DataField = 'author'
          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 DBText6: TDBText
          Left = 248
          Top = 48
          Width = 233
          Height = 17
          Color = clCaptionText
          DataField = 'publisher'
          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 Label11: TLabel
          Left = 8
          Top = 72
          Width = 57
          Height = 16
          AutoSize = False
          Caption = #34255#20070#25968
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 160
          Top = 72
          Width = 49
          Height = 16
          AutoSize = False
          Caption = #20511#20986#25968
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 272
          Top = 72
          Width = 49
          Height = 16
          AutoSize = False
          Caption = #39044#32422#25968
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 384
          Top = 72
          Width = 65
          Height = 17
          AutoSize = False
          Caption = #23384#25918#20301#32622
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBText7: TDBText
          Left = 64
          Top = 72
          Width = 41
          Height = 17
          Color = clCaptionText
          DataField = 'book_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 DBText8: TDBText
          Left = 208
          Top = 72
          Width = 41
          Height = 17
          Color = clCaptionText
          DataField = 'borrow_num'
          DataSource = DataSource2