bookidnamefrm.~dfm

基于Interbase的图书管理系统

inherited bookidnameForm: TbookidnameForm
  Left = 206
  Top = 113
  Width = 812
  Height = 477
  Caption = #12310#20070#21495#20070#21517#26597#35810#12311
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [1]
    Left = 425
    Top = 0
    Width = 4
    Height = 443
    Cursor = crHSplit
  end
  object GroupBox1: TGroupBox [2]
    Left = 0
    Top = 0
    Width = 425
    Height = 443
    Align = alLeft
    Caption = #22270#20070#20449#24687
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clPurple
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object GroupBox3: TGroupBox
      Left = 10
      Top = 158
      Width = 208
      Height = 273
      Caption = #22270#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 = 0
      object Label3: TLabel
        Left = 24
        Top = 40
        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 Label4: TLabel
        Left = 24
        Top = 74
        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 Label5: TLabel
        Left = 18
        Top = 139
        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 Label6: TLabel
        Left = 6
        Top = 172
        Width = 69
        Height = 16
        AutoSize = False
        Caption = #20837#24211#25968#37327#65306'   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 24
        Top = 107
        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 Label7: TLabel
        Left = 122
        Top = 201
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #26410#20511#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 = 24
        Top = 204
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #20511#20986#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 = 8
        Top = 235
        Width = 72
        Height = 16
        AutoSize = False
        Caption = #20837#24211#26085#26399#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 = 168
        Top = 170
        Width = 23
        Height = 16
        AutoSize = False
        Caption = '('#26412') '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBE1: TDBEdit
        Left = 78
        Top = 35
        Width = 120
        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 DBE2: TDBEdit
        Left = 78
        Top = 67
        Width = 120
        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 DBE3: TDBEdit
        Left = 78
        Top = 100
        Width = 120
        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 DBE4: TDBEdit
        Left = 78
        Top = 133
        Width = 120
        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
      object DBE5: TDBEdit
        Left = 78
        Top = 166
        Width = 84
        Height = 22
        Cursor = crNo
        AutoSelect = False
        Color = clInfoBk
        Ctl3D = False
        DataField = 'BOOK_NUMBER'
        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 = 4
      end
      object DBE7: TDBEdit
        Left = 161
        Top = 199
        Width = 37
        Height = 22
        Cursor = crNo
        AutoSelect = False
        Color = clInfoBk
        Ctl3D = False
        DataField = 'BOOK_RESIDE'
        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 = 5
      end
      object DBE6: TDBEdit
        Left = 78
        Top = 199
        Width = 39
        Height = 22
        Cursor = crNo
        AutoSelect = False
        Color = clInfoBk
        Ctl3D = False
        DataField = 'Book_borrowed'
        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 = 6
      end
      object DBE8: TDBEdit
        Left = 78
        Top = 232
        Width = 120
        Height = 22
        Cursor = crNo
        AutoSelect = False
        Color = clInfoBk
        Ctl3D = False
        DataField = 'BOOK_DATE'
        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 = 7
      end
    end
    object GroupBox4: TGroupBox
      Left = 222
      Top = 158
      Width = 196
      Height = 273
      Caption = #24050#20511#26377#35813#20070#30340#35835#32773
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object Label11: TLabel
        Left = 7
        Top = 36
        Width = 42
        Height = 16
        AutoSize = False
        Caption = '  '#24037#21495'    '
        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 Label12: TLabel
        Left = 55
        Top = 36
        Width = 60
        Height = 16
        AutoSize = False
        Caption = ' '#20511#20070#35777#21495'   '
        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 Label14: TLabel
        Left = 126
        Top = 36
        Width = 39
        Height = 16
        AutoSize = False
        Caption = '  '#22995#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 LBreader: TListBox
        Left = 8
        Top = 56
        Width = 175
        Height = 193
        Cursor = crHandPoint
        Color = clInfoBk
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ItemHeight = 20
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        OnClick = LBreaderClick
      end
    end
    object PageControl1: TPageControl
      Left = 32
      Top = 32
      Width = 369
      Height = 129
      ActivePage = TabSheet1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MultiLine = True
      ParentFont = False
      Style = tsButtons
      TabIndex = 0
      TabOrder = 2
      object TabSheet1: TTabSheet
        Caption = #20197#20070#21495#26041#24335#26597#35810
        object Panel2: TPanel
          Left = 0
          Top = 10
          Width = 361
          Height = 73
          BevelInner = bvLowered
          BevelOuter = bvLowered
          Caption = 'Panel1'
          Color = clMoneyGreen
          TabOrder = 0
          object Label2: TLabel
            Left = 32
            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 Edbookid: 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 = EdbookidKeyPress
          end
          object BtBbookid: 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 = BtBbookidClick
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #20197#20070#21517#26041#24335#26597#35810
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ImageIndex = 1
        ParentFont = False
        object Panel1: TPanel
          Left = 0
          Top = 10
          Width = 361
          Height = 73
          BevelInner = bvLowered
          BevelOuter = bvLowered
          Caption = 'Panel1'
          Color = clInfoBk
          TabOrder = 0
          object Label1: TLabel
            Left = 32
            Top = 32
            Width = 36