⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 readeru.dfm

📁 包含详细的代码设计,实现图书管理系统功能.是一个很好的实例
💻 DFM
字号:
object ReaderF: TReaderF
  Left = 328
  Top = 171
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'ReaderF'
  ClientHeight = 394
  ClientWidth = 400
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Times New Roman'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object GroupBox2: TGroupBox
    Left = 5
    Top = 48
    Width = 388
    Height = 297
    Caption = #22522#26412#20449#24687
    TabOrder = 28
  end
  object StaticText15: TStaticText
    Left = 18
    Top = 259
    Width = 60
    Height = 19
    AutoSize = False
    Caption = #30446#21069#20511#20070#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 25
  end
  object StaticText7: TStaticText
    Left = 266
    Top = 117
    Width = 81
    Height = 19
    AutoSize = False
    Caption = #31867'    '#22411#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
  end
  object StaticText5: TStaticText
    Left = 127
    Top = 116
    Width = 81
    Height = 19
    AutoSize = False
    Caption = #23398'    '#21382#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 1
  end
  object StaticText4: TStaticText
    Left = 18
    Top = 116
    Width = 81
    Height = 19
    AutoSize = False
    Caption = #24615'    '#21035#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 2
  end
  object StaticText3: TStaticText
    Left = 18
    Top = 93
    Width = 79
    Height = 19
    AutoSize = False
    Caption = #36523#20221#35777#21495#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 3
  end
  object StaticText2: TStaticText
    Left = 18
    Top = 73
    Width = 79
    Height = 19
    AutoSize = False
    Caption = #35835#32773#22995#21517#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 4
  end
  object ID: TEdit
    Left = 123
    Top = 30
    Width = 134
    Height = 19
    AutoSize = False
    BevelKind = bkFlat
    BorderStyle = bsNone
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -20
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    MaxLength = 10
    ParentFont = False
    TabOrder = 5
    OnExit = IDExit
  end
  object name: TEdit
    Left = 75
    Top = 73
    Width = 302
    Height = 18
    BevelKind = bkFlat
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 6
    OnChange = nameChange
    OnKeyDown = nameKeyDown
  end
  object shenfen: TEdit
    Left = 75
    Top = 93
    Width = 302
    Height = 18
    BevelKind = bkFlat
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 7
    OnChange = nameChange
    OnKeyDown = nameKeyDown
  end
  object StaticText1: TStaticText
    Left = 143
    Top = 5
    Width = 96
    Height = 25
    Caption = #35835#32773#21345#21495
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 8
  end
  object sex: TComboBox
    Left = 75
    Top = 114
    Width = 46
    Height = 20
    BevelKind = bkFlat
    BiDiMode = bdRightToLeft
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 12
    ItemIndex = 0
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 9
    Text = #30007
    OnChange = nameChange
    OnKeyDown = nameKeyDown
    Items.Strings = (
      #30007
      #22899)
  end
  object edu: TComboBox
    Left = 184
    Top = 114
    Width = 78
    Height = 20
    BevelKind = bkFlat
    BiDiMode = bdRightToLeft
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 12
    ItemIndex = 0
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 10
    Text = #23567#23398
    OnChange = nameChange
    OnKeyDown = nameKeyDown
    Items.Strings = (
      #23567#23398
      #21021#20013
      #20013#19987
      #39640#20013
      #22823#19987
      #22823#23398
      #30740#31350#29983
      #21338#22763
      #21338#22763#21518)
  end
  object typee: TComboBox
    Left = 323
    Top = 114
    Width = 54
    Height = 20
    BevelKind = bkFlat
    BiDiMode = bdRightToLeft
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 12
    ItemIndex = 0
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 11
    Text = #19968#31867
    OnChange = nameChange
    OnKeyDown = nameKeyDown
    Items.Strings = (
      #19968#31867
      #20108#31867
      #19977#31867
      #22235#31867
      #20116#31867
      #20845#31867)
  end
  object StaticText8: TStaticText
    Left = 18
    Top = 139
    Width = 81
    Height = 19
    AutoSize = False
    Caption = #24231'    '#26426
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 12
  end
  object StaticText9: TStaticText
    Left = 18
    Top = 159
    Width = 81
    Height = 19
    AutoSize = False
    Caption = #25163'    '#26426#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 13
  end
  object StaticText10: TStaticText
    Left = 18
    Top = 179
    Width = 81
    Height = 19
    AutoSize = False
    Caption = 'B     P '#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 14
  end
  object StaticText11: TStaticText
    Left = 18
    Top = 199
    Width = 81
    Height = 19
    AutoSize = False
    Caption = 'O I C Q '#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 15
  end
  object StaticText13: TStaticText
    Left = 18
    Top = 219
    Width = 81
    Height = 19
    AutoSize = False
    Caption = 'E -MAIL '#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 16
  end
  object StaticText14: TStaticText
    Left = 18
    Top = 239
    Width = 81
    Height = 19
    AutoSize = False
    Caption = #22320'    '#22336#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 17
  end
  object homep: TEdit
    Left = 75
    Top = 139
    Width = 302
    Height = 18
    BevelKind = bkFlat
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 18
    OnChange = homepChange
    OnKeyDown = nameKeyDown
  end
  object handp: TEdit
    Left = 75
    Top = 159
    Width = 302
    Height = 18
    BevelKind = bkFlat
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 19
    OnChange = homepChange
    OnKeyDown = nameKeyDown
  end
  object bp: TEdit
    Left = 75
    Top = 179
    Width = 302
    Height = 18
    BevelKind = bkFlat
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 20
    OnChange = homepChange
    OnKeyDown = nameKeyDown
  end
  object qq: TEdit
    Left = 75
    Top = 199
    Width = 302
    Height = 18
    BevelKind = bkFlat
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 21
    OnChange = homepChange
    OnKeyDown = nameKeyDown
  end
  object email: TEdit
    Left = 75
    Top = 219
    Width = 302
    Height = 18
    BevelKind = bkFlat
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 22
    OnChange = homepChange
    OnKeyDown = nameKeyDown
  end
  object address: TEdit
    Left = 75
    Top = 239
    Width = 305
    Height = 18
    BevelKind = bkFlat
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 23
    OnChange = homepChange
    OnKeyDown = nameKeyDown
  end
  object ListBox1: TListBox
    Left = 76
    Top = 259
    Width = 305
    Height = 80
    BevelKind = bkFlat
    BorderStyle = bsNone
    ItemHeight = 15
    TabOrder = 24
    OnKeyDown = ListBox1KeyDown
  end
  object BitBtn1: TBitBtn
    Left = 72
    Top = 362
    Width = 75
    Height = 25
    Caption = #26356'  '#26032
    Default = True
    ModalResult = 1
    TabOrder = 26
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 256
    Top = 362
    Width = 75
    Height = 25
    Caption = #20851'  '#38381
    TabOrder = 27
    OnClick = BitBtn2Click
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -