renewalfrm.~dfm

来自「基于Interbase的图书管理系统」· ~DFM 代码 · 共 810 行 · 第 1/2 页

        object BtBbook: TBitBtn
          Left = 248
          Top = 24
          Width = 75
          Height = 25
          Cursor = crHandPoint
          Caption = #30830#35748
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGreen
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnClick = BtBbookClick
        end
      end
      object GroupBox5: TGroupBox
        Left = 16
        Top = 112
        Width = 153
        Height = 169
        Caption = #21021#20511#20449#24687
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Label7: TLabel
          Left = 16
          Top = 32
          Width = 39
          Height = 16
          AutoSize = False
          Caption = #26085#26399' '#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 16
          Top = 64
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #20511#26399'('#22825')'#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 16
          Top = 101
          Width = 57
          Height = 16
          AutoSize = False
          Caption = #36807#26399#21542#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 16
          Top = 136
          Width = 65
          Height = 16
          AutoSize = False
          Caption = #36807#26399'('#22825')'#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Edday: TEdit
          Left = 96
          Top = 64
          Width = 48
          Height = 22
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          Text = 'Edday'
        end
        object Edispasstime: TEdit
          Left = 96
          Top = 96
          Width = 48
          Height = 22
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          Text = 'Edispasstime'
        end
        object Edpassday: TEdit
          Left = 96
          Top = 128
          Width = 49
          Height = 22
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
          Text = 'Edpassday'
        end
        object Eddate: TEdit
          Left = 67
          Top = 32
          Width = 77
          Height = 22
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 3
          Text = 'Eddate'
        end
      end
      object GroupBox6: TGroupBox
        Left = 16
        Top = 288
        Width = 345
        Height = 65
        Caption = #32493#20511#20449#24687
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object Label11: TLabel
          Left = 8
          Top = 32
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #32493#20511#26085#26399#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 192
          Top = 28
          Width = 97
          Height = 16
          AutoSize = False
          Caption = #32493#20511#20511#26399'('#22825')'#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DTPrenewal: TDateTimePicker
          Left = 80
          Top = 24
          Width = 105
          Height = 24
          Cursor = crHandPoint
          CalAlignment = dtaLeft
          Date = 37217.6878215856
          Time = 37217.6878215856
          DateFormat = dfShort
          DateMode = dmComboBox
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clTeal
          Font.Height = -15
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Kind = dtkDate
          ParseInput = False
          ParentFont = False
          TabOrder = 0
        end
        object Edrenewalday: TEdit
          Left = 296
          Top = 24
          Width = 41
          Height = 24
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          Text = '7'
          OnKeyPress = EdrenewaldayKeyPress
        end
      end
      object GroupBox7: TGroupBox
        Left = 176
        Top = 112
        Width = 193
        Height = 169
        Caption = #22270#20070#20449#24687
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        object Label14: TLabel
          Left = 8
          Top = 32
          Width = 36
          Height = 16
          AutoSize = False
          Caption = #20070#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label15: TLabel
          Left = 8
          Top = 70
          Width = 36
          Height = 16
          AutoSize = False
          Caption = #20070#21517#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label16: TLabel
          Left = 8
          Top = 106
          Width = 36
          Height = 16
          AutoSize = False
          Caption = #20316#32773#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label17: TLabel
          Left = 8
          Top = 140
          Width = 57
          Height = 16
          AutoSize = False
          Caption = #20986#29256#31038#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBE6: TDBEdit
          Left = 64
          Top = 32
          Width = 121
          Height = 22
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          DataField = 'BOOK_ID'
          DataSource = DMbook.DSbook
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
        end
        object DBE7: TDBEdit
          Left = 64
          Top = 67
          Width = 121
          Height = 22
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          DataField = 'BOOK_NAME'
          DataSource = DMbook.DSbook
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
        end
        object DBE8: TDBEdit
          Left = 64
          Top = 103
          Width = 121
          Height = 22
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          DataField = 'BOOK_PENSTER'
          DataSource = DMbook.DSbook
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
        end
        object DBE9: TDBEdit
          Left = 64
          Top = 136
          Width = 121
          Height = 22
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          DataField = 'BOOK_PUBLISH'
          DataSource = DMbook.DSbook
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 3
        end
      end
    end
  end
end