frmrecord.dfm

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

object frm_Record: Tfrm_Record
  Left = 259
  Top = 192
  BorderStyle = bsDialog
  Caption = #20511#20070#25110#39044#32422#22270#20070
  ClientHeight = 319
  ClientWidth = 536
  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 Panel1: TPanel
    Left = 8
    Top = 8
    Width = 521
    Height = 265
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 42
      Width = 65
      Height = 16
      AutoSize = False
      Caption = #22270#20070#32534#21495
    end
    object Label2: TLabel
      Left = 16
      Top = 74
      Width = 65
      Height = 16
      AutoSize = False
      Caption = #20070'          '#21517
    end
    object Label3: TLabel
      Left = 16
      Top = 106
      Width = 65
      Height = 16
      AutoSize = False
      Caption = #22270#20070#31867#21035
    end
    object Label4: TLabel
      Left = 16
      Top = 138
      Width = 65
      Height = 16
      AutoSize = False
      Caption = #20316'          '#32773
    end
    object Label5: TLabel
      Left = 288
      Top = 40
      Width = 65
      Height = 16
      AutoSize = False
      Caption = #20986'  '#29256'  '#31038
    end
    object Label10: TLabel
      Left = 16
      Top = 174
      Width = 65
      Height = 16
      AutoSize = False
      Caption = #22791'         '#27880
    end
    object Label6: TLabel
      Left = 288
      Top = 72
      Width = 65
      Height = 16
      AutoSize = False
      Caption = #20986#29256#26085#26399
    end
    object Label8: TLabel
      Left = 288
      Top = 106
      Width = 65
      Height = 16
      AutoSize = False
      Caption = #21333'          '#20215
    end
    object Label9: TLabel
      Left = 288
      Top = 136
      Width = 65
      Height = 16
      AutoSize = False
      Caption = #23384#25918#20301#32622
    end
    object DBText1: TDBText
      Left = 80
      Top = 40
      Width = 137
      Height = 17
      Color = clHighlightText
      DataField = 'book_id'
      DataSource = frmFindBook.DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 80
      Top = 72
      Width = 177
      Height = 17
      Color = clHighlightText
      DataField = 'book_name'
      DataSource = frmFindBook.DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 80
      Top = 104
      Width = 137
      Height = 17
      Color = clHighlightText
      DataField = 'book_type'
      DataSource = frmFindBook.DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object DBText4: TDBText
      Left = 80
      Top = 136
      Width = 137
      Height = 17
      Color = clHighlightText
      DataField = 'author'
      DataSource = frmFindBook.DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object DBText5: TDBText
      Left = 352
      Top = 40
      Width = 137
      Height = 17
      Color = clHighlightText
      DataField = 'publisher'
      DataSource = frmFindBook.DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object DBText6: TDBText
      Left = 352
      Top = 72
      Width = 137
      Height = 17
      Color = clHighlightText
      DataField = 'pub_date'
      DataSource = frmFindBook.DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object DBText8: TDBText
      Left = 352
      Top = 104
      Width = 137
      Height = 17
      Color = clHighlightText
      DataField = 'price'
      DataSource = frmFindBook.DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object DBText9: TDBText
      Left = 352
      Top = 136
      Width = 137
      Height = 17
      Color = clHighlightText
      DataField = 'locality'
      DataSource = frmFindBook.DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object DBText10: TDBText
      Left = 80
      Top = 172
      Width = 409
      Height = 17
      Color = clHighlightText
      DataField = 'mem'
      DataSource = frmFindBook.DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 16
      Top = 216
      Width = 481
      Height = 41
      Caption = #22270#20070#20511#38405#24773#20917
      TabOrder = 0
      object Label7: TLabel
        Left = 24
        Top = 20
        Width = 49
        Height = 16
        AutoSize = False
        Caption = #34255#20070#25968
      end
      object lbSum: TDBText
        Left = 67
        Top = 19
        Width = 41
        Height = 17
        Color = clHighlightText
        DataField = 'book_num'
        DataSource = frmFindBook.DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label11: TLabel
        Left = 198
        Top = 20
        Width = 49
        Height = 16
        AutoSize = False
        Caption = #20511#20986#25968
      end
      object lbBorrow: TDBText
        Left = 242
        Top = 19
        Width = 49
        Height = 17
        Color = clHighlightText
        DataField = 'borrow_num'
        DataSource = frmFindBook.DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label12: TLabel
        Left = 365
        Top = 20
        Width = 49
        Height = 16
        AutoSize = False
        Caption = #39044#32422#25968
      end
      object lbBooking: TDBText
        Left = 409
        Top = 19
        Width = 49
        Height = 17
        Color = clHighlightText
        DataField = 'booking_num'
        DataSource = frmFindBook.DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
    end
  end
  object Button1: TButton
    Left = 448
    Top = 288
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button3: TButton
    Left = 352
    Top = 288
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 2
    OnClick = Button3Click
  end
  object chBooking: TCheckBox
    Left = 280
    Top = 292
    Width = 57
    Height = 17
    Caption = #39044#32422
    Enabled = False
    TabOrder = 3
  end
end