bookidnamefrm.dfm

基于Interbase的图书管理系统

            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 Edbookname: TEdit
            Left = 96
            Top = 24
            Width = 121
            Height = 28
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            MaxLength = 14
            ParentFont = False
            TabOrder = 0
            OnKeyPress = EdbooknameKeyPress
          end
          object BtBbookname: TBitBtn
            Left = 256
            Top = 24
            Width = 75
            Height = 25
            Cursor = crHandPoint
            Caption = #26597#35810
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clGreen
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 1
            OnClick = BtBbooknameClick
          end
        end
      end
    end
  end
  object GroupBox2: TGroupBox [3]
    Left = 429
    Top = 0
    Width = 375
    Height = 443
    Align = alClient
    Caption = #35835#32773#20449#24687
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clPurple
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object GroupBox5: TGroupBox
      Left = 8
      Top = 24
      Width = 337
      Height = 145
      Caption = #35835#32773#20449#24687#21345
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label26: TLabel
        Left = 10
        Top = 34
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #24037#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label27: TLabel
        Left = 178
        Top = 35
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #35777#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label28: TLabel
        Left = 16
        Top = 72
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #22995#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label29: TLabel
        Left = 14
        Top = 117
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #21333#20301#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label30: TLabel
        Left = 192
        Top = 76
        Width = 69
        Height = 16
        AutoSize = False
        Caption = #21150#35777#26085#26399#65306'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBE9: TDBEdit
        Left = 61
        Top = 31
        Width = 105
        Height = 19
        Cursor = crNo
        AutoSelect = False
        Color = clInfoBk
        Ctl3D = False
        DataField = 'READER_NO'
        DataSource = DMbook.DSreader
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object DBE12: TDBEdit
        Left = 218
        Top = 32
        Width = 105
        Height = 19
        Cursor = crNo
        AutoSelect = False
        Color = clInfoBk
        Ctl3D = False
        DataField = 'READER_ID'
        DataSource = DMbook.DSreader
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
      object DBE10: TDBEdit
        Left = 62
        Top = 70
        Width = 105
        Height = 19
        Cursor = crNo
        AutoSelect = False
        Color = clInfoBk
        Ctl3D = False
        DataField = 'READER_NAME'
        DataSource = DMbook.DSreader
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
      end
      object DBE11: TDBEdit
        Left = 63
        Top = 115
        Width = 105
        Height = 19
        Cursor = crNo
        AutoSelect = False
        Color = clInfoBk
        Ctl3D = False
        DataField = 'READER_DEPT'
        DataSource = DMbook.DSreader
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 3
      end
      object DBE13: TDBEdit
        Left = 220
        Top = 102
        Width = 105
        Height = 19
        Cursor = crNo
        AutoSelect = False
        Color = clInfoBk
        Ctl3D = False
        DataField = 'READER_DODATE'
        DataSource = DMbook.DSreader
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 4
      end
    end
    object GroupBox6: TGroupBox
      Left = 8
      Top = 176
      Width = 137
      Height = 257
      Caption = #20511#26377#20070#30340#20070#21495
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object Label25: TLabel
        Left = 5
        Top = 27
        Width = 84
        Height = 16
        AutoSize = False
        Caption = #20070#21495'       '#20070#21517'     '
        Color = clInfoBk
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object LBbook: TListBox
        Left = 4
        Top = 48
        Width = 127
        Height = 185
        Cursor = crHandPoint
        Color = clInfoBk
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ItemHeight = 13
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        OnClick = LBbookClick
      end
    end
    object GroupBox7: TGroupBox
      Left = 152
      Top = 176
      Width = 209
      Height = 257
      Caption = #20511#20070#20449#24687#21345
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      object Label16: TLabel
        Left = 8
        Top = 37
        Width = 81
        Height = 16
        AutoSize = False
        Caption = #21021#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 Label17: TLabel
        Left = 5
        Top = 77
        Width = 97
        Height = 16
        AutoSize = False
        Caption = #21021#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 Label18: TLabel
        Left = 5
        Top = 114
        Width = 97
        Height = 16
        AutoSize = False
        Caption = #21021#20511#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 Label19: TLabel
        Left = 8
        Top = 154
        Width = 81
        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 Label20: TLabel
        Left = 4
        Top = 191
        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 Label21: TLabel
        Left = 6
        Top = 228
        Width = 97
        Height = 16
        AutoSize = False
        Caption = #32493#20511#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 EdBorrowdate: TEdit
        Left = 88
        Top = 35
        Width = 105
        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 = 'EdBorrowdate'
      end
      object EdBorrowday: TEdit
        Left = 112
        Top = 72
        Width = 81
        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 = 'EdBorrowday'
      end
      object EdBorrowpass: TEdit
        Left = 112
        Top = 110
        Width = 81
        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 = 'EdBorrowpass'
      end
      object EdRenewaldate: TEdit
        Left = 88
        Top = 147
        Width = 105
        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 = 'EdRenewaldate'
      end
      object EdRenewalday: TEdit
        Left = 112
        Top = 185
        Width = 81
        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 = 4
        Text = 'EdRenewalday'
      end
      object EdRenewalpass: TEdit
        Left = 112
        Top = 223
        Width = 81
        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 = 5
        Text = 'EdRenewalpass'
      end
    end
  end
end