book_record.~dfm

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

object frm_book_record: Tfrm_book_record
  Left = 197
  Top = 114
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'frm_book_record'
  ClientHeight = 333
  ClientWidth = 523
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = -3
    Top = 0
    Width = 529
    Height = 335
    BorderWidth = 2
    BorderStyle = bsSingle
    Color = clInactiveCaption
    TabOrder = 0
    object Label11: TLabel
      Left = 184
      Top = 8
      Width = 177
      Height = 25
      AutoSize = False
      Caption = #22270' '#20070' '#30446' '#24405' '#21345
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -24
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object GroupBox3: TGroupBox
      Left = 13
      Top = 40
      Width = 497
      Height = 257
      Color = clBtnFace
      ParentColor = False
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 44
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #22270#20070#32534#21495
      end
      object Label2: TLabel
        Left = 16
        Top = 76
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #20070'          '#21517
      end
      object Label3: TLabel
        Left = 16
        Top = 108
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #22270#20070#31867#21035
      end
      object Label4: TLabel
        Left = 16
        Top = 140
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #20316'          '#32773
      end
      object Label5: TLabel
        Left = 16
        Top = 172
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #20986'  '#29256'  '#31038
      end
      object Label6: TLabel
        Left = 288
        Top = 44
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #20986#29256#26085#26399
      end
      object Label7: TLabel
        Left = 288
        Top = 76
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #34255#20070#25968#37327
      end
      object Label8: TLabel
        Left = 288
        Top = 110
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #21333'          '#20215
      end
      object Label9: TLabel
        Left = 288
        Top = 140
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #23384#25918#20301#32622
      end
      object Label10: TLabel
        Left = 16
        Top = 204
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #22791'         '#27880
      end
      object DBEdit1: TDBEdit
        Left = 88
        Top = 40
        Width = 121
        Height = 21
        DataField = 'book_id'
        DataSource = admin_bookinf.DataSource1
        TabOrder = 0
        OnEnter = DBEdit1Enter
      end
      object DBEdit2: TDBEdit
        Left = 88
        Top = 72
        Width = 177
        Height = 21
        DataField = 'book_name'
        DataSource = admin_bookinf.DataSource1
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 88
        Top = 104
        Width = 121
        Height = 21
        DataField = 'book_type'
        DataSource = admin_bookinf.DataSource1
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 88
        Top = 136
        Width = 121
        Height = 21
        DataField = 'author'
        DataSource = admin_bookinf.DataSource1
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 88
        Top = 168
        Width = 121
        Height = 21
        DataField = 'publisher'
        DataSource = admin_bookinf.DataSource1
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 360
        Top = 40
        Width = 121
        Height = 21
        DataField = 'pub_date'
        DataSource = admin_bookinf.DataSource1
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 360
        Top = 72
        Width = 57
        Height = 21
        DataField = 'book_num'
        DataSource = admin_bookinf.DataSource1
        TabOrder = 6
      end
      object DBEdit8: TDBEdit
        Left = 360
        Top = 104
        Width = 81
        Height = 21
        DataField = 'price'
        DataSource = admin_bookinf.DataSource1
        TabOrder = 7
      end
      object DBEdit9: TDBEdit
        Left = 360
        Top = 136
        Width = 121
        Height = 21
        DataField = 'locality'
        DataSource = admin_bookinf.DataSource1
        TabOrder = 8
      end
      object DBEdit10: TDBEdit
        Left = 88
        Top = 200
        Width = 393
        Height = 21
        DataField = 'mem'
        DataSource = admin_bookinf.DataSource1
        TabOrder = 9
      end
    end
    object btnCancel: TButton
      Left = 320
      Top = 300
      Width = 89
      Height = 25
      Caption = #21462#28040
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btnCancelClick
    end
    object btnSave: TButton
      Left = 136
      Top = 300
      Width = 97
      Height = 25
      Caption = #20445#23384
      TabOrder = 1
      OnClick = btnSaveClick
    end
  end
end