reader_record.dfm

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

object frm_reader_record: Tfrm_reader_record
  Left = 225
  Top = 159
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'frm_reader_record'
  ClientHeight = 329
  ClientWidth = 524
  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 = -3
    Width = 529
    Height = 356
    BorderWidth = 2
    BorderStyle = bsSingle
    Color = clInactiveCaption
    TabOrder = 0
    object Label12: TLabel
      Left = 184
      Top = 8
      Width = 177
      Height = 25
      AutoSize = False
      Caption = #20511' '#20070' '#35777' '#35760' '#24405
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -24
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object GroupBox3: TGroupBox
      Left = 14
      Top = 37
      Width = 497
      Height = 257
      Color = clBtnFace
      ParentColor = False
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 44
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #20511#20070#35777#21495
      end
      object Label2: TLabel
        Left = 16
        Top = 76
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #35835#32773#22995#21517
      end
      object Label3: TLabel
        Left = 16
        Top = 108
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #23494'          '#30721
      end
      object Label4: TLabel
        Left = 16
        Top = 140
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #24615'          '#21035
      end
      object Label5: TLabel
        Left = 16
        Top = 172
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #20986#29983#26085#26399
      end
      object Label6: TLabel
        Left = 264
        Top = 44
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #25152#22312#21333#20301
      end
      object Label7: TLabel
        Left = 264
        Top = 76
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #32852#31995#30005#35805
      end
      object Label8: TLabel
        Left = 264
        Top = 110
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #29616#22312#20303#22336
      end
      object Label9: TLabel
        Left = 264
        Top = 140
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #21150#35777#26085#26399
      end
      object Label10: TLabel
        Left = 16
        Top = 204
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #22791'         '#27880
      end
      object Label11: TLabel
        Left = 264
        Top = 172
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #20351#29992#29366#24577
      end
      object DBEdit1: TDBEdit
        Left = 88
        Top = 40
        Width = 121
        Height = 21
        DataField = 'libcard_id'
        DataSource = admin_readerinf.DataSource1
        TabOrder = 0
        OnEnter = DBEdit1Enter
      end
      object DBEdit2: TDBEdit
        Left = 88
        Top = 72
        Width = 121
        Height = 21
        DataField = 'reader_name'
        DataSource = admin_readerinf.DataSource1
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 88
        Top = 104
        Width = 121
        Height = 21
        DataField = 'password'
        DataSource = admin_readerinf.DataSource1
        TabOrder = 2
      end
      object DBEdit5: TDBEdit
        Left = 88
        Top = 168
        Width = 121
        Height = 21
        DataField = 'birth_date'
        DataSource = admin_readerinf.DataSource1
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 336
        Top = 40
        Width = 143
        Height = 21
        DataField = 'dept'
        DataSource = admin_readerinf.DataSource1
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 336
        Top = 72
        Width = 143
        Height = 21
        DataField = 'phone'
        DataSource = admin_readerinf.DataSource1
        TabOrder = 6
      end
      object DBEdit8: TDBEdit
        Left = 336
        Top = 104
        Width = 143
        Height = 21
        DataField = 'address'
        DataSource = admin_readerinf.DataSource1
        TabOrder = 7
      end
      object DBEdit9: TDBEdit
        Left = 336
        Top = 136
        Width = 143
        Height = 21
        DataField = 'card_date'
        DataSource = admin_readerinf.DataSource1
        TabOrder = 8
      end
      object DBEdit10: TDBEdit
        Left = 88
        Top = 200
        Width = 393
        Height = 21
        DataField = 'mem'
        DataSource = admin_readerinf.DataSource1
        TabOrder = 10
      end
      object DBComboBox1: TDBComboBox
        Left = 88
        Top = 136
        Width = 121
        Height = 21
        DataField = 'sex'
        DataSource = admin_readerinf.DataSource1
        ItemHeight = 13
        Items.Strings = (
          #30007
          #22899)
        TabOrder = 3
      end
      object DBComboBox2: TDBComboBox
        Left = 336
        Top = 168
        Width = 145
        Height = 21
        DataField = 'status'
        DataSource = admin_readerinf.DataSource1
        ItemHeight = 13
        Items.Strings = (
          #21551#29992
          #25346#22833
          #20572#29992)
        TabOrder = 9
      end
    end
    object btnSave: TButton
      Left = 136
      Top = 300
      Width = 97
      Height = 25
      Caption = #20445#23384
      TabOrder = 1
      OnClick = btnSaveClick
    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
  end
end